home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 181
/
181.d81
/
inf2.pt2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
8KB
|
197 lines
0 rem ***** save"@0:inf2.pt2",8
1 dv=peek(186):ifdv<8thendv=8
2 poke53272,29:goto360
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
140 rem *** cityscape2
141 print"[147][155] [156] [158] [185][185][185][185][185] [151] [156] [155] [156] [159] [156] .";
142 print" [156] [156] [155] [158] [156] [158] [156] [156] [159] [181][151] ";
143 print" [182] [151] [156] [159] [156] [156] [156] . [155] ";
144 print" [158] [155]. [181] [182] [151] . [156] [158] [156] ";
145 print" [158]. [155] [158] . [155]. [181][151] [188][183][208][156] [159]";
146 print" . [156] [155]. [155] [158] [167][183][183][183][204]";
147 print"[175][175][181] [167] [156] [158] [156] . [167][183][183][180][155] ";
148 print"[158] [159].[167] [167][175][175][175][175] [156] [159] [167][184][184][184][180] [167]";
149 print" [165][155] [175][175][175][186] [151] [167][175][175][175][175][175][186] ";
150 print"[204][175] [167] [183][183][183][204] [154] [159] [154] [151] ";
151 print" [167][175][186][155] [159] ";
152 print" [159] ";
153 print" [159] [155][175][210][175] [154] [159] ";
154 print" [155][175][178][175][159] [155][175][178][175][159] [156][164][209][155]";
155 print"[200][209] [156][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][209][155][221][209][159] [156][164][164][164][164][164][164][164][159] [209]";
156 print"[155][221][153][209][156][164][164][164][164][159] [155][200] [159] [155] [221]";
157 print"[159] [159] [159] [159] [155][221][159] [153] [155][200] [159] ";
158 print" [159] [155][221][159] [159] [159] [159] [155][221]":return
200 rem *** options table
201 print"[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
287 f$="inf2.pt5":goto291
288 f$="inf2.pt4":goto291
289 f$="inf2.pt3":goto291
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 rem *** cityscape3
341 print"[147][153] [155] [153] [152][167][153] ";
342 print" [155].[153] [155].[153] [152] [190][188][146] [153] [155].[153] ";
343 print" [155].[153] [155] [153] [155] [153] [155].[153] [152]";
344 print"[161] [190][146][161][153] [155].[153] [155].[153] [155] [153] [155].[153]";
345 print" [152][161][187] [146][161][153] [155] ";
346 print"[153] [152][172][187][153][146] [152][165] [190][167][153][146] [151]";
347 print"[184] [184][153][146] [155].[153] [155] [153] [152] [153][146] [151][223][146] [155].";
348 print"[153] [152][165] [167][155][146].[153] [151] [146][191] [153][146] [155] [153] ";
349 print" [152][181] [182][155][146] [151] [223][146] [169][153][146] [152][165][190] [167][153][146] [155].[153]";
350 print" [151] [191] [153][146] [155] [153] [151][221][155] [153] [152][165][190] [167][155][146] [151]";
351 print" [146] [152][146][172] [146][187][151] [153] [155].[151] [146][191] [165] ";
352 print" [155][146] [153] [151][184] [184][153][146] [152][165] [188][167][155][146] [151] [191] [188] [152][165] [191][167][151] ";
353 print" [170][184][155][146].[151][184] [162][146][184][183][163][155] [151][163][163][163][163][155] [151][172] [187][152][165] [167][155][146]";
354 print" [151][164][164][164][191] [152][165] [167][151][191] [191][170] [164][175][162][155][146] [151] ";
355 print" [152][165][188] [187] [167][151][164][164][164][170][146][190][155] ";
356 print" [151][164][188][164][190][164][152][165] [181] [162][146][184][183][163][163][155] ";
357 print" [152] [187][187] [188] [172][155][146] ";
358 print" [152] [161] [190][190] [172][155][146] ";
359 print" [152] [185][162][146][184][155]":return
360 sys49615:poke781,0:poke782,150:sys49664
387 vi=53248:pg=64:sa=pg*256:sp=248
388 ss=49152:pokevi+32,0:pokevi+33,0
389 pokevi+29,255:forzd=39to47:pokevi+zd,4:next:goto480
480 rem *** setup sinus interrupt
481 syssa
492 pokevi+21,0:rem turn sprites on
493 pokess,7:zz=2:zy=10:zx=zy:gosub140
494 pokesa+6,3:pokesa+7,3:pokesa+8,zz
495 pokesa+9,zz:pokesa+10,zy
496 pokesa+13,zx
497 pokevi+37,14
498 pokevi+38,zc
500 z=z+1:if z=10 then z=0:zz=zz+1:if zz=5 then zz=2:zy=zy+5
501 if zy=40 then zy=10:zx=zx+5
502 y=y+1:ify<3thenzc=5
503 ify>2thenzc=4:ify>3theny=0:yy=yy+1:ifyy=8thenyy=0:goto506
504 geta$:if(peek(ss)=0)or(a$<>"")then510
505 goto494
506 yx=2^yz+yx:pokevi+21,yx:yz=yz+1:ifyz=8thenyx=0:yz=0:xx=xx+1
507 ifxx=1andpeek(vi+21)=1thengosub340:xx=2
508 ifxx=3andpeek(vi+21)=1thengosub730:xx=4
509 goto504
510 rem *** turn off sinus
511 pokevi+21,0
512 pokevi+32,0:pokevi+33,0
513 gosub140
515 rem *** gamestart
516 print"tolsen lived in an abandoned building [192][192]
517 [153]"he was a junkie tantan so there is a chance
518 print"he left something behind that will give
519 [153]"you some idea of what whirry was into.":[141]5:[151]vi[170]38,4
520 [151]vi[170]21,31:[129] t[178]1[164]3000:[130]:[151]vi[170]21,0:[151]vi[170]38,5
521 [153]"ononononononon(you know this case is not as simple as "
522 [153]"it looks.) as you climb the stairs of "
523 [153]"tolsen's place, you hear tantan someone is "
524 [153]"searching tolsen's place! ":[141]5:[151]vi[170]21,31
525 [129]t[178]1[164]3000:[130]:[151]vi[170]21,0:[141]640:[153]"it is lacy lune! though
526 print"she has cut and dyed her":print"hair, you recognize her
527 [153]"immediately. (you heard":[153]"she was back in town but
528 print"this isn't where you expec-":print"ted to find this rabbit!)
529 [153]"she makes a break for it":[153]"but you catch her with ease. she ";
530 [153]"breaks":[153]"into tears but you are not moved though
531 print"it may not be completely an act.":gosub5:h=18:j=0:gosub795
532 print"lacy gives in. she tells":print"you tolsen kept a metal "
533 print"box under the floorboards.":print"you find it empty except
534 [153]"for a scrap of paper that":[153]"reads: clrluthelcorp 246801 "
535 [153]"list(lacy is disappointed. you":[153]"let her go.)"
536 c$[178]" drop by murphy's to smalltalk":b$[178]" visit local luthelcorp office":x[178]3
537 a$[178]" visit whirry's old warehouse ":[141]200:[145]c[137]287,288,289
600 [143] *** ray newcube
601 [153]"load verifyposposnewnewnewnewnewposandcont list ";
602 [153]" def verify forcosverify forlogverifywaitrnd ";
603 [153]" list def verify cosfor verify ";
604 [153]" for verify wait list def verify ";
605 [153]" fortab(tab(verifytab( tab(fortab(tab(verify wait list def";
606 [153]" verify (NULL)tab(wait(NULL)tab(verifyfn thentab(wait(NULL)tab(verifystep wait list ";
607 [153]" def verify for(NULL)verify for tab(tab(tab(verify for verify for";
608 [153]"tab(tab(tab( verify for(NULL)verifywait list def verify for";
609 [153]"(NULL)verify for(NULL) (NULL) (NULL) (NULL)verify forwaitstepverify list ";
610 [153]" def verify (NULL)thenfor verify usrfreusr f