home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 77 / 077.d81 / hbh4 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  7KB  |  240 lines
  1. 10 rem **** hbh4 ****
  2. 12 ifa=1goto130
  3. 15 v=53248:poke53281,0:poke53280,0
  4. 20 rem...sprite pointers:
  5. 25 p0=2040:p1=2041:p2=2042:p3=2043:p4=2044:p5=2045:p6=2046:p7=2047
  6. 27 fori=1topeek(709):nm$=nm$+chr$(peek(709+i)):next
  7. 42 print"[147][158]after crossing the field to get to"
  8. 44 print"the next street, our friends find they"
  9. 46 print"have to pass the local cemetery. there"
  10. 48 print"were a lot of strange sounds there, so"
  11. 50 print"they hid behind the big tree and peeked"
  12. 52 print"around to see what was happening.
  13. 54 [153]"everything looks peaceful, but then"
  14. 56 [153]"it is often said that things are not
  15. 58 print"always as they seem. remember, this is"
  16. 60 print"[129]"tab(25)"[164][164] [164][164]"
  17. 65 print"[204][186] [206][205] [180]  [180]  [207][208] [180]  [170] [204]  [204] [170][205] [180]
  18. 70 [153]"sgn+ (NULL)(NULL) (NULL)and (NULL)and (NULL)sqr (NULL)(NULL)(NULL)(NULL) (NULL)and (NULL)and+ (NULL)sgn
  19. 80 f$="sleepy acres"
  20. 120 a=1:loadf$,8,1
  21. 130 gosub3010
  22. 135 gosub4004:rem read data
  23. 140 poke24568,8:poke24569,9:poke24570,10:poke24571,11
  24. 145 pokev,58:pokev+2,48:pokev+4,48:pokev+6,38
  25. 150 pokev+1,150:pokev+3,129:pokev+5,150:pokev+7,150
  26. 155 pokev+39,1:pokev+40,7:pokev+41,14:pokev+42,1
  27. 160 pokev+28,6:pokev+37,10:pokev+38,1
  28. 165 pokev+27,0
  29. 170 gosub5400:pokev+21,15:rem cemetery pic
  30. 180 gosub4122:gosub5110
  31. 200 pokev+21,0:gosub5305:rem shut off hi-res
  32. 205 print"[147][158]it looks like there may be something
  33. 210 [153]"happening over by those flat stones
  34. 215 print"and the mausoleum. let's take a close
  35. 220 [153]"look......
  36. 230 gosub4202
  37. 235 pokep4,216:pokep5,215
  38. 240 pokev+43,15:pokev+44,15
  39. 245 pokev+8,175:pokev+10,210
  40. 250 pokev+9,131:pokev+11,175
  41. 255 gosub5110
  42. 260 poke53280,0
  43. 265 sys51721,1,2:pokev+21,48
  44. 270 fort=1to2000:next
  45. 275 pokev+43,1
  46. 280 gosub5010:print"[159](man ghost) hey mabel, wake up! it's
  47. 285 [153]"    halloween.":[141]5110
  48. 290 [151]v[170]44,1
  49. 295 [141]5010:[153]"open(woman ghost) what do you want, horace?"
  50. 300 [153]"  i was sleeping so well.":[141]5110
  51. 305 [141]5010:[153]"open(man ghost) this is the one night each
  52. 310 print"  year we get to go out.":gosub5110
  53. 315 gosub5010:print"[159](woman ghost) oh, big deal. where are
  54. 320 [153]"  we going to go?":[141]5110
  55. 325 [141]5010:[153]"open(man ghost) i don't know. let's go
  56. 330 print" haunt a house or something.":gosub5110
  57. 335 gosub5010:print"[159](man ghost) first i want to stretch."
  58. 350 fori=131to109step-1:pokev+9,i:fort=1to50:next:next:pokev+23,16
  59. 355 print"  that feels better!":gosub5110
  60. 360 gosub5010:print"[159](woman ghost) i'll try that, too.
  61. 365 [129]i[178]175[164]154[169][171]1:[151]v[170]11,i:[129]t[178]1[164]50:[130]:[130]:[151]v[170]23,48
  62. 370 [153]"  ahh, just what i needed!":[141]5110
  63. 375 [151]v[170]21,0
  64. 400 [143] *** mausoleum scene
  65. 405 [158]51721,1,3
  66. 410 [151]p6,217:[151]v[170]45,1:[151]v[170]12,175:[151]v[170]13,155:[151]v[170]23,112
  67. 412 [151]v[170]21,64
  68. 415 [141]5010:[153]"open(skeleton) what's going on out here?":[129]t[178]1[164]1000:[130]
  69. 420 [153]" you're so noisy i can't sleep.":[141]5110
  70. 425 [151]v[170]21,48:[158]51721,1,2
  71. 430 [141]5010:[153]"open(man ghost) this is halloween. you
  72. 435 print"  should be out scaring people.":gosub5110
  73. 440 sys51721,1,3:pokev+21,64
  74. 445 gosub5010:print"[159](skeleton) i'm getting too old for
  75. 450 [153]"  that. i'm going back to bed.":[141]5110
  76. 455 [158]51721,1,2:[151]v[170]21,48
  77. 460 [141]5010:[153]"open(man ghost) suit yourself. we're going
  78. 465 print"  house haunting. come on mabel!":gosub5110
  79. 470 fory=154to109step-1:pokev+11,y:fort=1to20:next:next
  80. 475 fory=109to0step-1:pokev+9,y:pokev+11,y:fort=1to20:next:next:pokev+23,0
  81. 500 print"[147]":poke53280,0:gosub5405:rem cemetery
  82. 505 poke24572,12:poke24573,13:pokev+23,0:rem ghosts
  83. 510 pokev+43,1:pokev+44,1:pokev+9,130:pokev+11,130:rem ghosts color & y pos
  84. 515 pokev+8,180:pokev+10,205:rem x pos
  85. 520 pokev+21,63
  86. 525 fory=130to0step-1:pokev+9,y:pokev+11,y:fort=1to20:next:next
  87. 530 fort=1to2000:next:gosub5310:pokev+21,0
  88. 550 print"[147][158]":poke214,14:print"huggy bear and the kids decided the
  89. 555 [153]"cemetery was a little too spooky, so
  90. 560 print"they left and started down the street.
  91. 565 [153]"soon they came to an old house that
  92. 570 print"appeared to be empty.
  93. 575 [141]5110
  94. 580 [153]"stop"
  95. 590 [153]"new"
  96. 600 [153]"load"[199](34)"0:hbh5"[199](34)",8"
  97. 610 [153]"run"
  98. 620 [153]"":[151]631,13:[151]632,13:[151]633,13:[151]198,3
  99. 630 [128]
  100. 900 [137]900
  101. 3000 :
  102. 3005 [143] *** m/l data ***
  103. 3010 [143]...memory mover
  104. 3012 [129]i[178]832[164]908:[135]a:[151]i,a:[130]
  105. 3014 [131]162,0,134,251,32,253,174,32,158,173,32,247,183,166,251,165,20,149
  106. 3016 [131]169,165,21,149,170,232,232,224,6,208,229,160,0,177,169,145,171,56
  107. 3018 [131]165,173,233,1,133,173,176,8,198,174,165,174,201,255,240,24,24,165
  108. 3020 [131]169,105,1,133,169,144,3,230,170,24,165,171,105,1,133,171,144,213
  109. 3022 [131]230,172,176,209,96
  110. 3024 [142]
  111. 4000 :
  112. 4002 [143] *** sprite data ***
  113. 4004 [129]i[178]0[164]255:[135]a:[151]16896[170]i,a:[130]
  114. 4006 [143]...boy standing, right
  115. 4008 [131]0,60,0,0,255,0,3,243
  116. 4010 [131]0,3,255,192,3,255,192,3
  117. 4012 [131]255,0,0,252,0,0,252,0
  118. 4014 [131]0,252,0,0,252,0,0,252
  119. 4016 [131]0,0,252,0,0,220,0,0
  120. 4018 [131]60,0,0,60,0,0,60,0
  121. 4020 [131]0,60,0,0,60,0,0,60
  122. 4022 [131]0,0,15,0,0,5,0,0
  123. 4024 [143]...girl top, right
  124. 4026 [131]0,42,128,0,42,128,0,170
  125. 4028 [131]160,0,170,160,2,165,64,2
  126. 4030 [131]165,64,10,148,64,10,149,80
  127. 4032 [131]10,85,64,10,149,0,10,149
  128. 4034 [131]64,10,148,0,10,148,10,149
  129. 4036 [131]191,0,10,191,192,2,191,192
  130. 4038 [131]2,188,192,2,191,192,2,60
  131. 4040 [131]192,0,63,192,0,60,192,0
  132. 4042 [143]...girl bottom rt
  133. 4044 [131]0,175,112,0,175,112,0,170
  134. 4046 [131]0,0,170,0,0,170,0,2
  135. 4048 [131]170,128,2,170,128,2,170,128
  136. 4050 [131]10,170,160,10,170,160,0,20
  137. 4052 [131]0,0,20,0,0,20,0,0
  138. 4054 [131]20,0,0,20,0,0,20,0
  139. 4056 [131]0,20,0,0,60,0,0,60
  140. 4058 [131]0,0,63,0,0,63,0,0
  141. 4060 [143]...hb right
  142. 4062 [131]0,224,0,1,191,0,1,157
  143. 4064 [131]128,0,255,192,0,255,128,0
  144. 4066 [131]127,0,0,60,0,0,126,0
  145. 4068 [131]0,255,0,0,255,0,0,255
  146. 4070 [131]0,0,255,0,0,254,0,0
  147. 4072 [131]124,0,0,120,0,0,120,0
  148. 4074 [131]0,120,0,0,120,0,0,112
  149. 4076 [131]0,0,124,0,0,62,0,127
  150. 4078 [142]
  151. 4120 :
  152. 4122 [129]i[178]0[164]191:[135]a:[151]13760[170]i,a:[130]
  153. 4124 [143]...woman ghost p,215
  154. 4126 [131]0,170,0,3,85,128,6,170
  155. 4128 [131]192,9,1,32,10,108,160,4
  156. 4130 [131]16,64,12,130,96,4,124,64
  157. 4132 [131]14,0,224,5,199,64,10,170
  158. 4134 [131]160,21,85,80,10,170,160,37
  159. 4136 [131]85,72,10,170,160,85,85,84
  160. 4138 [131]42,170,160,245,85,94,10,170
  161. 4140 [131]160,5,85,64,10,170,160,255
  162. 4142 [143]...man ghost  p,216
  163. 4144 [131]0,170,0,3,85,128,14,0
  164. 4146 [131]224,4,108,64,12,16,96,4
  165. 4148 [131]0,64,12,56,96,4,68,64
  166. 4150 [131]14,0,224,5,255,64,10,254
  167. 4152 [131]160,21,125,80,10,186,160,37
  168. 4154 [131]85,88,10,170,160,85,85,84
  169. 4156 [131]42,170,168,245,85,94,10,170
  170. 4158 [131]160,5,85,64,10,170,160,255
  171. 4160 [143]...skeleton  p,217
  172. 4162 [131]0,124,0,0,170,0,1,131
  173. 4164 [131]0,1,187,0,0,130,0,0
  174. 4166 [131]124,0,0,56,0,1,255,0
  175. 4168 [131]2,56,128,2,124,128,2,56
  176. 4170 [131]128,4,124,64,0,124,0,0
  177. 4172 [131]108,0,0,198,0,1,131,0
  178. 4174 [131]3,1,128,3,1,128,3,1
  179. 4176 [131]128,3,1,128,7,131,192,255
  180. 4178 [142]
  181. 4200 :
  182. 4202 [129]i[178]0[164]127:[135]a:[151]17152[170]i,a:[130]
  183. 4206 [143]...woman ghost 24572,12
  184. 4208 [131]0,170,0,3,85,128,6,170
  185. 4210 [131]192,9,1,32,10,108,160,4
  186. 4212 [131]16,64,12,130,96,4,124,64
  187. 4214 [131]14,0,224,5,199,64,10,170
  188. 4216 [131]160,21,85,80,10,170,160,37
  189. 4218 [131]85,72,10,170,160,85,85,84
  190. 4220 [131]42,170,160,245,85,94,10,170
  191. 4222 [131]160,5,85,64,10,170,160,255
  192. 4224 [143]...man ghost  24573,13
  193. 4226 [131]0,170,0,3,85,128,14,0
  194. 4228 [131]224,20,108,80,12,16,96,20
  195. 4230 [131]0,80,44,56,104,20,68,80
  196. 4232 [131]46,0,232,21,85,80,42,170
  197. 4234 [131]168,21,85,80,42,170,168,21
  198. 4236 [131]85,80,42,170,168,21,85,80
  199. 4238 [131]42,170,168,21,85,80,42,170
  200. 4240 [131]168,21,85,80,42,170,168,255
  201. 4242 [142]
  202. 5000 :
  203. 5005 [143] **** basic subroutines ****
  204. 5010 [143]...text window clear & pos.
  205. 5015 [158]680:[153]"":[151]214,19:[153]:[142]
  206. 5050 :
  207. 5055 [143] *** wipe screen vertically ***
  208. 5060 c1[178]23:c2[178]19:c3[178]24:c4[178]39:c5[178]59903
  209. 5065 [129]j[178]0[164]c1:c2$[178]c2$[170][199](32)[170][199](157)[170][199](17):[130]:c2