0 REM *** SAVE"@0:INF3.PT5",8
1 PRINT"";:DV=PEEK(186):IFDV<8THENDV=8
2 GOTO460
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
288 F$="INF3.PT4":GOTO291
289 F$="INF3.PT3":GOTO291
290 F$="INF3.PT2":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
420 REM *** BARTENDER (GORDON)
421 PRINT"[147]      [151][162][184][184][184][184][183][183][183][184][146][162][187][159] [155] ";
422 PRINT"      [159]                   [151][184]           ";
423 PRINT" [188][155][146]       [159]                  [152][190] [151]     ";
424 PRINT"     [185][185] [188][155][146]      [159]                [152][172][151][172][150]";
425 PRINT"[146][172][152][185] [164][151][172][150][184][184][184][151][187]     [191][152][146][172][188][155][146]      [159]    ";
426 PRINT"           [152] [167][150][185][162][146] [163][163]    [151][146][188][185][150][146][172][184][184][152][146]";
427 PRINT"[172]  [155][146]        [159]            [156] [152] [167][129]  [150][146][162]";
428 PRINT"[151] [150]      [162][146][190][129][184][184][146] [150] [152] [188][155][146]     [159]      ";
429 PRINT"        [150] [151] [152][172][129] [162] [146][162][151] [150][188]    [146][172][129][190]  [146] ";
430 PRINT" [150][187][152] [151][146][161][155]     [159]             [150] [151] [129][146][182] ";
431 PRINT"[188][146][187][162][175] [146][191]  [150]  [129] [162][146]   [150][188][151] [146][181][155]     [159]   ";
432 PRINT"          [150] [152] [129][146][182][150] [182][182][146] [161][129][190][190][146] [188] [172][146] ";
433 PRINT"[182][146] [161][129]  [151] [146][180][155]     [159]             [150] [152]";
434 PRINT" [182][150]  [183][183][183] [129] [146][161] [188]       [152] [146][180] [155]    [159]    ";
435 PRINT"        [150]  [152][188][182][150]  [146][191]  [129] [150] [129][146][161]    [172]  [146] ";
436 PRINT"[170][152] [146]  [155]   [159]             [150]     [146][191]  ";
437 PRINT" [172][187][129][188][146] [172]  [150] [129] [172][146] [170]    [155]   [159]          ";
438 PRINT" [150]    [170][170] [172][146][190][129][187][162]  [146]  [191] [188] [146]  [170]    [155]  ";
439 PRINT"[159]             [150]   [182][182] [129][146][162] [188][146][188][187] [146]      ";
440 PRINT"   [187]   [155]  [159]              [150]  [161]  [129] [150]  [129]";
441 PRINT" [146][187][162][146]  [187]      [180]   [155]    [159]            [150]";
442 PRINT"  [161]    [129][187]    [146][187]   [129][191][155][146]  [167]    [155]  [159]  ";
443 PRINT"             [150]      [146] [162][162][162][162][155][162][162]  [155]   ";
444 PRINT"[180][146]    [155]  [159]                [156] [150][188]  [129]  [155][146]";
445 PRINT" [162][175][175][155][185][146][190]    [190][146][190]    [155]  [159]           ";
446 PRINT"       [150][188][129]   [170][162][162][162][155][162][146]    [190][146][190]     [155] ";
447 PRINT" [159]                   [150][188]    [129]   [146][190] [150] [190]";
448 PRINT"[146][190]      [155]  [159]                  [155]  [150][188]   ";
449 PRINT"   [146]  [191][146]        [155]  [159]                ";
450 PRINT" [155]     [150][183][184][184][184][184][184][184][155]":RETURN
460 SYS49615:POKE781,0:POKE782,150:SYS49664
487 VI=53248:PG=64:SA=PG*256:SP=248
488 SS=49152:POKEVI+32,0:POKEVI+33,0
489 POKEVI+29,255:FORZD=0TO7:POKEVI+ZD,4:NEXT
490 SYSSA
491 REM *** POKE SPRITE DATA
492 YY=14:FORI=0TO7
493 POKE2040+I,248+I:REM SPRITE POINTERS
494 POKEVI+39+I,I+1:REM SPRITE COLORS
495 POKEVI+37,14:POKEVI+38,15:NEXT
496 POKEVI+29,255:REM X SIZE
497 POKEVI+23,0:REM Y SIZE
520 REM *** POKE SPRITE DATA2
521 POKEVI+28,255:REM MULTICOLOR ON
522 POKEVI+37,5:REM MULTICOLOR 1
523 POKEVI+38,13:REM MULTICOLOR 2
524 POKEVI+21,0:REM TURN SPRITES ON
525 POKESS,7:ZZ=2:ZY=10:ZX=ZY:GOSUB930
526 POKESA+6,2:POKESA+7,1:POKESA+8,ZZ
527 POKESA+9,ZZ:POKESA+10,ZY
528 POKESA+13,ZX:POKEVI+37,14
529 POKEVI+38,ZC:POKEVI+39,3
530 Z=Z+1:IF Z=10 THEN Z=0:ZZ=ZZ+1:IF ZZ=5 THEN ZZ=2:ZY=ZY+5
531 IF ZY=40 THEN ZY=10:ZX=ZX+5
532 Y=Y+1:IFY<3THENZC=5
533 IFY>2THENZC=4:IFY>3THENY=0:YY=YY+1:IFYY=15THENYY=0:GOTO536
534 GETA$:IF(PEEK(SS)=0)OR(A$<>"")THENPOKE49152,0:GOTO540
535 GOTO526
536 YX=2^YZ+YX:POKEVI+21,YX:YZ=YZ+1:IFYZ=8THENYX=0:YZ=0:XX=XX+1
538 GOTO534
540 REM *** TURN OFF SINUS
541 POKEVI+21,0:POKEVI+32,0:POKEVI+33,0
542 SYS57812"ALIEN FONT",DV,0:POKE780,0:POKE781,0:POKE782,48:SYS65493
543 POKE53272,29
545 REM *** GAMESTART
546 POKESA+6,3:POKEVI+38,4:PRINT"YOU KNOW TONIGHT IS YOUR SNITCH'S NIGHT
547 [153]"OFF FROM WORKING AT MURPHY'S BAR, SO YOU
548 PRINT"GO TO HIS APARTMENT.":GOSUB5:POKEVI+21,63
549 FORT=1TO3000:NEXT:POKEVI+21,0:POKEVI+38,5
550 PRINT"[145][145][145][145][145]YOU ARE SURE HE'S SLEEPING IN.  GORDON'S
551 [153]"GROWL AT YOUR RING PROVES YOU ARE RIGHT ON THE MONEY.       ":[141]5
552 [151]VI[170]21,63:[129]T[178]1[164]3000:[130]:[151]VI[170]21,0:[151]VI[170]38,4
553 [141]420:[153]""[166]23)"YOU FLASH A TEN-":[153][166]23)"SPOT AT GORDON &
554 PRINTSPC(23)"INTRODUCE YOUR-":PRINTSPC(23)"SELF AS JEREMY
555 [153][166]23)"CLARK, YOUNGER":[153][166]23)"BROTHER TO YOUR-
556 PRINTSPC(23)"SELF.  HE BUYS IT":PRINTSPC(23)"& INVITES YOU IN.
557 [153][166]23)"A GOOD $20 LATER,":[153][166]23)"YOU KNOW LACY'S
558 PRINTSPC(23)"SISTER'S ADDY IN":PRINTSPC(23)"AMGOTH.":GOSUB5
559 GOSUB930:PRINT"(LACY LUNE WAS KEN TOLSEN'S GIRLFRIEND.
560 [153]"TOLSEN WAS REPORTER LEA LISON'S FAVORITESNITCH.)":[141]5
561 [151]VI[170]21,31:[129]T[178]1[164]3000:[130]:[151]VI[170]21,0
562 [153]"ONONONONONSO WENCUBE WAS EITHER CHECKING OUT LEA'S
563 PRINT"INVOLVEMENT OR SHE JUST CROSSED PATHS IN
564 [153]"THIS.  TOLSEN IS DEAD.":[141]5:[151]VI[170]38,5:[151]VI[170]21,31
565 [129]T[178]1[164]3000:[130]:[151]VI[170]21,0:A$[178]" SHELL OUT MORE CASH TO SNITCH"
566 B$[178]" BREAK INTO LISON'S HOME ADDY ":C$[178]" GO TO 'STARTOWER' CYBER CAFE ":X[178]1
567 [141]770:[141]200:[145]C[137]568,583,290
568 [141]420:[153]""[166]23)"YOU PART WITH A":[153][166]23)"TENSPOT TO LEARN
569 PRINTSPC(23)"THAT YOUR LATE":PRINTSPC(23)"PARTNER DROPPED
570 [153][166]23)"BY ANNA GALL'S":[153][166]23)"HEALTH SPA WHERE
571 PRINTSPC(23)"LACY LUNE KEPT A":PRINTSPC(23)"LOCKER.  YOU DIS-
572 [153][166]23)"CUSS WHIRRY WITH":[153][166]23)"GORDON LONG ENUFF
573 PRINTSPC(23)"TO LEARN WHIRRY":PRINTSPC(23)"WAS TOXIC DUMPING[145][145]":GOSUB5
574 POKEVI+38,4:GOSUB770:PRINT"YOU DROP BY ANNA GALL'S SPA.  THOUGH IT
575 [153]"IS OPEN, ANNIE ISN'T AROUND.  SHE WENT
576 PRINT"TO YOUR PARTNER'S WAKE.  THAT'S OK, YOU CAME TO SEE LACY'S LOCKER.
577 [141]5:[151]VI[170]21,15:[129]T[178]1[164]3000:[130]:[151]VI[170]21,0:[151]VI[170]38,5
578 [153]"ONONONONONONONYOU PART WITH TEN BUCKS TO LOOK AT AN  "
579 [153]"EMPTY LOCKER.  OH WELL, YOU DIDN'T THINK
580 PRINT"MUCH WOULD COME FROM THIS SIDETRIP!  YOUREVIEW YOUR OPTIONS.       "
581 GOSUB5:POKEVI+21,15:FORT=1TO3000:NEXT:POKEVI+21,0
582 A$=" VISIT CRIME LAB TECH RAGSODY ":GOSUB930:GOSUB200:ONCGOTO289,583,290
583 GOSUB670:PRINT""SPC(18)"BREAKING INTO LISON'S
584 [153][166]18)"IS RELATIVELY EASY.":[153][166]18)"YOU FIND NOTHING OF
585 PRINTSPC(18)"INTEREST.  ON THE WAY":PRINTSPC(18)"TO THE SUBWAY, YOU
586 [153][166]18)"FIND YOU PICKED UP A":[153][166]18)"TAIL.  YOU LOSE HIM.
587 A$=" GO TO YOUR PARTNER'S WAKE    ":B$=" VISIT CRIME LAB TECH RAGSODY "
588 GOSUB200:ONCGOTO288,289,290
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] [150][146][188]  [183][197][197][183]  [146][190][149] [150][146]                  ";
684 PRINT"[155] [150]        [129] [149][188] [150][146][188]  [183][183]  [146][190][149] [172][152][146] [150]   ";
685 PRINT"              [155] [150]        [149] [150]  [149] [150][146][188] [149] ";
686 PRINT" [150] [146][190][149] [146][190][150] [151] [150]                 [155] [150]     ";
687 PRINT"   [154]    [150] [162][149]  [150][146][162] [154]      [150]             ";
688 PRINT"         [154]      [150][172] [183][183] [146][187][154]      [150]       ";
689 PRINT"       [155]  [150]         [190] [146]          [188][146][155]":RETURN
700 GOSUB930:VI=53248:GOTO545
770 REM *** CITYSCAPE5
771 PRINT"[147][154]                 .[155]                    ";
772 PRINT"  [154]  [145].[155]                                 ";
773 PRINT"    [154]             [152]  [155]                  ";
774 PRINT"       [151]         [154].   [152][170][180][151]     [154].[155]      ";
775 PRINT"             [154]     [151][164]       [152][182][181][151]        ";
776 PRINT"   [152][172][162][187][172][162][187][151]   [154].[155]    [154] [152][169][151][146][165] [186][152] [151][146]    ";
777 PRINT"   [152][181][182][151][146]          [154].[152][161] [182][161] [182][155][146]        ";
778 PRINT"[151] [152] [223][151][146][164][152]   [223][151][146]   [152][172]    [146][187]         [152]";
779 PRINT"[161] [182][161] [182][155][146]        [151][164][152]       [151][146] [164][152][169]     ";
780 PRINT" [223][146]        [152]  [182][161]  [146][187][155]       [152]     [146]  ";
781 PRINT" [151][146][164][152]  [146]  [152]   [158] [152]  [146]     [152][172][190]     ";
782 PRINT" [182][155][146]       [152]  [151][146]     [152]   [151][146]  [151][169]  [146] ";
783 PRINT"  [152] [146]  [152] [146][162] [172]  [146]     [182][146]    [152][172][187][155] [151]";
784 PRINT"   [158][146]   [153] [152]  [153][146]  [151][169]   [146]   [152]      [191] [151]";
785 PRINT"  [152][146]    [182][151][146][164][155]   [152]  [151][146][165]      [152][146] [151]    ";
786 PRINT"     [146]   [152]   [151][146]      [152][146]  [151]  [152]  [223][151][146][164][152]";
787 PRINT"[169]  [223][151]           [155]    [151] [156][146] [151]    [152] [151][146]  ";
788 PRINT"[151]     [152][146] [151]  [155][146] [152]    [151]  [152] [151]   [155]   [151]  [155]";
789 PRINT"       [151] [152][146] [151]     [146] [152] [151] [155]   [151]    [160][155][146]  ";
790 PRINT"[151]    [152] [151]   [155]      [152][146]  [155] [152][146]  [155] [151]   [155]  ";
791 PRINT" [151]    [155]       [151]       [152] [155]    [146]    [146]    ";
792 PRINT"               [146]           [151]  [155]  [146]    ";
793 PRINT"  [146]          [146]   [146]    [146][190]      [188][190]      [146]":RETURN
930 REM *** CITYSCAPE10
931 PRINT"[147][154]      [154] [151]  [154].[151]     [154] [151]     [154].[151] [154] [151]  ";
932 PRINT"   [154].  [151]   [152] [155]    [154] . [151] [154]  [151] [154] [151]     ";
933 PRINT"[154]  [151]   [154]       [152]     [152]   [155] [154] [155]  [154].[155] ";
934 PRINT" [151]     [154]   [151]  [154] .       [154].    [154].[152]   ";
935 PRINT"     [155]         [152]    [154].      [152]     [154] ";
936 PRINT"  [154]    [152]        [154].[155]  [154] [155]  [154], [152]  [174][174][146] [152]";
937 PRINT"      [154] [152]   [158]   [154].  [154]  [152]  [176][146][161] [161] [146] ";
938 PRINT" [155]   [154]. [155]  [152]  [174][174][174][146] [151] [152]     [152] [164][164]  [154] .";
939 PRINT" [154] [151]  [152]  [182][176] [146] [176] [146][181]    [154]   [155] [152]     [146]";
940 PRINT"[175]   [176] [146][164][206]  [165]  [151] [154] [151]  [152]   [182][176] [146] [176] [146][181]  ";
941 PRINT"  [155]  [152]  [174][174][151][146]    [152][204] [176] [151][146]    [152] [165][169][174][174][174][146] ";
942 PRINT"    [176]  [146][164][176][176][176][146][161]  [175][175]     [151][146]     [152][180] [151][146] ";
943 PRINT"    [152]  [174][174]   [146][164]  [169] [146]       [146] [206]  [204][175] [174][151]";
944 PRINT"[146]  [155][176][176] [151][146] [152][180][155] [174][174][151][146]     [152] [174] [151][146]   [152][205]  ";
945 PRINT"[151][146]       [152] [146][164][165][151] [152] [151]  [152][165] [151][146]  [155][176]  [151][146] [152][204]";
946 PRINT"[155] [174] [174][174][151][146]   [152] [174][155][176][176] [151][146]  [152][204] [151][146]  [155] [174] [174][151][146]";
947 PRINT"        [152][165][151]   [155][176][176] [151][146]  [155] [174] [174] [174][151][146]  [152] [155][176]";
948 PRINT" [176][176] [151][146]  [152] [151][146]  [155] [174][174]  [151][146]  [155][176][176] [151][146]  [152][204][151]  ";
949 PRINT" [155][176]  [151][146]  [155] [174] [174] [174][151][146]   [155][176][176][176] [176] [151][146]   [155] [174]";
950 PRINT"  [174][174][151][146] [155][176] [176][176] [151][146]    [155][176][176][176] [151][146]  [155]  [174][174] [174] [174]";
951 PRINT"[151][146] [155]  [176][176]  [151][146]  [155] [174]  [174] [174][151][146] [155][176][176] [176][176] [151][146]   ";
952 PRINT"[155][176] [176]  [151][146] [155] [174] [174][174][174] [174][151][146] [155][176][176][176] [176] [151][146]  [155]   ";
953 PRINT"[174] [174][174] [176]  [176]  [151][146] [155][176][176] [176] [176]   [174][174] [174] [174][174] [176] [176][176][176]  ";
954 PRINT" [174] [174] [174] [174]  [176] [176][176][176]                         ";
955 PRINT"                                        ";
956 PRINT"                [146]":RETURN
10000 D=PEEK(186):N$="0:INF3.PT5":OPEN15,D,15,"S"+N$:CLOSE15:SAVEN$,D:END