0 REM ***** SAVE"@0:INF2.PT3",8 1 DV=PEEK(186) 2 POKE53272,29:GOTO250 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 100 REM *** CITYSCAPE 101 PRINT"[147][154] .[155] "; 102 PRINT" [154] .[155] "; 103 PRINT" [154] [151][167][155] "; 104 PRINT" [151] [154]. [151][217][165] [154].[155] "; 105 PRINT" [154] [151][164] [200][212] "; 106 PRINT"[176][192][174][176][192][174] [154].[155] [154] [151][206][165] [186][167] [194][194]  "; 107 PRINT" [154].[151][194][158].[151][194][194][158].[151][194][155] [151] [180][205][164][165][158].[151][163][205] "; 108 PRINT"[176][207][183][183][208][174] [151][194][158].[151][194][194][158].[151][194][155] [151][164][180][158]"; 109 PRINT".....[151][167] [164][206] [158].... [151][205] [151][194][158].[151][194][194][158].[151]"; 110 PRINT"[173][174][155] [151] [158].....[151][167][164][165][158]. [158].. [158] .[151][208] "; 111 PRINT" [151][176][192][189] [151][173][189]  [151][194][155] [151]  "; 112 PRINT" [158].. [151][170] [151][207][177][208][220][158]... [158]. [158].[151][221] [151][176][174]"; 113 PRINT"[155] [153] [158] [153]  [151][183][183] [153]"; 114 PRINT" [151][221][164][155] [151][180][155] [151][165]  "; 115 PRINT" [153] [158].[151][205][164][206][155] [151][205] " 116 PRINT"[156][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][155]":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""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 250 SYS49615:POKE781,0:POKE782,150:SYS49664:POKE49152,7 277 VI=53248:PG=64:SA=PG*256:SP=248 278 SS=49152:POKEVI+32,0:POKEVI+33,0 279 POKEVI+29,255:FORZD=39TO47:POKEVI+ZD,5:NEXT:GOTO400 287 F$="INF2.PT5":GOTO291 290 F$="INF2.PT2" 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 300 REM *** MURPHY'S 301 PRINT"[147][152][175][186][151][175][175][186][152][175][175][186][185][175][186][151][175][175][186][152][175][175][186][175][175][186][151][175][175][186][152][175][175][186][175][175][186][151][175][175]"; 302 PRINT"[186][152][175][175][186][185][175][186][151][175][155][146] [152][186][185][175][186][155][175][175][186][152][175][175][186][151][175][175][186][152][185][175][186][175][175][186][151][175]"; 303 PRINT"[175][186][152][175][149][176][192][192][192][192][192][192][192][192][192][192][174][151][186][152][175][175][175][155][146] [152][175][186][155][175][175][186][151][185][185][186][152][185]"; 304 PRINT"[175][186][151][175][175][186][152][175][175][186][151][175][175][186][152][175][175][186][149][221] [221][152][175][175][186][155][175][146] [152]"; 305 PRINT"[186][175][175][186][185][175][186][151][175][175][186][152][185][175][186][155][185][185][186][175][175][186][152][175][175][186][175][149][221] MURPHY'S "; 306 PRINT"[221][155][186][152][175][175][175][155][146] [152][175][186][151][204][185][186][155][175][175][186][152][175][175][175][186][175][175][186][155][175][175][186][152][185][186][155][175][175]"; 307 PRINT"[186][149][221] [221][152][162][175][186][151][185][155][146] [152][186][155][175][175][186][152][162][175][186][175][175][186][151][175][175]"; 308 PRINT"[186][152][175][175][162][155][175][175][186][152][175][175][186][155][175][149][173][192][192][192][192][192][192][192][192][192][192][189][152][186][155][175][175][186][146] [152][175][186]"; 309 PRINT"[175][175][186][155][175][175][186][152][175][175][175][186][175][175][186][151][175][175][186][152][175][186][175][175][186][155][175][175][186][152][162][175][186][175][175][186][155][175][175][186]"; 310 PRINT"[152][175][175][186][175][155][146] [152][186][155][185][185][186][175][175][186][152][185][175][186][175][175][186][151][175][175][186][152][175][175][186][185][175][186][151][185][185][186]"; 311 PRINT"[155][175][175][186][152][162][175][186][175][175][186][151][175][175][186][152][162][175][155][146] [152][175][175][186][175][175][186][151][175][175][186][155][175][175][186][152][185][175]"; 312 PRINT"[186][151][175][175][186][152][175][186][175][175][186][155][175][175][186][152][185][175][186][151][185][185][186][152][175][175][162][151][175][175][186][152][175][155][146] [152][186][175]"; 313 PRINT"[175][162][155][175][175][186][175][175][186][152][175][175][186][175][175][175][186][151][175][186][152][175][175][186][155][175][175][186][152][162][175][186][175][175][186][151][175][175][186][152]"; 314 PRINT"[175][175][186][175][175][155][146] [151] "; 315 PRINT" [155][146] [151] [167][155]"; 316 PRINT"[192][192][192][146][174][151] [155][146] [151] "; 317 PRINT" [167][155] [146][221][151] [155][146] [149][163][163][163][163][163][163][163][163][163][163]"; 318 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][208][155] [146][221][149][163][163][163][163][163][163][163][163][163][163][155][146] [149] "; 319 PRINT" [167][158][163][163][163][149][207] [155]":RETURN 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 400 REM *** SETUP SINUS INTERRUPT 401 SYSSA 402 REM *** POKE SPRITE DATA 412 POKEVI+21,0:REM TURN SPRITES ON 413 POKESS,7:ZZ=2:ZY=10:ZX=ZY:GOSUB100 414 POKESA+6,3:POKESA+7,3:POKESA+8,ZZ 415 POKESA+9,ZZ:POKESA+10,ZY 416 POKESA+13,ZX:POKEVI+37,14 418 POKEVI+38,ZC 420 Z=Z+1:IF Z=10 THEN Z=0:ZZ=ZZ+1:IF ZZ=5 THEN ZZ=2:ZY=ZY+5 421 IF ZY=40 THEN ZY=10:ZX=ZX+5 422 Y=Y+1:IFY<3THENZC=5 423 IFY>2THENZC=4:IFY>3THENY=0:YY=YY+1:IFYY=8THENYY=0:GOTO426 424 GETA$:IF(PEEK(SS)=0)OR(A$<>"")THEN430 425 GOTO414 426 YX=2^YZ+YX:POKEVI+21,YX:YZ=YZ+1:IFYZ=8THENYX=0:YZ=0:XX=XX+1 427 IFXX=1ANDPEEK(VI+21)=1THENGOSUB340:XX=2 428 IFXX=3ANDPEEK(VI+21)=1THENGOSUB140:XX=4 429 GOTO424 430 REM *** TURN OFF SINUS 431 POKEVI+21,0 432 POKEVI+32,0:POKEVI+33,0 435 REM *** GAMESTART 436 GOSUB300:PRINT"YOUR SNITCH, THE GRAVEYARD BARTENDER AT 437 [153]"MURPHY'S, OFFERS YOU A SYMPATHY DRINK 438 PRINT"OVER CLARK. YOU DECLINE AND ASK IF HE 439 [153]"HAS ANY INFO YOU CAN USE. HE TELLS YOU 440 PRINT"LACY LUNE HIGHTAILED IT OUT OF TOWN.[145][145]":GOSUB5 441 PRINT"[145][145][145][145][145][145][145]LACY IS HIDING AT HER SISTER'S PLACE IN 442 [153]"AMGOTH. THE BARTENDER WRITES AN ADDRESS 443 PRINT"DOWN ON HIS ORDER PAD AND HANDS IT TO " 444 PRINT"YOU. YOU TELL HIM YOU NEED SOMETHING " 445 PRINT"LOCAL. HE NODS SLOWLY. [145][145]":GOSUB5 446 PRINT"[145][145][145][145][145][145][145]'DID 'YA KNOW THAT LACY WAS A MEMBER OF 447 [153]"ANNA GALL'S LITTLE HEALTH SPA NEAR JONES 448 PRINT"AND WASHINGTON?', HE ASK. YOU PEEL OFF 449 [153]"A TWENTY. THE BARTENDER GRIMACES. YOU 450 PRINT"PLUNK DOWN ANOTHER TWENTY. HE SMILES.[145][145]":GOSUB5 451 B$=" DROP BY LACY'S OLD HEALTH SPA":C$=" CHECK OUT KEN TOLSEN'S PLACE ":X=2 452 A$=" HANG AROUND MURPHY'S FOR NOW ":GOSUB600:GOSUB200:ONCGOTO453,457,290 453 GOSUB140:PRINT"NOTHING SHAKES LOOSE AT MURPHY'S. PETE 454 [153]"WHIRRY AND KEN TOLSEN BOTH HUNG OUT HERE 455 PRINT"SO YOU CAN HOPE TO GET LUCKY OR YOU CAN":H=17:J=0 456 PRINT"TRY ANOTHER TACK.[145][145]":GOSUB5:GOSUB795:GOSUB200:ONCGOTO453,457,290 457 GOSUB620:PRINT""SPC(25)"ANNA GALL IS":PRINTSPC(25)"TEACHING AN 458 [153][166]25)"AEROBIC CLASS":[153][166]25)"WHEN YOU POP 459 PRINTSPC(25)"IN. SHE HANDS":PRINTSPC(25)"THE CLASS OVER 460 [153][166]25)"TO ANOTHER IN-":[153][166]25)"STRUCTOR. SHE 461 PRINT"IS HAPPY TO SEE YOU AND ASK IF YOU LIKE 462 [153]"WHAT SHE'S DONE WITH HER FATHER'S GYM. 463 PRINT"(YOU ARE AN OLD FRIEND OF THE FAMILY.) 464 [153]"YOU TELL HER YOU ARE HERE ON BUSINESS.":[141]5 465 [153]""[166]25)"YOU WANT TO SEE":[153][166]25)"LACY'S LOCKER. 466 PRINTSPC(25)"ANNA TELLS YOU":PRINTSPC(25)"LACY EMPTIED IT 467 [153][166]25)"THIS AFTERNOON.":[153][166]25)"LACY IS BACK IN 468 PRINTSPC(25)"TOWN FOR KEN'S":PRINTSPC(25)"FUNERAL. ":H=16:J=0:GOSUB795 469 A$=" SEE WHO DROPS IN AT MURPHY'S ":B$=" VISIT WHIRRY'S OLD WAREHOUSE ":X=3 470 GOSUB200:ONCGOTO453,287,290 600 REM *** RAY NEWCUBE 601 PRINT"[147] [149][185][185][162][162][162][162][162][185][175][154] [155] "; 602 PRINT"  [150]  [149] [129][190][149] [129][188][149][146][187] "; 603 PRINT" [155]  [150] [149] [190][129] [149] "; 604 PRINT" [129] [149] [146] [155]  [150] [149] "; 605 PRINT" [129][163][163][149][163] [163][129][163][163][149] [146] [155]  [150]"; 606 PRINT" [149]  [223][163][146][209][163][149][165] [167][163][146][209][163][149][169] [146] [155] "; 607 PRINT"  [150] [149] [129][207][149] [129] [163][163][163][149] [129] [149] [129]"; 608 PRINT"[163][163][163] [149] [129][208][149][146] [155]  [150] [149] [129]"; 609 PRINT"[223][149] [129][205] [206] [205] [206][149] [129][146][169][149] [155]  "; 610 PRINT" [150] [149] [223][167][129] [149] [183][184][183] [129] [149][165][146][169] [155] "; 611 PRINT"  [150] [158] [149]  [129] [149][175][210][210][210][175][129] [149] "; 612 PRINT"[155][146] [149] [155]  [150] [149] [223][129] "; 613 PRINT" [175][175][175] [149][146][169] [155]  [150] [149] "; 614 PRINT" [129][223] [149] [129] [146][169][149] [155]  "; 615 PRINT" [150] [154] [129] [150] [129][163][163][163][149][163][163][155][146] [149] "; 616 PRINT" [155] [150] [129]  [149] [129][146] "; 617 PRINT" [155] [129][164][175][175][158][223] [129] "; 618 PRINT" [149] [158] [146][169][129][175][175][164][155]":RETURN 620 REM *** ANNA GALL 621 PRINT"[147][150]  [190] [190][187] "; 622 PRINT" [187][190] [172] [187] "; 623 PRINT" [155]  [187] [190] [187] "; 624 PRINT"  [187] [172] [149] [175][146][187] [191] [191][155] "; 625 PRINT"   [190] [149] [172][149][181][146][187] [152]  "; 626 PRINT"[187][155]   [188] [149][181][182] [175] "; 627 PRINT" [146][172] [172][155][180]  [149] [172] "; 628 PRINT"[172][150][146] [149][187][172][149][180] [172][185][182][150][146] [149] [187][149] [150] "; 629 PRINT"  [155]  [149][172] [172][150][146] [191] [149][187] [146][172][190][149][182][188][146] [191]"; 630 PRINT"[149][184][184][146][187] [150]  [155]  [149][172] [172][146][191] "; 631 PRINT" [155]  [149][184][162][185][185][146][190] [158] [149][187] [146][187] [150] "; 632 PRINT" [155]  [149][172] [150][146] [188] [191][149][175][158][190][223][149] [158] [188][149][187] [146]"; 633 PRINT" [150]  [155]  [149] [183][183][183][183][183][183] [158][180][223]"; 634 PRINT"[149] [158] [149][146][188] [160][188][146] [150]  [155]  [149][187] "; 635 PRINT" [158][180] [223][149] [158] [223][149][187] [146]  "; 636 PRINT" [155]  [156] [149][163][183][183][183][183][183][163][163][150] [158][207] [146][187][149] [188][146] "; 637 PRINT"  [155]   [158] [180] "; 638 PRINT"[170][149][146][188] [146][155] ":RETURN 795 REM *** CLEAR TEXT 796 FORI=HTO24:POKE781,I:SYS59903:NEXT:POKE214,J:RETURN 900 VI=53248:GOTO435 10000 D=PEEK(186):N$="0:INF2.PT3":OPEN15,D,15,"S"+N$:CLOSE15:SAVEN$,D:END