ビットマップ，マーク，フォントの移動によるアニメーションの例です。
起動 すると番号の入力を要求されますので 1〜3 の数をキーボード から入力してください。1 の場合はビットマップ・ファイルから図形を読み込みます。 2 を入力すると円マークが選択されます。3 の場合には回転する記号が選ばれます。 番号を入力したら，グラフィクス・ウィンドウ内でマウスをドラッグしてください。 対応する初速度で選ばれた図形が打ち出されます。終了するにはウィンドウ内で左ボ タンをクリックしてください。
bounce.f ( 3,596 バイト ) で使われている GrWin ルーチン :
GWANCHOR GWCAPLIN GWFLUSH GWFNT2BMP GWGETBMP GWGETTXT GWINDOW GWKYBRD GWLDCSIZ GWLINE GWLOADBMP GWMOUSE GWOPEN GWPUTBMP GWPUTMRK GWQUIT GWRECT GWSETBMP GWSETMRK GWSETOGN GWSETPEN GWSETTXT GWSIZE GWSLEEP GWVWMODCreated: Mon Jul 21 22:57:11 JST 2003