home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64music / america (.txt) < prev    next >
Commodore BASIC  |  1988-11-02  |  8KB  |  195 lines
  1. 0 REM ## SONG-AMERICA THE BEAUTIFUL  ###
  2. 1 PRINT"[147]";:POKE 53280,6:POKE 53281,6:CLR
  3. 2 FORI=1TO38:PRINT"*[146]";:NEXT
  4. 3 FORI=1TO22:PRINT"[157]*[146]";:NEXT
  5. 4 FORI=1TO37:PRINT"[157][157]*[146]";:NEXT
  6. 5 FORI=1TO22:PRINT"[145][157]*[146]";:NEXT
  7. 6 PRINT"    AMERICA THE BEAUTIFUL
  8. 7 [153]" KATHARINE BATES   SAMUEL A. WARD
  9. 8 PRINT"   (1859-1929)       (1847-1903)
  10. 9 [153]"THIS PROGRAM TAKES APPROX. 2 MIN-
  11. 10 PRINT" UTES TO COMPUTE, BEFORE THE MUSIC
  12. 11 [153]"    BEGINS TO PLAY, PLEASE WAIT
  13. 12 FOR J=1TO5000 : NEXT
  14. 13 PRINT"[147]JUST IN CASE YOU MIGHT BE WONDERING
  15. 14 [153]"JUST WHAT THE COMPUTER IS REALLY DOING
  16. 15 PRINT"FOR 2 MINUTES, I'LL LET YOU WATCH SOME
  17. 16 [153]"  OF THE CALCULATIONS IT IS MAKING
  18. 17 PRINT"           TO PLAY THIS SONG
  19. 18 [129] J[178] 1 [164] 5000 : [130]
  20. 19 [153]"SYS CODED NOTE  OCTAVE  DURATION  FREQUENCY"
  21. 37 S[178]54272:[129]L[178]S[164]S[170]24:[151]L,0:[130]
  22. 38 [134]H(2,600),L(2,600),C(2,600)
  23. 39 [134]FQ(11)
  24. 40 V(0)[178]65:V(1)[178]65:V(2)[178]17
  25. 45 [143] SAWTOOTH-33, TRIANGLE-17,PULSE-65
  26. 46 [151] S[170]3,8 :[143] IF PULSE VOICE #1
  27. 50 [151] S[170]10,8:[143] IF PULSE VOICE #2
  28. 51 [151] S[170]17,8:[143] IF PULSE VOICE #3
  29. 54 [143]  POKES+22,128:POKES+23,244
  30. 60 [129]I[178]0[164]11:[135]FQ(I):[130]
  31. 100 [129]K[178]0[164]2
  32. 110 I[178]0
  33. 120 [135] NM:Z[178]Z[170]1:[153] NM;
  34. 121 [139] Z[179]119[167] [153]"SOPRANO  ";
  35. 122 [139] Z[177]119 [175] Z[179]243 [167] [153]"ALTO     ";
  36. 123 [139] Z[177]243 [167] [153]"BASS     ";
  37. 130 [139]NM[178]0[167]250
  38. 140 WA[178]V(K):WB[178]WA[171]1:[139]NM[179]0[167]NM[178][171]NM:WA[178]0:WB[178]0
  39. 150 DR%[178]NM[173]128:OC%[178](NM[171]128[172]DR%)[173]16
  40. 160 NT[178]NM[171]128[172]DR%[171]16[172]OC%
  41. 170 FR[178]FQ(NT)
  42. 175 [153] OC%,DR%,FR
  43. 180 [139]OC%[178]7[167]200
  44. 190 [129]J[178]6[164]OC%[169][171]1:FR[178]FR[173]2:[130]
  45. 200 HF%[178]FR[173]256:LF%[178]FR[171]256[172]HF%
  46. 210 [139]DR%[178]1[167]H(K,I)[178]HF%:L(K,I)[178]LF%:C(K,I)[178]WA:I[178]I[170]1:[137]120
  47. 220 [129]J[178]1[164]DR%[171]1:H(K,I)[178]HF%:L(K,I)[178]LF%:C(K,I)[178]WA:I[178]I[170]1:[130]
  48. 230 H(K,I)[178]HF%:L(K,I)[178]LF%:C(K,I)[178]WB
  49. 240 I[178]I[170]1:[137]120
  50. 250 [139]I[177]IM[167]IM[178]I
  51. 260 [130]
  52. 261 [153]"LOAD":[151]53280,14:[151]53281,6
  53. 262 [153]"
  54. 263 REM FLAG
  55. 264 PRINT" [158]XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ";
  56. 265 PRINT" X * * * * * *                        [146][158]X ";
  57. 266 PRINT" X* * * * * * *                       [146][158]X ";
  58. 267 PRINT" X * * * * * *                        [146][158]X ";
  59. 268 PRINT" X* * * * * * *                       [146][158]X ";
  60. 269 PRINT" X * * * * * *                        [146][158]X ";
  61. 270 PRINT" X* * * * * * *                       [146][158]X ";
  62. 271 PRINT" X * * * * * *                        [146][158]X ";
  63. 272 PRINT" X                                    [146][158]X ";
  64. 273 PRINT" X                                    [146][158]X ";
  65. 274 PRINT" X                                    [146][158]X ";
  66. 275 PRINT" X                                    [146][158]X ";
  67. 276 PRINT" X                                    [146][158]X ";
  68. 277 PRINT" X                                    [146][158]X ";
  69. 278 PRINT" [158]XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ";
  70. 290 PRINT"       AMERICA THE BEAUTIFUL      "
  71. 295 FOR J=1 TO 1000: NEXT
  72. 296 X=0:Y=0
  73. 300 PRINT" OH, BEAUTIFUL FOR SPACIOUS SKIES
  74. 500 [151]S[170]5,0:[151]S[170]6,240
  75. 505 [143] ADSR FOR VOICE #1
  76. 510 [151]S[170]12,85:[151]S[170]13,133
  77. 515 [143] ADSR FOR VOICE #2
  78. 520 [151]S[170]19,10:[151]S[170]20,197
  79. 525 [143] ADSR FOR VOICE #3
  80. 530 [151]S[170]24,31
  81. 540 [129]I[178]0[164]257:[139] I[178]257[167]I[178]0:X[178]X[170]1
  82. 541 [139] X[178]1 [167] 600
  83. 543 [139]I[178]30 [167] [153]"    FOR AMBER WAVES OF GRAIN    "
  84. 544 [139]I[178]56 [167] [153]"  FOR PURPLE MOUNTAIN MAJESTIES "
  85. 545 [139]I[178]94 [167] [153]"    ABOVE THE FRUITED PLAIN    "
  86. 546 [139]I[178]124[167] [153]"       AMERICA! AMERICA!        "
  87. 547 [139]I[178]159[167] [153]"   GOD SHED HIS GRACE ON THEE  "
  88. 548 [139]I[178]190[167] [153]"AND CROWN THY GOOD WITH BROTHERHOOD"
  89. 549 [139]I[178]222[167] [153]"      FROM SEA TO SHINING SEA      "
  90. 568 [151]S,L(0,I):[151]S[170]7,L(1,I):[151]S[170]14,L(2,I)
  91. 569 [151]S[170]1,H(0,I):[151]S[170]8,H(1,I):[151]S[170]15,H(2,I)
  92. 570 [151]S[170]4,C(0,I):[151]S[170]11,C(1,I):[151]S[170]18,C(2,I)
  93. 580 [129] T[178]1 [164] 33   :[130]:[130]
  94. 600 [129]I[178]0[164]257:[139] I[178]257[167]I[178]0:Y[178]Y[170]1
  95. 601 [139] Y[178]1 [167] 641
  96. 610 [151]S,L(0,I):[151]S[170]7,L(1,I):[151]S[170]14,L(2,I)
  97. 620 [151]S[170]1,H(0,I):[151]S[170]8,H(1,I):[151]S[170]15,H(2,I)
  98. 630 [151]S[170]4,C(0,I):[151]S[170]11,C(1,I):[151]S[170]18,C(2,I)
  99. 631 [139]I[178]0 [167] [153]"OH, BEAUTIFUL FOR PATRIOT DREAM  "
  100. 632 [139]I[178]30[167] [153]"   THAT SEES, BEYOND THE YEARS   "
  101. 633 [139]I[178]56 [167] [153]"  THINE ALABASTER CITIES GLEAM "
  102. 634 [139]I[178]94 [167] [153]"     UNDIMMED BY HUMAN TEARS    "
  103. 635 [139]I[178]124[167] [153]"       AMERICA! AMERICA!        "
  104. 636 [139]I[178]159[167] [153]"   GOD SHED HIS GRACE ON THEE  "
  105. 637 [139]I[178]190[167] [153]"AND CROWN THY GOOD WITH BROTHERHOOD"
  106. 638 [139]I[178]222[167] [153]"      FROM SEA TO SHINING SEA      "
  107. 639 [139]I[178]245[167] [153]"                                   "
  108. 640 [129] T[178]1 [164] 27   :[130]:[130]
  109. 641 [129] I[178]258 [164] IM
  110. 642 [151]S,L(0,I):[151]S[170]7,L(1,I):[151]S[170]14,L(2,I)
  111. 643 [151]S[170]1,H(0,I):[151]S[170]8,H(1,I):[151]S[170]15,H(2,I)
  112. 644 [151]S[170]4,C(0,I):[151]S[170]11,C(1,I):[151]S[170]18,C(2,I)
  113. 839 [129] T[178]1 [164] 80   :[130]:[130]
  114. 840 [129]T[178]1[164]500:[130]:[151]S[170]24,0
  115. 845 [129] J[178]1 [164] 3000: [130]
  116. 850 [131] 34334,36376,38539,40830
  117. 860 [131] 43258,45830,48556,51443
  118. 870 [131] 54502,57743,61176,64814
  119. 900 [143] #############################
  120. 901 [143] #####    AMERICA  THE   #####
  121. 902 [143] #####      BEAUTIFUL    #####
  122. 903 [143] #############################
  123. 1000 [143] ######  SOPRANO  ##########
  124. 1001 [131] -128,581,837,322,578,581,837,320,576,578,579,581,583,585,1605
  125. 1002 [131] 581,837,322,578,581,837,320,576,592,587,592,594,583,1616
  126. 1003 [131] 581,850,338,592,586,842,329,585,586,592,585,583,581,1610
  127. 1004 [131] 586,842,327,583,586,842,325,581,581,583,586,581,592,1610,-512
  128. 1101 [131] 837,323,450,197,458,208,1106,1098,839,329,458,201,458,199,1093,1090
  129. 1102 [131] 837,323,450,197,458,208,1106,586,586,592,592,586,585,1610,-512
  130. 1201 [131] 838,324,451,198,459,209,1107,1099,840,330,459,202,459,200,1094,1091
  131. 1202 [131] 838,324,451,198,459,209,1107,587,587,1105,1105,1099,1098,3147
  132. 1999 [131] 0
  133. 2000 [143] ########  ALTO  ###########
  134. 2001 [131] -128,578,834,314,570,578,832,313,569,570,576,576,579,579,1090,579
  135. 2002 [131] 576,834,314,570,578,832,320,576,581,581,581,580,580,581,580,579
  136. 2003 [131] 581,837,325,581,578,835,325,581,581,581,581,579,579,1090,579
  137. 2004 [131] 581,835,323,579,579,834,322,578,581,583,586,581,579,1602,-512
  138. 2101 [131] 834,320,442,194,453,197,1093,1093,835,325,455,197,455,197,1090,1082
  139. 2102 [131] 834,320,442,194,453,197,1093,581,581,583,583,581,579,1602,-512
  140. 2201 [131] 835,321,443,195,454,198,1094,1094,836,326,456,198,456,198,1091,1083
  141. 2202 [131] 835,321,443,195,454,198,1094,582,582,1096,1096,1094,1092,3139
  142. 2999 [131] 0
  143. 3000 [143] ######  BASS  #############
  144. 3001 [131] -128,554,810,298,554,549,816,304,560,549,560,560,549,549,554,555,560
  145. 3002 [131] 549,810,298,554,551,816,304,560,560,560,560,560,567,565,567,569
  146. 3003 [131] 565,821,306,562,565,821,304,560,562,563,565,567,569,570,554,560
  147. 3004 [131] 562,819,307,563,560,821,309,565,565,567,570,565,549,1578,-512
  148. 3101 [131] 810,298,426,170,434,181,1082,1074,819,307,435,179,435,179,1066,1066
  149. 3102 [131] 810,298,426,170,434,181,1082,562,562,563,563,565,565,1578,-512
  150. 3201 [131] 811,299,427,171,435,182,1083,1075,820,308,436,180,436,180,1067,1067
  151. 3202 [131] 811,299,427,171,435,182,1083,563,563,1076,1076,1078,1078,3115
  152. 3999 [131] 0
  153. 4000 [153]"LOAD";:[151] 53280,1:[151] 53281,6
  154. 4001 [129]I[178]1[164]38:[153]"SPC(WAIT";:[130]
  155. 4002 [129]I[178]1[164]22:[153]"CMDSPC(WAIT";:[130]
  156. 4003 [129]I[178]1[164]37:[153]"CMDCMDSPC(WAIT";:[130]
  157. 4004 [129]I[178]1[164]22:[153]"ONCMDSPC(WAIT";:[130]
  158. 4005 [153]"CONT WAIT  WAIT  WAIT    WAIT    WAIT    WAIT      WAIT    WAIT  (null)WAIT  "
  159. 4006 [153]" WAIT  WAIT  WAIT  WAIT    WAIT    WAIT    WAIT  WAIT  WAIT  WAIT  WAIT  (null)(null) "
  160. 4007 [153]" WAIT  WAIT  WAIT    WAIT    WAIT    WAIT  WAIT  WAIT  WAIT    WAIT  (null)  WAIT"
  161. 4008 [153]" WAIT  WAIT  WAIT  WAIT      WAIT  WAIT    WAIT  WAIT  WAIT  WAIT  WAIT  WAIT (null) "
  162. 4009 [153]"     WAIT    WAIT    WAIT    WAIT  WAIT  WAIT  WAIT  WAIT  WAIT  WAIT   "
  163. 4010 [153]"(null)
  164. 4011 PRINT"CHRIS[221]IAN
  165. 4012 [153]"MUSICAL  SOFTWARE  PROGRAMS
  166. 4013 PRINT"[158]      [146]
  167. 4014 [153]" WAIT     WAIT
  168. 4015 PRINT"      [146]
  169. 4016 [153]" WAIT     WAIT
  170. 4017 PRINT" [146]     [146]
  171. 4018 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRSYSSTEP   WAITUSRUSRUSRUSRSYS WAITUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR
  172. 4019 PRINT"[158][223]  [146][169] [169]   [146]
  173. 4020 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRSYS(null)  WAITSTEPUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR ":[153]
  174. 4021 [153]"JACKSONVILLE,  FLORIDA
  175. 4022 PRINT"4/26/85
  176. 4023 [129] J[178]1 [164] 6000:[130]
  177. 4025 [156]
  178. 6000 [143]  THIS PROGRAM CONSTRUCTED BY:
  179. 6001 [143]
  180. 6002 [143]        ALLAN J. WESEMAN
  181. 6003 [143]         3427 CORK ST.
  182. 6004 [143]          JAX.FLA.32207
  183. 6005 [143]             4/26/85
  184. 6006 [143]
  185. 6007 [143]  "...SEEK YE FIRST THE KINGDOM
  186. 6008 REM  OF GOD AND HIS RIGHTEOUSNESS;
  187. 6009 REM  AND ALL THESE THINGS SHALL BE
  188. 6010 REM  ADDED UNTO YOU."  MATT.6:33
  189. 6020 [143]
  190. 6030 [143] ADD THIS LINE:"165 OC%=OC%+1"
  191. 6040 [143]   THIS WILL RAISE EVERYTHING
  192. 6050 [143]          ONE OCTAVE
  193. 6060 [143]
  194. 6100 [155]
  195.