gmode 2
repeat ly
i=iy+cnt:y=cnt*cy-ipy
pos -ipx,y
repeat lx
celput csrc,map(ix+cnt,i)
loop
loop
pos mx,my ; 表示位置の設定
celput face ; 画像コピー
redraw 1 ; 描画終わり
await 20
stick key,15 ; キー入力
if key&1 : mx=mx-msp
if key&4 : mx=mx+msp
if key&2 : my=my-msp
if key&8 : my=my+msp
if my<=0 : my=0
if mx<=0 : mx=0
if key&1 : mapx-=8
if key&4 : mapx+=8
if key&2 : mapy-=8
if key&8 : mapy+=8
mapx=limit(mapx,0,mapex) ; X範囲チェック
mapy=limit(mapy,0,mapey) ; Y範囲チェック
goto *main