1 '*Rhythm* CC BY Copyright (c) 2016 Shiro SAITO
10 CLV:CLS:CLT
20 P="C ;E ;G ;<C"
30 M=RND(20)+1
40 LC M-1,23:IF M<5 ?M ELSE ?
50 LC 4,0:?"< SCORE=";S
60 FOR T=1 TO 40
70 K=INKEY()
80 IF K>0 AND SCR(K-49,0)=K GSB 120
90 NEXT
100 IF TICK()/60<60 GOTO 30
110 LC 0,1:END
120 PLAY P+(K-49)*3:S=S+1
130 LC K-49,0:?" ":RTN