;
	;	カーソルキーで画像を動かす(2)
	;
	buffer 3
	picload "face.bmp"			; 画像ファイル
	screen 0,640,480

	x1=0 : y1=0					; 左上XY
	x2=640 : y2=480				; 右下XY

	;	角度のリスト(90度単位)
	rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

	mx=320						; X座標
	my=240						; Y座標
	msp=4						; スピード
	mr=0						; 角度
*main
	redraw 0					; 描画始め

	color 0,0,64
	boxf						; 背景を消す

	gmode 2,64,64				; 画像サイズ
	pos mx,my
	grotate 3,0,0,rotdir(mr)	; 画像コピー

	redraw 1					; 描画終わり
	await 20

	stick key,15				; キー入力

	if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
	if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
	if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
	if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

	goto *main