X=0:Y=0
@KOMAND
CLS
LOCATE 1,0:? "こうげき"
LOCATE 8,0:? "どうぐ"
LOCATE 1,2:? "ぼうぎょ"
LOCATE 8,2:? "にげる"
LOCATE X,Y:? ">"
B=BUTTON()
IF B AND #RIGHT && X<6 THEN INC X,6
IF B AND #LEFT && X>0 THEN DEC X,6
IF B AND #UP && Y>0 THEN DEC Y,2
IF B AND #DOWN && Y<1 THEN INC Y,2
IF B AND #A THEN @KOUDOU
VSYNC
GOTO @KOMAND
@KOUDOU
LOCATE 0,3
IF X==0 && Y==0 THEN ? "こうげき"
IF X==6 && Y==0 THEN ? "どうぐ"
IF X==0 && Y==2 THEN ? "ぼうぎょ"
IF X==6 && Y==6 THEN ? "にげる"