ACLS:CLEAR:SYSBEEP=0
BGMSTOP:TALKSTOP
@LOOP
VSYNC 1
LOCATE X,Y:?"↑"
B=BUTTON()
IF B AND 1 THEN Y=Y-1
IF B AND 2 THEN Y-Y+1
IF B AND 4 THEN X=X-1
IF B AND 8 THEN X=X+1
IF X<0 THEN X=0
IF X>31 THEN X=31
IF Y<0 THEN Y=0
IF Y>23 THEN Y=23
LOCATE X,Y:?"↑"
GOTO @LOOP
>>331
ご指摘ありがとうございます。
ACLS:CLEAR:SYSBEEP=0
BGMSTOP:TALKSTOP
@LOOP
VSYNC 1
LOCATE X,Y:?" "
B=BUTTON()
IF B AND 1 THEN Y=Y-1
IF B AND 2 THEN Y-Y+1
IF B AND 4 THEN X=X-1
IF B AND 8 THEN X=X+1
IF X<0 THEN X=0
IF X>31 THEN X=31
IF Y<0 THEN Y=0
IF Y>23 THEN Y=23
LOCATE X,Y:?"↑"
GOTO @LOOP
@LOOP
VSYNC 1:GCLS
B=BUTTON()
IF B AND 1 THEN Y=Y-1
IF B AND 2 THEN Y=Y+1
IF B AND 4 THEN X=X-1
IF B AND 8 THEN X=X+1
SPHOME 0,-X,-Y
SPOFS 0,X,Y;16
GOTO @LOOP