home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
genie-commodore-file-library
/
C64Demos
/
RAINBOW
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
15KB
|
309 lines
10 REM PROGRAMMED BY BOB YEWCHUK
100 CLR:PRINTCHR$(8):PRINTCHR$(142):PRINTCHR$(155):GOSUB50000
120 BO=53280:BG=53281:POKEBO,0:POKEBG,0
140 VC=54296:REM VOLUME CONTROL
160 A1=54277:A2=54284:A3=54291
180 S1=54278:S2=54285:S3=54292
200 W1=54276:W2=54283:W3=54290
220 H1=54273:H2=54280:H3=54287
240 L1=54272:L2=54279:L3=54286
300 REM CONTROL STRINGS
320 CS$=CHR$(147):REM CLEAR SCREEN
340 L$=CHR$(17)+CHR$(17):REM PRINT TWO LINES DOWN
360 N$="":REM NO CHARACTER
500 POKEVC,15
520 POKEA1,136:POKEA2,136:POKEA3,136
540 POKES1,136:POKES2,136:POKES3,136
560 POKEW1,33:POKEW2,33:POKEW3,33
600 REM "OVER THE RAINBOW"
1000 REM START OF SONG -- READ IN NOTES AND STRING DATA WITH CONTROL CHARS.
1020 REM PART ONE -- BLACK AND WHITE BEGINNING OF SONG PLAYED SLOWLY
1060 PRINT"[147] SOMEWHERE OVER THE"
1070 PRINT" RAINBOW"
1080 PRINT" BY BOB YEWCHUK"
1100 FORT=1TO2800:NEXT:PRINTCS$;L$
1120 W=300:REM TIME DELAY VARIABLE
1200 READ A,B,C,D,E,F,G$
1210 IFA=500THENW=W-100:GOTO1200
1220 IFA=600THENGOSUB1350:GOTO1200
1230 IFA=700THENW=W+100:GOTO1200
1240 IFA=800THENW=200:GOTO1200
1250 IFA=999THENGOSUB50000:GOSUB1350:END:PRINTCHR$(144):PRINTCHR$(9):END
1260 POKEH1,A:POKEL1,B:POKEH2,C:POKEL2,D:POKEH3,E:POKEL3,F
1270 POKEW1,33:POKEW2,33:POKEW3,33
1280 IFG$=""THEN1310
1290 IFASC(G$)=133THENPRINT:PRINT
1300 IFASC(G$)=137THENPRINTCS$;L$
1310 PRINTG$;
1320 FORT=1TOW:NEXT
1330 GOTO1200
1340 REM PART TWO -- IN COLOUR
1350 POKEH1,O:POKEL1,0:POKEH2,0:POKEL2,0:POKEH3,0:POKEL3,0
1360 PRINT"[147]":FORT=1TO43:POKEBO,T:POKEBG,T:FORQ=1TO15:NEXTQ,T
1370 W=150:RETURN
1500 REM START OF DATA
1520 DATA0,0,25,177,0,0,,0,0,30,141,0,0,,15,70,25,177,10,60,,15,70,30,141
1525 DATA10,60,
1530 DATA17,37,25,177,10,60,,17,37,30,141,10,60,,15,70,25,177,10,60,,15,70
1535 DATA30,141,10,60,:REM BAR 1
1540 DATA0,0,27,56,0,0,,0,0,30,141,0,0,,17,37,27,56,11,114,,17,37,30,141,11,114,
1550 DATA20,100,27,56,11,114,,20,100,30,141,11,114,,19,63,27,56,11,114,,19,63
1555 DATA30,141,11,114,:REM BAR 2
1560 DATA0,0,34,75,0,0,,0,0,34,75,0,0,,19,63,34,75,7,163,,19,63,34,75,7,163,
1570 DATA22,227,34,75,12,216,,22,227,34,75,12,216,,20,100,34,75,12,216,,20,100
1575 DATA34,75,12,216,:REM BAR 3
1580 DATA30,141,61,126,19,63,,30,141,45,198,19,63,,27,56,54,111,17,37,,27,56
1585 DATA40,200,17,37,
1590 DATA25,177,51,97,15,70,,25,177,38,126,15,70,,38,126,45,198,15,70,:REM BAR 4
1600 DATA15,70,0,0,0,0,,15,70,30,141,0,0,"WHEN "
1610 DATA15,70,34,75,0,0,ALL ,15,70,25,177,0,0,"THE "
1620 DATA15,70,30,141,10,60,WORLD ,15,70,30,141,10,60,
1630 DATA15,70,22,227,10,60,IS ,15,70,25,177,10,60,"A ":REM BAR 5
1640 DATA17,37,27,56,0,0,HOPE-,17,37,00,00,0,0,
1650 DATA17,37,27,56,0,0,"LESS ",17,37,00,00,0,0,
1660 DATA17,37,27,56,10,60,"JUM-",17,37,30,141,10,60,"[133]BLE "
1670 DATA17,37,20,100,10,60,AND ,17,37,22,227,10,60,"THE "
1680 DATA19,63,25,177,0,0,RAIN-,19,63,0,0,0,0,
1685 DATA19,63,25,177,0,0,DROPS ,19,63,0,0,0,0,
1690 DATA19,63,25,177,10,60,TUM-,19,63,30,141,10,60,"BLE "
1700 DATA19,63,19,63,10,60,ALL ,19,63,20,100,10,60,"A "
1710 DATA0,0,22,227,5,185,"[133]ROUND,",0,0,22,227,5,185,
1720 DATA20,100,22,227,5,185,,20,100,22,227,5,185,
1730 DATA20,100,22,227,7,163,,20,100,22,227,7,163,
1740 DATA19,63,22,227,7,163,,19,63,22,227,7,163,:REM BAR 8
1750 DATA0,0,25,177,5,25,"[133]HEAV-",7,163,25,177,5,25,
1760 DATA8,147,25,177,5,25,,8,147,25,177,5,25,
1770 DATA0,0,25,177,5,103,EN ,8,147,25,177,5,103,
1780 DATA9,21,25,177,5,103,,9,21,25,177,5,103,:REM BAR 9
1785 DATA500,500,500,500,500,500,TRIPLET
1790 DATA20,100,25,177,8,147,O-,20,100,25,177,8,147,
1800 DATA20,100,30,141,8,147,PENS ,20,100,30,141,8,147,
1810 DATA20,100,27,56,8,147,A ,20,100,27,56,8,147,
1815 DATA700,700,700,700,700,700,SLOWER
1820 DATA21,154,25,177,7,163,MAG-,21,154,25,177,7,163,
1830 DATA21,154,22,227,7,163,IC ,21,154,22,227,7,163,:REM BAR 10
1840 DATA12,216,20,100,0,0,"LANE.",12,216,20,100,0,0,
1850 DATA12,216,20,100,7,163,,12,216,20,100,7,163,
1860 DATA0,0,20,100,12,216,,0,0,20,100,12,216,
1870 DATA0,0,20,100,17,37,,0,0,20,100,17,37,:REM BAR 11
1880 DATA30,141,61,126,19,63,,30,141,45,198,19,63,
1890 DATA27,56,54,111,17,37,,27,56,40,200,17,37,
1900 DATA25,177,51,97,15,70,,25,177,38,126,15,70,
1910 DATA22,227,45,198,13,156,,22,227,34,75,13,156,:REM BAR 12
1920 DATA15,70,0,0,0,0,,15,70,30,141,0,0,"[133]WHEN "
1930 DATA15,70,34,75,0,0,ALL ,15,70,25,177,0,0,"THE "
1940 DATA15,70,30,141,10,60,CLOUDS ,15,70,30,141,10,60,
1950 DATA15,70,22,227,10,60,DARK-,15,70,25,177,10,60,"EN ":REM BAR 13
1960 DATA17,37,27,56,0,0,UP ,17,37,00,00,0,0,
1970 DATA17,37,27,56,0,0,"THE ",17,37,00,00,0,0,
1980 DATA17,37,27,56,10,60,"SKY-",17,37,30,141,10,60,"[133]WAY "
1990 DATA17,37,20,100,10,60,THERE'S ,17,37,22,227,10,60,"A ":REM BAR 14
2000 DATA19,63,25,177,0,0,RAIN-,19,63,0,0,0,0,
2010 DATA19,63,25,177,0,0,BOW ,19,63,0,0,0,0,
2020 DATA19,63,25,177,10,60,HIGH-,19,63,30,141,10,60,"WAY "
2030 DATA19,63,19,63,10,60,TO ,19,63,20,100,10,60,"BE "
2040 DATA0,0,22,227,5,185,"[133]FOUND,",0,0,22,227,5,185,
2050 DATA20,100,22,227,5,185,,20,100,22,227,5,185,
2060 DATA20,100,22,227,7,163,,20,100,22,227,7,163,
2070 DATA19,63,22,227,7,163,,19,63,22,227,7,163,:REM BAR 16
2080 DATA0,0,19,63,4,73,"[133]LEAD-",0,0,19,63,4,73,
2090 DATA12,216,19,63,4,73,,12,216,19,63,4,73,
2100 DATA12,216,20,100,8,147,ING ,12,216,20,100,8,147,
2110 DATA12,216,20,100,8,147,,12,216,20,100,8,147,:REM BAR 17
2120 DATA24,63,40,200,17,63,FROM ,24,63,40,200,17,63,
2130 DATA24,63,38,126,17,37,YOUR ,24,63,38,126,17,37,
2140 DATA25,177,34,75,11,114,WIN-,25,177,34,75,11,114,
2150 DATA25,177,38,126,5,185,DOW ,25,177,38,126,5,185,:REM BAR 18
2160 DATA0,0,30,141,7,163,PANE ,0,0,30,141,7,163,
2170 DATA20,100,30,141,7,163,,20,100,30,141,7,163,
2180 DATA20,100,30,141,15,70,,20,100,30,141,15,70,
2190 DATA20,100,30,141,17,37,,20,100,30,141,17,37,:REM BAR 19
2200 DATA0,0,0,0,7,163,,0,0,0,0,7,163,
2210 DATA17,37,0,0,7,163,"[133]TO ",20,100,0,0,7,163,"A "
2220 DATA25,177,0,0,7,163,PLACE ,30,141,0,0,7,163,"BE-"
2230 DATA38,126,0,0,7,163,HIND ,40,200,0,0,7,163,"THE ":REM BAR 20
2240 DATA0,0,30,141,7,163,SUN,0,0,30,141,7,163,
2250 DATA20,100,30,141,7,163,,20,100,30,141,7,163,
2260 DATA20,100,30,141,15,70,,20,100,30,141,15,70,
2270 DATA20,100,30,141,17,37,,20,100,30,141,17,37,:REM BAR 21
2290 DATA0,0,0,0,7,163,,0,0,0,0,7,163,
2300 DATA0,0,17,37,7,163,"[133]JUST ",0,0,20,100,7,163,"A "
2310 DATA0,0,25,177,7,163,STEP ,0,0,30,141,7,163,"BEY-"
2320 DATA28,214,38,126,12,32,OND ,23,214,40,200,12,32,"THE ":REM BAR 22
2330 DATA0,0,45,198,0,0,RAIN,27,56,45,198,22,227,
2340 DATA40,200,45,198,34,75,,40,200,45,198,34,75,
2350 DATA34,75,45,198,27,56,,51,97,45,198,40,200,:REM BAR 23
2360 DATA30,141,0,0,0,0,,30,141,40,200,45,198,
2370 DATA30,141,54,111,72,169,,30,141,54,111,72,169,
2380 DATA30,141,54,111,72,169,,30,141,54,111,72,169,
2390 DATA30,141,76,252,102,194,,30,141,76,252,102,194,:REM BAR 24
2400 DATA600,600,600,600,600,600,PART ONE
2410 DATA12,216,20,100,7,163,"[144]SOME-",12,216,20,100,7,163,
2420 DATA12,216,20,100,7,163,,12,216,20,100,7,163,
2430 DATA17,37,40,200,7,163,"WHERE ",17,37,40,200,7,163,
2440 DATA17,37,40,200,7,163,,17,37,40,200,7,163,:REM BAR 1
2450 DATA30,141,38,126,12,216,O-,30,141,38,126,12,216,
2460 DATA25,177,30,141,12,216,VER ,28,214,34,75,12,216,"THE "
2470 DATA30,141,38,126,12,216,"R[129]A[158]IN",30,141,38,126,12,216,
2480 DATA34,75,40,200,25,177,"[159]BO[156]W[158] ",34,75,40,200,25,177,:REM BAR 2
2490 DATA0,0,20,100,6,206,WAY ,0,0,20,100,6,206,
2500 DATA17,37,20,100,6,206,,17,37,20,100,6,206,
2510 DATA25,177,34,75,10,60,UP ,25,177,34,75,10,60,
2520 DATA24,63,34,75,10,60,,24,63,34,75,10,60,:REM BAR 3
2530 DATA22,227,30,141,12,216,"[133][153]HIGH,",22,227,30,141,12,216,
2540 DATA20,100,30,141,12,216,,20,100,30,141,12,216,
2550 DATA19,63,30,141,11,114,,19,63,30,141,11,114,
2560 DATA18,42,30,141,10,205,,18,42,30,141,10,205,:REM BAR 4
2670 DATA0,0,17,37,10,60,"THERE'S ",0,0,17,37,10,60,
2680 DATA11,114,17,37,10,60,,11,114,17,37,10,60,
2690 DATA0,0,27,56,11,114,A ,0,0,27,56,11,114,
2700 DATA20,100,27,56,11,114,,20,100,27,56,11,114,:REM BAR 5
2710 DATA20,100,25,177,7,163,LAND ,20,100,25,177,7,163,
2720 DATA17,37,20,100,7,163,THAT ,19,63,22,227,7,163,"I "
2730 DATA20,100,25,177,8,147,HEARD ,20,100,25,177,8,147,
2740 DATA20,100,27,56,8,147,OF ,20,100,27,56,8,147,:REM BAR 6
2750 DATA19,63,22,227,5,185,"[133][154]ONCE ",19,63,22,227,5,185,
2760 DATA0,0,19,63,5,185,IN ,0,0,20,100,5,185,"A "
2770 DATA17,37,22,227,13,156,LULL-,17,37,22,227,13,156,
2780 DATA19,63,15,70,25,177,A-,19,63,15,70,25,177,:REM BAR 7
2790 DATA15,70,20,100,12,216,BY.,15,70,20,100,12,216,
2800 DATA34,75,40,200,10,60,,30,141,38,126,10,60,
2810 DATA27,56,34,75,11,114,,27,56,34,75,11,114,
2820 DATA30,141,51,97,15,70,,30,141,51,97,15,70,:REM BAR 8
2830 DATA12,216,20,100,7,163,"[133]SOME-",12,216,20,100,7,163,
2840 DATA12,216,20,100,7,163,,12,216,20,100,7,163,
2850 DATA17,37,40,200,7,163,"WHERE ",17,37,40,200,7,163,
2860 DATA17,37,40,200,7,163,,17,37,40,200,7,163,:REM BAR 9
2870 DATA30,141,38,126,12,216,O-,30,141,38,126,12,216,
2880 DATA25,177,30,141,12,216,VER ,28,214,34,75,12,216,"THE "
2890 DATA30,141,38,126,12,216,"R[129]A[158]IN",30,141,38,126,12,216,
2900 DATA34,75,40,200,25,177,"[159]BO[156]W[158] ",34,75,40,200,25,177,:REM BAR 10
2910 DATA0,0,20,100,6,206,SKIES ,0,0,20,100,6,206,
2920 DATA17,37,20,100,6,206,,17,37,20,100,6,206,
2930 DATA25,177,34,75,10,60,ARE ,25,177,34,75,10,60,
2940 DATA24,63,34,75,10,60,,24,63,34,75,10,60,:REM BAR 11
2950 DATA22,227,30,141,12,216,"[133]BLUE[154],",22,227,30,141,12,216,
2960 DATA20,100,30,141,12,216,,20,100,30,141,12,216,
2970 DATA19,63,30,141,11,114,,19,63,30,141,11,114,
2980 DATA18,42,30,141,10,205,,18,42,30,141,10,205,:REM BAR 12
2990 DATA0,0,17,37,10,60,"[156]AND ",0,0,17,37,10,60,
3000 DATA11,114,17,37,10,60,,11,114,17,37,10,60,
3010 DATA0,0,27,56,11,114,THE ,0,0,27,56,11,114,
3020 DATA20,100,27,56,11,114,,20,100,27,56,11,114,:REM BAR 13
3030 DATA20,100,25,177,7,163,DREAMS ,20,100,25,177,7,163,
3040 DATA17,37,20,100,7,163,THAT ,19,63,22,227,7,163,"YOU "
3050 DATA20,100,25,177,8,147,DARE ,20,100,25,177,8,147,
3060 DATA20,100,27,56,8,147,TO ,20,100,27,56,8,147,:REM BAR 14
3070 DATA19,63,22,227,5,185,"[133]DREAM ",19,63,22,227,5,185,
3080 DATA0,0,19,63,5,185,REAL-,0,0,20,100,5,185,"LY "
3090 DATA17,37,22,227,13,156,DO ,17,37,22,227,13,156,
3100 DATA19,63,15,70,25,177,COME ,19,63,15,70,25,177,:REM BAR 15
3110 DATA0,0,20,100,5,25,"TRUE.",0,0,20,100,5,25,
3120 DATA15,70,20,100,5,25,,15,70,20,100,5,25,
3130 DATA15,70,20,100,3,210,,15,70,20,100,3,210,
3140 DATA0,0,0,0,7,163,,0,0,30,141,7,163,"[137][153]SOME ":REM BAR 16
3145 DATA700,700,700,700,700,700,DREAMILY
3150 DATA0,0,25,177,0,0,DAY ,0,0,30,141,0,0,"I'LL "
3160 DATA15,70,25,177,10,60,WISH ,15,70,30,141,10,60,"UP-"
3170 DATA17,37,25,177,10,60,ON ,17,37,30,141,10,60,"A "
3180 DATA15,70,25,177,10,60,STAR ,15,70,30,141,10,60,"AND":REM BAR 17
3190 DATA0,0,27,56,0,0,"[133][158]WAKE ",0,0,30,141,0,0,"UP "
3200 DATA17,37,27,56,11,114,WHERE ,17,37,30,141,11,114,"THE "
3210 DATA20,100,27,56,11,114,CLOUDS ,20,100,30,141,11,114,"ARE "
3220 DATA19,63,27,56,11,114,FAR ,19,63,30,141,11,114,"BE-":REM BAR 18
3230 DATA0,0,34,75,0,0,"[133][129]HIND ",0,0,34,75,0,0,
3240 DATA19,63,34,75,7,163,,19,63,34,75,7,163,
3250 DATA22,224,34,75,12,216,"ME,",22,224,34,75,12,216,
3260 DATA20,100,34,75,12,216,,20,100,34,75,12,216,:REM BAR 19
3270 DATA0,0,61,126,10,60,,0,0,38,126,10,60,
3280 DATA17,37,54,111,10,60,,17,37,34,75,10,60,
3290 DATA20,100,51,97,10,60,,20,100,30,141,10,60,
3300 DATA19,63,45,198,10,60,,19,63,30,141,10,60,"[133][154]WHERE ":REM BAR 20
3310 DATA0,0,25,177,0,0,TROUB-,0,0,30,141,0,0,"BLES "
3320 DATA15,70,25,177,10,60,MELT ,15,70,30,141,10,60,"LIKE "
3330 DATA17,37,25,177,10,60,LEM-,17,37,30,141,10,60,"ON "
3340 DATA15,70,25,177,10,60,DROPS ,15,70,30,141,10,60,"[133][145]A-":REM BAR 21
3350 DATA0,0,28,214,0,0,WAY ,0,0,34,75,0,0,"A-"
3360 DATA14,107,28,214,0,0,BOVE ,14,107,34,75,0,0,"THE "
3370 DATA22,227,28,214,17,37,CHIM-,22,227,34,75,17,37,"NEY "
3380 DATA20,100,28,214,17,37,TOPS ,20,100,34,75,17,37,"THAT'S":REM BAR 22
3390 DATA22,227,38,126,19,63,"[133]WHERE ",22,227,38,126,19,63,
3400 DATA22,227,38,126,17,37,,22,227,38,126,17,37,
3410 DATA20,100,38,126,15,70,YOU'LL ,20,100,38,126,15,70,
3420 DATA20,100,38,126,14,107,,20,100,38,126,14,107,:REM BAR 23
3430 DATA22,227,45,198,13,156,FIND ,22,227,45,198,13,156,
3440 DATA22,227,45,198,13,156,,22,227,45,198,13,156,
3450 DATA24,63,34,75,14,107,ME.,24,63,34,75,14,107,
3460 DATA24,63,34,75,14,107,,24,63,34,75,14,107,:REM BAR 24
3465 DATA800,800,800,800,800,800,CHORUS
3470 DATA12,216,20,100,7,163,"[137][159]SOME-",12,216,20,100,7,163,
3480 DATA12,216,20,100,7,163,,12,216,20,100,7,163,
3490 DATA17,37,40,200,7,163,"WHERE ",17,37,40,200,7,163,
3500 DATA17,37,40,200,7,163,,17,37,40,200,7,163,:REM BAR 25
3510 DATA30,141,38,126,12,216,O-,30,141,38,126,12,216,
3520 DATA25,177,30,141,12,216,VER ,28,214,34,75,12,216,"THE "
3530 DATA30,141,38,126,12,216,"R[129]A[158]IN",30,141,38,126,12,216,
3540 DATA34,75,40,200,25,177,"[159]BO[156]W[158] ",34,75,40,200,25,177,:REM BAR 26
3550 DATA0,0,20,100,6,206,"BLUE ",0,0,20,100,6,206,
3560 DATA17,37,20,100,6,206,,17,37,20,100,6,206,
3570 DATA25,177,34,75,10,60,BIRDS ,25,177,34,75,10,60,
3580 DATA24,63,34,75,10,60,,24,63,34,75,10,60,:REM BAR 27
3590 DATA22,227,30,141,12,216,"[133][153][145]FLY,",22,227,30,141,12,216,
3600 DATA20,100,30,141,12,216,,20,100,30,141,12,216,
3610 DATA19,63,30,141,11,114,,19,63,30,141,11,114,
3620 DATA18,42,30,141,10,205,,18,42,30,141,10,205,:REM BAR 28
3630 DATA0,0,17,37,10,60,"BIRDS ",0,0,17,37,10,60,
3640 DATA11,114,17,37,10,60,,11,114,17,37,10,60,
3650 DATA0,0,27,56,11,114,FLY ,0,0,27,56,11,114,
3660 DATA20,100,27,56,11,114,,20,100,27,56,11,114,:REM BAR 29
3670 DATA20,100,25,177,7,163,O-,20,100,25,177,7,163,
3680 DATA17,37,20,100,7,163,VER ,19,63,22,227,7,163,"THE "
3690 DATA20,100,25,177,8,147,"R[129]A[158]IN-",20,100,25,177,8,147,
3700 DATA20,100,27,56,8,147,"[159]BO[156]W ",20,100,27,56,8,147,:REM BAR 30
3710 DATA19,63,22,227,5,185,"[133][154]WHY ",19,63,22,227,5,185,
3720 DATA0,0,19,63,5,185,THEN ,0,0,20,100,5,185,"OH "
3730 DATA17,37,22,227,13,156,WHY ,17,37,22,227,13,156,
3740 DATA19,63,15,70,25,177,CAN'T ,19,63,15,70,25,177,:REM BAR 31
3750 DATA15,70,20,100,0,0,"I?",15,70,20,100,7,163,
3760 DATA15,70,20,100,8,147,,15,70,20,100,10,60,
3770 DATA15,70,20,100,11,114,,15,70,20,100,12,216,
3775 DATA700,700,700,700,700,700,SLOWER
3780 DATA0,0,0,0,15,70,,40,200,61,126,17,37,:REM BAR 32
3790 DATA30,141,51,97,0,0,,40,200,61,126,0,0,
3800 DATA30,141,51,97,15,70,,40,200,61,126,15,70,
3810 DATA30,141,51,97,17,37,,40,200,61,126,17,37,
3820 DATA30,141,51,97,15,70,,40,200,61,126,15,70,:REM BAR 33
3830 DATA34,75,54,111,0,0,,38,126,61,126,0,0,
3840 DATA34,75,54,111,15,70,,38,126,61,126,15,70,
3850 DATA34,75,54,111,17,37,,38,126,61,126,17,37,
3860 DATA34,75,54,111,15,70,,38,126,61,126,15,70,:REM BAR 34
3870 DATA40,200,68,149,0,0,,40,200,68,149,0,0,
3880 DATA40,200,68,149,15,70,,40,200,68,149,15,70,
3890 DATA40,200,68,149,17,37,,40,200,68,149,17,37,
3900 DATA40,200,68,149,15,70,,40,200,68,149,15,70,:REM BAR 35
3910 DATA27,56,34,75,0,0,,27,56,34,75,0,0,
3920 DATA27,56,34,75,17,37,,27,56,34,75,17,37,
3930 DATA27,56,34,75,20,100,,27,56,34,75,20,100,
3940 DATA0,0,0,0,19,63,,30,141,0,0,19,63,"[133][129]IF ":REM BAR 36
3950 DATA0,0,25,177,10,60,HAP-,0,0,30,141,10,60,"PY "
3960 DATA15,70,25,177,10,60,LIT-,15,70,30,141,10,60,"TLE "
3970 DATA17,37,25,177,10,60,BLUE-,17,37,30,141,10,60,"BIRDS "
3980 DATA15,70,25,177,10,60,FLY ,15,70,30,141,10,60,"BE-":REM BAR 37
3990 DATA0,0,27,56,11,114,"[133][153]YOND ",0,0,30,141,11,114,"THE "
4000 DATA17,37,27,56,11,114,RAIN-,17,37,30,141,11,114,"BOW, "
4005 DATA700,700,700,700,700,700,SLOWER
4010 DATA20,100,27,56,11,114,WHY ,20,100,30,141,11,114,"OH "
4015 DATA700,700,700,700,700,700,SLOWER
4017 DATA700,700,700,700,700,700,SLOWER
4020 DATA27,56,34,75,19,63,WHY ,30,141,38,126,19,63,"CAN'T ":REM BAR 38
4030 DATA27,56,40,200,0,0,"I?",27,56,40,200,15,70,
4040 DATA27,56,40,200,17,37,,27,56,40,200,20,100,
4050 DATA34,75,40,200,22,227,,34,75,40,200,27,56,
4060 DATA34,75,40,200,30,141,,34,75,40,200,34,75,:REM BAR 39
4070 DATA61,126,81,161,51,97,,61,126,81,161,51,97,
4080 DATA61,126,81,161,51,97,,61,126,81,161,51,97,:REM BAR 40 -- END OF SONG
9990 DATA 999,999,999,999,999,999,THE END
50000 REM
50020 FORQ=54270TO54300:POKEQ,0:NEXT
50040 RETURN