Loadstar 188/188.d81/inf4.pt2

Commodore BASIC | 2022-08-26 | 10KB | 224 lines

0 rem *** save"@0:inf4.pt2",8
1 poke56,150:clr:poke53281,0:poke53280,0:poke53371,0:dv=peek(186)
2 goto150
5 poke198,0
6 getk$:ifk$=""then6
7 ifk$="s"andpeek(49152)=7thenpoke49152,0:sys49897:return
8 ifk$="s"andpeek(49152)=0thenpoke781,0:poke782,150:sys49664:poke49152,7
9 return
10 dv=peek(186):ifdv<8thendv=8
150 sys49615:poke781,0:poke782,150:sys49664
151 vi=53248:pg=64:sa=pg*256:sp=248
152 ss=49152:pokevi+32,0:pokevi+33,0
153 pokevi+29,255:forzd=0to7:pokevi+zd,4:next
154 syssa
155 rem *** poke sprite data
156 yy=14:fori=0to7
157 poke2040+i,248+i:rem sprite pointers
158 pokevi+39+i,i+1:rem sprite colors
159 pokevi+37,14:pokevi+38,15:next
160 pokevi+29,255:rem x size
161 pokevi+23,0:rem y size
162 pokevi+28,255:rem multicolor on
163 pokevi+37,5:rem multicolor 1
164 pokevi+38,13:rem multicolor 2
165 pokevi+21,0:rem turn sprites on
166 pokess,7:zz=2:zy=10:zx=zy:gosub530
167 pokesa+6,2:pokesa+7,1:pokesa+8,zz
168 pokesa+9,zz:pokesa+10,zy
169 pokesa+13,zx:pokevi+37,14
170 pokevi+38,zc:pokevi+39,3
171 z=z+1:if z=10 then z=0:zz=zz+1:if zz=5 then zz=2:zy=zy+5
172 if zy=40 then zy=10:zx=zx+5
173 y=y+1:ify<3thenzc=5
174 ify>2thenzc=4:ify>3theny=0:yy=yy+1:ifyy=15thenyy=0:goto177
175 geta$:if(peek(ss)=0)or(a$<>"")thenpoke49152,0:sys49897:goto180
176 goto167
177 yx=2^yz+yx:pokevi+21,yx:yz=yz+1:ifyz=8thenyx=0:yz=0:xx=xx+1
179 goto175
180 rem *** turn off sinus
182 pokevi+21,0:pokevi+32,0:pokevi+33,0
183 sys57812"alien font",dv,0:poke780,0:poke781,0:poke782,48:sys65493
184 poke53272,29
185 rem *** gamestart
186 print"very few people at phil's recognize you.
187 [153]"however, they are all pretty gabby about
188 print"a series of bizarre murders. the killing
189 [153]"has stopped as suddenly as it began.
190 print"someone wonders if they are a-b-c type[145][145][145]":gosub5:pokevi+38,4
191 pokevi+21,1:fort=1to3000:next:pokevi+21,0
192 print"[145][145][145][145][145][145]murders (extra murders performed to dis-
193 [153]"guise the fact that only one of the vic-
194 print"tims was the true target). all of the   "
195 print"victims, you are told, were topless "
196 print"dancers. you have a sinking feeling of[145][145][145]":gosub5:pokevi+38,5
197 pokevi+21,1:fort=1to3000:next:pokevi+21,0:goto210
200 rem *** options table
201 print""spc(16)"[155]options":print" [156] 1 [146]   [155]"a$
202 print" [156] 2 [146]   [155]"b$:print" [156] 3 [146]   [155]"c$:c=0
203 ifx=1thenprint"[145][145][145][145][145][155]  1    [156]"a$
204 ifx=2thenprint"[145][145][145][155]  2    [156]"b$
205 ifx=3thenprint"[145][155]  3    [156]"c$
206 gosub5:ifk$=""andx<3thenx=x+1
207 ifk$="[145]"andx>1thenx=x-1
208 ifk$=chr$(13)thenc=x:return
209 goto200
210 gosub690:print"dread. lacy lune is a topless dancer.
211 [153]"worse and worse, it is confirmed that
212 print"lacy is among the dead. but what happen-
213 [153]"ed to her sister? no one here knows or
214 print"particularly cares. over the clink of
215 [153]"glasses, someone's calling your name --ononon":[141]5
216 [141]510:[153]"it is martha kent. you join her for some
217 print"drinks and to find out what she knows.
218 [153]"martha tells you her luthel interview
219 print"went well. a fluff piece. boring report-
220 [153]"ing at its worse. then a local banana":[141]5:[151]vi[170]38,4
221 [151]vi[170]21,31:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0
222 [153]"onononononononononmade a point of bugging her. he tipped  "
223 [153]"her to some good stories in the past, so
224 print"martha does not ignore him. but she of-
225 [153]"ten gets the feeling that he is using   "
226 [153]"her. would you like to see dan haljor?":[141]5:[151]vi[170]38,5
227 [151]vi[170]21,31:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0:[141]5
228 a$[178]" hangout at phil's for a while":b$[178]" see dan haljor (ufologist)   ":x[178]3
229 c$[178]" check records on lacy lune   ":[141]690:[141]200:[145]c[137]305,316,230
230 [141]570:[153]"you drop by the morning star, martha's
231 print"paper, to see the newclipping on lacy
232 [153]"lune's death. the girl in the pictureononon":[141]5:[151]vi[170]38,4
233 [151]vi[170]21,15:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0:[137]300
235 [143] *** clear text
236 [129]i[178]h[164]24:[151]781,i:[158]59903:[130]:[151]214,j:[142]
240 [143] *** martha kent
241 [153]"load    print list      list    (NULL) (NULL)  (NULL)   list verify list      ";
242 [153]"              print list     list (NULL)   (NULL)    (NULL) (NULL) ";
243 [153]"list                         (NULL) (NULL)   (NULL)  (NULL) (NULL) ";
244 [153]"  (NULL)     list  print list                     verify ";
245 [153]"wait     (NULL)   (NULL)  list                 print list    ";
246 [153]"  (NULL)verify    wait  (NULL)           list    print list       ";
247 [153]"     (NULL)  verify  tototo   wait(NULL)  (NULL)    (NULL) list        ";
248 [153]"             (NULL)verify     (NULL) (NULL)   wait(NULL)verify    (NULL)  ";
249 [153]"list   print list            verify   (NULL)verify  print(NULL)waitrndprint(NULL)(NULL)verify";
250 [153]"   print(NULL)waitrndprint(NULL)(NULL)verifywait (NULL)      list           print list ";
251 [153]"print list    (NULL) verify            wait (NULL)    verify   list  ";
252 [153]" print list      def      (NULL) (NULL) verify     ..    wait   ";
253 [153]" (NULL)     list            def verify  (NULL) (NULL)  verify       ";
254 [153]"   wait (NULL)   print verify     list          def  verify  (NULL)  ";
255 [153]"verify (NULL) verify  tantantantantan  wait (NULL)  (NULL) verify    list         ";
256 [153]"    def verify   printpeek (NULL)verify(NULL)   pospospos   wait  printpeek (NULL) verify ";
257 [153]"  print list   print list          verify   print wait verify  (NULL)   ";
258 [153]"    waitstepclose print wait  print   list            print list   ";
259 [153]"  (NULL)print wait(NULL) verify  logposposposposposwaitcos  (NULL)print wait(NULL) verify  list ";
260 [153]"  print list           print list  verify  print (NULL) (NULL)verify   usrwaitnewpos";
261 [153]"and   (NULL)print    list                    verify  def ";
262 [153]"verify  verify       waitlist":[142]
287 f$[178]"inf4.pt5":[137]291
288 f$[178]"inf4.pt4":[137]291
289 f$[178]"inf4.pt3":[137]291
291 [158]sa[170]3:[151]53280,0:[151]53281,0:[151]49152,0:[158]49935
293 [153]"stopload"[199](34)f$[199](34)","dv:[153]"run"
294 [151]631,13:[151]632,13:[151]198,2:[128]
300 [153]"ononhas long brown hair and looks like lacy.
301 print"however, you heard lacy cut her hair &
302 [153]"dyed it blond. could lacy have a twin?ononon":[141]5:[151]vi[170]38,5
303 [151]vi[170]21,15:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0
304 c$[178]" search nightclubs for lacy   ":[141]690:[141]200:[145]c[137]305,316,328
305 [141]240:[153]"you are catching a bite to eat while
306 print"martha reminisces about college days.
307 [153]"her editor walks in and joins you at
308 print"your table. you tell him that you plan[145][145][145]":gosub5
309 print"[145][145][145][145]to see dan haljor. he tells both of you
310 [153]"haljor is bad news. ex-fbi with cia ties
311 print"who was dumped by his people because he
312 [153]"was diagnosed as a paranoid schizoid! ononon":[141]5
313 a$[178]" stakeout rex luthel's hotel  ":c$[178]" check records on lacy lune   ":x[178]2
314 [141]690:[141]200:[145]c[137]289,316,230
315 a$[178]" * looping: memory flashback *":[137]230
316 [141]570:[153]"you decide to call your own editor for
317 print"some background on dan haljor. he immed-
318 [153]"iately recognizes the name and tells youononon":[141]5:[151]vi[170]38,4
319 [151]vi[170]21,7:[129]t[178]1[164]3000:[130]:[151]vi[170]21,0
320 [153]"ononononhaljor is bad news. he lost -- some say
321 print"executed -- a witness against a shady   "
322 print"government lab. left the fbi afterwards.[145][145][145]":gosub5:pokevi+38,5
323 pokevi+21,7:fort=1to3000:next:pokevi+21,0
324 gosub240:print"martha kent knows this tale. she heard
325 [153]"haljor had a breakdown afterwards then
326 print"went on his ufo kick. she ask if you'd
327 [153]"like to see him anyway. you say 'yes