buffer 2		;仮想画面　ＩＤ2を作る
	picload "zyuunana-1.bmp";画像をロードする
	gsel 0,1		;ウインドウ０を描画先にする

	repeat			;繰り返しの始め
	redraw 2		;画面には描画しない
	color 0,0,0:boxf	;黒で画面を塗りつぶす
	stick key,1+2+4+8	;keyという変数に　押されているキー番号を入力
	if key=1:x=x-5		;keyが１だったらxから５を引いてxに入力
	if key=2:y=y-5		;keyが２だったらyから５を引いてyに入力
	if key=4:x=x+5		;keyが４だったらxから５を足してxに入力
	if key=8:y=y+5		;keyが８だったらyから５を足してyに入力
	pos x,y			;x,yの位置に
	gcopy 2			;ID2のウインドウから　今の描画先へ画像を転送する
	redraw 1		;一気に描画
	await 1			;待つ
	loop			;repeatヘ戻る