1 '*Simon* CC BY Copyright (c) 2016 Shiro SAITO
10 CLV:CLS
20 ?"ﾄﾞﾚ ﾐ ﾌｧｿ ﾗ ｼ ﾄﾞ"
30 ?"1 2 3 4 5 6 7 8"
40 P="C ;D ;E ;F ;G ;A ;B ;<C"
50 WAIT 30:L=L+1:[L]=RND(8)+1
60 FOR I=1 TO L:GSB 120:NEXT:I=0
70 K=INKEY():IF !K GOTO 70
80 I=I+1:K=K-48
90 IF K<>[I] BEEP:LC 0,2:?"SCORE=";L-1:END
100 GSB 120:IF I<L GOTO 70
110 GOTO 50
120 LC ([I]-1)*2,2:?"*"
130 PLAY P+([I]-1)*3:WAIT 30
140 LC ([I]-1)*2,2:?" ":RTN