home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 188 / 188.d81 / inf4.pt2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2000-01-01  |  9.4 KB  |  224 lines
  1. 0 rem *** save"@0:inf4.pt2",8
  2. 1 poke56,150:clr:poke53281,0:poke53280,0:poke53371,0:dv=peek(186)
  3. 2 goto150
  4. 5 poke198,0
  5. 6 getk$:ifk$=""then6
  6. 7 ifk$="s"andpeek(49152)=7thenpoke49152,0:sys49897:return
  7. 8 ifk$="s"andpeek(49152)=0thenpoke781,0:poke782,150:sys49664:poke49152,7
  8. 9 return
  9. 10 dv=peek(186):ifdv<8thendv=8
  10. 150 sys49615:poke781,0:poke782,150:sys49664
  11. 151 vi=53248:pg=64:sa=pg*256:sp=248
  12. 152 ss=49152:pokevi+32,0:pokevi+33,0
  13. 153 pokevi+29,255:forzd=0to7:pokevi+zd,4:next
  14. 154 syssa
  15. 155 rem *** poke sprite data
  16. 156 yy=14:fori=0to7
  17. 157 poke2040+i,248+i:rem sprite pointers
  18. 158 pokevi+39+i,i+1:rem sprite colors
  19. 159 pokevi+37,14:pokevi+38,15:next
  20. 160 pokevi+29,255:rem x size
  21. 161 pokevi+23,0:rem y size
  22. 162 pokevi+28,255:rem multicolor on
  23. 163 pokevi+37,5:rem multicolor 1
  24. 164 pokevi+38,13:rem multicolor 2
  25. 165 pokevi+21,0:rem turn sprites on
  26. 166 pokess,7:zz=2:zy=10:zx=zy:gosub530
  27. 167 pokesa+6,2:pokesa+7,1:pokesa+8,zz
  28. 168 pokesa+9,zz:pokesa+10,zy
  29. 169 pokesa+13,zx:pokevi+37,14
  30. 170 pokevi+38,zc:pokevi+39,3
  31. 171 z=z+1:if z=10 then z=0:zz=zz+1:if zz=5 then zz=2:zy=zy+5
  32. 172 if zy=40 then zy=10:zx=zx+5
  33. 173 y=y+1:ify<3thenzc=5
  34. 174 ify>2thenzc=4:ify>3theny=0:yy=yy+1:ifyy=15thenyy=0:goto177
  35. 175 geta$:if(peek(ss)=0)or(a$<>"")thenpoke49152,0:sys49897:goto180
  36. 176 goto167
  37. 177 yx=2^yz+yx:pokevi+21,yx:yz=yz+1:ifyz=8thenyx=0:yz=0:xx=xx+1
  38. 179 goto175
  39. 180 rem *** turn off sinus
  40. 182 pokevi+21,0:pokevi+32,0:pokevi+33,0
  41. 183 sys57812"alien font",dv,0:poke780,0:poke781,0:poke782,48:sys65493
  42. 184 poke53272,29
  43. 185 rem *** gamestart
  44. 186 print"very few people at phil's recognize you.
  45. 187 [153]"however, they are all pretty gabby about
  46. 188 print"a series of bizarre murders. the killing
  47. 189 [153]"has stopped as suddenly as it began.
  48. 190 print"someone wonders if they are a-b-c type[145][145][145]":gosub5:pokevi+38,4
  49. 191 pokevi+21,1:fort=1to3000:next:pokevi+21,0
  50. 192 print"[145][145][145][145][145][145]murders (extra murders performed to dis-
  51. 193 [153]"guise the fact that only one of the vic-
  52. 194 print"tims was the true target). all of the   "
  53. 195 print"victims, you are told, were topless "
  54. 196 print"dancers. you have a sinking feeling of[145][145][145]":gosub5:pokevi+38,5
  55. 197 pokevi+21,1:fort=1to3000:next:pokevi+21,0:goto210
  56. 200 rem *** options table
  57. 201 print""spc(16)"[155]options":print" [156] 1 [146]   [155]"a$
  58. 202 print" [156] 2 [146]   [155]"b$:print" [156] 3 [146]   [155]"c$:c=0
  59. 203 ifx=1thenprint"[145][145][145][145][145][155]  1    [156]"a$
  60. 204 ifx=2thenprint"[145][145][145][155]  2    [156]"b$
  61. 205 ifx=3thenprint"[145][155]  3    [156]"c$
  62. 206 gosub5:ifk$=""andx<3thenx=x+1
  63. 207 ifk$="[145]"andx>1thenx=x-1
  64. 208 ifk$=chr$(13)thenc=x:return
  65. 209 goto200
  66. 210 gosub690:print"dread. lacy lune is a topless dancer.
  67. 211 [153]"worse and worse, it is confirmed that
  68. 212 print"lacy is among the dead. but what happen-
  69. 213 [153]"ed to her sister? no one here knows or
  70. 214 print"particularly cares. over the clink of
  71. 215 [153]"glasses, someone's calling your name --ononon":[141]5
  72. 216 [141]510:[153]"it is martha kent. you join her for some
  73. 217 print"drinks and to find out what she knows.
  74. 218 [153]"martha tells you her luthel interview
  75. 219 print"went well. a fluff piece. boring report-
  76. 220 [153]"ing at its worse. then a local banana":[141]5:[151]vi[170]38,4
  77. 221 [151]vi[170]21,31:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0
  78. 222 [153]"onononononononononmade a point of bugging her. he tipped  "
  79. 223 [153]"her to some good stories in the past, so
  80. 224 print"martha does not ignore him. but she of-
  81. 225 [153]"ten gets the feeling that he is using   "
  82. 226 [153]"her. would you like to see dan haljor?":[141]5:[151]vi[170]38,5
  83. 227 [151]vi[170]21,31:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0:[141]5
  84. 228 a$[178]" hangout at phil's for a while":b$[178]" see dan haljor (ufologist)   ":x[178]3
  85. 229 c$[178]" check records on lacy lune   ":[141]690:[141]200:[145]c[137]305,316,230
  86. 230 [141]570:[153]"you drop by the morning star, martha's
  87. 231 print"paper, to see the newclipping on lacy
  88. 232 [153]"lune's death. the girl in the pictureononon":[141]5:[151]vi[170]38,4
  89. 233 [151]vi[170]21,15:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0:[137]300
  90. 235 [143] *** clear text
  91. 236 [129]i[178]h[164]24:[151]781,i:[158]59903:[130]:[151]214,j:[142]
  92. 240 [143] *** martha kent
  93. 241 [153]"load    print list      list    (NULL) (NULL)  (NULL)   list verify list      ";
  94. 242 [153]"              print list     list (NULL)   (NULL)    (NULL) (NULL) ";
  95. 243 [153]"list                         (NULL) (NULL)   (NULL)  (NULL) (NULL) ";
  96. 244 [153]"  (NULL)     list  print list                     verify ";
  97. 245 [153]"wait     (NULL)   (NULL)  list                 print list    ";
  98. 246 [153]"  (NULL)verify    wait  (NULL)           list    print list       ";
  99. 247 [153]"     (NULL)  verify  tototo   wait(NULL)  (NULL)    (NULL) list        ";
  100. 248 [153]"             (NULL)verify     (NULL) (NULL)   wait(NULL)verify    (NULL)  ";
  101. 249 [153]"list   print list            verify   (NULL)verify  print(NULL)waitrndprint(NULL)(NULL)verify";
  102. 250 [153]"   print(NULL)waitrndprint(NULL)(NULL)verifywait (NULL)      list           print list ";
  103. 251 [153]"print list    (NULL) verify            wait (NULL)    verify   list  ";
  104. 252 [153]" print list      def      (NULL) (NULL) verify     ..    wait   ";
  105. 253 [153]" (NULL)     list            def verify  (NULL) (NULL)  verify       ";
  106. 254 [153]"   wait (NULL)   print verify     list          def  verify  (NULL)  ";
  107. 255 [153]"verify (NULL) verify  tantantantantan  wait (NULL)  (NULL) verify    list         ";
  108. 256 [153]"    def verify   printpeek (NULL)verify(NULL)   pospospos   wait  printpeek (NULL) verify ";
  109. 257 [153]"  print list   print list          verify   print wait verify  (NULL)   ";
  110. 258 [153]"    waitstepclose print wait  print   list            print list   ";
  111. 259 [153]"  (NULL)print wait(NULL) verify  logposposposposposwaitcos  (NULL)print wait(NULL) verify  list ";
  112. 260 [153]"  print list           print list  verify  print (NULL) (NULL)verify   usrwaitnewpos";
  113. 261 [153]"and   (NULL)print    list                    verify  def ";
  114. 262 [153]"verify  verify       waitlist":[142]
  115. 287 f$[178]"inf4.pt5":[137]291
  116. 288 f$[178]"inf4.pt4":[137]291
  117. 289 f$[178]"inf4.pt3":[137]291
  118. 291 [158]sa[170]3:[151]53280,0:[151]53281,0:[151]49152,0:[158]49935
  119. 293 [153]"stopload"[199](34)f$[199](34)","dv:[153]"run"
  120. 294 [151]631,13:[151]632,13:[151]198,2:[128]
  121. 300 [153]"ononhas long brown hair and looks like lacy.
  122. 301 print"however, you heard lacy cut her hair &
  123. 302 [153]"dyed it blond. could lacy have a twin?ononon":[141]5:[151]vi[170]38,5
  124. 303 [151]vi[170]21,15:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0
  125. 304 c$[178]" search nightclubs for lacy   ":[141]690:[141]200:[145]c[137]305,316,328
  126. 305 [141]240:[153]"you are catching a bite to eat while
  127. 306 print"martha reminisces about college days.
  128. 307 [153]"her editor walks in and joins you at
  129. 308 print"your table. you tell him that you plan[145][145][145]":gosub5
  130. 309 print"[145][145][145][145]to see dan haljor. he tells both of you
  131. 310 [153]"haljor is bad news. ex-fbi with cia ties
  132. 311 print"who was dumped by his people because he
  133. 312 [153]"was diagnosed as a paranoid schizoid! ononon":[141]5
  134. 313 a$[178]" stakeout rex luthel's hotel  ":c$[178]" check records on lacy lune   ":x[178]2
  135. 314 [141]690:[141]200:[145]c[137]289,316,230
  136. 315 a$[178]" * looping: memory flashback *":[137]230
  137. 316 [141]570:[153]"you decide to call your own editor for
  138. 317 print"some background on dan haljor. he immed-
  139. 318 [153]"iately recognizes the name and tells youononon":[141]5:[151]vi[170]38,4
  140. 319 [151]vi[170]21,7:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0
  141. 320 [153]"ononononhaljor is bad news. he lost -- some say
  142. 321 print"executed -- a witness against a shady   "
  143. 322 print"government lab. left the fbi afterwards.[145][145][145]":gosub5:pokevi+38,5
  144. 323 pokevi+21,7:fort=1to3000:next:pokevi+21,0
  145. 324 gosub240:print"martha kent knows this tale. she heard
  146. 325 [153]"haljor had a breakdown afterwards then
  147. 326 print"went on his ufo kick. she ask if you'd
  148. 327 [153]"like to see him anyway. you say 'yes!'ononon":[141]5:[137]288
  149. 328 [141]240:[153]"you tell martha that you must search for
  150. 329 print"lacy alone. an outsider is likely to
  151. 330 [153]"spook the dancer and lose you what info
  152. 331 print"lacy might have -- if any.[145][145][145]":gosub5:goto287
  153. 510 rem *** cityscape12
  154. 511 print"[147][156]                                        ";
  155. 512 print"                                        ";
  156. 513 print"                                        ";
  157. 514 print"                                        ";
  158. 515 print"             [159][146]  [156]  [162][187]         [172][162][187][185]    ";
  159. 516 print" [162][187]          [146]  [187] [146]   [162][146]   [146]      [162][187]";
  160. 517 print"[146]       [164][175][159][146] [156]  [175][185]   [146] [184] [190]   [172][146]      ";
  161. 518 print" [146]    [172][146]       [187]  [146]  [159]     [156][162] [146][190]   ";
  162. 519 print"         [159]  [156] [146]    [181]          [146]       ";
  163. 520 print"               [159]  [156] [146]    [181]          [146]     ";
  164. 521 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][155]":return
  165. 530 rem *** cityscape13
  166. 531 print"[147]                                        ";
  167. 532 print"                                        ";
  168. 533 print"                 +           [146]  [182]      ";
  169. 534 print"+       +                 [146]    [146][190]   [187] ";
  170. 535 print"                              [146]    [146]   ";
  171. 536 print"                               + [154][146]   ";
  172. 537 print" [146] [154]        [146]    [161]           +     [146]";
  173. 538 print"    [172][146]   [154]   [154]   [154]    [146]   [155] [161][146]  ";
  174. 539 print"               [146]            [154]     [146][190][155] ";
  175. 540 print"   [161][151][146]  [154]              [146][161]     [151]   ";
  176. 541 print"  [154]  [154]  [154]   [146]    [155]  [151]    +    [146][184][184]";
  177. 542 print"     [146][161]    [151]             [146]  [155]    [152]  [154]";
  178. 543 print"      [146]   [154]     [146][161]    [151]         [154] ";
  179. 544 print"      [155]         [146][190]      [146]   [146][161]      ";
  180. 545 print"    [154] [155]         [154] [151] [155]   [154]    [146]     ";
  181. 546 print"[154] [146]   [154] [146]  [154]              [155]     [154]";
  182. 547 print" [151]   [160][154]  [146]           [154] [146][155]":return
  183. 570 rem *** cityscape15
  184. 571 print"[147][151] [154] [151]       [152] [154] .   [151]  [154].[151]  [152] [155]   [154] ";
  185. 572 print"[155]   [154].[155]      [154].[155]   [154]       [154] [151]  [154].[151]   ";
  186. 573 print"  [154] [151]     [154].[151] [154] [151]     [154].  [151]   [152] [155]    [154]";
  187. 574 print" . [151] [154]  [151] [154] [151]     [154]  [151]   [154]       [152] ";
  188. 575 print"  [146]  [152]  [146] [155] [154] [155]  [154].[155]  [151]     [154]   [151] ";
  189. 576 print" [154] .       [154].    [154].[152][161]  [182][161]  [182][155][146]       ";
  190. 577 print"  [152]   [146] [154].      [152]   [146]  [154]   [154]    ";
  191. 578 print"[152][161]  [182][161]  [182][154][146].[155]  [154] [155]  [154], [152]    [146] [152]  [152] ";
  192. 579 print" [146]  [154] [152]   [158][146]   [154].  [154]  [152][172][190]      [182][155][146]";
  193. 580 print"   [154]. [155]  [152]      [151][146] [152]   [146]  [151][169]  [152] [146] [154]";
  194. 581 print" . [154] [151]  [152]    [151]    [152]   [146]  [154]   [155] [152]   ";
  195. 582 print"        [151][169]   [152]  [146] [151] [154] [151]  [152]    [151]     [152] ";
  196. 583 print" [151]   [155][146]  [152]    [151]    [152]    [151]      [152]  [151][146]  ";
  197. 584 print"[152]    [151]        [152] [151]   [146] [151]  [152]  [151]      [152] ";
  198. 585 print"[151]        [152]        [151]            [152][146] [151]  [152] ";
  199. 586 print" [151]  [155]   [151]  [155]   [151]     [152] [151]     [152]  [151]       ";
  200. 587 print" [160]      [152]  [151]  [155]   [151]  [155]     [151]   [152] [151] [155]   [151]";
  201. 588 print"  [152] [151]   [155]    [151]            [155]   [151]  [155]      ";
  202. 589 print"[151]   [155]     [151]     [155]     [151]  [155]   [151]      [155]   ";
  203. 590 print"[151]  [155]      [151]   [155]      [151]   [155]      [151] [155]     ";
  204. 591 print"[151]    [155]              [151] [155]      [151]  [155]       ";
  205. 592 print"       [151]   [155]              [151] [155]      [151]  [155] ";
  206. 593 print"             [151] [155]                                        ":return
  207. 690 rem *** lea lison2
  208. 691 print"[147][155]        [182]       [129]   [162][162][185][175]  [155]      [161]     ";
  209. 692 print"           [161]      [129]   [190] [183][184][190][188][146][187][155]      [182] ";
  210. 693 print"               [182]      [129]  [190][172][164][146][190][150][184][146][187][129][172][172]";
  211. 694 print"[146][187][155]     [161]                [161]     [150] [129]  [191][170][150]";
  212. 695 print"[146][162] [146][162][167][129][165][161] [155][146]     [182]                [182]   ";
  213. 696 print"  [150] [129]  [181][170][150] [175] [146][161][129][187][191][188][155][146]     [161]           ";
  214. 697 print"     [161]      [129] [172][190][188][150][187] [172][129][190][190][182][146][161][187][155]    [182]     ";
  215. 698 print"           [182]      [129]  [191] [146][187][150][184][146][187][129][165][146][191][188][146][190]";
  216. 699 print"[172][155][146]    [161]                [161] [150] [155]   [129]  [150][169][129]";
  217. 700 print"[190][146][172][150][190]  [163][146][187][150][223][129] [146][190][155]    [182]              ";
  218. 701 print"  [182]  [150] [155]  [129] [150][167] [181] [208][150][187] [207] [150][181][129][146][172][190][155]    [161]  ";
  219. 702 print"              [161]   [150] [155] [129] [150][182] [146][223]  [146][190]  [146]";
  220. 703 print"[169][150][190][146] [155]     [182]                [182]    [150] [155] [150][182]";
  221. 704 print" [129][146] [207][184][184][184][208][146][150][170] [155][146]      [161]":return
  222. 900 gosub530:vi=53248:goto185
  223. 10000 d=peek(186):n$="0:inf4.pt2":open15,d,15,"s"+n$:close15:saven$,d:end
  224.