CH1=G@SETUP（ 640,480,8,1 ）　　　　 // 画面設定
CH2=G@CHRLOAD（ ”ファイル名” ）　 // ＢＭＰロード
G@CHRCOPY（ CH2 , CH1 ） 　　　　　// 画面にコピー
G@FLIP() 　　　　　　　　　　　　　　　　　// 画面表示
LOOP ; S@WAIT() ; LOOPEND 　　　　// 即効で終了しないおまじない

CH=G@SETUP( 640 , 480 , 32 , 0 ) 　　//画面初期化
BM=G@CHRLOAD("TEST.BMP") 　　　//画像読み込み
G@CHRCLEAR( CH ) 　　　　　　　　　　　//画面を奇麗にする
G@FLIP( )
G@CHRCLEAR( CH )
LOOP
　I@MSGET( 0 ) 　　　　　　　　　　　　　　//マウス情報取得
　IF 1 == I@MSBTN( 0 ) THEN 　　　　//左ボタンが押された
　　MX = MX + I@MSPOS( 0 ) 　　　　　//Ｘ方向画像移動
　　MY = MY + I@MSPOS( 1 ) 　　　　　//Ｙ方向画像移動
　ENDIF
　IF 1 == I@MSBTN( 1 ) THEN 　　　　//右ボタンが押された
　　G@CHRCLEAR( CH ) 　　　　　　　　//画面を奇麗にする
　ENDIF
　G@CHRRECT( CH , MX , MY ) 　　　//コピー先の矩形を設定
　G@CHRCOPYF( BM , CH , 1) 　　　//画像コピー
　G@FLIP( ) 　　　　　　　　　　　　　　　//画面表示
ENDLOOP