home *** CD-ROM | disk | FTP | other *** search
/ norge.freeshell.org (192.94.73.8) / 192.94.73.8.tar / 192.94.73.8 / pub / computers / pcjr / games / PCMAN.LZH / PCHEERS.BAS < prev    next >
BASIC Source File  |  1982-12-14  |  12KB  |  249 lines
  1. 4  WIDTH 80
  2. 5  ON ERROR GOTO 9500 : PLAY "P64"
  3. 10 KEY OFF
  4. 15 COLOR 7,1 : LOCATE 1,1,0 : CLS
  5. 20 B$=CHR$(15)
  6. 25 DIM PR$(5)
  7. 30 P1E%=114:P2E%=140:P25E%=59:P3E%=65:P4E%=71:P5E%=77:P6E%=83
  8. 40 DIM P1$(P1E%),P2$(P2E%),P25$(P25E%),P3$(P3E%),P4$(P4E%),P5$(P5E%),P6$(P6E%)
  9. 50 AB%=1:AE%=21:BB%=22:BE%=35:CB%=36:CE%=39:DB%=40:DE%=48:EB%=49:EE%=66
  10. 60 E1B%=67:E1E%=88:FB%=89:FE%=102:GB%=103:GE%=108:HB%=109:HE%=113
  11. 70 W1%=9:W2%=12:W3%=5:W4%=5:W5%=5:W6%=6:W7%=6:X%=113
  12. 80 DIM N$(113),B%(609),W1$(W1%),W2$(W2%),W3$(W3%),W4$(W4%),W5$(W5%),W6$(W6%),W7$(W7%)
  13. 81 RESTORE 1041
  14. 82 FOR I%=1 TO 5 : READ PR$(I%) : NEXT I%
  15. 83 FOR I%=1 TO 5 : PRINT : PRINT PR$(I%) : NEXT I%
  16. 90 RESTORE 1050
  17. 100 FOR I%=1 TO X%
  18. 110 READ N$(I%)
  19. 115 NEXT I%
  20. 117 RESTORE 1660
  21. 120 FOR I%=1 TO W1% : READ W1$(I%) : NEXT I%
  22. 130 FOR I%=1 TO W2% : READ W2$(I%) : NEXT I%
  23. 140 FOR I%=1 TO W3% : READ W3$(I%) : NEXT I%
  24. 150 FOR I%=1 TO W4% : READ W4$(I%) : NEXT I%
  25. 160 FOR I%=1 TO W5% : READ W5$(I%) : NEXT I%
  26. 170 FOR I%=1 TO W6% : READ W6$(I%) : NEXT I%
  27. 180 FOR I%=1 TO W7% : READ W7$(I%) : NEXT I%
  28. 185 RESTORE 1180
  29. 190 FOR I%=1 TO 609 : READ B%(I%) : NEXT I%
  30. 240 REM store notes in play arrays
  31. 250 J%=1
  32. 260 FOR I%=AB% TO DE% : P1$(J%)=N$(I%) : J%=J%+1 : NEXT I%
  33. 270 REM 3rd verse
  34. 280 FOR I%=BB% TO CE% : P1$(J%)=N$(I%) : J%=J%+1 : NEXT I%
  35. 290 FOR I%=CB% TO DE% : P1$(J%)=N$(I%) : J%=J%+1 : NEXT I%
  36. 300 REM 4th verse
  37. 310 FOR I%=BB% TO BE% : P1$(J%)=N$(I%) : J%=J%+1 : NEXT I%
  38. 320 FOR L%=1 TO 3
  39. 330 FOR I%=CB% TO CE% : P1$(J%)=N$(I%) : J%=J%+1 : NEXT I% : NEXT L%
  40. 340 FOR I%=DB% TO DE% : P1$(J%)=N$(I%) : J%=J%+1 : NEXT I%
  41. 350 REM 5th - 7th verses
  42. 360 J%=1
  43. 370 FOR I%=EB% TO E1E% : P2$(J%)=N$(I%) : J%=J%+1 : NEXT I%
  44. 380 REM 6th verse
  45. 390 FOR I%=FB% TO HE% : P2$(J%)=N$(I%) : J%=J%+1 : NEXT I%
  46. 400 FOR I%=E1B% TO E1E% : P2$(J%)=N$(I%) : J%=J%+1 : NEXT I%
  47. 410 REM 7th verse
  48. 420 FOR I%=FB% TO GE% : P2$(J%)=N$(I%) : J%=J%+1 : NEXT I%
  49. 430 FOR I%=GB% TO HE% : P2$(J%)=N$(I%) : J%=J%+1 : NEXT I%
  50. 440 FOR I%=E1B% TO E1E% : P2$(J%)=N$(I%) : J%=J%+1 : NEXT I%
  51. 450 REM 8th verse
  52. 460 J%=1
  53. 470 FOR I%=FB% TO FE% : P25$(J%)=N$(I%) : J%=J%+1 : NEXT I%
  54. 480 FOR L%=1 TO 3
  55. 490 FOR I%=GB% TO GE% : P25$(J%)=N$(I%) : J%=J%+1 : NEXT I% : NEXT L%
  56. 500 FOR I%=HB% TO HE% : P25$(J%)=N$(I%) : J%=J%+1 : NEXT I%
  57. 510 FOR I%=E1B% TO E1E% : P25$(J%)=N$(I%) : J%=J%+1 : NEXT I%
  58. 520 REM 9th verse
  59. 530 J%=1
  60. 540 FOR I%=FB% TO FE% : P3$(J%)=N$(I%) : J%=J%+1 : NEXT I%
  61. 550 FOR L%=1 TO 4
  62. 560 FOR I%=GB% TO GE% : P3$(J%)=N$(I%) : J%=J%+1 : NEXT I% : NEXT L%
  63. 570 FOR I%=HB% TO HE% : P3$(J%)=N$(I%) : J%=J%+1 : NEXT I%
  64. 580 FOR I%=E1B% TO E1E% : P3$(J%)=N$(I%) : J%=J%+1 : NEXT I%
  65. 590 REM 10th verse
  66. 600 J%=1
  67. 610 FOR I%=FB% TO FE% : P4$(J%)=N$(I%) : J%=J%+1 : NEXT I%
  68. 620 FOR L%=1 TO 5
  69. 630 FOR I%=GB% TO GE% : P4$(J%)=N$(I%) : J%=J%+1 : NEXT I% : NEXT L%
  70. 640 FOR I%=HB% TO HE% : P4$(J%)=N$(I%) : J%=J%+1 : NEXT I%
  71. 650 FOR I%=E1B% TO E1E% : P4$(J%)=N$(I%) : J%=J%+1 : NEXT I%
  72. 660 REM 11th verse
  73. 670 J%=1
  74. 680 FOR I%=FB% TO FE% : P5$(J%)=N$(I%) : J%=J%+1 : NEXT I%
  75. 690 FOR L%=1 TO 6
  76. 700 FOR I%=GB% TO GE% : P5$(J%)=N$(I%) : J%=J%+1 : NEXT I% : NEXT L%
  77. 710 FOR I%=HB% TO HE% : P5$(J%)=N$(I%) : J%=J%+1 : NEXT I%
  78. 720 FOR I%=E1B% TO E1E% : P5$(J%)=N$(I%) : J%=J%+1 : NEXT I%
  79. 730 REM 12th verse
  80. 740 J%=1
  81. 750 FOR I%=FB% TO FE% : P6$(J%)=N$(I%) : J%=J%+1 : NEXT I%
  82. 760 FOR L%=1 TO 7
  83. 770 FOR I%=GB% TO GE% : P6$(J%)=N$(I%) : J%=J%+1 : NEXT I% : NEXT L%
  84. 780 FOR I%=HB% TO HE% : P6$(J%)=N$(I%) : J%=J%+1 : NEXT I%
  85. 790 FOR I%=E1B% TO E1E% : P6$(J%)=N$(I%) : J%=J%+1 : NEXT I%
  86. 800 REM Play It Again Sam!
  87. 810 R%=1 : P%=1
  88. 820 GOSUB 2220
  89. 830 FOR I%=1 TO P1E% : GOSUB 2140 : PLAY P1$(I%) : LOCATE R%,C% : PRINT " "
  90. 840 NEXT I%
  91. 850 R%=1 : GOSUB 2240
  92. 860 FOR I%=1 TO P2E% : GOSUB 2140 : PLAY P2$(I%) : LOCATE R%,C% : PRINT " "
  93. 870 NEXT I%
  94. 880 R%=1 : GOSUB 2260
  95. 890 FOR I%=1 TO P25E% : GOSUB 2140 : PLAY P25$(I%) : LOCATE R%,C% : PRINT " "
  96. 900 NEXT I%
  97. 910 R%=1 : GOSUB 2270
  98. 920 FOR I%=1 TO P3E% : GOSUB 2140 : PLAY P3$(I%) : LOCATE R%,C% : PRINT " "
  99. 930 NEXT I%
  100. 940 R%=1 : GOSUB 2280
  101. 950 FOR I%=1 TO P4E% : GOSUB 2140 : PLAY P4$(I%) : LOCATE R%,C% : PRINT " "
  102. 960 NEXT I%
  103. 970 R%=1 : GOSUB 2290
  104. 980 FOR I%=1 TO P5E% : GOSUB 2140 : PLAY P5$(I%) : LOCATE R%,C% : PRINT " "
  105. 990 NEXT I%
  106. 1000 R%=1 : GOSUB 2300
  107. 1010 FOR I%=1 TO P6E% : GOSUB 2140 : PLAY P6$(I%) : LOCATE R%,C% : PRINT " "
  108. 1020 NEXT I%
  109. 1025 LOCATE 21,1
  110. 1028 PRINT "Transcription of music from a copy of a copy of `Twelve Days of Christmas'"
  111. 1029 PRINT " and program written by Bonnie Lamb"
  112. 1030 LOCATE ,,1
  113. 1035 END
  114. 1040 RETURN
  115. 1041 DATA "A long, long time ago, in the fifteenth century, friends "
  116. 1042 DATA "celebrated Christmas by giving 12 gifts of pleasure, "
  117. 1043 DATA "entertainment, and worth.  In the twentieth century, the "
  118. 1044 DATA "custom still lives on.  The gifts of pleasure, entertainment, "
  119. 1045 DATA "and worth are not the same. . . "
  120. 1050 DATA MF T120 MN O3 C8,C8,C4,F8,F8,F4,E8,F8,G8,A8,B-8,G8
  121. 1060 DATA A4.,B-8,O4 C4,ML D8,O3 B-8 P64 MN,A8,F8,G4,F2.
  122. 1070 DATA C8,C8,C8,C8,F8,F8,F4,E8,F8,G8,A8,B-8,G8,A2
  123. 1080 DATA O4 C4,O3 ML G8,A8 P64 MN,B-4
  124. 1090 DATA A8,B-8 O4,C4 ML,D8 O3,B-8 P64 MN,A8,F8,G4,F2.
  125. 1100 DATA C8,C8,C4,F8,F8,F4,E8,F8,G8,A8,B-8,G8,A2
  126. 1110 DATA O4 C2,ML D8,O3 B8.,B4 P64 MN,O4 C1
  127. 1120 DATA ML O4 C8 O3,B-8 P64 MN,A8,G8,F4,B-4,D4,F4
  128. 1130 DATA ML G8,F8 P64 MN,E8,D8,C4,A8,B-8 O4,C4,ML D8 O3
  129. 1140 DATA B-8 P64 MN,A8,F8,G4,F2.
  130. 1150 DATA C8,C8,C8,C8,F8,F8,F4,E8,F8,G8,A8,B-8,G8,A2
  131. 1160 DATA O4 C8,C8 O3,G8,A8,B-8,G8
  132. 1170 DATA O4 C2,ML D8,O3 B8.,B4 P64 MN,O4 C1
  133. 1180 DATA 1,5,10,15,18,23,29,33,37,42,47,51,55
  134. 1190 DATA -1,4,9,14,19,22,24,25
  135. 1200 DATA -1,5,9,13,17,20,25,31,35,39,44,49,53,57
  136. 1210 DATA -2,6,9,13,20,23,26,31,36,41,44,46,47
  137. 1220 DATA -1,5,10,13,16,19,24,30,34,38,43,48,52,56
  138. 1230 DATA -3,9,14,19,25,29,32,36,43,46,49,54,59,64,67,69,70
  139. 1240 DATA -1,5,10,14,17,20,25,31,35,39,44,49,53,57
  140. 1250 DATA -2,6,9,14,21,27,32,37
  141. 1260 DATA -2,6,9,13,20,23,26,31,36,41,44,46,47
  142. 1270 DATA 1,5,10,15,18,23,29,33,37,42,47,51,55
  143. 1280 DATA -2,6,10,12,16
  144. 1290 DATA -2,5,7,10,15,22,29,37
  145. 1300 DATA -2,4,7,10,14,21,24,27,32,37,42,45,47,48
  146. 1310 DATA -1,5,10,13,16,19,24,30,34,38,43,48,52,55
  147. 1320 DATA -2,4,8,12,17,21,27,31,35,37,41
  148. 1330 DATA -2,5,7,10,15,22,29,37
  149. 1340 DATA -2,4,7,10,14,21,24,27,32,37,42,45,47,48
  150. 1350 DATA -1,5,9,13,18,21,26,32,36,40,45,50,54,58
  151. 1360 DATA -2,5,10,15,20,25,30,32,36,40,45,49,55,59,63,65,69
  152. 1370 DATA -2,5,7,10,15,22,29,37
  153. 1380 DATA -2,4,7,10,14,21,24,27,32,37,42,45,47,48
  154. 1390 DATA 1,5,10,14,17,20,25,31,35,39,44,49,53,57
  155. 1400 DATA -3,6,10,14,19,24,29,32,37,42,47,52,57,59,63,67,72,76
  156. 1410 DATA -2,6,10,12,16
  157. 1420 DATA -2,5,7,10,15,22,29,37
  158. 1430 DATA -2,4,7,10,14,21,24,27,32,37,42,45,47,48
  159. 1440 DATA 1,5,10,13,16,19,24,30,34,38,43,48,52,56
  160. 1450 DATA -2,5,8,12,16,21,27,30,34,38,43,48,53,56,61,66,71,76
  161. 1460 DATA -2,4,8,12,17,21,27,31,35,37,41
  162. 1470 DATA -2,5,7,10,15,22,29,37
  163. 1480 DATA -2,4,7,10,14,21,24,27,32,37,42,45,47,48
  164. 1490 DATA 1,5,10,13,16,19,24,30,34,38,43,48,52,56
  165. 1500 DATA -2,4,8,13,16,19,24,30,34,38,43,48,52,55,59,63,68,73
  166. 1510 DATA -2,5,10,15,20,25,30,32,36,40,45,49,55,59,63,65,69
  167. 1520 DATA -2,5,7,10,15,22,29,37
  168. 1530 DATA -2,4,7,10,14,21,24,27,32,37,42,45,47,48
  169. 1540 DATA 1,5,9,14,19,22,27,33,37,41,46,51,55,59
  170. 1550 DATA -2,6,11,16,21,26,31,33,37,41,46,51,56,59,62,66,70,75
  171. 1560 DATA -3,6,10,14,19,24,29,32,37,42,47,52,57,59,63,67,72,76
  172. 1570 DATA -2,6,10,12,16
  173. 1580 DATA -2,5,7,10,15,22,29,37
  174. 1590 DATA -2,4,7,10,14,21,24,27,32,37,42,45,47,48
  175. 1600 DATA 1,5,9,12,17,20,25,31,35,39,44,49,53,57
  176. 1610 DATA -2,5,10,16,22,27,32,36,41,46,51,56
  177. 1620 DATA -2,4,8,13,17,22,27,30,33,37,41,46,52,55,59,63,68,73
  178. 1630 DATA -2,5,10,15,20,25,30,32,36,40,45,49,55,59,63,65,69
  179. 1640 DATA -2,5,7,10,15,22,29,37
  180. 1650 DATA -2,4,7,10,14,21,24,27,32,37,42,45,47,48
  181. 1660 DATA"On the first day of Christ-mas, my true love gave to me:"
  182. 1670 DATA"A tape cas-sette and a PC."
  183. 1680 DATA"On the sec-ond day of Christ-mas, my true love sent to me:"
  184. 1690 DATA"Two disk_ drives, and a tape cas-sette and a PC."
  185. 1700 DATA"On the third_ day of Christ-mas, my true love sent to me:"
  186. 1710 DATA"Three paral-lel ports, Two disk_ drives, and a tape cas-sette and a PC."
  187. 1720 DATA"On the fourth_ day of Christ-mas, my true love sent to me:"
  188. 1730 DATA"Four me-ga-bytes, Three paral-lel ports,"
  189. 1740 DATA"Two disk_ drives, and a tape cas-sette and a PC."
  190. 1750 DATA"On the fifth day of Christ-mas, my true love sent to me:"
  191. 1760 DATA"Five EX-TRA_ slots!"
  192. 1770 DATA"Four_ me-ga-bytes, Three parallel ports,"
  193. 1780 DATA"Two_ disk_ drives, and a tape cas-sette and a PC."
  194. 1790 DATA"On the sixth_ day of Christ_mas, my true love sent to me:"
  195. 1800 DATA"Six_ tunes a - hum-ming, Five EX-TRA_ slots!
  196. 1810 DATA"Four_ me-ga-bytes, Three parallel ports,"
  197. 1820 DATA"Two_ disk_ drives, and a tape cas-sette and a PC."
  198. 1830 DATA"On the sev-enth day of Christ-mas, my true love sent to me:"
  199. 1840 DATA"Sev-en spool-ers spool-ing, Six_ tunes a - hum-ming, Five EX-TRA_ slots!"
  200. 1850 DATA"Four_ me-ga-bytes, Three parallel ports,"
  201. 1860 DATA"Two_ disk_ drives, and a tape cas-sette and a PC."
  202. 1870 DATA"On the eighth_ day of Christ-mas, my true love sent to me:"
  203. 1880 DATA"Eight_ games a - play-ing, Sev-en spool-ers spool-ing, Six_ tunes a - hum-ming,"
  204. 1890 DATA"Five EX-TRA_ slots!"
  205. 1900 DATA"Four_ me-ga-bytes, Three parallel ports,"
  206. 1910 DATA"Two_ disk_ drives, and a tape cas-sette and a PC."
  207. 1920 DATA"On the ninth_ day of Christ-mas, my true love sent to me:"
  208. 1930 DATA"Nine_ Vis-i's Calc-ing, Eight_ games a - play-ing, Sev-en spool-ers spool-ing,"
  209. 1940 DATA"Six_ tunes a - hum-ming, Five EX-TRA_ slots!
  210. 1950 DATA"Four_ me-ga-bytes, Three parallel ports,"
  211. 1960 DATA"Two_ disk_ drives, and a tape cas-sette and a PC."
  212. 1970 DATA"On the tenth_ day of Christ-mas, my true love sent to me:"
  213. 1980 DATA"Ten_ graph-ics danc-ing, Nine_ Vis-i's Calc-ing, Eight_ games a - play-ing,"
  214. 1990 DATA"Sev-en spool-ers spool-ing, Six_ tunes a - hum-ming, Five EX-TRA_ slots!"
  215. 2000 DATA"Four_ me-ga-bytes, Three parallel ports,"
  216. 2010 DATA"Two_ disk_ drives, and a tape cas-sette and a PC."
  217. 2020 DATA"On the 'lev-enth day of Christ-mas, my true love sent to me:"
  218. 2030 DATA"'Lev-en print-ers print-ing, Ten_ graph-ics danc-ing, Nine_ Vis-i's Calc-ing,"
  219. 2040 DATA"Eight_ games a - play-ing, Sev-en spool-ers spool-ing, Six_ tunes a - hum-ming,"
  220. 2050 DATA"Five EX-TRA_ slots!"
  221. 2060 DATA"Four_ me-ga-bytes, Three parallel ports,"
  222. 2070 DATA"Two_ disk_ drives, and a tape cas-sette and a PC."
  223. 2080 DATA"On the twelfth day of Christ-mas, my true love sent to me:"
  224. 2090 DATA"Twelve FORTH's a - FORTH-ing, 'Lev-en print-ers print-ing,"
  225. 2100 DATA"Ten_ graph-ics danc-ing, Nine_ Vis-i's Calc-ing, Eight_ games a - play-ing,"
  226. 2110 DATA"Sev-en spool-ers spool-ing, Six_ tunes a - hum-ming, Five EX-TRA_ slots!"
  227. 2120 DATA"Four_ me-ga-bytes, Three parallel ports,"
  228. 2130 DATA"Two_ disk_ drives, and a tape cas-sette and a PC."
  229. 2140 C%=B%(P%)
  230. 2150 IF C% > 0 THEN GOTO 2180
  231. 2160 C%=-C%
  232. 2170 R%=R%+2
  233. 2180 LOCATE R%,C%
  234. 2190 PRINT B$
  235. 2200 P%=P%+1
  236. 2210 RETURN
  237. 2220 CLS : FOR K%=1 TO W1% : PRINT : PRINT W1$(K%) : NEXT K% : RETURN
  238. 2240 CLS : FOR K%=1 TO W2%-1 : PRINT : PRINT W2$(K%) : NEXT K% : PRINT : PRINT W2$(W2%); : RETURN
  239. 2260 CLS : FOR K%=1 TO W3% : PRINT : PRINT W3$(K%) : NEXT K% : RETURN
  240. 2270 CLS : FOR K%=1 TO W4% : PRINT : PRINT W4$(K%) : NEXT K% : RETURN
  241. 2280 CLS : FOR K%=1 TO W5% : PRINT : PRINT W5$(K%) : NEXT K% : RETURN
  242. 2290 CLS : FOR K%=1 TO W6% : PRINT : PRINT W6$(K%) : NEXT K% : RETURN
  243. 2300 CLS : FOR K%=1 TO W7% : PRINT : PRINT W7$(K%) : NEXT K% : RETURN
  244. 9500 CLS
  245. 9510 PRINT "This program requires ADVANCED BASIC; please reload using BASICA."
  246. 9520 END
  247. 7$(K%) : NEXT K% : RETURN
  248. 9500 CLS
  249. 951