1.X座標変数とY座標変数を用意。(ここではNX,NYとする)
2.次のプログラムを打ち込む
WHILE 1
BT=BUTTON()
NY=NY-((BT==1)/2)+((BT==2)/2)
NX=NX-((BT==4)/2)+((BT==8)/2)
LOCATE NX,NY:?"☺"
VSYNC 1
WEND
Out of Range(LOCATE)対策処理は省いています。
手段2
RESTORE @MAP
READ A$
L=LEN(A$)
FOR I = 0 TO L-1
B=VAL(MID$(A$,I,3))
IF B==999 THEN A=A+1:C=0
BGPUT (ヘルプ参照)
NEXT
@MAP
DATA"000001002003004005999001002003"
(試してないけど)
RESTORE @MAP
WHILE 1
WHILE 1
READ A
IF A==9999 THEN BREAK
BGPUT (ヘルプ参照)
WEND
IF A==10000 THEN BREAK
WEND
@MAP
DATA 数字,数字,数字,数字…,9999
DATA 数字,数字,数字,数字…,9999
DATA 数字,数字,数字,数字…,9999
>省略<
DATA 10000