home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 125 / 125.d81 / hallow-c (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  180 lines
  1. 10 dv=peek(186):ifdv<8thendv=8
  2. 100 rem - hallow-c (3rd section)
  3. 200 poke53280,0:poke53281,0:printchr$(142)"[147]"
  4. 210 sys51721,1,1:poke55375,0
  5. 215 restore:v=53248:gosub2000
  6. 220 poke2045,201:rem - moon
  7. 230 pokev+44,7:pokev+16,32:pokev+10,30:pokev+11,70:pokev+27,32:pokev+21,32
  8. 300 :
  9. 305 rem - h. house sequence
  10. 310 gosub2100
  11. 315 gosub1160:rem - wind
  12. 320 gosub1260:rem - ghost descending
  13. 325 gosub1160:rem - wind
  14. 330 gosub1310:rem - witch fly right
  15. 340 gosub1350:rem - bat flying left
  16. 350 gosub1160:rem - wind
  17. 360 gosub1410:rem - bat flying
  18. 370 gosub1210:rem - lightning
  19. 375 fort=1to2000:next
  20. 380 gosub1160:rem - wind
  21. 385 gosub1210:rem - lightning
  22. 390 gosub1460:rem - bat flying out
  23. 395 gosub1510:rem - witch leaves
  24. 400 gosub1550:rem - ghost leaves
  25. 410 gosub1210:pokev+21,0:pokev+16,0:pokev+27,0
  26. 500 :print"[147]":poke214,20:print"[158]lightning struck the house!
  27. 850 [153]"stop"
  28. 855 [153]"new"
  29. 860 [153]"load"[199](34)"0:hallow-d"[199](34)","dv
  30. 865 [153]"run"
  31. 870 [153]"":[151]631,13:[151]632,13:[151]633,13:[151]198,3
  32. 890 [128]
  33. 1100 [143] *** subroutines ***
  34. 1105 [143] - screen wiper
  35. 1110 c1[178]23:c2[178]19:c3[178]24:c4[178]39:c5[178]59903
  36. 1115 [129]j[178]0[164]c1:c2$[178]c2$[170][199](32)[170][199](157)[170][199](17):[130]:c2$[178]c2$[170][199](145)
  37. 1120 [129]j[178]0[164]c2:[139]j[178]0[167][151]781,c3:[158]c5
  38. 1125 [153]"";[163]j);c2$:[153]""[163]c4[171]j);c2$
  39. 1130 [130]:[153]"load";:c2$[178]""
  40. 1135 [142]
  41. 1150 :
  42. 1155 [143] - sound of wind
  43. 1160 [129]l[178]54272[164]54296:[151]l,0:[130]
  44. 1165 s[178]54272:[151]s[170]24,15
  45. 1170 [151]s[170]5,255:[151]s[170]12,255:[151]s[170]19,255
  46. 1175 [151]s,255:[151]s[170]1,254:[151]s[170]7,98:[151]s[170]8,5:[151]s[170]14,90:[151]s[170]15,6
  47. 1180 [151]s[170]3,6:[151]s[170]2,1:[151]s[170]10,2:[151]s[170]9,12:[151]s[170]17,8:[151]s[170]16,0
  48. 1185 [151]s[170]4,129:[151]s[170]11,129:[151]s[170]18,129
  49. 1190 [142]
  50. 1200 :
  51. 1205 [143] - lightning & thunder
  52. 1210 [129]l[178]54272[164]54296:[151]l,0:[130]
  53. 1215 s[178]54272:[151]s[170]24,15
  54. 1220 [129]i[178]1[164]5:[151]53281,1
  55. 1225 [129]t[178]1[164]50:[130]
  56. 1230 [151]53281,0
  57. 1235 [129]t[178]1[164]50:[130]
  58. 1240 [151]53281,0:[130]
  59. 1245 [151]s[170]5,28:[151]s[170]1,40:[151]s[170]4,128:[151]s[170]4,129
  60. 1250 [129]t[178]1[164]2000:[130]:[151]s[170]4,0:[142]
  61. 1255 :
  62. 1260 [143] *** ghost descending ***
  63. 1265 [151]2046,200:[151]v[170]45,1:[151]v[170]12,245:[151]v[170]13,0:[151]v[170]21,96
  64. 1270 [129]y[178]0[164]150:[151]v[170]13,y:[129]t[178]1[164]20:[130]:[130]
  65. 1275 [129]t[178]1[164]500:[130]:[151]v[170]21,32
  66. 1280 [129]t[178]1[164]5000:[130]:[142]
  67. 1300 :
  68. 1305 [143] *** witch flying right ***
  69. 1310 [151]2047,199:[151]v[170]46,1:x[178]0:[151]v[170]14,x:y[178]48:[151]v[170]15,y:[151]v[170]21,160
  70. 1320 [129]x[178]0[164]220:[151]v[170]14,x:y[178]y[170].2:[151]v[170]15,y:[130]
  71. 1330 [129]t[178]1[164]1000:[130]:[151]v[170]21,32:[129]t[178]1[164]2000:[130]
  72. 1335 [142]
  73. 1340 :
  74. 1345 [143] *** bat flying left ***
  75. 1350 [151]2047,198:[151]v[170]46,4
  76. 1355 [151]v[170]14,150:y[178]70:[151]v[170]15,y:[151]v[170]21,160
  77. 1360 [129]x[178]150[164]0[169][171]1
  78. 1365 [151]2047,197:[129]t[178]1[164]50:[130]
  79. 1370 [151]2047,198:[129]t[178]1[164]50:[130]
  80. 1375 y[178]y[170].5:[151]v[170]15,y:[151]v[170]14,x
  81. 1380 [143]:fort=1to20:next
  82. 1385 [130]x:[129]t[178]1[164]5000:[130]
  83. 1390 [151]v[170]21,32:[142]
  84. 1400 :
  85. 1405 [143] *** bat flying on right ***
  86. 1410 [151]2047,198:[151]v[170]46,4
  87. 1415 [151]v[170]14,250:y[178]50:[151]v[170]15,y:[151]v[170]21,160
  88. 1420 [129]x[178]250[164]130[169][171]2
  89. 1425 [151]2047,197:[129]t[178]1[164]50:[130]
  90. 1435 [151]2047,198:[129]t[178]1[164]50:[130]
  91. 1440 y[178]y[170].7:[151]v[170]15,y:[151]v[170]14,x
  92. 1445 [130]x:[151]v[170]21,32
  93. 1450 [129]t[178]1[164]2000:[130]:[142]
  94. 1455 :
  95. 1460 [143] *** bat leaving ***
  96. 1465 [151]2047,198:[151]v[170]46,4
  97. 1470 [151]v[170]14,100:y[178]150:[151]v[170]15,y:[151]v[170]21,160
  98. 1475 [129]x[178]100[164]254[169]2
  99. 1480 [151]2047,197:[129]t[178]1[164]20:[130]
  100. 1485 [151]2047,198:[129]t[178]1[164]20:[130]
  101. 1490 y[178]y[171]1:[151]v[170]15,y:[151]v[170]14,x
  102. 1495 [130]x:[151]v[170]21,32:[142]
  103. 1500 :
  104. 1505 [143] *** witch leaving ***
  105. 1510 [151]2047,199:[151]v[170]46,1:x[178]180:y[178]140:[151]v[170]14,x:[151]v[170]15,y:[151]v[170]21,160
  106. 1520 [129]x[178]180[164]254:[151]v[170]14,x
  107. 1525 y[178]y[171]1:[151]v[170]15,y
  108. 1530 [130]:[151]v[170]21,32
  109. 1535 [142]
  110. 1550 :
  111. 1555 [143] *** ghost leaving ***
  112. 1560 [151]2046,200:[151]v[170]45,1:x[178]245:[151]v[170]12,x:[151]v[170]13,150:[151]v[170]21,96
  113. 1565 [129]y[178]150[164]0[169][171]1:[151]v[170]13,y:x[178]x[171]1:[151]v[170]12,x:[130]
  114. 1570 [129]t[178]1[164]5000:[130]:[142]
  115. 2000 [143] - sprite data
  116. 2002 [143] *** moon ***
  117. 2004 [129]i[178]0[164]63:[135]a:[151]12864[170]i,a:[130]
  118. 2006 [131]0,0,0,0,255,0,7,255
  119. 2008 [131]224,31,255,248,63,255,252,127
  120. 2010 [131]255,254,127,255,254,255,255,255
  121. 2012 [131]255,255,255,255,255,255,255,255
  122. 2014 [131]255,255,255,255,255,255,255,255
  123. 2016 [131]255,255,127,255,254,127,255,254
  124. 2018 [131]63,255,252,31,255,248,7,255
  125. 2020 [131]224,0,255,0,0,0,0,0
  126. 2030 [142]
  127. 2100 :
  128. 2101 [143] *** bat,wings up ***
  129. 2102 [129]i[178]0[164]63:[135]a:[151]12608[170]i,a:[130]
  130. 2104 [131]0,0,0,0,0,0,0,0
  131. 2106 [131]0,0,0,0,0,0,0,0
  132. 2108 [131]0,0,28,0,56,119,0,238
  133. 2110 [131]129,219,129,0,60,0,0,24
  134. 2112 [131]0,0,36,0,0,0,0,0
  135. 2114 [131]0,0,0,0,0,0,0,0
  136. 2116 [131]0,0,0,0,0,0,0,0
  137. 2118 [131]0,0,0,0,0,0,0,0
  138. 2120 :
  139. 2122 [143] *** bat, wings down ***
  140. 2124 [129]i[178]0[164]63:[135]a:[151]12672[170]i,a:[130]
  141. 2126 [131]0,0,0,0,0,0,0,0
  142. 2128 [131]0,0,0,0,0,0,0,0
  143. 2130 [131]0,0,0,0,0,0,0,0
  144. 2132 [131]129,219,129,119,60,238,28,24
  145. 2134 [131]53,0,36,0,0,0,0,0
  146. 2136 [131]0,0,0,0,0,0,0,0
  147. 2138 [131]0,0,0,0,0,0,0,0
  148. 2140 [131]0,0,0,0,0,0,0,0
  149. 2142 :
  150. 2144 [143] *** small witch ***
  151. 2146 [129]i[178]0[164]63:[135]a:[151]12736[170]i,a:[130]
  152. 2148 [131]0,0,0,0,60,0,0,14
  153. 2150 [131]0,0,15,0,0,15,192,0
  154. 2152 [131]23,0,0,7,128,2,15,0
  155. 2154 [131]1,255,0,3,255,128,4,249
  156. 2156 [131]128,0,60,192,160,126,224,84
  157. 2158 [131]126,112,171,255,255,84,191,0
  158. 2160 [131]128,7,0,0,30,0,0,60
  159. 2162 [131]0,0,112,0,0,112,0,0
  160. 2170 :
  161. 2172 [143] *** ghost ***
  162. 2174 [129]i[178]0[164]63:[135]a:[151]12800[170]i,a:[130]
  163. 2176 [131]0,170,0,3,85,128,6,170
  164. 2178 [131]192,9,1,32,10,108,160,4
  165. 2180 [131]16,64,12,130,96,4,124,64
  166. 2182 [131]14,0,224,5,199,64,10,170
  167. 2184 [131]160,21,85,80,10,170,160,37
  168. 2186 [131]85,72,10,170,160,85,85,84
  169. 2188 [131]42,170,160,245,85,94,10,170
  170. 2190 [131]160,5,85,64,10,170,160,255
  171. 2200 :
  172. 3000 :
  173. 3002 [143] - ml routines
  174. 3010 [143] *** erase screen ***
  175. 3012 [129]i[178]0[164]33:[135]a:[151]49186[170]i,a:[130]
  176. 3014 [131]169,32,160,232,162,3,141,0,5,238,41,192,208,3,238,42,192,136,208,242
  177. 3016 [131]202,208,239,169,0,141,41,192,169,5,141,42,192,96
  178. 3020 [142]
  179. 10000 [159]15,8,15,"s0:hallow-c":[160]15:[148]"hallow-c",8:[128]
  180.