1 '*PK* CC BY Copyright (c) 2017 Shiro SAITO
10 CLV
20 CLS:?"[=====";CHR$(250);"=====]"
30 X=6:LC X,6:?CHR$(233)
40 LC 0,9:?"GOAL=";G
50 D=BTN(29)-BTN(28)
60 IF !D GOTO 50
70 FOR Y=6 TO 2 STEP -1
80 LC X,Y:?" ":X=X+D
90 LC X,Y-1:?CHR$(233):WAIT 5
100 NEXT
110 LC 6,0:?"="
120 R=RND(2)*2-1
130 LC 6+R*5,0:?CHR$(252-R)
140 IF D<>R G=G+1:BEEP 10,3:WAIT 100:GOTO 20
150 BEEP 30,60:LC 0,10