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