0 REM *** SAVE"@0:INF4.PT4",8 1 POKE56,150:CLR:POKE53281,0:POKE53280,0:POKE53371,0:DV=PEEK(186) 2 GOTO425 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 70 REM *** ROOM 71 PRINT"[147][152] [181] [167][207][196][192][198][185][187] [180] "; 72 PRINT" [181][146][176][192][192][174][180][160][160][160][160][181] [180] "; 73 PRINT" [181][146][221] [161][180] [181] "; 74 PRINT"[180] [181][146][221] [161][180] [181] "; 75 PRINT" [180] [181][146][221] [161][180] [181] "; 76 PRINT" [180] [181][146][221] [161][180][187] [181] "; 77 PRINT" [180] [181][146][221] [161][180][181] [181] "; 78 PRINT" [180] [181][146][221] [161][180][161] [181] "; 79 PRINT" [180] [181][146][221] [161][180][181] [181] "; 80 PRINT" [180] [181][146][221] [161][180][190] [181] "; 81 PRINT" [180] [181][146][221] [161][180] [181] "; 82 PRINT" [180] [181][146][221] [161][180] [181] "; 83 PRINT" [180] [181][146][221][164][164][152][161][180] "; 84 PRINT" [181] [180] [181][146][221] [152]"; 85 PRINT"[161][180] [181] [180] [181][146][221]"; 86 PRINT" [152][161][180] [181] [180] "; 87 PRINT"[181][146][221] [152][161][165] [181] [180] "; 88 PRINT" [146][169][169] [152][146][188][185][162][146][184][183][163][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"; 89 PRINT"[162][187][152][223] [146][169][169] "; 90 PRINT" [223][152][146][223] [146][169][169] "; 91 PRINT" [223][152][146][223] [146][155]":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 285 F$="INF4.PT7":GOTO291 286 F$="INF4.PT6":GOTO291 287 F$="INF4.PT5":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 425 SYS49615:POKE781,0:POKE782,150:SYS49664 426 VI=53248:PG=64:SA=PG*256:SP=248 427 SS=49152:POKEVI+32,0:POKEVI+33,0 428 POKEVI+29,255:FORZD=0TO7:POKEVI+ZD,4:NEXT 429 SYSSA 430 REM *** POKE SPRITE DATA 431 YY=14:FORI=0TO7 432 POKE2040+I,248+I:REM SPRITE POINTERS 433 POKEVI+39+I,I+1:REM SPRITE COLORS 434 POKEVI+37,14:POKEVI+38,15:NEXT 435 POKEVI+29,255:REM X SIZE 436 POKEVI+23,0:REM Y SIZE 437 POKEVI+28,255:REM MULTICOLOR ON 438 POKEVI+37,5:REM MULTICOLOR 1 439 POKEVI+38,13:REM MULTICOLOR 2 440 POKEVI+21,0:REM TURN SPRITES ON 441 POKESS,7:ZZ=2:ZY=10:ZX=ZY:GOSUB510:YY=21 442 POKESA+6,2:POKESA+7,1:POKESA+8,ZZ 443 POKESA+9,ZZ:POKESA+10,ZY 444 POKESA+13,ZX:POKEVI+37,14 445 POKEVI+38,ZC:POKEVI+39,3 446 Z=Z+1:IF Z=10 THEN Z=0:ZZ=ZZ+1:IF ZZ=5 THEN ZZ=2:ZY=ZY+5 447 IF ZY=40 THEN ZY=10:ZX=ZX+5 448 Y=Y+1:IFY<3THENZC=5 449 IFY>2THENZC=4:IFY>3THENY=0:YY=YY+1:IFYY=22THENYY=0:GOTO452 450 GETA$:IF(PEEK(SS)=0)OR(A$<>"")THENPOKE49152,0:SYS49897:GOTO455 451 GOTO442 452 YX=2^YZ+YX:POKEVI+21,YX:YZ=YZ+1:IFYZ=8THENYX=0:YZ=0:XX=XX+1 453 GOTO450 455 REM *** TURN OFF SINUS 456 POKEVI+21,0:POKEVI+32,0:POKEVI+33,0 457 SYS57812"ALIEN FONT",DV,0:POKE780,0:POKE781,0:POKE782,48:SYS65493 458 POKE53272,29 460 REM *** GAMESTART 461 PRINT"MARTHA DRIVES YOU TO HOTEL CALHOON WHERE 462 [153]"A MILD CONVENTION HAS GONE INTO AFTER 463 PRINT"HOURS AND HAS BECOME QUITE WILD. YOU 464 [153]"AVOID THE CROWD AND TAKE A RIDE TO THE 465 PRINT"SEVENTH FLOOR. A GROUP OF PEOPLE ARE 466 [153]"PLAYING COMPUTER GAMES & WRITING DEMOSONONON":[141]5 467 [153]"ONONONONONONONONIN ROOM 768 WHILE OTHERS ARE DROPPING " 468 [153]"WATER BALLOONS OUT THE WINDOW. MARTHA 469 PRINT"GIVES IT A SIGH AND ASKS A BEARDED MAN 470 [153]"WEARING SANDALS IF HE HAS SEEN HALJOR. 471 PRINT"ALFRED JACKSON SHRUGS AND SAYS 'DOWN THE 472 [153]"HALL.' YOU FOLLOW MARTHA DOWN THE HALL.ONONON":[141]5 473 [141]970:[153]""[166]22)"DAN HALJOR RECO-":[153][166]22)"NIZES YOU INSTANT- 474 PRINTSPC(22)"LY. 'LEA LISON!',":PRINTSPC(22)"HE EXCLAIMS, DIS- 475 [153][166]22)"MISSING THE PERSON":[153][166]22)"HE WAS TALKING TO 476 PRINTSPC(22)"WITH A WAVE OF HIS":PRINTSPC(22)"HAND. 'I THOUGHT I 477 [153][166]22)"WAS GOING TO HAVE":[153][166]22)"TO LOOK YOU UP!' 478 PRINTSPC(22)"YOU'RE TAKEN ABACK 479 [153]"-- DOES HE KNOW ABOUT THE SEWAGE PLANT?ONONON":[141]5 480 A$[178]" TALK TO DAN HALJOR PRIVATELY ":B$[178]" LEAVE - THIS WAS A MISTAKE! ":X[178]1 481 C$[178]" INCLUDE MARTHA IN THIS CHAT ":[141]490:[141]200 482 [141]70:[153]"BEFORE YOU CAN SAY ANOTHER WORD, HALHOR 483 PRINT"SAYS 'YOU'RE HUNTING DOWN LUTHEL AS THE 484 [153]"SOURCE OF THE CLONES. DANGEROUS HOBBY!'ONONON":[141]5 485 [145]C[137]713,710,486 486 [153]"ONON'I SAW THE ALIEN SPACESHIP', YOU REPLY. 487 PRINT"'THIS IS NUTS!', MARTHA SAYS, STARES AT 488 [153]"YOU, SHAKES HER HEAD, AND LEAVES. ONONON":[141]5:[137]716 490 [143] *** CITYSCAPE11 491 [153]"LOADCONT "; 492 [153]" CONT "; 493 [153]" LISTWAIT CONT POSPOSRND "; 494 [153]" LISTWAIT CONT *WAITLOG WAITFRECOS"; 495 [153]"SYS*COS CONT WAITCOS LISTWAIT CONT NEW WAIT SYSCOSCONTNEWRND "; 496 [153]"WAIT SYS** CONTNEWNEW WAIT SYSRNDLOG LOGCONT  ANDANDNEWNEWWAIT LOGCOSLIST SYS"; 497 [153]"LOGCONT SYSCOS CONT WAIT SYSCOSCOS LOG LOG COS CONT WAIT SYSCOSCONT SYSCOSVERIFY "; 498 [153]"CONT  VERIFYWAIT SYS SINWAIT LIST SYSLOGLIST SYS LOGCONT  *WAIT SYSLOGCONT SYS"; 499 [153]"COSCONT SYSCOSCONT SYSSINCONT RND WAIT SYSCOSCONT SYSSINCONTWAIT  WAIT SYSLOGCONT "; 500 [153]" SYSSINLIST SYSSINCONT SYSLOGCONT  WAIT SYSLOGCONT SYSCOSCONT SYSCOSCONT "; 501 [153]"  WAIT SYSCOSCONT RND WAIT SYSLOGCONT LIST  CONT *WAIT "; 502 [153]" SYSLOGCONT SYSLOGCONT SYSSINCONT SYSSINCONT SYSCOSCONT  WAIT SYSSINCONT SYSCOSCONT "; 503 [153]" WAIT SYSCOSCONT SYSSINCONTWAIT SYSLOGCONT SYSLOGCONT INT SYSLOGCONT SYS"; 504 [153]"COSCONT SYSSINCONT  WAIT SYSCOSCONT *WAIT SYSCOSCONT SYSSINCONT SYS"; 505 [153]"SINLOGCONT INT SYSLOGCONT SYSLOGCONT SYSSINCONT SYSSINCONTWAIT  WAIT SYSCOSCONT "; 506 [153]"SYSSINCONT SYSCOSCOS CONT INT SYSSINCONTWAIT SYSSINCONT "; 507 [153]" SYSCOSCONT  WAIT SYSSINCONTWAIT SYSSINCONT SYSSINCONTWAIT SYSCOSLIST":[142] 510 [143] *** CITYSCAPE12 511 [153]"LOADCLR "; 512 [153]" "; 513 [153]" "; 514 [153]" "; 515 [153]" OPENWAIT CLR NEWRND *NEWRNDPOS "; 516 [153]" NEWRND WAIT RND WAIT  NEWWAIT  WAIT  NEWRND"; 517 [153]"WAIT  TOANDOPENWAIT CLR ANDPOS WAIT FRE COS *WAIT "; 518 [153]" WAIT *WAIT RND WAIT OPEN  CLRNEW WAITCOS "; 519 [153]" OPEN CLR WAIT INT  WAIT "; 520 [153]" OPEN CLR WAIT INT  WAIT "; 521 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANLIST":[142] 550 [143] *** CITYSCAPE14 551 [153]"LOAD "; 552 [153]" . . . . "; 553 [153]" . . "; 554 [153]" . WAIT  WAIT(null) WAIT  "; 555 [153]"WAIT  WAIT  WAIT (null) WAITSTEP "; 556 [153]"WAITLOG SIN  . WAIT  . (null) WAIT COS "; 557 [153]"  WAIT POKE   WAIT  POKE WAIT POKE "; 558 [153]"  WAIT  WAIT LOG  WAIT SIN COS POKE "; 559 [153]"  POKE SIN WAIT POKE *WAITFREUSRTAB(LIST  POKE LIST * COS "; 560 [153]"SIN  WAIT SIN POKE SIN COS RND TOANDNEWLISTWAIT "; 561 [153]" POKE WAIT POKE PRINT# OR POKE LOG COSWAITCOSLIST "; 562 [153]" POKE LOG COS PRINT#USRUSR OR OROR POKE PRINT# OR "; 563 [153]" LISTWAIT POKE PRINT# RNDRNDRND+ OR OR OR"; 564 [153]" POKE PRINT# OR WAITFRELIST PRINT# +POKE PRINT# COSCOSCOS+"; 565 [153]" OR OR OR WAITUSRLIST PRINT#SIN LOG+POKE "; 566 [153]"PRINT# + OR OR POSPOSWAITUSRUSRLIST PRINT#"; 567 [153]" + OR ANDNEWWAIT LIST "; 568 [153]" PRINT# TOTOSQRNEWWAITFRETAB(LIST PRINT#LIST":[142] 710 [153]"ONONYOU STARE AT HIM. 'I SAW THEIR SPACE- " 711 [153]"SHIP!', YOU ADMIT RELUCTANTLY. MARTHA " 712 [153]"STARES, SHAKES HER HEAD, AND LEAVES. ONONON":[141]5:[137]716 713 [153]"ONON'YES, I'M HERE FOR LUTHEL. JAMES CLARK " 714 [153]"WAS -- IS -- A GOOD FRIEND. I WANT HIM " 715 [153]"BACK! CLARK'D NEVER GIVE UP ON ME!' ONONON":[141]5 716 [141]970:[153]""[166]22)"'JAMES CLARK IS":[153][166]22)"DEAD!', HALJOR AN- 717 PRINTSPC(22)"NOUNCES. 'I WILL":PRINTSPC(22)"BELIEVE IT WHEN I 718 [153][166]22)"SEE THE BODY!',":[153][166]22)"YOU REPLY AND ASK 719 PRINTSPC(22)"'WHO ARE THEY, MR.":PRINTSPC(22)"HALJOR?' HIS REPLY 720 [153][166]22)"'I ONLY KNOW WHO":[153][166]22)"LUTHEL IS! HE'S 721 PRINTSPC(22)"A MICROBIOLOGIST 722 [153]"FROM A MISSING ANTARCTICA EXPEDITION! IONONON":[141]5 723 [141]550:[153]"THINK THE GOVERNMENT SENT THAT EXPEDI- 724 PRINT"TION TO MEET AND TRADE WITH THE ALIENS. 725 [153]"HUMAN LIVES FOR ALIEN TECHNOLOGY OR -- 726 PRINT"WHATEVER IT REQUIRES. I ONLY KNOW THAT 727 [153]"THEY ARE HUNTING DOWN LACY LUNE! THEYONONON":[141]5:[151]VI[170]38,4 728 [151]VI[170]21,255:[129]T[178]1[164]3000:[130]:[151]VI[170]21,0 729 [153]"ONONONONONONTHINK TOLSEN GAVE HER AN OVERRIDE ENTRY 730 PRINT"CODE FROM SOME DISSENTER IN THEIR RANKS. 731 [153]"THEY'LL DO ANYTHING TO GET IT BACK!' " 732 [153]"(YOU HAVE THE ENTRY CODE CLR(246801)LIST, IT'S 733 PRINT"ON BACK OF THE CARD LACY GAVE YOU!) [145][145][145]":GOSUB5:POKEVI+38,5 734 POKEVI+21,255:FORT=1TO3000:NEXT:POKEVI+21,0:GOSUB510 735 A$=" SEARCH NIGHTCLUBS FOR LACY ":B$=" BREAK INTO LUTHELCORP OFFICE ":X=1 736 C$=" CHECKOUT LUTHELCORP CHEMPLANT":GOSUB200:GOSUB737:ONCGOTO287,286,285 737 GOSUB70:PRINT"REMEMBER YOU HAVE THE OVERRIDE CODE -- 738 [153][166]13)"CLR 2 4 6 8 0 1 ":[141]5:[142] 900 [141]510:VI[178]53248:[137]460 970 [143] *** DAN HALJOR 971 [153]"LOAD DEFNEWNEWNEWRND "; 972 [153]" DEFNEW WAITNEW "; 973 [153]"  DEFCOS LOGWAIT "; 974 [153]" POKE   DEF* RND WAITGET "; 975 [153]" LIST POKE  DEF LISTCOSDEF WAITSIN "; 976 [153]" WAIT   LIST  DEF"; 977 [153]" LISTSPC(DEF SINRND ABSWAIT LIST "; 978 [153]"POKE  DEF LIST SPC(DEF WAIT DEFNOTSPC(SPC(SPC(RND NOTSPC(SPC(SYSWAIT  "; 979 [153]" LIST  DEF LISTRND DEF INT AND SIN POS"; 980 [153]"POSWAIT LIST  DEF LISTGETSPC((null)DEF SIN"; 981 [153]"WAITNEW NEWDEFLOG POSSYSWAIT LOGCOS LIST POKE "; 982 [153]" DEF LISTGETDEF LIST(null)DEF WAITLOG COSDEFCOS LOGWAITLOG COSWAIT "; 983 [153]" LIST  DEF  GET"; 984 [153]" SYSWAIT  DEF  LIST POKE  DEFRND "; 985 [153]" *RND *GET*WAIT DEF  LIST POKE  "; 986 [153]" DEF LOGWAITNEWCOSSINWAITCOS DEF "; 987 [153]"  LIST POKE  FORGETDEFGETINT ANDLISTCOSSPC((null)LOGDEFANDWAIT "; 988 [153]" DEF  LIST POKE  FORGETDEFWAITLOGINT GET"; 989 [153]"*LISTCOSSPC( SPC( LOGWAIT DEF  LIST  "; 990 [153]" FORGETLOGDEFWAITLOG GETWAITGETLISTSPC( FREWAITNEWNEWNEWLIST(null)WAIT DEF "; 991 [153]" LIST POKE  FOR VERIFY WAITNEWDEFGETLOGLISTSPC( (null)WAITNEW"; 992 [153]"FRELIST (null)WAIT DEF LIST  FORCOS VERIFY"; 993 [153]" LOGDEFNEWLIST SPC( (null) SPC(ABSWAIT DEF  LIST  "; 994 [153]" FORCOS VERIFY WAITNEWNEWLISTPOSPOSPOSPOSWAIT DEF "; 995 [153]"  FORCOS VERIFY LOGLISTWAIT":[142] 10000 D[178][194](186):N$[178]"0:INF4.PT4":[159]15,D,15,"S"[170]N$:[160]15:[148]N$,D:[128]