0 REM *** SAVE"@0:INF4.PT2",8 1 POKE56,150:CLR:POKE53281,0:POKE53280,0:POKE53371,0:DV=PEEK(186) 2 GOTO150 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 10 DV=PEEK(186):IFDV<8THENDV=8 150 SYS49615:POKE781,0:POKE782,150:SYS49664 151 VI=53248:PG=64:SA=PG*256:SP=248 152 SS=49152:POKEVI+32,0:POKEVI+33,0 153 POKEVI+29,255:FORZD=0TO7:POKEVI+ZD,4:NEXT 154 SYSSA 155 REM *** POKE SPRITE DATA 156 YY=14:FORI=0TO7 157 POKE2040+I,248+I:REM SPRITE POINTERS 158 POKEVI+39+I,I+1:REM SPRITE COLORS 159 POKEVI+37,14:POKEVI+38,15:NEXT 160 POKEVI+29,255:REM X SIZE 161 POKEVI+23,0:REM Y SIZE 162 POKEVI+28,255:REM MULTICOLOR ON 163 POKEVI+37,5:REM MULTICOLOR 1 164 POKEVI+38,13:REM MULTICOLOR 2 165 POKEVI+21,0:REM TURN SPRITES ON 166 POKESS,7:ZZ=2:ZY=10:ZX=ZY:GOSUB530 167 POKESA+6,2:POKESA+7,1:POKESA+8,ZZ 168 POKESA+9,ZZ:POKESA+10,ZY 169 POKESA+13,ZX:POKEVI+37,14 170 POKEVI+38,ZC:POKEVI+39,3 171 Z=Z+1:IF Z=10 THEN Z=0:ZZ=ZZ+1:IF ZZ=5 THEN ZZ=2:ZY=ZY+5 172 IF ZY=40 THEN ZY=10:ZX=ZX+5 173 Y=Y+1:IFY<3THENZC=5 174 IFY>2THENZC=4:IFY>3THENY=0:YY=YY+1:IFYY=15THENYY=0:GOTO177 175 GETA$:IF(PEEK(SS)=0)OR(A$<>"")THENPOKE49152,0:SYS49897:GOTO180 176 GOTO167 177 YX=2^YZ+YX:POKEVI+21,YX:YZ=YZ+1:IFYZ=8THENYX=0:YZ=0:XX=XX+1 179 GOTO175 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"VERY FEW PEOPLE AT PHIL'S RECOGNIZE YOU. 187 [153]"HOWEVER, THEY ARE ALL PRETTY GABBY ABOUT 188 PRINT"A SERIES OF BIZARRE MURDERS. THE KILLING 189 [153]"HAS STOPPED AS SUDDENLY AS IT BEGAN. 190 PRINT"SOMEONE WONDERS IF THEY ARE A-B-C TYPE[145][145][145]":GOSUB5:POKEVI+38,4 191 POKEVI+21,1:FORT=1TO3000:NEXT:POKEVI+21,0 192 PRINT"[145][145][145][145][145][145]MURDERS (EXTRA MURDERS PERFORMED TO DIS- 193 [153]"GUISE THE FACT THAT ONLY ONE OF THE VIC- 194 PRINT"TIMS WAS THE TRUE TARGET). ALL OF THE " 195 PRINT"VICTIMS, YOU ARE TOLD, WERE TOPLESS " 196 PRINT"DANCERS. YOU HAVE A SINKING FEELING OF[145][145][145]":GOSUB5:POKEVI+38,5 197 POKEVI+21,1:FORT=1TO3000:NEXT:POKEVI+21,0:GOTO210 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 210 GOSUB690:PRINT"DREAD. LACY LUNE IS A TOPLESS DANCER. 211 [153]"WORSE AND WORSE, IT IS CONFIRMED THAT 212 PRINT"LACY IS AMONG THE DEAD. BUT WHAT HAPPEN- 213 [153]"ED TO HER SISTER? NO ONE HERE KNOWS OR 214 PRINT"PARTICULARLY CARES. OVER THE CLINK OF 215 [153]"GLASSES, SOMEONE'S CALLING YOUR NAME --ONONON":[141]5 216 [141]510:[153]"IT IS MARTHA KENT. YOU JOIN HER FOR SOME 217 PRINT"DRINKS AND TO FIND OUT WHAT SHE KNOWS. 218 [153]"MARTHA TELLS YOU HER LUTHEL INTERVIEW 219 PRINT"WENT WELL. A FLUFF PIECE. BORING REPORT- 220 [153]"ING AT ITS WORSE. THEN A LOCAL BANANA":[141]5:[151]VI[170]38,4 221 [151]VI[170]21,31:[129]T[178]1[164]3000:[130]:[151]VI[170]21,0 222 [153]"ONONONONONONONONONMADE A POINT OF BUGGING HER. HE TIPPED " 223 [153]"HER TO SOME GOOD STORIES IN THE PAST, SO 224 PRINT"MARTHA DOES NOT IGNORE HIM. BUT SHE OF- 225 [153]"TEN GETS THE FEELING THAT HE IS USING " 226 [153]"HER. WOULD YOU LIKE TO SEE DAN HALJOR?":[141]5:[151]VI[170]38,5 227 [151]VI[170]21,31:[129]T[178]1[164]3000:[130]:[151]VI[170]21,0:[141]5 228 A$[178]" HANGOUT AT PHIL'S FOR A WHILE":B$[178]" SEE DAN HALJOR (UFOLOGIST) ":X[178]3 229 C$[178]" CHECK RECORDS ON LACY LUNE ":[141]690:[141]200:[145]C[137]305,316,230 230 [141]570:[153]"YOU DROP BY THE MORNING STAR, MARTHA'S 231 PRINT"PAPER, TO SEE THE NEWCLIPPING ON LACY 232 [153]"LUNE'S DEATH. THE GIRL IN THE PICTUREONONON":[141]5:[151]VI[170]38,4 233 [151]VI[170]21,15:[129]T[178]1[164]3000:[130]:[151]VI[170]21,0:[137]300 235 [143] *** CLEAR TEXT 236 [129]I[178]H[164]24:[151]781,I:[158]59903:[130]:[151]214,J:[142] 240 [143] *** MARTHA KENT 241 [153]"LOAD PRINT LIST  LIST  (null) (null) (null) LIST VERIFY LIST "; 242 [153]"  PRINT LIST  LIST (null) (null) (null) (null) "; 243 [153]"LIST  (null) (null) (null) (null) (null) "; 244 [153]" (null) LIST PRINT LIST  VERIFY "; 245 [153]"WAIT (null) (null) LIST  PRINT LIST  "; 246 [153]" (null)VERIFY WAIT (null) LIST PRINT LIST "; 247 [153]" (null) VERIFY  TOTOTO WAIT(null) (null) (null) LIST "; 248 [153]"  (null)VERIFY  (null) (null) WAIT(null)VERIFY  (null) "; 249 [153]"LIST PRINT LIST VERIFY  (null)VERIFY PRINT(null)WAITRNDPRINT(null)(null)VERIFY"; 250 [153]" PRINT(null)WAITRNDPRINT(null)(null)VERIFYWAIT (null) LIST PRINT LIST "; 251 [153]"PRINT LIST  (null) VERIFY  WAIT (null) VERIFY  LIST "; 252 [153]" PRINT LIST DEF  (null) (null) VERIFY .. WAIT  "; 253 [153]" (null) LIST DEF VERIFY  (null) (null) VERIFY "; 254 [153]" WAIT (null) PRINT VERIFY  LIST DEF VERIFY  (null) "; 255 [153]"VERIFY (null) VERIFY TANTANTANTANTAN WAIT (null) (null) VERIFY  LIST "; 256 [153]" DEF VERIFY  PRINTPEEK (null)VERIFY(null) POSPOSPOS WAIT PRINTPEEK (null) VERIFY "; 257 [153]" PRINT LIST PRINT LIST VERIFY  PRINT WAIT VERIFY (null) "; 258 [153]" WAITSTEPCLOSE PRINT WAIT PRINT  LIST PRINT LIST "; 259 [153]"  (null)PRINT WAIT(null) VERIFY LOGPOSPOSPOSPOSPOSWAITCOS  (null)PRINT WAIT(null) VERIFY  LIST "; 260 [153]" PRINT LIST PRINT LIST VERIFY  PRINT (null) (null)VERIFY  USRWAITNEWPOS"; 261 [153]"AND  (null)PRINT  LIST  VERIFY  DEF "; 262 [153]"VERIFY  VERIFY  WAITLIST":[142] 287 F$[178]"INF4.PT5":[137]291 288 F$[178]"INF4.PT4":[137]291 289 F$[178]"INF4.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 [153]"ONONHAS LONG BROWN HAIR AND LOOKS LIKE LACY. 301 PRINT"HOWEVER, YOU HEARD LACY CUT HER HAIR & 302 [153]"DYED IT BLOND. COULD LACY HAVE A TWIN?ONONON":[141]5:[151]VI[170]38,5 303 [151]VI[170]21,15:[129]T[178]1[164]3000:[130]:[151]VI[170]21,0 304 C$[178]" SEARCH NIGHTCLUBS FOR LACY ":[141]690:[141]200:[145]C[137]305,316,328 305 [141]240:[153]"YOU ARE CATCHING A BITE TO EAT WHILE 306 PRINT"MARTHA REMINISCES ABOUT COLLEGE DAYS. 307 [153]"HER EDITOR WALKS IN AND JOINS YOU AT 308 PRINT"YOUR TABLE. YOU TELL HIM THAT YOU PLAN[145][145][145]":GOSUB5 309 PRINT"[145][145][145][145]TO SEE DAN HALJOR. HE TELLS BOTH OF YOU 310 [153]"HALJOR IS BAD NEWS. EX-FBI WITH CIA TIES 311 PRINT"WHO WAS DUMPED BY HIS PEOPLE BECAUSE HE 312 [153]"WAS DIAGNOSED AS A PARANOID SCHIZOID! ONONON":[141]5 313 A$[178]" STAKEOUT REX LUTHEL'S HOTEL ":C$[178]" CHECK RECORDS ON LACY LUNE ":X[178]2 314 [141]690:[141]200:[145]C[137]289,316,230 315 A$[178]" * LOOPING: MEMORY FLASHBACK *":[137]230 316 [141]570:[153]"YOU DECIDE TO CALL YOUR OWN EDITOR FOR 317 PRINT"SOME BACKGROUND ON DAN HALJOR. HE IMMED- 318 [153]"IATELY RECOGNIZES THE NAME AND TELLS YOUONONON":[141]5:[151]VI[170]38,4 319 [151]VI[170]21,7:[129]T[178]1[164]3000:[130]:[151]VI[170]21,0 320 [153]"ONONONONHALJOR IS BAD NEWS. HE LOST -- SOME SAY 321 PRINT"EXECUTED -- A WITNESS AGAINST A SHADY " 322 PRINT"GOVERNMENT LAB. LEFT THE FBI AFTERWARDS.[145][145][145]":GOSUB5:POKEVI+38,5 323 POKEVI+21,7:FORT=1TO3000:NEXT:POKEVI+21,0 324 GOSUB240:PRINT"MARTHA KENT KNOWS THIS TALE. SHE HEARD 325 [153]"HALJOR HAD A BREAKDOWN AFTERWARDS THEN 326 PRINT"WENT ON HIS UFO KICK. SHE ASK IF YOU'D 327 [153]"LIKE TO SEE HIM ANYWAY. YOU SAY 'YES!'ONONON":[141]5:[137]288 328 [141]240:[153]"YOU TELL MARTHA THAT YOU MUST SEARCH FOR 329 PRINT"LACY ALONE. AN OUTSIDER IS LIKELY TO 330 [153]"SPOOK THE DANCER AND LOSE YOU WHAT INFO 331 PRINT"LACY MIGHT HAVE -- IF ANY.[145][145][145]":GOSUB5:GOTO287 510 REM *** CITYSCAPE12 511 PRINT"[147][156] "; 512 PRINT" "; 513 PRINT" "; 514 PRINT" "; 515 PRINT" [159][146] [156] [162][187] [172][162][187][185] "; 516 PRINT" [162][187] [146] [187] [146]  [162][146]  [146]  [162][187]"; 517 PRINT"[146]  [164][175][159][146] [156] [175][185] [146] [184] [190] [172][146] "; 518 PRINT" [146] [172][146] [187] [146] [159]  [156][162] [146][190] "; 519 PRINT" [159] [156] [146] [181]  [146] "; 520 PRINT" [159] [156] [146] [181]  [146] "; 521 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][155]":RETURN 530 REM *** CITYSCAPE13 531 PRINT"[147] "; 532 PRINT" "; 533 PRINT" + [146] [182] "; 534 PRINT"+ + [146]  [146][190] [187] "; 535 PRINT" [146]  [146] "; 536 PRINT"  + [154][146]  "; 537 PRINT" [146] [154]   [146] [161] + [146]"; 538 PRINT" [172][146] [154]  [154]  [154] [146] [155] [161][146] "; 539 PRINT" [146] [154]   [146][190][155] "; 540 PRINT" [161][151][146]  [154] [146][161]  [151]  "; 541 PRINT" [154]  [154]  [154] [146] [155] [151]   + [146][184][184]"; 542 PRINT" [146][161] [151]   [146] [155] [152]  [154]"; 543 PRINT" [146] [154] [146][161]  [151]  [154] "; 544 PRINT" [155]   [146][190]  [146]  [146][161] "; 545 PRINT" [154] [155]  [154] [151] [155]   [154] [146] "; 546 PRINT"[154] [146] [154] [146] [154]    [155] [154]"; 547 PRINT" [151] [160][154] [146] [154] [146][155]":RETURN 570 REM *** CITYSCAPE15 571 PRINT"[147][151] [154] [151] [152] [154] .  [151] [154].[151] [152] [155] [154] "; 572 PRINT"[155] [154].[155] [154].[155] [154]  [154] [151] [154].[151] "; 573 PRINT" [154] [151] [154].[151] [154] [151]  [154]. [151] [152] [155] [154]"; 574 PRINT" . [151] [154]  [151] [154] [151] [154]  [151]  [154]  [152] "; 575 PRINT" [146]  [152] [146] [155] [154] [155] [154].[155] [151]  [154]  [151] "; 576 PRINT" [154] . [154]. [154].[152][161] [182][161] [182][155][146] "; 577 PRINT" [152] [146] [154]. [152] [146] [154]  [154]  "; 578 PRINT"[152][161] [182][161] [182][154][146].[155] [154] [155] [154], [152]  [146] [152]  [152] "; 579 PRINT" [146]  [154] [152] [158][146]  [154]. [154]  [152][172][190] [182][155][146]"; 580 PRINT" [154]. [155] [152]  [151][146] [152] [146]  [151][169] [152] [146] [154]"; 581 PRINT" . [154] [151] [152] [151] [152] [146] [154]  [155] [152]  "; 582 PRINT" [151][169] [152] [146] [151] [154] [151] [152] [151] [152] "; 583 PRINT" [151] [155][146]  [152] [151] [152] [151] [152] [151][146] "; 584 PRINT"[152] [151] [152] [151] [146] [151] [152] [151] [152] "; 585 PRINT"[151] [152] [151] [152][146] [151] [152] "; 586 PRINT" [151] [155] [151] [155] [151] [152] [151] [152] [151] "; 587 PRINT" [160] [152] [151] [155] [151] [155] [151] [152] [151] [155] [151]"; 588 PRINT" [152] [151] [155] [151] [155] [151] [155] "; 589 PRINT"[151] [155] [151] [155] [151] [155] [151] [155] "; 590 PRINT"[151] [155] [151] [155] [151] [155] [151] [155] "; 591 PRINT"[151] [155] [151] [155] [151] [155] "; 592 PRINT" [151] [155] [151] [155] [151] [155] "; 593 PRINT" [151] [155] ":RETURN 690 REM *** LEA LISON2 691 PRINT"[147][155] [182] [129] [162][162][185][175] [155] [161] "; 692 PRINT" [161] [129] [190] [183][184][190][188][146][187][155] [182] "; 693 PRINT" [182] [129] [190][172][164][146][190][150][184][146][187][129][172][172]"; 694 PRINT"[146][187][155] [161] [161] [150] [129] [191][170][150]"; 695 PRINT"[146][162] [146][162][167][129][165][161] [155][146] [182] [182] "; 696 PRINT" [150] [129] [181][170][150] [175] [146][161][129][187][191][188][155][146] [161] "; 697 PRINT" [161] [129] [172][190][188][150][187] [172][129][190][190][182][146][161][187][155] [182] "; 698 PRINT" [182] [129] [191] [146][187][150][184][146][187][129][165][146][191][188][146][190]"; 699 PRINT"[172][155][146] [161] [161] [150] [155] [129] [150][169][129]"; 700 PRINT"[190][146][172][150][190] [163][146][187][150][223][129] [146][190][155] [182] "; 701 PRINT" [182] [150] [155] [129] [150][167] [181] [208][150][187] [207] [150][181][129][146][172][190][155] [161] "; 702 PRINT" [161] [150] [155] [129] [150][182] [146][223] [146][190] [146]"; 703 PRINT"[169][150][190][146] [155] [182] [182] [150] [155] [150][182]"; 704 PRINT" [129][146] [207][184][184][184][208][146][150][170] [155][146] [161]":RETURN 900 GOSUB530:VI=53248:GOTO185 10000 D=PEEK(186):N$="0:INF4.PT2":OPEN15,D,15,"S"+N$:CLOSE15:SAVEN$,D:END