RESTORE @MAP
FOR I=0 TO 4
FOR J=0 TO 6
READ C
IF C==0 THEN BGPUT 0,J,I,0
IF C==1 THEN BGPUT 0,J,I,551
NEXT
NEXT
@MAP
DATA 1,1,1,1,1,1,1
DATA 1,0,0,0,0,0,1
DATA 1.0,1,0,1,0,1
DATA 1,0,0,0,0,0,1
DATA 1,1,1,1,1,1,1
@UP,@DOWN,@LEFT,@RIGHTのそれぞれの飛び先で
X1,Y1に定数を代入しているため十字ボタンを押し続けても
同じ場所にしか表示されません。
@UPなら
IF Y1>0 THEN Y1=Y1-1
@DOWNなら
IF Y1<29 THEN Y1=Y1+1
という具合に変数の値を方向に合わせて加減算して下さい。