0 CLS:L=2:PRINT"* SOUND GAME *":PRINT:FORI=1TO9:PRINT"NOTE";I:SOUNDI,3:NEXT
1 I=1:L=L+1:FORJ=1TOL:A(J)=RND(9):NEXT:IFL=8,PRINT"YOU WIN":GOTO9
2 I=I-1:PRINT:FORJ=1TOL:PRINT"PLAYING NOTE #";J:SOUNDA(J),3:NEXT
3 PRINT:PRINT"ENTER THE TONE (1-9)":PRINT"0 = LISTEN AGAIN"
4 I=I+1:PRINT"NOTE #";I;:B$=INKEY$:
5 A$=INKEY$:IFA$="0",2ELSEIFA$<"1"ORA$>"9",5ELSEB=ASC(A$)-48
6 PRINTB;:SOUNDB,3:IFA(I)=B,PRINT"CORRECT":
7 IFA(I)<>B,PRINT"FAIL.TRY AGAIN":I=I-1:F=F+1:GOTO4
8 IF I=L,PRINT"YOU GOT IT!":PRINT:PRINT:GOTO1ELSE4
9 PRINT"YOU HAD";F;"FAILED ATTEMPTS.":INPUT"AGAIN";A$:IFA$="Y",RUN
