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