REPERT VSYNC CLS B=BUTTON() IF B AND #DOWN THEN Y=Y+1 IF B AND #UP THEN Y=Y-1 IF Y＜=-1 THEN Y=0 IF 2＜=Y THEN Y=1 LOCATE 10,Y PRINT"⇒" UNITIL B==#A のようにして、