2 POKE53280,2:POKE53281,2:PRINT"[147]":GOSUB880:GOSUB990:PRINT"[158]L I N E S":PRINT"A N D":PRINT"S P A C E S":PK=256*PEEK(648)+156:POKE54277,8:PRINT"[150]BY GLENN MILLAGE"
32 PRINT"[158] ADAPTED FOR THE COMMODORE 64":PRINTTAB(16)"[142]BY":PRINT" [150]STEVEN DARNOLD":PRINT" P.O. BOX 201":PRINT" ALEXANDRA, NEW ZEALAND"
50 PRINT"[158]WHAT IS YOUR NAME? ";:GOSUB400:IFLEN(B$)>16THENB$=""
80 IFB$=""THEN50
90 NA$=B$:PRINTCHR$(135):FORX=1TO200:NEXTX:PRINT"[147][158]HELLO ";NA$;". I AM GOING TO":PRINT"TEACH YOU ABOUT THE LINES AND SPACES.":PRINT"WHEN I ASK YOU A QUESTION, I WANT YOU":PRINT"TYPE IN WHAT YOU THINK IS THE CORRECT"
170 PRINT"ANSWER AND PRESS THE[129][167][145][164][164][164][164][164][164][157][165][157][157][157][157][157][157][163][163][163][163][163][163][145][157][157][157][157][157][157]RETURN[146][165][158]KEY.":PRINT"PRESS[129][167]RETURN[146][165][158]TO CONTINUE.":PRINT"[129] [163][163][163][163][163][163][145][145][157][157][157][157][157][157][164][164][164][164][164][164]"
210 GETA$:IFA$=""THEN210
230 IFASC(A$)<>13THEN210
240 PRINTCHR$(135);CHR$(135):PRINT"[147][158]DON'T WORRY "NA$" IF YOU MAKE":PRINT"A MISTAKE. JUST PRESS THE[129][167]INST[146][145][157][157][157][157][164][164][164][164][165][158]KEY":PRINTTAB(26)"[129][167] DEL[146][165]":PRINT"[158]TO ERASE YOUR ANSWER.":PRINT"PRESS THE[129][167]INST[146][145][157][157][157][157][164][164][164][164][165][158]KEY TO CONTINUE."
1690 A=INT(RND(1)*5)+1:ONAGOSUB1200,1140,1160,1180,1110:(null)TO1620:DATA"":DATA"[218][218][193]HELLO [216].[211][218][218]__[193]MY NAME IS ANDY THE ANDROID[158]. I AM[211]__[193]P":DATA"ROGRAMMED TO TEACH YOU THE LINES[211]__[193]AND SPACES IN MUSIC.[211][209]"
1750 DATA"[215][193]IN THE TREBLE CLEF,":DATA"__[193]THESE ARE THE SPACES:":DATA"[211][218][218][218][193]F[211]":DATA"[218][218][193]A[211][218][218][193]C[211][218][218][193]E[211][218][218]"
1790 DATA"[193]AS YOU WILL[211]__[193]NOTICE,[218] THIS SPELLS ":DATA"FACE[158] FROM THE__BOTTOM UP.[211][218][218][209]":DATA"[215][193]THESE ARE THE LINES: [211]":DATA"[193]E[211][218][218][145][145][157][193]G[211][218][218][145][145][157][193]B[211][218][218][145][145][157][193]D[211][218][218][145][145][157][193]F[211][218][218]"
1830 DATA"[193]A GOOD__WAY TO REM":DATA"EMBER THE LINES IS:[218][218][211]__[193]E[150]VERY[218] [158]G[150]OOD[218] [158]B[150]OY[218] [158]D[150]ESERVES[218] [158]F[150]":DATA"UDGE[158]!![211][218][218][209]","EIEIO":DATA"[215][193]NOW FOR THE BASS[146] CLEF!!![218][218][218][211]","[215]"
1870 DATA"[193]WASN'T THAT NEAT, [216]?[211]__[193]THE SPACES IN THE BASS CLEF AR":DATA"E[211]__[193]A BIT MORE DIFFICULT TO REMEMBER.[211]__[193]THEY ARE: [211]":DATA"[193][218]A[145][145][157][218]C[145][145][157][218]E[145][145][157][218]G[211][193][209][215]","[215]"
1900 DATA"[211][193]A NEAT WAY TO REMEMBER THIS IS:__A[146]LL C[146]OWS E[146]AT":DATA" G[146]RASS.[218][209]":DATA"[215]":DATA"[211][193]THE LINES IN THE BASS CLEF ARE EASIER,[211]__[193]THEY ARE:":DATA"[211][193]G[211][218][145][145][157][193]B[211][218][145][145][157][193]D[211][218][145][145][157][193]F[211][218][145][145][157][193]A[211][218]"
1950 DATA"[193]AN EASIER WAY TO REMEMBER__THIS IS:":DATA" G[146]OOD B[146]OYS D[146]ESERVE F[146]UDGE__A[146]LWAYS, [218]BUT DON'T GET IT MIXED":DATA" UP WITH__THE TREBLE CLEF!!!,[209]","[215]"
1980 DATA"[211][193]DO YOU UNDERSTAND THE LINES AND/OR __SPACES NOW ? ":DATA"EIEIO":DATA"EIEIO"
2270 N2=N1:N1=N:ONNGOSUB2170,2180,2190,2200,2210,2220,2230,2240,2250:A$="[211][193]QUESTION #"+STR$(QW)+"__WHAT DO YOU THINK IS THE ANSWER":A$=A$+" ? [157][157][157]":GOSUB3550:GOSUB2910:IFB$=""THENPRINT"[145] [146]";:(null)TO2310
2370 FORX=1TO5:GOSUB3490:FORY=1TO55:NEXT:GOSUB3420:FORY=1TO55:NEXT:GOSUB3510:FORY=1TO55:NEXT:NEXTX:GOSUB3420:A$="[215]":GOSUB3550:A$="[211][193]WRONG!!!!__THE ANSWER IS ":GOSUB3550:IFC=1THENPRINTT$"."
4000 A=INT(RND(1)*5)+1:ONAGOSUB3510,3450,3470,3490,3420:(null)TO3930:DATASCDXX,"[193]OK [216],__TIME FOR A QUIZ!![209]","[215]",:DATA"[211][193]I WILL ASK YOU 10 QUESTIONS,[211]__[218][193]AND YOU BETTER GET"
4050 DATA" THEM CORRECT!![218]__READY,[218] HERE WE GO!![209]","[215]","EIEIO":DATA"EIEIO","EIEIO","EIEIO":DATA"EIEIO","EIEIO","EIEIO":DATA"EIEIO","EIEIO","EIEIO":DATA"EIEIO","EIEIO","EIEIO":DATA"EIEIO","EIEIO","EIEIO"