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] [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 GOSUB900:VI=53248:GOTO360 870 REM *** CITYSCAPE8 871 PRINT"[147][153]  [153]  [153] [151][184] [184][153]"; 872 PRINT"[146] [155].[153] [155] [153]  [153] [151][223][146] [155].[153]  "; 873 PRINT" [155].[153] [151] [146][191] [153][146] [155] [153]  "; 874 PRINT" [155] [151] [223][146] [169][153][146]  [153] [155].[153] [151] [191] [153][146]"; 875 PRINT" [155] [153] [151][221][155] [153]  [155] [151] [146]  [146] "; 876 PRINT" [151] [153] [155].[151] [146][191] [146] [151] [187] [155][146] [153] [151][184] [184]"; 877 PRINT"[153][146]  [155] [151] [191] [188] [146] [151] [187][170][146] [155].[151][184] "; 878 PRINT"[191] [155][146] [151] [191] [190][155][146] [151][172] [187][146] [155] [151] [191] "; 879 PRINT"[146] [152] [167][151][172][190][146][191][170][146] [151] [191] [190] [191] [155][146] [151] [190][191] [155][146] "; 880 PRINT" [151] [146] [152][207][163][163][163][163][163][163][146]  [191][167][151][164][164][164][152][207][183][183][183][208]"; 881 PRINT"[151] [190] [152][207][183][183][208][151] [188] [155][146] [151][164][188][164][190][164][146] [151][172] [152][180][191] [146][191] "; 882 PRINT"[191] [188] [172][188] [183][183][183] [191] [163][163][163][155][146] [152][163][163][163][163][163][163][146] [151]"; 883 PRINT"[172][191][152][165][190] [188] [187][172][155][163][163][163][152][187] [190] [190] [191][190] [191][190] [191][190][190] [190] [190][191]"; 884 PRINT" [187][146] [151][164][164][152][180][191][190] [191] [172][155][207][187][190] [208][152][187][155][207][183][183][223][152][188] [190] [172] "; 885 PRINT"[191] [155][207][183][152][191][190] [191] [187] [187] [190][188] [155][207] [187][190] [183] [187][191] [223][152] [190] "; 886 PRINT"[155][207][183][208][152] [155][207] [152] [190] [187] [190] [155][207][183][183][183][183] [187][191] [191] "; 887 PRINT" [223][152][172] [155][180][188][167][152][172][191][155][207] [188] [152] [155][207][183][183][208][152] [155][207][183][183][183] [172] [146][191] "; 888 PRINT" [191] [146][191] [187][190][188][167][152] [155][180][146][191][167][152] [155][180][188] [163] [172] [183][183] "; 889 PRINT"[172] [191] [191] [190] [183][183] [188] [208][152][160][155][180][146][191] [172][191] [172]"; 890 PRINT"[188] [190][191] [172][172] [190] [190] [188] [191] [146][191] [191] [191] [146][191] [190] [163][188] [191][190]"; 891 PRINT" "; 892 PRINT" ":RETURN 900 REM *** CITYSCAPE4 901 PRINT"[147][154]  [154] [151] [155].[151]  [154] [151] [155].[151] [154] [151] "; 902 PRINT" [159]. [151] [152] [155] [154] [155]. [151] [154]  [151] [154] [151] "; 903 PRINT" [154]  [151]  [154]  [152] [154]op[152]  [154]op [155] [154] [155] "; 904 PRINT"[159].[155] [151]  [154]  [151] [154] [159]. [159]. [155]"; 905 PRINT".[154]o [170] [180] p[155]  [154]o[183]p [155]. [154]o[183]p"; 906 PRINT" [154]  [154]  [154][180] [170] [180] [170][159].[155] [154] [155] [159].[154] [152] [154]"; 907 PRINT"[180] [170] [152]  [154]op[152]  [154] [180] [170][158]  [159]. [154]  [154]o "; 908 PRINT"[183][183] [170][155] [159].[154] [155] [152] [154]o p[151] [154]o [170][152]  [169] [154]"; 909 PRINT"[146][170] [154] [159]. [154] [151] [154]o  [154][146] p [154]  [155]"; 910 PRINT" [152] [154][180] [183] p[169] [154][146] p [151] [154] [151] [154]o "; 911 PRINT" [154][146]  [155][146]  [154]o[183][183]  [154][146]  "; 912 PRINT" [154][146] p[151] [154]o[183]  [154][146]  [146]  "; 913 PRINT" [154][146]  [154][146]  [154][146] [183][183]  "; 914 PRINT" [152][146]  [154][146]  [159][146]o[183]p [159][146]o[183]p"; 915 PRINT" [154][146]  [154][146]  [154][146]"; 916 PRINT"  [159][146][180] [170] [159][146][180] [183][183]p [154][146]  [159][146]o[183]p "; 917 PRINT" [154][146]  [159][146]o[183][183]p [159][146][180] [170] [159][146]"; 918 PRINT"[180] [170] [159][146]o p [159][146][180] p [159][146]o[183]"; 919 PRINT"p [159][146][180] [170] [159][146][180] [170] [159][146][180] p"; 920 PRINT" [159][146]o [170] [159][146]o p [159][146]o [183][183] "; 921 PRINT" [183]p [159][146][180] [170] [159][146]o [183] p "; 922 PRINT"[159][146][180] [170] [159][146][180] [170] [159][146][180] "; 923 PRINT" [170] [159][146][183][183] [183] [183][183] [183][155]":RETURN 10000 D=PEEK(186):N$="0:INF3.PT3":OPEN15,D,15,"S"+N$:CLOSE15:SAVEN$,D:END