10 '10 LED LINE U/D/L/R/SPACE 20 X=3 30 IF BTN(UP)=1 X=X+1 40 IF BTN(DOWN)=1 X=X-1 50 IF X<1 X=1:IF X>10 X=10 60 IF BTN(LEFT)=1 GOTO220 70 IF BTN(RIGHT)=1 GOTO290 80 FOR I=1 TO 10 90 IF I=7 GOTO140 100 OUTI,1 110 ?"<> ";X 120 WAITX 130 OUTI,0 140 NEXT 150 FOR I=1 TO 10 160 IF I=5 GOTO200 170 OUT12-I,1 180 WAITX 190 OUT12-I,0 200 NEXT 210 GOTO30 220 FOR I=1 TO 11 230 IF I=5 GOTO 270 240 OUT12-I,1 250 ?"<- ";X 260 WAITX 270 NEXT 280 OUT0:OUT10,0:WAITX:GOTO30 290 FOR I=1 TO 11 300 IF I=7 GOTO340 310 OUTI,1 320 ?"-> ";X 330 WAITX 340 NEXT 350 OUT0:OUT10,0:WAITX:GOTO30
確かに見たことあります。あの滑らかに点滅するやつですね。キー操作できるところも素敵。