>>683
@LOOP
GOSUB@BTN
VSYNC 1
GOTO@LOOP
@BTN
B=BUTTON()
IF B AND 1THEN Y=Y-1
IF B AND 2THEN Y=Y+1
IF B AND 4THEN X=X-1
IF B AND 8THEN X=X+1
LOCATE X,Y:?"人
RETURN
こんなんでいいんじゃね
@LOOP
GOSUB@BTN
VSYNC 10
GOTO@LOOP
@BTN
B=BUTTON()
IF (B AND 1) AND Y>0 THEN Y=Y-1
IF (B AND 2) AND Y<23 THEN Y=Y+1
IF (B AND 4) AND X>0 THEN X=X-1
IF (B AND 8) AND X<32 THEN X=X+1
LOCATE X,Y:?"人
RETURN