home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / MUSIC-LESSON (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  8.8 KB  |  164 lines
  1. 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"
  2. 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"
  3. 50 PRINT"[158]WHAT IS YOUR NAME? ";:GOSUB400:IFLEN(B$)>16THENB$=""
  4. 80 IFB$=""THEN50
  5. 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"
  6. 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]"
  7. 210 GETA$:IFA$=""THEN210
  8. 230 IFASC(A$)<>13THEN210
  9. 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."
  10. 291 PRINT,"[157][129][167] DEL[146][165]"
  11. 300 GETA$:IFA$=""THEN300
  12. 320 IFASC(A$)<>20THEN300
  13. 330 PRINTCHR$(135);CHR$(135):PRINT"[147]":GOSUB880:GOSUB990:GOSUB1110:GOSUB1220:GOTO2060
  14. 400 B$=""
  15. 410 PRINT" [146][157]";:FORX=1TO60:GETA$:IFA$=""THEN600
  16. 450 IFASC(A$)=13THENPRINT" ":RETURN
  17. 460 IFASC(A$)=141THENPRINT" ":RETURN
  18. 470 IFASC(A$)=19THEN600
  19. 480 IFASC(A$)=147THEN600
  20. 490 IFASC(A$)=17THEN600
  21. 500 IFASC(A$)=148THEN600
  22. 510 IFASC(A$)=145THEN600
  23. 520 IFASC(A$)=18THEN600
  24. 530 IFASC(A$)=157THEN600
  25. 540 IFASC(A$)=34THEN600
  26. 550 IFASC(A$)=29THEN600
  27. 560 IFASC(A$)=20THEN820
  28. 570 PRINTA$;" [146][157]";:B$=B$+A$:IFLEN(B$)=255THEN820
  29. 600 NEXTX:PRINT" [157]";:FORX=1TO60:GETA$:IFA$=""THEN800
  30. 650 IFASC(A$)=13THENPRINT:RETURN
  31. 660 IFASC(A$)=141THENPRINT:RETURN
  32. 670 IFASC(A$)=19THEN800
  33. 680 IFASC(A$)=147THEN800
  34. 690 IFASC(A$)=157THEN800
  35. 700 IFASC(A$)=17THEN800
  36. 710 IFASC(A$)=148THEN800
  37. 720 IFASC(A$)=145THEN800
  38. 730 IFASC(A$)=18THEN800
  39. 740 IFASC(A$)=29THEN800
  40. 750 IFASC(A$)=34THEN800
  41. 760 IFASC(A$)=20THEN820
  42. 770 PRINTA$;:B$=B$+A$:IFLEN(B$)=255THEN820
  43. 800 NEXTX:(null)TO410
  44. 820 PRINT"[157]  [157]";:FORX=1TOLEN(B$):PRINT"[157][157] ";:NEXTX:B$="":RETURN
  45. 880 PRINT"[150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]":PRINT"[221]                                [221]":PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]":PRINT"[221]                                [221]":PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  46. 930 PRINT"[221]                                [221]":PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]":PRINT"[221]                                [221]":PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":PRINT"                                 "
  47. 980 RETURN
  48. 990 PRINT"  [213][201]   ":PRINT"[176][192][219][219][192][192]":PRINT"[221][213][219][203]  ":PRINT"[171][219][219][192][192][192]":PRINT"[221][221][221]   ":PRINT"[171][219][219][192][192][192]":PRINT"[221][221][182][146][174]  ":PRINT"[171][219][219][219][192][192]":PRINT"[221][202][219][203]  ":PRINT"[173][192][219][192][192][192]":PRINT" [202][203]   ":RETURN
  49. 1110 PRINT"[157][157][157][157][157] [161][161][157][157][157][190][187][187][146][187][157][157][157][157][188][188][172][146] [157][157][157][157][191] [172][146][187][157][157][157][157][157][188][187] [146][161][191][146][157][157][157][157]";:PRINT"[188][161][172][146][157][157][157][172][161][188][146][157][157][157][157][158][163][163][163][163][163]":RETURN
  50. 1140 PRINT"[157][157][157][157][157] [187][187][157][157][157][161][191][190][146] [157][157][157][157][162] [172][146][190] [158]":RETURN
  51. 1160 PRINT"[157][157][157][157][157] [187][187][157][157][157][190]  [146][187] [157][157][157][157][157][188][191][191][146] [158]":RETURN
  52. 1180 PRINT"[157][157][157][157][157] [161][161][146][157][157][157][161][172][172][146] [157][157][157][157][188] [191][146] [158]":RETURN
  53. 1200 PRINT"[157][157][157][157][157][161][161][146] [157][157][157][188][172] [146] [157][157][157][157][188][190][172][146] [158]":RETURN
  54. 1220 T=0
  55. 1230 READA$:IFA$="EIEIO"THENRETURN
  56. 1250 FORX=1TOLEN(A$):B$=MID$(A$,X,1):IFB$="[193]"THENT=1:B$=""
  57. 1280 IFB$="_"THENPRINT:B$=""
  58. 1290 IFB$="[211]"THENT=0:B$=""
  59. 1300 IFB$="[216]"THEN1470
  60. 1310 IFB$="[215]"THEN2010
  61. 1320 IFB$="[209]"THEN1600
  62. 1330 IFB$<>"[218]"THEN1370
  63. 1340 FORY=1TO250:NEXTY:B$=""
  64. 1370 PRINTB$;:IFT=0THEN1450
  65. 1390 POKEPK,160:POKE54296,15:POKE54276,32:POKE54276,33:POKE54273,INT(RND(1)*50)+50:POKE54296,0:POKEPK,252
  66. 1450 NEXTX:(null)TO1230
  67. 1470 FORZ=1TOLEN(NA$):PRINTMID$(NA$,Z,1);:IFT=0THEN1450
  68. 1500 POKEPK,160:POKE54296,15:POKE54276,32:POKE54276,33:POKE54273,INT(RND(1)*50)+50:POKE54296,0:POKEPK,252:FORQ=1TO20:NEXTQ:NEXTZ:(null)TO1450
  69. 1600 PRINT:GOSUB9000
  70. 1620 GETA$:IFA$=""THEN1670
  71. 1640 IFASC(A$)<>13THEN1670
  72. 1650 GOSUB1110:(null)TO1450
  73. 1670 A=INT(RND(1)*25):IFA<>21THEN1620
  74. 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]"
  75. 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]"
  76. 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]"
  77. 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]"
  78. 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]"
  79. 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]"
  80. 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]"
  81. 1980 DATA"[211][193]DO YOU UNDERSTAND THE LINES AND/OR __SPACES NOW ? ":DATA"EIEIO":DATA"EIEIO"
  82. 2010 PRINT"                                       [157][157][157][157][157][157][157]":FORP=1TO12:PRINT"                                       [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]":NEXTP:(null)TO1450
  83. 2060 READA$:IFA$<>"SCDXX"THEN2060
  84. 2070 SC=0:FORQW=1TO10:PRINT"[147]":GOSUB3070:GOSUB3300:GOSUB3420:GOSUB3530:A=INT(RND(1)*51):C=1:PRINT"";:(null)TO2260
  85. 2170 PRINT"?":T$="F":E$="A":RETURN
  86. 2180 PRINT"?":T$="D":E$="F":RETURN
  87. 2190 PRINT"?":T$="B":E$="D":RETURN
  88. 2200 PRINT"?":T$="G":E$="B":RETURN
  89. 2210 PRINT"?":T$="E":E$="G":RETURN
  90. 2220 PRINT"?":T$="E":E$="G":RETURN
  91. 2230 PRINT"?":T$="C":E$="E":RETURN
  92. 2240 PRINT"?":T$="A":E$="C":RETURN
  93. 2250 PRINT"?":T$="F":E$="A":RETURN
  94. 2260 N=INT(RND(1)*9)+1:IFN=N1ORN=N2THEN2260
  95. 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
  96. 2330 B$=LEFT$(B$,1):PRINT" ":IFC=1ANDB$=T$THEN2570
  97. 2360 IFC=2ANDB$=E$THEN2570
  98. 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$"."
  99. 2510 IFC=2THENPRINTE$"."
  100. 2520 A$="[209]":GOSUB3550:A$="[215]":GOSUB3550:(null)TO2780
  101. 2570 FORY=1TO7:GOSUB3450:FORX=1TO60:NEXT:GOSUB3420:FORX=1TO60:NEXT:GOSUB3470:FORX=1TO60:NEXT:NEXTY:GOSUB3420:SC=SC+1:X=INT(RND(1)*4)+1:IFX=1THENA$="RIGHT!!!"
  102. 2690 IFX=2THENA$="WAY TO GO!!"
  103. 2700 IFX=3THENA$="CORRECT!"
  104. 2710 IFX=4THENA$="NICE JOB!!"
  105. 2720 A$="[211][193]"+A$
  106. 2730 GOSUB3550:A$="[209]"
  107. 2750 GOSUB3550:A$="[215]"
  108. 2770 GOSUB3550
  109. 2780 NEXTQW
  110. 2800 A$="[211][193]":IFSC=0THENA$=A$+"REALLY BAD, "
  111. 2810 IFSC=1ORSC=2THENA$=A$+"PRETTY BAD, "
  112. 2820 IFSC=3ORSC=4THENA$=A$+"NOT TOO GOOD, "
  113. 2830 IFSC=5ORSC=6THENA$=A$+"NOT TOO BAD, "
  114. 2840 IFSC=7ORSC=8THENA$=A$+"GOOD, "
  115. 2850 IFSC=9THENA$=A$+"VERY GOOD, "
  116. 2860 IFSC=10THENA$=A$+"EXCELLENT, "
  117. 2870 A$=A$+"__[216].  YOU GOT":A$=A$+STR$(INT(SC*10))+"%":GOSUB3550:PRINT:PRINT:PRINT:PRINT:PRINT:END
  118. 2910 B$="":POKE204,0
  119. 2930 GETA$:IFA$=""THEN2930
  120. 2950 IFASC(A$)>90ORASC(A$)<65THEN2930
  121. 2960 PRINTA$;:B$=A$
  122. 2980 GETA$:IFA$=""THEN2980
  123. 3000 IFASC(A$)=13THENPOKE204,1:RETURN
  124. 3010 IFASC(A$)=20THEN3030
  125. 3020 (null)TO2980
  126. 3030 PRINT"[157]  [157][157]";:(null)TO2910:B$="":RETURN
  127. 3070 PRINT"[150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]":PRINT"[221]                                [221]":PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]":PRINT"[221]                                [221]":PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  128. 3120 PRINT"[221]                                [221]":PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]":PRINT"[221]                                [221]":PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":PRINT"                                 "
  129. 3170 RETURN:PRINT"      ":PRINT"[176][192][178][192][192][178]":PRINT"[221]  [146]  [221][209]":PRINT"[171][192][192][192][192][219]":PRINT"[221]    [221][209]":PRINT"[171][192][192][192][192][219]":PRINT"[221]    [165]":PRINT"[171][192][192][192][219][192]":PRINT"[221]   [165] ":PRINT"[173][192][192][192][192][192]":PRINT"      ":RETURN
  130. 3300 PRINT"  [213][201]   ":PRINT"[176][192][219][219][192][192]":PRINT"[221][213][219][203]  ":PRINT"[171][219][219][192][192][192]":PRINT"[221][221][221]   ":PRINT"[171][219][219][192][192][192]":PRINT"[221][221][182][146][174]  ":PRINT"[171][219][219][219][192][192]":PRINT"[221][202][219][203]  ":PRINT"[173][192][219][192][192][192]":PRINT" [202][203]   ":RETURN
  131. 3420 PRINT"[157][157][157][157][157] [161][161][157][157][157][190][187][187][146][187][157][157][157][157][188][188][172][146] [157][157][157][157][191] [172][146][187][157][157][157][157][157][188][187] [146][161][191][146][157][157][157][157]";:PRINT"[188][161][172][146][157][157][157][172][161][188][146][157][157][157][157][158][163][163][163][163][163]":RETURN
  132. 3450 PRINT"[157][157][157][157][157] [187][187][157][157][157][161][191][190][146] [157][157][157][157][162] [172][146][190] [158]":RETURN
  133. 3470 PRINT"[157][157][157][157][157] [187][187][157][157][157][190]  [146][187] [157][157][157][157][157][188][191][191][146] [158]":RETURN
  134. 3490 PRINT"[157][157][157][157][157] [161][161][146][157][157][157][161][172][172][146] [157][157][157][157][188] [191][146] [158]":RETURN
  135. 3510 PRINT"[157][157][157][157][157][161][161][146] [157][157][157][188][172] [146] [157][157][157][157][188][190][172][146] [158]":RETURN
  136. 3530 T=0
  137. 3540 READA$
  138. 3550 IFA$="EIEIO"THENRETURN
  139. 3560 FORX=1TOLEN(A$):B$=MID$(A$,X,1):IFB$="[193]"THENT=1:B$=""
  140. 3590 IFB$="_"THENPRINT:B$=""
  141. 3600 IFB$="[211]"THENT=0:B$=""
  142. 3610 IFB$="[216]"THEN3780
  143. 3620 IFB$="[215]"THEN4270
  144. 3630 IFB$="[209]"THEN3910
  145. 3640 IFB$<>"[218]"THEN3680
  146. 3650 FORY=1TO250:NEXTY:B$=""
  147. 3680 PRINTB$;:IFT=0THEN3760
  148. 3700 POKEPK,160:POKE54296,15:POKE54276,32:POKE54276,33:POKE54273,INT(RND(1)*50)+50:POKE54296,0:POKEPK,252
  149. 3760 NEXTX:(null)TO3540
  150. 3780 FORZ=1TOLEN(NA$):PRINTMID$(NA$,Z,1);:IFT=0THEN3760
  151. 3810 POKEPK,160:POKE54296,15:POKE54276,32:POKE54276,33:POKE54273,INT(RND(1)*50)+50:POKE54296,0:POKEPK,252:FORQ=1TO20:NEXTQ:NEXTZ:(null)TO3760
  152. 3910 PRINT:GOSUB9000
  153. 3930 GETA$:IFA$=""THEN3980
  154. 3950 IFASC(A$)<>13THEN3980
  155. 3960 GOSUB3420:(null)TO3760
  156. 3980 A=INT(RND(1)*25):IFA<>21THEN3930
  157. 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"
  158. 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"
  159. 4110 DATA"EIEIO","EIEIO","EIEIO":DATA"EIEIO","EIEIO","EIEIO":DATA"EIEIO","EIEIO","EIEIO":DATA"EIEIO","EIEIO","EIEIO":DATA"EIEIO","EIEIO","EIEIO":DATA"EIEIO","EIEIO","EIEIO":DATA"EIEIO","EIEIO","EIEIO"
  160. 4180 DATA"EIEIO","EIEIO","EIEIO":DATA"EIEIO","EIEIO","EIEIO":DATA"EIEIO","EIEIO","EIEIO":DATA"EIEIO","EIEIO","EIEIO":DATA"EIEIO","EIEIO","EIEIO":DATA"EIEIO","EIEIO","EIEIO":DATA"EIEIO","EIEIO","EIEIO"
  161. 4250 DATA"EIEIO","EIEIO","EIEIO":END
  162. 4270 PRINT"                                       [157][157][157][157][157][157][157]":FORP=1TO12:PRINT"                                       [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]":NEXTP:(null)TO3760:END
  163. 9000 PRINT"";:PRINT"PRESS[129][167]RETURN[146][165][145][157][157][157][157][157][157][157][164][164][164][164][164][164][157][157][157][157][157][157][163][163][163][163][163][163][145][158]TO CONTINUE.";:RETURN
  164.