home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 8 / 008.d81 / amazing grace (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  8.3 KB  |  234 lines
  1. 10 ifz>0then63001
  2. 100 rem:*********************************
  3. 200 rem:       amazing grace            *
  4. 300 rem:  (c) 1984 by tom jeffries      *
  5. 400 rem:                                *
  6. 500 rem:*********************************
  7. 600 data8,71,6,0,13,1,1,8,167,6,0,13,1,1,8,12,7,0,13,1,1,8,119,7,0,13,1,1
  8. 700 data8,233,7,0,13,1,1
  9. 800 data8,97,8,0,13,0,1,8,143,12,0,13,1,1,9,239,19,10,195,16,0
  10. 900 data13,2,9,31,21,13,0,1,8,143,12,0,13,1,9,239,19,10,195,16
  11. 1000 data0,13,2,9,31,21,13,0,1,8,143,12,0,13,1,1
  12. 1100 data8,97,8,0,13,0,1,8,143,12,0,13,1,1,9,239,19,10,195,16,0
  13. 1200 data13,2,9,31,21,13,0,1,8,143,12,0,13,1,9,239,19,10,195,16
  14. 1300 data2,0,13,2,9,31,21,13,0,1,8,143,12,0,13,1,1,11,135,33
  15. 1400 data8,97,8,0,13,0,1,8,143,12,0,13,1,1,9,239,19,10,195,16,0
  16. 1500 data13,2,9,31,21,13,0,1,8,143,12,0,13,1,9,239,19,10,195,16,11,62,42
  17. 1600 data0,13,2,9,31,21,13,1,13,3,1,8,143,12,12,135,33,0,13,4,1,8,97,8
  18. 1700 data11,62,42,0,13,0,1,8,143,12,0,13,1,1,9,239,19,10,195,16,0
  19. 1800 data13,2,9,31,21,13,0,1,8,143,12,0,13,1,1,9,209,18,10,210,15,12,162,37
  20. 1900 data0,13,0,1,8,143,12,0,13,1,1,8,48,11,12,135,33
  21. 2000 data0,13,0,1,8,195,16,0,13,1,1,9,49,28,10,96,22,0,13,0,1
  22. 2100 data8,195,16,0,13,1,1,9,96,22,10,48,11,12,156,26,0,13,1,11,49,28,13,1
  23. 2200 data11,135,33,9,239,19,13,1,1,9,31,21,10,97,8,12,30,25
  24. 2300 data0,13,0,1,8,143,12,0,13,1,1,9,239,19,10,195,16,0,13,2,9,31,21,13,0,3
  25. 2400 data1,8,143,12,0,13,1,1,9,239,19,10,195,16,2,0,13,2,9,31,21,13,0,1
  26. 2500 data8,143,12,0,13,1,1
  27. 2600 data8,97,8,11,135,33,0,13,0,1,8,143,12,0,13,1,1,9,239,19,10,195,16,0
  28. 2700 data13,2,9,31,21,13,0,1,8,143,12,0,13,1,9,239,19,10,195,16,11,62,42
  29. 2800 data0,13,2,9,31,21,13,1,13,3,1,8,143,12,12,135,33,0,13,1,1,8,97,8
  30. 2900 data11,62,42,0,13,0,1,8,143,12,0,13,1,1,9,239,19,10,195,16,0
  31. 3000 data13,2,9,31,21,13,1,13,3,1,8,143,12,0,13,1,1,9,195,16,10,218,11,12,162,37
  32. 3100 data0,13,0,1,8,24,14,0,13,1,1,8,143,12,11,60,50
  33. 3200 data0,13,0,1,8,30,25,0,13,1,1,9,165,31,10,96,22,0,13,0,1,8,30,25
  34. 3300 data0,13,1,1,9,165,31,10,96,22,0,13,0,1,8,30,25,0,13,1,1
  35. 3400 data9,239,14,10,143,12,0,13,1,9,210,15,13,1,9,195,16,13,1,3
  36. 3500 data9,195,17,13,1,9,209,18,13,1,9,96,22,13,1,12,62,42,9,30,25,2,7,13,0,13,1
  37. 3600 data1,9,195,16,10,97,8,11,60,50,0,13,0,1,8,143,12,0,13,1,1
  38. 3700 data9,239,19,10,195,16,0,13,2,9,31,21,13,1,13,3,1,8,143,12,12,62,42
  39. 3800 data0,13,1,1
  40. 3900 data9,239,19,10,195,16,11,60,50,0,13,2,9,31,21,13,1,13,3,1,8,143,12
  41. 4000 data12,62,42,0
  42. 4100 data13,1,1,8,143,10,12,135,33,0,13,0,1,8,24,14,0,13,1,1
  43. 4200 data9,31,21,10,195,16,0,13,0,1,8,143,10,0,13,1,1
  44. 4300 data9,31,21,10,195,16,12,30,25,0,13,0,1,8,143,10,0,13,1,1
  45. 4400 data8,48,11,11,156,26,0,13,1,11,49,28,13,1,1,11,135,33,0,13,1,1
  46. 4500 data9,96,22,10,24,14,11,223,39,0,13,0,1,12,162,37,0,13,1,1,11,223,39,0,13,0
  47. 4600 data1,12,156,26,0,13,3,11,49,28,13,3,1,9,31,21,10,97,8,12,30,25
  48. 4700 data0,13,0,1,8,143,12,0,13,1,1,9,239,19,10,195,16,0,13,2,9,31,21,13,0,3
  49. 4800 data1,8,143,12,0,13,1,1,9,239,19,10,195,16,2,0,13,2,9,31,21,13,0,1
  50. 4900 data8,143,12,0,13,1,1
  51. 5000 data8,97,8,11,135,33,0,13,0,1,8,143,12,0,13,1,1,9,239,19,10,195,16,0
  52. 5100 data13,2,9,31,21,13,0,1,8,143,12,0,13,1,9,239,19,10,195,16,11,62,42
  53. 5200 data0,13,2,9,31,21,13,1,13,3,1,8,143,12,12,135,33,0,13,1,1,8,71,6
  54. 5300 data11,62,42,0,13,0,1,8,195,16,0,13,1,1,9,239,19,10,195,16,0
  55. 5400 data13,2,9,31,21,13,0,1,8,143,12,0,13,1,1,9,209,18,10,210,15,12,162,37
  56. 5500 data0,13,0,1,8,143,12,0,13,1,1,8,48,11,12,135,33
  57. 5600 data0,13,0,1,13,2,8,195,16,0,13,2,13,1,1,9,49,28,10,96,22,0,13,0,13,2,1
  58. 5700 data8,195,16,0,13,4,13,3,1,9,49,28,10,96,22,0,13,0,13,3,1,8,195,16,0,13,1
  59. 5800 data13,3,1,13,2
  60. 5900 data8,97,8,0,13,0,13,4,1,8,143,12,0,13,0,1,9,31,21,10,195,16,0,13,0,13,0
  61. 6000 data8,143,12,0,13,0,13,2,1,9,239,19,10,48,11,0,13,0,13,0,13,1,1
  62. 6100 data8,195,16,0,13,0,13,0,13,3,1,9,31,21,10,97,8,0,13,0,13,0,13,0,13,0,13,0
  63. 6200 data13,0,13,0
  64. 6300 data13,0,13,0,13,0,13,0,13,0,13,0,3,1,16,256
  65. 6400 ifa=0thena=1:load"ag ml",8,1
  66. 6402 q=0:print"[147][144][200]old on [201]'m composing..."
  67. 6500 fora=49920to53247:readd:print".";: if d>255thengosub40000:goto8100
  68. 6600 pokea,d:q=q+1:ifq>39thenprint"[145]";:forw=1to40:print" ";:next:print:print"[145][145]";:q=0
  69. 6650 pokea,d
  70. 6660 nexta
  71. 6700 data209,70,18,25,1,30,150,25,31,1,165,26,31,25,-1,30,26,25,31,1
  72. 6800 data165,150,31,28,-1,49,70,28,25,-1
  73. 6900 data30,150,25,21,-1,31,70,21,18,-1
  74. 7000 data209,150,18,18,0,209,70,18,25,1
  75. 7100 data30,150,25,31,1,165,26,31,25,-1,30,26,25,31,1
  76. 7200 data165,150,31,28,-1,49,70,28,37,1
  77. 7300 data162,380,37,31,-1,165,70,31,37,1
  78. 7400 data162,110,37,31,-1,165,26,31,37,1,162,26,37,31,-1,165,26,31,25,-1
  79. 7500 data30,150,25,18,-1,209,70,18,21,1
  80. 7600 data31,110,21,25,1,30,30,25,25,0,30,26,25,21,-1,31,26,21,18,-1
  81. 7700 data209,150,18,18,0,209,70,18,25,1
  82. 7800 data30,150,25,31,1,165,26,31,25,-1,30,26,25,31,1
  83. 7900 data165,150,31,28,-1,49,70,28,25,-1
  84. 8000 data30,230
  85. 8100 s=54272:forl=stos+24:pokel,0:next:pokes+24,31:pokes+23,1:poke992,65
  86. 8200 poke993,17:poke994,21:pokes+15,18:pokes+10,8
  87. 8300 pokes+5,149:pokes+12,150:pokes+19,154:pokes+6,198:pokes+13,213:pokes+20,244
  88. 8400 z=0:pokes+22,200:y=9
  89. 8500 pokes+3,2:pokes,209:pokes+1,18:pokes+7,179:pokes+8,18:fort=1to900:next
  90. 8600 reada:readb:pokes,a:pokes+7,(a-19):pokes+14,(a+19):sys49696:fort=1tob*y
  91. 8700 next
  92. 8800 readc:readd:reade:sys49717:fort=ctodstepe:pokes+1,t:pokes+8,t:pokes+15,t
  93. 8900 next:z=z+1:ifz=34thenpokes+6,248:goto9100
  94. 9000 goto8600
  95. 9100 reada:readb:pokes,a:pokes+7,(a-19):pokes+14,(a+19):sys49696:fort=1tob*y
  96. 9200 next
  97. 9300 pokes+11,16:pokes+18,20:fort=1to100:next:pokes+7,62:pokes+8,42:pokes+18,0
  98. 9400 pokes+14,135:pokes+15,33:poke994,17:poke995,17:fort=1to50:next
  99. 9500 sys49696:fort=1to2000:next
  100. 9600 pokes+11,16:pokes+18,16:pokes+7,166:pokes+8,37:pokes+14,110:pokes+15,31
  101. 9700 fort=1to50:next
  102. 9800 sys49696:fort=1to1500:next:sys49717:goto9900
  103. 9900 pokes+5,68:pokes+6,100
  104. 10000 pokes+12,32:pokes+13,246
  105. 10100 pokes+19,32:pokes+20,234
  106. 10200 pokes+10,6:pokes+17,8:pokes+22,50:pokes+23,4
  107. 10300 readh1:readl1:readh2:readl2:readh3:readl3
  108. 10400 ifh1>255thensys49717:goto20500
  109. 10500 ifh1>1goto10700
  110. 10600 pokes+4,64:pokes+11,16:pokes+18,64:fort=1to280:next:goto10300
  111. 10700 pokes,l1:pokes+1,h1:pokes+7,l2:pokes+8,h2:pokes+14,l3:pokes+15,h3
  112. 10800 pokes+4,65:pokes+11,17:pokes+18,65
  113. 10900 fort=1to280:next:goto10300
  114. 11000 data23,181,0,0,0,0
  115. 11100 data23,181,0,0,0,0
  116. 11200 data31,168,19,225,15,210
  117. 11300 data31,168,19,225,15,210
  118. 11400 data31,168,19,225,7,233
  119. 11500 data31,168,19,225,7,233
  120. 11600 data39,215,31,168,11,218
  121. 11700 data31,168,19,225,11,218
  122. 11800 data39,215,31,168,15,210
  123. 11900 data39,215,31,168,15,210
  124. 12000 data39,215,31,168,7,223
  125. 12100 data39,215,31,168,7,223
  126. 12200 data35,134,28,49,8,225
  127. 12300 data35,134,28,49,8,225
  128. 12400 data31,165,26,156,10,143
  129. 12500 data31,165,26,156,10,143
  130. 12600 data31,165,26,156,5,71
  131. 12700 data31,165,26,156,5,71
  132. 12800 data26,156,21,31,7,119
  133. 12900 data26,156,21,31,7,110
  134. 13000 data23,181,19,225,7,233
  135. 13100 data23,181,19,225,7,233
  136. 13200 data23,181,19,225,3,244
  137. 13300 data0,0,0,0,0,0
  138. 13400 data23,181,0,0,0,0
  139. 13500 data23,181,0,0,0,0
  140. 13600 data31,165,19,225,15,210
  141. 13700 data31,165,19,225,7,233
  142. 13800 data31,165,19,225,9,247
  143. 13900 data31,165,19,225,11,218
  144. 14000 data39,215,31,165,15,210
  145. 14100 data31,165,19,225,15,210
  146. 14200 data39,215,31,165,7,233
  147. 14300 data39,215,31,165,7,233
  148. 14400 data39,215,31,165,11,218
  149. 14500 data39,215,31,165,11,218
  150. 14600 data35,134,31,165,11,48
  151. 14700 data35,134,31,165,11,48
  152. 14800 data47,107,29,208,10,143
  153. 14900 data47,107,29,208,10,143
  154. 15000 data47,107,29,208,10,143
  155. 15100 data47,107,29,208,10,143
  156. 15200 data47,107,29,208,8,225
  157. 15300 data47,107,29,208,8,225
  158. 15400 data47,107,29,208,5,237
  159. 15500 data47,107,29,208,5,237
  160. 15600 data47,107,29,208,5,237
  161. 15700 data0,0,0,0,0,0
  162. 15800 data39,223,31,165,0,0
  163. 15900 data39,223,31,165,0,0
  164. 16000 data47,107,39,223,15,210
  165. 16100 data47,107,39,223,15,210
  166. 16200 data47,107,39,223,7,233
  167. 16300 data39,215,31,165,7,233
  168. 16400 data47,107,39,223,11,218
  169. 16500 data39,215,31,165,11,218
  170. 16600 data31,168,19,225,13,78
  171. 16700 data31,168,19,225,13,78
  172. 16800 data31,168,19,225,6,167
  173. 16900 data31,168,19,225,6,167
  174. 17000 data23,181,19,225,0,0
  175. 17100 data23,181,19,239,0,0
  176. 17200 data26,156,21,31,10,143
  177. 17300 data26,156,21,31,10,143
  178. 17400 data26,156,21,31,5,71
  179. 17500 data31,155,26,156,5,71
  180. 17600 data31,175,26,156,10,143
  181. 17700 data26,156,21,31,10,143
  182. 17800 data23,181,19,225,15,210
  183. 17900 data23,181,19,225,15,210
  184. 18000 data23,181,19,225,7,233
  185. 18100 data0,0,0,0,0,0
  186. 18200 data23,181,0,0,0,0
  187. 18300 data23,181,0,0,0,0
  188. 18400 data31,168,19,225,15,210
  189. 18500 data31,168,19,225,7,233
  190. 18600 data31,168,19,225,9,247
  191. 18700 data31,168,19,225,11,218
  192. 18800 data39,223,31,165,15,210
  193. 18900 data31,168,19,225,15,210
  194. 19000 data39,215,31,165,7,233
  195. 19100 data39,215,31,165,9,247
  196. 19200 data39,215,31,165,11,218
  197. 19300 data39,215,31,165,15,210
  198. 19400 data35,134,21,31,14,239
  199. 19500 data35,134,21,31,11,218
  200. 19600 data31,168,19,225,15,210
  201. 19700 data31,168,19,225,15,210
  202. 19800 data31,168,19,225,11,218
  203. 19900 data31,168,19,225,11,218
  204. 20000 data31,168,19,225,9,245
  205. 20100 data31,168,19,225,9,245
  206. 20200 data31,168,19,225,7,233
  207. 20300 data31,168,19,225,7,233
  208. 20400 data256,0,0,0,0,0,0,0
  209. 20500 pokes+22,170:pokes+23,244
  210. 20600 poke251,0:poke252,195:poke820,65:poke821,65:poke822,33:pokes+3,2
  211. 20700 pokes+5,64:pokes+12,37:pokes+19,37:pokes+6,244:pokes+13,148:pokes+20,148
  212. 20800 pokes,30:pokes+1,25:poke1020,30:poke1021,25:poke823,240:poke824,120
  213. 20900 poke825,40:poke826,75:poke827,105
  214. 21000 pokes+10,1:pokes+9,100:fort=1to100:next
  215. 21100 sys49152:fort=1to1000:next:pokes+24,0
  216. 30000 : rem    do again
  217. 30002 print"[147][215]ant to play it again, [211]am?";
  218. 30004 poke198,0:wait198,1:getk$
  219. 30006 ifk$<>"y"andk$<>"n"then30004
  220. 30008 ifk$="y"thenclr:restore:goto6402
  221. 30010 ifk$="n"then63000
  222. 30015 goto30004
  223. 40000 print"[147]    [193]nd now,":print:print
  224. 40002 print"              we present":print
  225. 40006 print
  226. 40008 print"             [193][205][193][218][201][206][199][160][199][210][193][195][197]":print:print
  227. 40012 print"              arranged by":print
  228. 40014 print:print
  229. 40016 print"              [212]om [202]effries"
  230. 40018 print
  231. 40020 return
  232. 63000 print"load"chr$(34)"hello"chr$(34)",8":print"run"
  233. 63002 poke631,13:poke632,13:poke198,2:end
  234.