home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 188
/
188.d81
/
inf3.pt3
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
9KB
|
202 lines
0 rem *** save"@0:inf3.pt3",8
1 dv=peek(186):ifdv<8thendv=8
2 poke53272,29:print"";:goto240
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
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
235 rem *** clear text
236 fori=hto24:poke781,i:sys59903:next:poke214,j:return
240 sys49615:poke781,0:poke782,150:sys49664
267 vi=53248:pg=64:sa=pg*256:sp=248
268 ss=49152:pokevi+32,0:pokevi+33,0
269 pokevi+29,255:forzd=0to7:pokevi+zd,5:next
270 syssa
271 rem *** poke sprite data
272 yy=14:fori=0to7
273 poke2040+i,248+i:rem sprite pointers
274 pokevi+39+i,i+1:rem sprite colors
275 pokevi+37,14:pokevi+38,15:next
276 pokevi+29,255:rem x size
277 pokevi+23,0:rem y size
278 pokevi+28,255:rem multicolor on
279 pokevi+37,5:rem multicolor 1
280 pokevi+38,13:rem multicolor 2
281 pokevi+21,0:rem turn sprites on
282 goto340
286 f$="inf3.pt6":goto291
287 f$="inf3.pt5":goto291
288 f$="inf3.pt4"
291 syssa+3:poke53280,0:poke53281,0:poke49152,0:sys49935
293 print"[144]load"chr$(34)f$chr$(34)","dv:print"run"
294 poke631,13:poke632,13:poke198,2:end
340 pokess,7:zz=2:zy=10:zx=zy:gosub900
341 pokesa+6,2:pokesa+7,1:pokesa+8,zz
342 pokesa+9,zz:pokesa+10,zy
343 pokesa+13,zx:pokevi+37,14
344 pokevi+38,zc:pokevi+39,3
345 z=z+1:if z=10 then z=0:zz=zz+1:if zz=5 then zz=2:zy=zy+5
346 if zy=40 then zy=10:zx=zx+5
347 y=y+1:ify<3thenzc=5
348 ify>2thenzc=4:ify>3theny=0:yy=yy+1:ifyy=15thenyy=0:goto351
349 geta$:if(peek(ss)=0)or(a$<>"")thenpoke49152,0:goto355
350 goto341
351 yx=2^yz+yx:pokevi+21,yx:yz=yz+1:ifyz=8thenyx=0:yz=0:xx=xx+1
354 goto349
355 rem *** turn off sinus
356 pokevi+21,0:pokevi+32,0:pokevi+33,0
357 sys57812"alien font",dv,0:poke780,0:poke781,0:poke782,48:sys65493
358 poke53272,29
360 rem *** gamestart
361 pokesa+6,3:pokevi+38,4:print"though you found your cash stash (and
362 [153]"spare gun) before you left your apart-
363 print"ment, you are trying to conserve cash.
364 [153]"you take the subway to nick ragsody's.ononon":[141]5:[151]vi[170]21,1
365 [129]t[178]1[164]3000:[130]:[151]vi[170]21,0:[151]vi[170]38,5
366 [153]"ononononyou fall asleep on the train & dream...
367 print" you & a redheaded reporter are in a
368 [153]" strange factory. people are chasing
369 print" you. they all have the same face! [145][145][145]":gosub5:pokevi+21,1
370 fort=1to3000:next:pokevi+21,0
371 gosub400:print""spc(15)"you manage to push your"
372 printspc(15)"way by nick into his":printspc(15)"apartment. he objects,
373 [153][166]15)"demanding you show some":[153][166]15)"id, then pauses for a
374 printspc(15)"long moment. 'i'm his":printspc(15)"brother', you quickly
375 [153]"explain. (the truth is way too strange
376 print"to believe. in fact, you know that if
377 [153]"you give it too much thought, you'll go
378 print"back to bed and wait for this horrible nightmare to end!)":gosub5
379 print""spc(15)"nick apologizes for being
380 [153][166]15)"rude (he wasn't, you":[153][166]15)"were) and is willing to
381 printspc(15)"tell you everything he ":printspc(15)"knows. he tells you ray
382 [153][166]15)"was investigating pete":[153][166]15)"whirry's biz contacts.
383 print"the evening ray died, it looked like he
384 [153]"was planning to break into luthelcorp's
385 print"local office using an access code he got
386 [153]"from tolsen's old girlfriend. the num- ber was clr246801list! ":[141]5
387 [153]""[166]15)"internal affairs, nick "
388 [153][166]15)"tells you, is ruining the":[153][166]15)"reps of two good ";
389 [153]"men! as":[153][166]15)"for tolsen's girlfriend,
390 printspc(15)"lacy lune, she may have ":printspc(15)"taken off again or may
391 [153][166]15)"be slinking about town.":h[178]15:j[178]15:[141]235
392 c$[178]" drop in on luthelcorp office ":a$[178]" call on all-time fave snitch ":x[178]3
393 b$[178]" go to your partner's wake ":[141]200:[145]c[137]287,288,394
394 [151]vi[170]38,4:[141]870:[153]"on leaving nick's, you feel eyes watch-
395 print"ing you (or maybe nick's). the feeling
396 [153]"gets stronger as you reach the subway.onon":[141]5:[151]vi[170]21,255
397 [129]t[178]1[164]3000:[130]:[151]vi[170]21,0:[151]vi[170]38,5:[137]500
400 [143] *** nick ragsody
401 [153]"load cos*fre frewaitnew ";
402 [153]" list print cont new wait ";
403 [153]" list print cont cos ";
404 [153]" logwait print cont int ";
405 [153]" andnewposand abswait list print cont ";
406 [153]" log * anddefwaittan newnewget*wait list print cont";
407 [153]" sinsinwaitlognewusrthendefposposfn waitget ";
408 [153]" list print cont defgetwaitintandandsqrdef ";
409 [153]"(NULL)andwaitcos list cont get defget";
410 [153]" ascasc wait list print cont ";
411 [153]" rndlogdefrnd *wait list cont ";
412 [153]" posrnddef frefrefre wait ";
413 [153]"list print cont cos defwaitlog fre waitcossin ";
414 [153]" list print cont get frefre(NULL)cos wait";
415 [153]"getget list cont get ";
416 [153]" abs absabswaitlist":[142]
500 [153]"onononyou are certain that you have a tail. "
501 [153]"(definitely someone has been watching ragsody's expecting ";
502 [153]"trouble!) onon":[141]5:[151]vi[170]21,255:[129]t[178]1[164]3000:[130]
503 [151]vi[170]21,0:[141]670:[153]""[166]18)"you decide to play a
504 printspc(18)"few tricks on your":printspc(18)"tail. in zero time
506 [153][166]18)"flat, you're able to":[153][166]18)"turn it around & get
507 printspc(18)"a good look at him.":printspc(18)"you know this vermin
508 [153][166]18)"tantan it's thad vyner!":a$[178]" shake tail tan on to luthelcorp "
509 c$[178]" turn it around tan tail vyner ":[141]200:[145]c[137]286,288,510
510 [141]900:[151]vi[170]38,4:[153]"you watch thad with amusement: he goes
511 print"into a panic when he loses you, then he
512 [153]"regains control and makes a phone call. he seems to be waiting.onon
513 gosub5:pokevi+21,127:fort=1to3000:next:pokevi+21,0:pokevi+38,5
514 print"[145][145][145][145][145][145]you realize this train station may now "
515 print"get terribly crowded with people who may
516 [153]"recognize you before you have a clue to who they are. you split.onon
517 gosub5:pokevi+21,127:fort=1to3000:next:pokevi+21,0:pokevi+38,5:goto286
670 rem *** thad vyner (rodent)
671 print"[147] [149] [150] ";
672 print" [149] [185][185][185][185][184][184][184][184][146][185] [150] ";
673 print" [149] [190] [146] [150] ";
674 print" [149] [188][150][146] ";
675 print" [149][187] [185][185][150][190][149][162] [150][188][149] ";
676 print" [150][146] [149][190] [150] [192][192] ";
677 print" [192][192] [149] [188][150][146] [155] [150] [149]";
678 print"[190] [150][172][146][187][162][150][188] [146][190][187][184][150][187][149] [150][146] ";
679 print" [155] [150] [149][188] [150][188][183][183][190] [188][183][183][190][149] [146][190][150] ";
680 print" [155] [150] [149][187] [150] [206][188][187][172][190][205] [149] ";
681 print"[172][150][146] [155] [150] [149] [150] [167] ";
682 print"[188][190] [165] [149] [150][146] [155] [150] ";
683 print"[149] [