0 REM *** SAVE"@0:INF3.PT2",8 1 POKE56,150:CLR:POKE53281,0:POKE53280,0:POKE53371,0:DV=PEEK(186):PRINT""; 2 GOTO120 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 120 SYS49615:POKE781,0:POKE782,150:SYS49664 147 VI=53248:PG=64:SA=PG*256:SP=248 148 SS=49152:POKEVI+32,0:POKEVI+33,0 149 POKEVI+29,255:FORZD=0TO7:POKEVI+ZD,4:NEXT 150 SYSSA 151 REM *** POKE SPRITE DATA 152 YY=14:FORI=0TO7 153 POKE2040+I,248+I:REM SPRITE POINTERS 154 POKEVI+39+I,I+1:REM SPRITE COLORS 155 POKEVI+37,14:POKEVI+38,15:NEXT 156 POKEVI+29,255:REM X SIZE 157 POKEVI+23,0:REM Y SIZE 158 POKEVI+28,255:REM MULTICOLOR ON 159 POKEVI+37,5:REM MULTICOLOR 1 160 POKEVI+38,13:REM MULTICOLOR 2 161 POKEVI+21,0:REM TURN SPRITES ON 162 POKESS,7:ZZ=2:ZY=10:ZX=ZY:GOSUB870 163 POKESA+6,2:POKESA+7,1:POKESA+8,ZZ 164 POKESA+9,ZZ:POKESA+10,ZY 166 POKESA+13,ZX:POKEVI+37,14 168 POKEVI+38,ZC:POKEVI+39,3 170 Z=Z+1:IF Z=10 THEN Z=0:ZZ=ZZ+1:IF ZZ=5 THEN ZZ=2:ZY=ZY+5 171 IF ZY=40 THEN ZY=10:ZX=ZX+5 172 Y=Y+1:IFY<3THENZC=5 173 IFY>2THENZC=4:IFY>3THENY=0:YY=YY+1:IFYY=15THENYY=0:GOTO176 174 GETA$:IF(PEEK(SS)=0)OR(A$<>"")THENPOKE49152,0:GOTO180 175 GOTO163 176 YX=2^YZ+YX:POKEVI+21,YX:YZ=YZ+1:IFYZ=8THENYX=0:YZ=0:XX=XX+1 179 GOTO174 180 REM *** TURN OFF SINUS 182 POKEVI+21,0:POKEVI+32,0:POKEVI+33,0 183 SYS57812"ALIEN FONT",DV,0:POKE780,0:POKE781,0:POKE782,48:SYS65493 184 POKE53272,29 185 REM *** GAMESTART 186 PRINT"WITH THE MONEY YOU KEEP ON A NOW VERY 187 [153]"DUSTY BOOKSHELF IN YOUR APARTMENT, YOU 188 PRINT"BUY A NEWSPAPER TO READ ON THE SUBWAY[145][145][145]":GOSUB5:POKESA+6,3 189 POKEVI+38,4:POKEVI+21,31:FORT=1TO3000:NEXT:POKEVI+21,0:POKEVI+38,5 190 PRINT"[145][145]RIDE TO THE CYBER CAFE. THE TOP STORY 191 [153]"IS THE MYSTERIOUS DEATH OF RAY WENCUBE. 192 PRINT"HIS BODY WAS FOUND IN THE PERMANSU BAY.[145][145][145]":GOSUB5:POKEVI+21,31 193 FORT=1TO3000:NEXT:POKEVI+21,0 194 GOSUB210:PRINT"YOUR OWN DEATH IS ALSO IN THE PAPER [192][192] 195 [153]"YOU READ THAT YOU DIED IN AN EXPLOSION 196 PRINT"AT THE WHIRRY SEWAGE PLANT.[145][145][145]":GOSUB5 197 PRINT"[145][145]THE PAPER SPECULATES THAT THE CASE FILE 198 [153]"ON THE METROPOLIS DOCKSIDE MUTILATION " 199 [153]"MURDERS WAS CLOSED TOO SOON.":[141]5:[137]300 200 [143] *** OPTIONS TABLE 201 [153]""[166]16)"LISTOPTIONS":[153]" CLR 1 WAIT LIST"A$ 202 [153]" CLR 2 WAIT LIST"B$:[153]" CLR 3 WAIT LIST"C$:C[178]0 203 [139]X[178]1[167][153]"ONONONONONLIST 1 CLR"A$ 204 [139]X[178]2[167][153]"ONONONLIST 2 CLR"B$ 205 [139]X[178]3[167][153]"ONLIST 3 CLR"C$ 206 [141]5:[139]K$[178]""[175]X[179]3[167]X[178]X[170]1 207 [139]K$[178]"ON"[175]X[177]1[167]X[178]X[171]1 208 [139]K$[178][199](13)[167]C[178]X:[142] 209 [137]200 210 [143] *** JAMES CLARK2 211 [153]"LOAD SYS TOANDANDTO DEF PRINT "; 212 [153]" LIST SYS *SIN NOTLOGWAITRND CONT PRINT "; 213 [153]" CONT LIST SYS *POSSIN WAITSPC("; 214 [153]"RNDWAITRND DEF PRINT LIST SYS  SIN"; 215 [153]" SIN WAITSPC(*WAIT PRINT LIST "; 216 [153]" SYS  SIN SIN(null)POS(null)SPC( SPC(WAIT PRINT LIST "; 217 [153]" SYS SIN SINDEFNEW NEWSYSWAITSIN WAIT  PRINT "; 218 [153]" LIST SYS  SYSRND WAITINTDEFPOSCOS LOGWAITPOSSYSABSSIN*WAIT"; 219 [153]"  PRINT LIST  SYSLOGTHENDEFSPC("; 220 [153]" TAN SPC(SYSSGNWAITCOS PRINT  LIST DEF  "; 221 [153]"DEF  SYSLOGDEF(null)ANDANDAND SYSWAITCOS PRINT "; 222 [153]"  DEF(null) TAN (null)WAIT SYS  PRINT "; 223 [153]"  DEF(null)USRUSRUSRTHENWAIT "; 224 [153]" PRINT  POSFREUSRUSRTAB((null) (null)TAB(USR"; 225 [153]"USRFREWAITNEWANDPOKE PRINT  COS "; 226 [153]" LOGPOKEWAIT  PRINT  DEF *LOG"; 227 [153]" *DEFWAITRNDPOKE PRINT  "; 228 [153]" DEF* WAITLOG *DEFSTEP WAITRNDPOKE PRINT "; 229 [153]"  DEF* WAITRND *DEFSTEP WAIT"; 230 [153]"RNDPOKE LIST PRINT  DEF* WAITCOS "; 231 [153]" DEFWAITLOG WAIT POKE LIST POKE PRINT POKE DEF "; 232 [153]" WAITCOS RND *DEFWAIT LOG LOGPRINTWAITLIST":[142] 235 [143] *** CLEAR TEXT 236 [129]I[178]H[164]24:[151]781,I:[158]59903:[130]:[151]214,J:[142] 286 F$[178]"INF3.PT6":[137]291 288 F$[178]"INF3.PT4":[137]291 289 F$[178]"INF3.PT3":[137]291 291 [158]SA[170]3:[151]53280,0:[151]53281,0:[151]49152,0:[158]49935 293 [153]"STOPLOAD"[199](34)F$[199](34)","DV:[153]"RUN" 294 [151]631,13:[151]632,13:[151]198,2:[128] 300 B$[178]" PHONE NEWSPAPER ABOUT STORY ":C$[178]" CALL ON FAVE LABTECH INSTEAD ":X[178]2 301 A$[178]" CONTINUE ONTO STARTOWER CAFE ":[141]800:[141]200:[145]C[137]302,317,289 302 [141]900:[153]"NO ONE YOU KNOW IS AT THE STARTOWER CAFE 303 PRINT"THIS EVENING. THIS IS FOR THE BEST YOU 304 [153]"FIGURE. YOU TAKE A SEAT AT YOUR FAVE 305 PRINT"BOOTH AND ORDER SOME COFFEE & A BAGEL.[145][145][145]":GOSUB5:POKEVI+38,4 306 POKEVI+21,7:FORT=1TO3000:NEXT:POKEVI+21,0:POKEVI+38,5 307 PRINT"[145][145][145][145]YOU LOG ONTO A COMPUTER AND FIND YOU'VE " 308 PRINT"GOT E-MAIL DATED AFTER YOUR DEATH! YOU 309 [153]"DISCOVER RAY WENCUBE WAS USING YOUR E- 310 PRINT"MAIL ADDY FOR HIS PRIVATE RECORDS. [145][145][145]":GOSUB5:POKEVI+21,7 311 FORT=1TO3000:NEXT:POKEVI+21,0 312 GOSUB210:PRINT"OBVIOUSLY, YOUR PARTNER THOUGHT THERE 313 [153]"WERE QUESTIONS ABOUT THE CASE, ABOUT 314 PRINT"PETE WHIRRY [192][192] THE DOCKSIDE MURDERER.":GOSUB5 315 B$=" GO TO YOUR PARTNER'S WAKE ":C$=" CALL ON FAVE LABTECH INSTEAD ":X=2 316 A$=" VISIT LOCAL LUTHELCORP OFFICE":GOSUB800:GOSUB200:ONCGOTO325,288,289 317 H=16:J=16:GOSUB235:PRINT"[155]THE NEWSPAPER TELLS YOU LEA LISON WAS 318 [153]"THEIR REPORTER ON THE SEWAGE PLANT EX- 319 PRINT"PLOSION. SHE LEFT FOR AMGOTH YESTERDAY.[145][145][145]":GOSUB5:POKEVI+38,4 320 POKEVI+21,15:FORT=1TO3000:NEXT:POKEVI+21,0:POKEVI+38,5 321 PRINT"[145][145][145]YOU REMEMBER HER [192][192] SHE WAS IN ANOTHER WEIRD DREAM, ONE OLDER "; 322 PRINT"THAN THE ONE THATWOKE YOU [192][192] IF ONLY YOU [192][192] IT'S GONE! [145][145][145]":GOSUB5 323 POKEVI+21,15:FORT=1TO3000:NEXT:POKEVI+21,0 324 B$=" GO TO YOUR PARTNER'S WAKE ":GOSUB210:GOSUB200:ONCGOTO302,288,325 325 GOSUB870:POKEVI+38,4:PRINT"ACCORDING TO THE RECORDS YOU FOUND AT 326 [153]"YOUR E-MAIL ADDY, RAY WAS CHECKING UP ON 327 PRINT"WHIRRY'S BUSINESS CONTRACTS.[145][145][145]":GOSUB5:POKEVI+21,3:FORT=1TO3000:NEXT 328 POKEVI+21,0:GOSUB870:PRINT"A LOCAL ADDRESS FOR LUTHELCORP & A DOOR 329 [151]VI[170]38,5:[153]"ACCESS CODE (CLR246801LIST) WERE RECORDED BY 330 PRINT"WENCUBE. A VISIT SEEMS MANDATORY.[145][145][145]":GOSUB5:POKEVI+21,3 331 FORT=1TO3000:NEXT:POKEVI+21,0:GOTO286 700 VI=53248:GOSUB870:GOTO185 800 REM *** CITYSCAPE6 801 PRINT"[147][155] [156] [158] [185][185][185][185][185] . . "; 802 PRINT" .[155] [156] .[156] [167][154] [146][180][151] [155]."; 803 PRINT" .[155] . [155] [158] [156] [155] .[155] "; 804 PRINT"[170][154]  [154][180][146]l[175][151] [152]  . [153]. "; 805 PRINT" [155] [158] [156] [153]. [175][175][175] [155].[167][154]  [154]l [146][180][159] "; 806 PRINT".[159] [155]  [155]. [146] [155]. . [175][175] [153].[155] [153].[158] "; 807 PRINT"[167][154] [146]l[175][186][154]  [154][180] [146][180] [155].  [146][175]"; 808 PRINT"[175][175] [170][154] [146][180][155] [158]  [146][186][154] [175][175]  [156][183][183]"; 809 PRINT" [154]l [146]l[175][175][175]  [154] [146][180] [155].[170][154] [146]l[175][175][155] "; 810 PRINT"[175] [154]  [154][180]  [156]  [154][180] [146]l[175] "; 811 PRINT"[154] [146]l[175]  [154]l [146]l[154]  [154][175][175] [154][180]  [156][183] "; 812 PRINT" [183] [154]l[156] [154]  [154] [146][175] [154]l[175] [156][183][183]"; 813 PRINT"[183] [156]  [156][183]  [156]  [154][175][175] [156] [154][175]"; 814 PRINT"[175][175] [154]l[156]  [156] [183] [156] [183][183]  "; 815 PRINT" [156]  [156][183][183][183] [156] [183][183] [159][146] [156] "; 816 PRINT"  [156][183][183][183] [183][183][183][183][183] [146]  "; 817 PRINT" [146]  [146]  [146]  [183][183][183] [146]  [159][146] [156] "; 818 PRINT" [146]  [146]  [146]  [146]  [146] "; 819 PRINT"  [146] [159]  [156] [146] [159] [156] [146]"; 820 PRINT"  [146]  [146] "; 821 PRINT"  [146]  [146] "; 822 PRINT"  [146][155]":RETURN 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][207][208][152]  [154][207][208] [155] [154] [155] "; 904 PRINT"[159].[155] [151]  [154]  [151] [154] [159]. [159]. [155]"; 905 PRINT".[154][207] [170] [180] [208][155]  [154][207][183][208] [155]. [154][207][183][208]"; 906 PRINT" [154]  [154]  [154][180] [170] [180] [170][159].[155] [154] [155] [159].[154] [152] [154]"; 907 PRINT"[180] [170] [152]  [154][207][208][152]  [154] [180] [170][158]  [159]. [154]  [154][207] "; 908 PRINT"[183][183] [170][155] [159].[154] [155] [152] [154][207] [208][151] [154][207] [170][152]  [169] [154]"; 909 PRINT"[146][170] [154] [159]. [154] [151] [154][207]  [154][146] [208] [154]  [155]"; 910 PRINT" [152] [154][180] [183] [208][169] [154][146] [208] [151] [154] [151] [154][207] "; 911 PRINT" [154][146]  [155][146]  [154][207][183][183]  [154][146]  "; 912 PRINT" [154][146] [208][151] [154][207][183]  [154][146]  [146]  "; 913 PRINT" [154][146]  [154][146]  [154][146] [183][183]  "; 914 PRINT" [152][146]  [154][146]  [159][146][207][183][208] [159][146][207][183][208]"; 915 PRINT" [154][146]  [154][146]  [154][146]"; 916 PRINT"  [159][146][180] [170] [159][146][180] [183][183][208] [154][146]  [159][146][207][183][208] "; 917 PRINT" [154][146]  [159][146][207][183][183][208] [159][146][180] [170] [159][146]"; 918 PRINT"[180] [170] [159][146][207] [208] [159][146][180] [208] [159][146][207][183]"; 919 PRINT"[208] [159][146][180] [170] [159][146][180] [170] [159][146][180] [208]"; 920 PRINT" [159][146][207] [170] [159][146][207] [208] [159][146][207] [183][183] "; 921 PRINT" [183][208] [159][146][180] [170] [159][146][207] [183] [208] "; 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.PT2":OPEN15,D,15,"S"+N$:CLOSE15:SAVEN$,D:END