10 CLV:CLS
20 LET [48],"R","C","D","E","F","G","A","B","<C"
30 K=INKEY()
40 IF !K GOTO 30
41 IF K=10 GOTO 70
42 [L]=K:L=L+1
50 GSB 100
60 GOTO 30
70 ?
75 FOR I=0 TO L
80 K=[I]
85 GSB 100
90 NEXT
95 RUN
100 PLAY [K]
110 ?STR$([K]);
120 WAIT 30
130 RTN