0 PRINT"[147]";CHR$(142):POKE36879,59
1 PRINT"[144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]NAME THAT NOTE[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
2 PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]A MUSIC TUTOR
3 [153]"INSTRUCTIONS?Y=YES":C$[178][199](13)
4 [161]I$:[139]I$[178]""[167]4
5 [139]I$[179][177]"Y"[167][137]14
6 [153]"LOAD";[199](14)"STOP(null)AME THAT (null)OTE    TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(","RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null)"
7 [153]"1WAIT (null)EARN THE POSITION","OF THE NOTES IN THE","STAVES."
8 [153]"2WAIT (null)EARN THE CLEF SIGN","(PITCH RANGE)OF THE","STAVES((null)REBLE CLEF"
9 [153]"OR CHR$-CLEF.PEEKASS CLEF","OR ASC-CLEF)","3WAIT (null)TART THE EXERCISE","BY CHOOSING A PITCH
10 PRINT"RANGE"C$"4[146] [208]ROMPTLY RECOGNIZE","THE NOTE DISPLAYED"
11 PRINT"IN THE STAFF-PRESS"C$"THE CORRESPONDING","KEY.";
12 PRINT"[212]HE QUICKER THE BETTER."C$" PRESS A KEY TO GO ON [146][159]"
13 GETP$:IFP$=""THEN13
14 POKE1,17:POKE2,18:GOTO810
18 POKE36879,109:PRINTCHR$(147):PRINT"PLEASE WAIT"
19 POKE36869,255:POKE56,28:CLR:FORI=7168TO7679:POKEI,PEEK(I+25600):NEXT
20 FORI=0TO7:POKE7168+I,PEEK(33464+I):NEXT:FORI=0TO7:READX:POKE7384+I,X:NEXT
50 DATA0,0,0,0,0,60,66,66,66,66,60,0,0,0,0,255,0,60,66,66,66,66,60,255
51 DATA60,126,227,193,129,129,129,255,129,131,135,142,156,184,240,255,224,192
52 DATA128,128,128,128,128,255,128,240,248,140,134,131,129,255,129,129,129,130,132,136
53 DATA144,255,128,128,128,128,128,128,0,0,0,0,0,32,112,112,97,62,128,128,64,32,16,8,4
54 DATA255,96,195,135,136,136,132,128,255,1,7,12,24,48,96,96,255
55 DATA0,0,0,24,24,0,0,255,240,56,12,6,3,131,195,255,195,131,3,3
56 DATA3,3,3,255,3,3,6,12,24,48,96,255,33,30,0,0,0,0,0,255,1,2,4,8,8,5,2,255,3,1,0,0,0
58 DATA0,0,255
60 FORI=0TO7:READX:POKE7392+I,X:POKE7400+I,PEEK(33568+I):NEXT
75 FORI=7408TO7423:READX:POKEI,X:NEXT:FORI=7432TO7551:READX:POKEI,X:NEXT
80 FORI=7632TO7639:READX:POKEI,X:NEXT
81 POKE1,81:POKE2,84:GOTO810
84 POKE36879,24:POKE36869,255
90 DATA158,161,173,181,189,192,200,206,208,214,218,222,224,227,230,231,234,236
100 PRINTCHR$(147):FORI=7724TO7724+109:POKEI,29:NEXT
101 FORI=7878TO7878+109:POKEI,29:NEXT
102 POKE7726,31:POKE7748,33:POKE7770,34:POKE7792,35:POKE7814,36:POKE7836,37
103 POKE7835,38:POKE7813,39:POKE7791,40:POKE7769,41:POKE7902,42
105 POKE7924,42:POKE7901,43:POKE7923,44:POKE7945,45:POKE7966,46:POKE7900,47
110 PRINT"&[156]&[144]&&[144]NAME THAT NOTE[144]&[156]&&[159]&[144]"
120 PRINT"[144]ENTER CLEF SIGN":PRINT"T=TREBLE B=BASS":GOSUB500
200 R=0:DIMP(18):DIMN(18):FORI=0TO18STEP2:P(I)=7685+R:R=R+22:NEXT
202 DIMN1(20):V=36878:S2=36875:FORN=20TO3STEP-1:READN1(N):NEXTN
203 N(0)=68:FORH=1TO18:N(H)=(N(H-1)-1)+(7*-(N(H-1)=65)):NEXT
205 PRINT"[145][145][145]":FORE=0TO40:PRINTCHR$(32);:NEXT:PRINT"                      "
206 GOSUB400:C=5:SC=0:Q=L*22:FORI=38400TO38839:POKEI,0:NEXT
208 FORI=0TO15STEP5
210 J=INT(RND(X)*13)+3:J1=J:E=29:E1=30:E2=27:E3=28
212 PRINT"[144]SCORE[144]"SC
225 IFJ1=INT(J1/2)*2THENPOKEP(J1)+I+Q,E1:GOTO232
230 POKEP(J1-1)+I+Q,E2:POKEP(J1+1)+I+Q,E3:POKEP(J1-1)-1+I+Q,E:POKEP(J1-1)+1+I+Q,E
232 IFE1=29ORE1=32THEN260
235 T=TI
240 GETN$:IFN$=""THENIFTI-T<600THEN240
241 IFN$=""THEN250
242 IFASC(N$)<65THENN$="":GOTO250
243 POKE8059+I,ASC(N$)-64:IFASC(N$)=N(J1+Z)THEN300
250 FORT=0TO500:NEXTT:IFJ1=3THENE=32:E1=32:E2=32:E3=29
252 IFJ1=13THENE1=32:E2=29:E3=32
253 IFJ1=14ORJ1=15THENE=32:E1=32:E2=32:E3=32
254 IFJ1>3ANDJ1<13THENE1=29:E2=29:E3=29
256 POKE8059+I,32:POKE38779+I,0:GOTO225
260 NEXTI
270 C=C-1:IFC>0THEN208
272 IFSC>SITHENSI=SC
275 PRINT"[144]SCORE[144]"SC"[157]   HI[144]"SI
285 PRINT"AGAIN?T=TREBLE B=BASS":GOSUB500:GOTO205
300 POKE38779+I,0:SC=SC+(600-(TI-T))
310 IFJ1>2ANDJ1<16THENPOKEV,15:POKES2+X,N1(J1+X1):FORS=0TO150:NEXTS:POKES2+X,0:POKEV,0
320 GOTO250
400 POKEV,15:F=15:G=8:K=-1:GOSUB430
410 F=8:G=15:K=1:GOSUB430
420 POKES2+X,0:RETURN
430 FORP=FTOGSTEPK:POKES2+X,N1(P):FORI=0TO200:NEXTI:POKES2+X,0:FORS=1TO20:NEXTS:NEXTP
440 RETURN
500 GETA$:IFA$=""THEN500
510 IFA$="T"THENL=0:Z=0:X=1:X1=0:RETURN
520 IFA$="B"THENL=7:Z=-2:X=0:X1=5:RETURN
530 PRINTCHR$(147):END
810 RE=830:DE=DE+1:POKE0,DE:PRINTDE
820 PRINT"G[207]"RE:FORBK=631TO634:POKEBK,145:NEXT:POKE635,13:POKE636,13:POKE198,6:END
830 PRINTCHR$(147):DE=PEEK(0):DR=PEEK(1):IFDE<DRTHEN810
840 RE=PEEK(2):GOTO820