home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / RAINBOW (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  14.5 KB  |  309 lines
  1. 10 REM PROGRAMMED BY BOB YEWCHUK
  2. 100 CLR:PRINTCHR$(8):PRINTCHR$(142):PRINTCHR$(155):GOSUB50000
  3. 120 BO=53280:BG=53281:POKEBO,0:POKEBG,0
  4. 140 VC=54296:REM VOLUME CONTROL
  5. 160 A1=54277:A2=54284:A3=54291
  6. 180 S1=54278:S2=54285:S3=54292
  7. 200 W1=54276:W2=54283:W3=54290
  8. 220 H1=54273:H2=54280:H3=54287
  9. 240 L1=54272:L2=54279:L3=54286
  10. 300 REM CONTROL STRINGS
  11. 320 CS$=CHR$(147):REM CLEAR SCREEN
  12. 340 L$=CHR$(17)+CHR$(17):REM PRINT TWO  LINES DOWN
  13. 360 N$="":REM NO CHARACTER
  14. 500 POKEVC,15
  15. 520 POKEA1,136:POKEA2,136:POKEA3,136
  16. 540 POKES1,136:POKES2,136:POKES3,136
  17. 560 POKEW1,33:POKEW2,33:POKEW3,33
  18. 600 REM "OVER THE RAINBOW"
  19. 1000 REM START OF SONG -- READ IN NOTES AND STRING DATA WITH CONTROL CHARS.
  20. 1020 REM PART ONE -- BLACK AND WHITE         BEGINNING OF SONG PLAYED SLOWLY
  21. 1060 PRINT"[147]        SOMEWHERE  OVER  THE"
  22. 1070 PRINT"       RAINBOW"
  23. 1080 PRINT"          BY  BOB  YEWCHUK"
  24. 1100 FORT=1TO2800:NEXT:PRINTCS$;L$
  25. 1120 W=300:REM TIME DELAY VARIABLE
  26. 1200 READ A,B,C,D,E,F,G$
  27. 1210 IFA=500THENW=W-100:GOTO1200
  28. 1220 IFA=600THENGOSUB1350:GOTO1200
  29. 1230 IFA=700THENW=W+100:GOTO1200
  30. 1240 IFA=800THENW=200:GOTO1200
  31. 1250 IFA=999THENGOSUB50000:GOSUB1350:END:PRINTCHR$(144):PRINTCHR$(9):END
  32. 1260 POKEH1,A:POKEL1,B:POKEH2,C:POKEL2,D:POKEH3,E:POKEL3,F
  33. 1270 POKEW1,33:POKEW2,33:POKEW3,33
  34. 1280 IFG$=""THEN1310
  35. 1290 IFASC(G$)=133THENPRINT:PRINT
  36. 1300 IFASC(G$)=137THENPRINTCS$;L$
  37. 1310 PRINTG$;
  38. 1320 FORT=1TOW:NEXT
  39. 1330 GOTO1200
  40. 1340 REM PART TWO -- IN COLOUR
  41. 1350 POKEH1,O:POKEL1,0:POKEH2,0:POKEL2,0:POKEH3,0:POKEL3,0
  42. 1360 PRINT"[147]":FORT=1TO43:POKEBO,T:POKEBG,T:FORQ=1TO15:NEXTQ,T
  43. 1370 W=150:RETURN
  44. 1500 REM START OF DATA
  45. 1520 DATA0,0,25,177,0,0,,0,0,30,141,0,0,,15,70,25,177,10,60,,15,70,30,141
  46. 1525 DATA10,60,
  47. 1530 DATA17,37,25,177,10,60,,17,37,30,141,10,60,,15,70,25,177,10,60,,15,70
  48. 1535 DATA30,141,10,60,:REM BAR 1
  49. 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,
  50. 1550 DATA20,100,27,56,11,114,,20,100,30,141,11,114,,19,63,27,56,11,114,,19,63
  51. 1555 DATA30,141,11,114,:REM BAR 2
  52. 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,
  53. 1570 DATA22,227,34,75,12,216,,22,227,34,75,12,216,,20,100,34,75,12,216,,20,100
  54. 1575 DATA34,75,12,216,:REM BAR 3
  55. 1580 DATA30,141,61,126,19,63,,30,141,45,198,19,63,,27,56,54,111,17,37,,27,56
  56. 1585 DATA40,200,17,37,
  57. 1590 DATA25,177,51,97,15,70,,25,177,38,126,15,70,,38,126,45,198,15,70,:REM BAR 4
  58. 1600 DATA15,70,0,0,0,0,,15,70,30,141,0,0,"WHEN "
  59. 1610 DATA15,70,34,75,0,0,ALL ,15,70,25,177,0,0,"THE "
  60. 1620 DATA15,70,30,141,10,60,WORLD ,15,70,30,141,10,60,
  61. 1630 DATA15,70,22,227,10,60,IS ,15,70,25,177,10,60,"A ":REM BAR 5
  62. 1640 DATA17,37,27,56,0,0,HOPE-,17,37,00,00,0,0,
  63. 1650 DATA17,37,27,56,0,0,"LESS ",17,37,00,00,0,0,
  64. 1660 DATA17,37,27,56,10,60,"JUM-",17,37,30,141,10,60,"[133]BLE "
  65. 1670 DATA17,37,20,100,10,60,AND ,17,37,22,227,10,60,"THE "
  66. 1680 DATA19,63,25,177,0,0,RAIN-,19,63,0,0,0,0,
  67. 1685 DATA19,63,25,177,0,0,DROPS ,19,63,0,0,0,0,
  68. 1690 DATA19,63,25,177,10,60,TUM-,19,63,30,141,10,60,"BLE "
  69. 1700 DATA19,63,19,63,10,60,ALL ,19,63,20,100,10,60,"A "
  70. 1710 DATA0,0,22,227,5,185,"[133]ROUND,",0,0,22,227,5,185,
  71. 1720 DATA20,100,22,227,5,185,,20,100,22,227,5,185,
  72. 1730 DATA20,100,22,227,7,163,,20,100,22,227,7,163,
  73. 1740 DATA19,63,22,227,7,163,,19,63,22,227,7,163,:REM BAR 8
  74. 1750 DATA0,0,25,177,5,25,"[133]HEAV-",7,163,25,177,5,25,
  75. 1760 DATA8,147,25,177,5,25,,8,147,25,177,5,25,
  76. 1770 DATA0,0,25,177,5,103,EN  ,8,147,25,177,5,103,
  77. 1780 DATA9,21,25,177,5,103,,9,21,25,177,5,103,:REM BAR 9
  78. 1785 DATA500,500,500,500,500,500,TRIPLET
  79. 1790 DATA20,100,25,177,8,147,O-,20,100,25,177,8,147,
  80. 1800 DATA20,100,30,141,8,147,PENS  ,20,100,30,141,8,147,
  81. 1810 DATA20,100,27,56,8,147,A  ,20,100,27,56,8,147,
  82. 1815 DATA700,700,700,700,700,700,SLOWER
  83. 1820 DATA21,154,25,177,7,163,MAG-,21,154,25,177,7,163,
  84. 1830 DATA21,154,22,227,7,163,IC  ,21,154,22,227,7,163,:REM  BAR 10
  85. 1840 DATA12,216,20,100,0,0,"LANE.",12,216,20,100,0,0,
  86. 1850 DATA12,216,20,100,7,163,,12,216,20,100,7,163,
  87. 1860 DATA0,0,20,100,12,216,,0,0,20,100,12,216,
  88. 1870 DATA0,0,20,100,17,37,,0,0,20,100,17,37,:REM BAR 11
  89. 1880 DATA30,141,61,126,19,63,,30,141,45,198,19,63,
  90. 1890 DATA27,56,54,111,17,37,,27,56,40,200,17,37,
  91. 1900 DATA25,177,51,97,15,70,,25,177,38,126,15,70,
  92. 1910 DATA22,227,45,198,13,156,,22,227,34,75,13,156,:REM BAR 12
  93. 1920 DATA15,70,0,0,0,0,,15,70,30,141,0,0,"[133]WHEN "
  94. 1930 DATA15,70,34,75,0,0,ALL ,15,70,25,177,0,0,"THE "
  95. 1940 DATA15,70,30,141,10,60,CLOUDS ,15,70,30,141,10,60,
  96. 1950 DATA15,70,22,227,10,60,DARK-,15,70,25,177,10,60,"EN ":REM BAR 13
  97. 1960 DATA17,37,27,56,0,0,UP ,17,37,00,00,0,0,
  98. 1970 DATA17,37,27,56,0,0,"THE ",17,37,00,00,0,0,
  99. 1980 DATA17,37,27,56,10,60,"SKY-",17,37,30,141,10,60,"[133]WAY "
  100. 1990 DATA17,37,20,100,10,60,THERE'S ,17,37,22,227,10,60,"A ":REM BAR 14
  101. 2000 DATA19,63,25,177,0,0,RAIN-,19,63,0,0,0,0,
  102. 2010 DATA19,63,25,177,0,0,BOW  ,19,63,0,0,0,0,
  103. 2020 DATA19,63,25,177,10,60,HIGH-,19,63,30,141,10,60,"WAY "
  104. 2030 DATA19,63,19,63,10,60,TO ,19,63,20,100,10,60,"BE "
  105. 2040 DATA0,0,22,227,5,185,"[133]FOUND,",0,0,22,227,5,185,
  106. 2050 DATA20,100,22,227,5,185,,20,100,22,227,5,185,
  107. 2060 DATA20,100,22,227,7,163,,20,100,22,227,7,163,
  108. 2070 DATA19,63,22,227,7,163,,19,63,22,227,7,163,:REM BAR 16
  109. 2080 DATA0,0,19,63,4,73,"[133]LEAD-",0,0,19,63,4,73,
  110. 2090 DATA12,216,19,63,4,73,,12,216,19,63,4,73,
  111. 2100 DATA12,216,20,100,8,147,ING ,12,216,20,100,8,147,
  112. 2110 DATA12,216,20,100,8,147,,12,216,20,100,8,147,:REM BAR 17
  113. 2120 DATA24,63,40,200,17,63,FROM ,24,63,40,200,17,63,
  114. 2130 DATA24,63,38,126,17,37,YOUR ,24,63,38,126,17,37,
  115. 2140 DATA25,177,34,75,11,114,WIN-,25,177,34,75,11,114,
  116. 2150 DATA25,177,38,126,5,185,DOW ,25,177,38,126,5,185,:REM BAR 18
  117. 2160 DATA0,0,30,141,7,163,PANE ,0,0,30,141,7,163,
  118. 2170 DATA20,100,30,141,7,163,,20,100,30,141,7,163,
  119. 2180 DATA20,100,30,141,15,70,,20,100,30,141,15,70,
  120. 2190 DATA20,100,30,141,17,37,,20,100,30,141,17,37,:REM BAR 19
  121. 2200 DATA0,0,0,0,7,163,,0,0,0,0,7,163,
  122. 2210 DATA17,37,0,0,7,163,"[133]TO ",20,100,0,0,7,163,"A "
  123. 2220 DATA25,177,0,0,7,163,PLACE ,30,141,0,0,7,163,"BE-"
  124. 2230 DATA38,126,0,0,7,163,HIND ,40,200,0,0,7,163,"THE ":REM BAR 20
  125. 2240 DATA0,0,30,141,7,163,SUN,0,0,30,141,7,163,
  126. 2250 DATA20,100,30,141,7,163,,20,100,30,141,7,163,
  127. 2260 DATA20,100,30,141,15,70,,20,100,30,141,15,70,
  128. 2270 DATA20,100,30,141,17,37,,20,100,30,141,17,37,:REM BAR 21
  129. 2290 DATA0,0,0,0,7,163,,0,0,0,0,7,163,
  130. 2300 DATA0,0,17,37,7,163,"[133]JUST ",0,0,20,100,7,163,"A "
  131. 2310 DATA0,0,25,177,7,163,STEP ,0,0,30,141,7,163,"BEY-"
  132. 2320 DATA28,214,38,126,12,32,OND ,23,214,40,200,12,32,"THE ":REM BAR 22
  133. 2330 DATA0,0,45,198,0,0,RAIN,27,56,45,198,22,227,
  134. 2340 DATA40,200,45,198,34,75,,40,200,45,198,34,75,
  135. 2350 DATA34,75,45,198,27,56,,51,97,45,198,40,200,:REM BAR 23
  136. 2360 DATA30,141,0,0,0,0,,30,141,40,200,45,198,
  137. 2370 DATA30,141,54,111,72,169,,30,141,54,111,72,169,
  138. 2380 DATA30,141,54,111,72,169,,30,141,54,111,72,169,
  139. 2390 DATA30,141,76,252,102,194,,30,141,76,252,102,194,:REM BAR 24
  140. 2400 DATA600,600,600,600,600,600,PART ONE
  141. 2410 DATA12,216,20,100,7,163,"[144]SOME-",12,216,20,100,7,163,
  142. 2420 DATA12,216,20,100,7,163,,12,216,20,100,7,163,
  143. 2430 DATA17,37,40,200,7,163,"WHERE ",17,37,40,200,7,163,
  144. 2440 DATA17,37,40,200,7,163,,17,37,40,200,7,163,:REM BAR 1
  145. 2450 DATA30,141,38,126,12,216,O-,30,141,38,126,12,216,
  146. 2460 DATA25,177,30,141,12,216,VER ,28,214,34,75,12,216,"THE "
  147. 2470 DATA30,141,38,126,12,216,"R[129]A[158]IN",30,141,38,126,12,216,
  148. 2480 DATA34,75,40,200,25,177,"[159]BO[156]W[158] ",34,75,40,200,25,177,:REM BAR 2
  149. 2490 DATA0,0,20,100,6,206,WAY ,0,0,20,100,6,206,
  150. 2500 DATA17,37,20,100,6,206,,17,37,20,100,6,206,
  151. 2510 DATA25,177,34,75,10,60,UP ,25,177,34,75,10,60,
  152. 2520 DATA24,63,34,75,10,60,,24,63,34,75,10,60,:REM BAR 3
  153. 2530 DATA22,227,30,141,12,216,"[133][153]HIGH,",22,227,30,141,12,216,
  154. 2540 DATA20,100,30,141,12,216,,20,100,30,141,12,216,
  155. 2550 DATA19,63,30,141,11,114,,19,63,30,141,11,114,
  156. 2560 DATA18,42,30,141,10,205,,18,42,30,141,10,205,:REM BAR 4
  157. 2670 DATA0,0,17,37,10,60,"THERE'S ",0,0,17,37,10,60,
  158. 2680 DATA11,114,17,37,10,60,,11,114,17,37,10,60,
  159. 2690 DATA0,0,27,56,11,114,A ,0,0,27,56,11,114,
  160. 2700 DATA20,100,27,56,11,114,,20,100,27,56,11,114,:REM BAR 5
  161. 2710 DATA20,100,25,177,7,163,LAND ,20,100,25,177,7,163,
  162. 2720 DATA17,37,20,100,7,163,THAT ,19,63,22,227,7,163,"I "
  163. 2730 DATA20,100,25,177,8,147,HEARD ,20,100,25,177,8,147,
  164. 2740 DATA20,100,27,56,8,147,OF ,20,100,27,56,8,147,:REM BAR 6
  165. 2750 DATA19,63,22,227,5,185,"[133][154]ONCE ",19,63,22,227,5,185,
  166. 2760 DATA0,0,19,63,5,185,IN ,0,0,20,100,5,185,"A "
  167. 2770 DATA17,37,22,227,13,156,LULL-,17,37,22,227,13,156,
  168. 2780 DATA19,63,15,70,25,177,A-,19,63,15,70,25,177,:REM BAR 7
  169. 2790 DATA15,70,20,100,12,216,BY.,15,70,20,100,12,216,
  170. 2800 DATA34,75,40,200,10,60,,30,141,38,126,10,60,
  171. 2810 DATA27,56,34,75,11,114,,27,56,34,75,11,114,
  172. 2820 DATA30,141,51,97,15,70,,30,141,51,97,15,70,:REM BAR 8
  173. 2830 DATA12,216,20,100,7,163,"[133]SOME-",12,216,20,100,7,163,
  174. 2840 DATA12,216,20,100,7,163,,12,216,20,100,7,163,
  175. 2850 DATA17,37,40,200,7,163,"WHERE ",17,37,40,200,7,163,
  176. 2860 DATA17,37,40,200,7,163,,17,37,40,200,7,163,:REM BAR 9
  177. 2870 DATA30,141,38,126,12,216,O-,30,141,38,126,12,216,
  178. 2880 DATA25,177,30,141,12,216,VER ,28,214,34,75,12,216,"THE "
  179. 2890 DATA30,141,38,126,12,216,"R[129]A[158]IN",30,141,38,126,12,216,
  180. 2900 DATA34,75,40,200,25,177,"[159]BO[156]W[158] ",34,75,40,200,25,177,:REM BAR 10
  181. 2910 DATA0,0,20,100,6,206,SKIES ,0,0,20,100,6,206,
  182. 2920 DATA17,37,20,100,6,206,,17,37,20,100,6,206,
  183. 2930 DATA25,177,34,75,10,60,ARE ,25,177,34,75,10,60,
  184. 2940 DATA24,63,34,75,10,60,,24,63,34,75,10,60,:REM BAR 11
  185. 2950 DATA22,227,30,141,12,216,"[133]BLUE[154],",22,227,30,141,12,216,
  186. 2960 DATA20,100,30,141,12,216,,20,100,30,141,12,216,
  187. 2970 DATA19,63,30,141,11,114,,19,63,30,141,11,114,
  188. 2980 DATA18,42,30,141,10,205,,18,42,30,141,10,205,:REM BAR 12
  189. 2990 DATA0,0,17,37,10,60,"[156]AND ",0,0,17,37,10,60,
  190. 3000 DATA11,114,17,37,10,60,,11,114,17,37,10,60,
  191. 3010 DATA0,0,27,56,11,114,THE ,0,0,27,56,11,114,
  192. 3020 DATA20,100,27,56,11,114,,20,100,27,56,11,114,:REM BAR 13
  193. 3030 DATA20,100,25,177,7,163,DREAMS ,20,100,25,177,7,163,
  194. 3040 DATA17,37,20,100,7,163,THAT ,19,63,22,227,7,163,"YOU "
  195. 3050 DATA20,100,25,177,8,147,DARE ,20,100,25,177,8,147,
  196. 3060 DATA20,100,27,56,8,147,TO ,20,100,27,56,8,147,:REM BAR 14
  197. 3070 DATA19,63,22,227,5,185,"[133]DREAM ",19,63,22,227,5,185,
  198. 3080 DATA0,0,19,63,5,185,REAL-,0,0,20,100,5,185,"LY "
  199. 3090 DATA17,37,22,227,13,156,DO ,17,37,22,227,13,156,
  200. 3100 DATA19,63,15,70,25,177,COME ,19,63,15,70,25,177,:REM BAR 15
  201. 3110 DATA0,0,20,100,5,25,"TRUE.",0,0,20,100,5,25,
  202. 3120 DATA15,70,20,100,5,25,,15,70,20,100,5,25,
  203. 3130 DATA15,70,20,100,3,210,,15,70,20,100,3,210,
  204. 3140 DATA0,0,0,0,7,163,,0,0,30,141,7,163,"[137][153]SOME ":REM BAR 16
  205. 3145 DATA700,700,700,700,700,700,DREAMILY
  206. 3150 DATA0,0,25,177,0,0,DAY ,0,0,30,141,0,0,"I'LL "
  207. 3160 DATA15,70,25,177,10,60,WISH ,15,70,30,141,10,60,"UP-"
  208. 3170 DATA17,37,25,177,10,60,ON ,17,37,30,141,10,60,"A "
  209. 3180 DATA15,70,25,177,10,60,STAR ,15,70,30,141,10,60,"AND":REM BAR 17
  210. 3190 DATA0,0,27,56,0,0,"[133][158]WAKE ",0,0,30,141,0,0,"UP "
  211. 3200 DATA17,37,27,56,11,114,WHERE ,17,37,30,141,11,114,"THE "
  212. 3210 DATA20,100,27,56,11,114,CLOUDS ,20,100,30,141,11,114,"ARE "
  213. 3220 DATA19,63,27,56,11,114,FAR ,19,63,30,141,11,114,"BE-":REM BAR 18
  214. 3230 DATA0,0,34,75,0,0,"[133][129]HIND ",0,0,34,75,0,0,
  215. 3240 DATA19,63,34,75,7,163,,19,63,34,75,7,163,
  216. 3250 DATA22,224,34,75,12,216,"ME,",22,224,34,75,12,216,
  217. 3260 DATA20,100,34,75,12,216,,20,100,34,75,12,216,:REM BAR 19
  218. 3270 DATA0,0,61,126,10,60,,0,0,38,126,10,60,
  219. 3280 DATA17,37,54,111,10,60,,17,37,34,75,10,60,
  220. 3290 DATA20,100,51,97,10,60,,20,100,30,141,10,60,
  221. 3300 DATA19,63,45,198,10,60,,19,63,30,141,10,60,"[133][154]WHERE ":REM BAR 20
  222. 3310 DATA0,0,25,177,0,0,TROUB-,0,0,30,141,0,0,"BLES "
  223. 3320 DATA15,70,25,177,10,60,MELT ,15,70,30,141,10,60,"LIKE "
  224. 3330 DATA17,37,25,177,10,60,LEM-,17,37,30,141,10,60,"ON "
  225. 3340 DATA15,70,25,177,10,60,DROPS ,15,70,30,141,10,60,"[133][145]A-":REM BAR 21
  226. 3350 DATA0,0,28,214,0,0,WAY ,0,0,34,75,0,0,"A-"
  227. 3360 DATA14,107,28,214,0,0,BOVE ,14,107,34,75,0,0,"THE "
  228. 3370 DATA22,227,28,214,17,37,CHIM-,22,227,34,75,17,37,"NEY "
  229. 3380 DATA20,100,28,214,17,37,TOPS ,20,100,34,75,17,37,"THAT'S":REM BAR 22
  230. 3390 DATA22,227,38,126,19,63,"[133]WHERE ",22,227,38,126,19,63,
  231. 3400 DATA22,227,38,126,17,37,,22,227,38,126,17,37,
  232. 3410 DATA20,100,38,126,15,70,YOU'LL ,20,100,38,126,15,70,
  233. 3420 DATA20,100,38,126,14,107,,20,100,38,126,14,107,:REM BAR 23
  234. 3430 DATA22,227,45,198,13,156,FIND ,22,227,45,198,13,156,
  235. 3440 DATA22,227,45,198,13,156,,22,227,45,198,13,156,
  236. 3450 DATA24,63,34,75,14,107,ME.,24,63,34,75,14,107,
  237. 3460 DATA24,63,34,75,14,107,,24,63,34,75,14,107,:REM BAR 24
  238. 3465 DATA800,800,800,800,800,800,CHORUS
  239. 3470 DATA12,216,20,100,7,163,"[137][159]SOME-",12,216,20,100,7,163,
  240. 3480 DATA12,216,20,100,7,163,,12,216,20,100,7,163,
  241. 3490 DATA17,37,40,200,7,163,"WHERE ",17,37,40,200,7,163,
  242. 3500 DATA17,37,40,200,7,163,,17,37,40,200,7,163,:REM BAR 25
  243. 3510 DATA30,141,38,126,12,216,O-,30,141,38,126,12,216,
  244. 3520 DATA25,177,30,141,12,216,VER ,28,214,34,75,12,216,"THE "
  245. 3530 DATA30,141,38,126,12,216,"R[129]A[158]IN",30,141,38,126,12,216,
  246. 3540 DATA34,75,40,200,25,177,"[159]BO[156]W[158] ",34,75,40,200,25,177,:REM BAR 26
  247. 3550 DATA0,0,20,100,6,206,"BLUE ",0,0,20,100,6,206,
  248. 3560 DATA17,37,20,100,6,206,,17,37,20,100,6,206,
  249. 3570 DATA25,177,34,75,10,60,BIRDS ,25,177,34,75,10,60,
  250. 3580 DATA24,63,34,75,10,60,,24,63,34,75,10,60,:REM BAR 27
  251. 3590 DATA22,227,30,141,12,216,"[133][153][145]FLY,",22,227,30,141,12,216,
  252. 3600 DATA20,100,30,141,12,216,,20,100,30,141,12,216,
  253. 3610 DATA19,63,30,141,11,114,,19,63,30,141,11,114,
  254. 3620 DATA18,42,30,141,10,205,,18,42,30,141,10,205,:REM BAR 28
  255. 3630 DATA0,0,17,37,10,60,"BIRDS ",0,0,17,37,10,60,
  256. 3640 DATA11,114,17,37,10,60,,11,114,17,37,10,60,
  257. 3650 DATA0,0,27,56,11,114,FLY ,0,0,27,56,11,114,
  258. 3660 DATA20,100,27,56,11,114,,20,100,27,56,11,114,:REM BAR 29
  259. 3670 DATA20,100,25,177,7,163,O-,20,100,25,177,7,163,
  260. 3680 DATA17,37,20,100,7,163,VER ,19,63,22,227,7,163,"THE "
  261. 3690 DATA20,100,25,177,8,147,"R[129]A[158]IN-",20,100,25,177,8,147,
  262. 3700 DATA20,100,27,56,8,147,"[159]BO[156]W ",20,100,27,56,8,147,:REM BAR 30
  263. 3710 DATA19,63,22,227,5,185,"[133][154]WHY ",19,63,22,227,5,185,
  264. 3720 DATA0,0,19,63,5,185,THEN ,0,0,20,100,5,185,"OH "
  265. 3730 DATA17,37,22,227,13,156,WHY ,17,37,22,227,13,156,
  266. 3740 DATA19,63,15,70,25,177,CAN'T ,19,63,15,70,25,177,:REM BAR 31
  267. 3750 DATA15,70,20,100,0,0,"I?",15,70,20,100,7,163,
  268. 3760 DATA15,70,20,100,8,147,,15,70,20,100,10,60,
  269. 3770 DATA15,70,20,100,11,114,,15,70,20,100,12,216,
  270. 3775 DATA700,700,700,700,700,700,SLOWER
  271. 3780 DATA0,0,0,0,15,70,,40,200,61,126,17,37,:REM BAR 32
  272. 3790 DATA30,141,51,97,0,0,,40,200,61,126,0,0,
  273. 3800 DATA30,141,51,97,15,70,,40,200,61,126,15,70,
  274. 3810 DATA30,141,51,97,17,37,,40,200,61,126,17,37,
  275. 3820 DATA30,141,51,97,15,70,,40,200,61,126,15,70,:REM BAR 33
  276. 3830 DATA34,75,54,111,0,0,,38,126,61,126,0,0,
  277. 3840 DATA34,75,54,111,15,70,,38,126,61,126,15,70,
  278. 3850 DATA34,75,54,111,17,37,,38,126,61,126,17,37,
  279. 3860 DATA34,75,54,111,15,70,,38,126,61,126,15,70,:REM BAR 34
  280. 3870 DATA40,200,68,149,0,0,,40,200,68,149,0,0,
  281. 3880 DATA40,200,68,149,15,70,,40,200,68,149,15,70,
  282. 3890 DATA40,200,68,149,17,37,,40,200,68,149,17,37,
  283. 3900 DATA40,200,68,149,15,70,,40,200,68,149,15,70,:REM BAR 35
  284. 3910 DATA27,56,34,75,0,0,,27,56,34,75,0,0,
  285. 3920 DATA27,56,34,75,17,37,,27,56,34,75,17,37,
  286. 3930 DATA27,56,34,75,20,100,,27,56,34,75,20,100,
  287. 3940 DATA0,0,0,0,19,63,,30,141,0,0,19,63,"[133][129]IF ":REM BAR 36
  288. 3950 DATA0,0,25,177,10,60,HAP-,0,0,30,141,10,60,"PY "
  289. 3960 DATA15,70,25,177,10,60,LIT-,15,70,30,141,10,60,"TLE "
  290. 3970 DATA17,37,25,177,10,60,BLUE-,17,37,30,141,10,60,"BIRDS "
  291. 3980 DATA15,70,25,177,10,60,FLY ,15,70,30,141,10,60,"BE-":REM BAR 37
  292. 3990 DATA0,0,27,56,11,114,"[133][153]YOND ",0,0,30,141,11,114,"THE "
  293. 4000 DATA17,37,27,56,11,114,RAIN-,17,37,30,141,11,114,"BOW, "
  294. 4005 DATA700,700,700,700,700,700,SLOWER
  295. 4010 DATA20,100,27,56,11,114,WHY ,20,100,30,141,11,114,"OH "
  296. 4015 DATA700,700,700,700,700,700,SLOWER
  297. 4017 DATA700,700,700,700,700,700,SLOWER
  298. 4020 DATA27,56,34,75,19,63,WHY ,30,141,38,126,19,63,"CAN'T ":REM BAR 38
  299. 4030 DATA27,56,40,200,0,0,"I?",27,56,40,200,15,70,
  300. 4040 DATA27,56,40,200,17,37,,27,56,40,200,20,100,
  301. 4050 DATA34,75,40,200,22,227,,34,75,40,200,27,56,
  302. 4060 DATA34,75,40,200,30,141,,34,75,40,200,34,75,:REM BAR 39
  303. 4070 DATA61,126,81,161,51,97,,61,126,81,161,51,97,
  304. 4080 DATA61,126,81,161,51,97,,61,126,81,161,51,97,:REM BAR 40 -- END OF SONG
  305. 9990 DATA 999,999,999,999,999,999,THE END
  306. 50000 REM
  307. 50020 FORQ=54270TO54300:POKEQ,0:NEXT
  308. 50040 RETURN
  309.