0 REM *** SAVE"@0:INF4.PT5",8 1 POKE56,150:CLR:POKE53281,0:POKE53280,0:POKE53371,0 2 GOTO740 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 20 REM *** CLONE-QUEEN 21 PRINT"[147][155]  [155] "; 22 PRINT"  [168][185] [155] "; 23 PRINT"  [176][190][150] [192]"; 24 PRINT"[168] [155] [150] [155]  [192][190] "; 25 PRINT"[150][175][172][175]  [191][155] [150] [155] "; 26 PRINT" [221] [150] [190][185] [185][146][161] [180][155] [150] [155] "; 27 PRINT"  [150]  [191][150][146] [170][191] [172][146] [191][146] [155] "; 28 PRINT" [150] [155]  [150] [191][146] [150] [187][192][192][172][146][190]"; 29 PRINT" [191] [155] [150] [155] [150]  [220] [150] "; 30 PRINT"  [150][192][192][146] [150] [155]  [191] [155] "; 31 PRINT" [221] [150] [169] [206] [183][146] [155] [180] [155] "; 32 PRINT"  [150] [191][156]  [150][169][172][190][206][185][165] [146][181]"; 33 PRINT"[155] [182] [155] "; 34 PRINT"[191][156][190][183][187][183][163] [150][181] [146][161] [191] [155] "; 35 PRINT" [156] [187] [146][187] [172][150][161] [146][161][155] [191][155][146]":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 283 F$="HELLO CONNECT":GOTO291 284 F$="INF4.MAIN":GOTO291 285 F$="INF4.PT7":GOTO291 286 F$="INF4.PT6":GOTO291 291 SYSSA+3:POKE53281,0:POKE53280,0:SYS49935 293 PRINT"[144]LOAD"CHR$(34)F$CHR$(34)","DV:PRINT"RUN" 294 POKE631,13:POKE632,13:POKE198,2:END 490 REM *** CITYSCAPE11 491 PRINT"[147][154] "; 492 PRINT" [154] "; 493 PRINT" [155][146] [154] [185][185][187] "; 494 PRINT" [155][146] [154] [172][146][188] [146][184][190]"; 495 PRINT"[158][172][190] [154] [146][190] [155][146] [154] [162] [146] [158][190][154][162][187] "; 496 PRINT"[146] [158][172][172] [154][162][162] [146] [158][187][188] [188][154]  [175][175][162][162][146] [188][190][155] [158]"; 497 PRINT"[188][154] [158][190] [154] [146] [158][190][190] [188] [188] [190] [154] [146] [158][190][154] [158][190][149] "; 498 PRINT"[154]  [149][146] [158] [191][146] [155] [158][188][155] [158] [188][154]  [172][146] [158][188][154] [158]"; 499 PRINT"[190][154] [158][190][154] [158][191][154] [187] [146] [158][190][154] [158][191][154][146]  [146] [158][188][154] "; 500 PRINT" [158][191][155] [158][191][154] [158][188][154]  [146] [158][188][154] [158][190][154] [158][190][154] "; 501 PRINT"  [146] [158][190][154] [187] [146] [158][188][154] [155]  [154] [172][146] "; 502 PRINT" [158][188][154] [158][188][154] [158][191][154] [158][191][154] [158][190][154]  [146] [158][191][154] [158][190][154] "; 503 PRINT" [146] [158][190][154] [158][191][154][146] [158][188][154] [158][188][154] [181] [158][188][154] [158]"; 504 PRINT"[190][154] [158][191][154]  [146] [158][190][154] [172][146] [158][190][154] [158][191][154] [158]"; 505 PRINT"[191][188][154] [181] [158][188][154] [158][188][154] [158][191][154] [158][191][154][146]  [146] [158][190][154] "; 506 PRINT"[158][191][154] [158][190][190] [154] [181] [158][191][154][146] [158][191][154] "; 507 PRINT" [158][190][154]  [146] [158][191][154][146] [158][191][154] [158][191][154][146] [158][190][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 740 SYS49615:POKE781,0:POKE782,150:SYS49664 741 VI=53248:PG=64:SA=PG*256:SP=248 742 SS=49152:POKEVI+32,0:POKEVI+33,0 743 POKEVI+29,255:FORZD=0TO7:POKEVI+ZD,4:NEXT 744 SYSSA 745 REM *** POKE SPRITE DATA 746 YY=14:FORI=0TO7 747 POKE2040+I,248+I:REM SPRITE POINTERS 748 POKEVI+39+I,I+1:REM SPRITE COLORS 749 POKEVI+37,14:POKEVI+38,15:NEXT 750 POKEVI+29,255:REM X SIZE 751 POKEVI+23,0:REM Y SIZE 752 POKEVI+28,255:REM MULTICOLOR ON 753 POKEVI+37,5:REM MULTICOLOR 1 754 POKEVI+38,13:REM MULTICOLOR 2 755 POKEVI+21,0:REM TURN SPRITES ON 756 POKESS,7:ZZ=2:ZY=10:ZX=ZY:GOSUB570 757 POKESA+6,2:POKESA+7,1:POKESA+8,ZZ 758 POKESA+9,ZZ:POKESA+10,ZY 759 POKESA+13,ZX:POKEVI+37,14 760 POKEVI+38,ZC:POKEVI+39,3 761 Z=Z+1:IF Z=10 THEN Z=0:ZZ=ZZ+1:IF ZZ=5 THEN ZZ=2:ZY=ZY+5 762 IF ZY=40 THEN ZY=10:ZX=ZX+5 763 Y=Y+1:IFY<3THENZC=5 764 IFY>2THENZC=4:IFY>3THENY=0:YY=YY+1:IFYY=15THENYY=0:GOTO767 765 GETA$:IF(PEEK(SS)=0)OR(A$<>"")THENPOKE49152,0:SYS49897:GOTO770 766 GOTO757 767 YX=2^YZ+YX:POKEVI+21,YX:YZ=YZ+1:IFYZ=8THENYX=0:YZ=0:XX=XX+1 768 GOTO765 770 REM *** TURN OFF SINUS 772 POKEVI+21,0:POKEVI+32,0:POKEVI+33,0 773 SYS57812"ALIEN FONT",DV,0:POKE780,0:POKE781,0:POKE782,48:SYS65493 774 POKE53272,29 775 REM *** GAMESTART 776 PRINT"YOU GO TO THE MIDNIGHT SAFARI CLUB WHERE 777 [153]"THE EVENING IS ALREADY OFF TO A WILD 778 PRINT"START. (IT'S AMATEUR NIGHT!) TALKING TO[145][145][145]":GOSUB5:POKEVI+38,4 779 POKEVI+21,127:FORT=1TO3000:NEXT:POKEVI+21,0 780 PRINT"[145][145]THE BARTENDER ABOUT YOUR 'COUSINS', YOU " 781 PRINT"SPOT A FEMALE CLONE SPEAKING TO A SEEDY 782 [153]"INDIVIDUAL. SHE HEADS FOR AN EXIT -- ONONON":[141]5:[151]VI[170]38,5 783 [151]VI[170]21,127:[129]T[178]1[164]3000:[130]:[151]VI[170]21,0 784 A$[178]" FOLLOW THE FEMALE CLONE ":B$[178]" STAY AT MIDNIGHT SAFARI CLUB ":X[178]1 785 C$[178]" KEEP TABS ON MISTER SEEDY ":[141]690:[141]200:[145]C[137]815,799,786 786 [141]530:[153]"MISTER SEEDY MAKES HIS OWN EXIT AND YOU 787 PRINT"FOLLOW. SOON YOU ARE MOVING INTO MORE 788 [153]"HONKY TONK NEIGHBORHOODS. THINGS PICK UP 789 PRINT"BRIEFLY WHEN YOUR TARGET GOES INTO A 790 [153]"PORNO STORE AND COMES OUT WITH A THIN,ONONON":[141]5:[151]VI[170]38,4 791 [151]VI[170]21,63:[129]T[178]1[164]3000:[130]:[151]VI[170]21,0 792 [153]"ONONONONONONFLAT, BROWN PAPER BAG. BUT WHEN HE PER- 793 PRINT"USES THE CONTENTS, IT WINDS UP BEING A 794 [153]"GIRLIE MAGAZINE! YOU FEEL LIKE YOU ARE " 795 [153]"WASTING YOUR TIME BUT YOU STICK WITH IT. 796 PRINT"YOU FOLLOW HIM INTO A DARK ALLEY AND --[145][145][145]":GOSUB5:POKEVI+38,5 797 POKEVI+21,63:FORT=1TO3000:NEXT:POKEVI+21,0 798 PRINT"[147] SUDDENLY, HE'S GONE!":GOSUB5:GOTO824 799 GOSUB490:PRINT"AS THE HOUR PASSES, YOU BEGIN TO REGRET 800 [153]"YOUR DECISION TO STAY PUT. ESPECIALLY 801 PRINT"WHEN MISTER SEEDY LEAVES. BUT YOUR PA- 802 [153]"TIENCE IS REWARDED WHEN REX LUTHEL (OR 803 PRINT"ONE OF HIS CLONES)[160]APPEARS! YOU SEE HIM 804 [153]"TALK TO SEVERAL PEOPLE THEN SLIP TOWARDSONONON":[141]5:[151]VI[170]38,4 805 [151]VI[170]21,31:[129]T[178]1[164]3000:[130]:[151]VI[170]21,0 806 [153]"ONONONONONONONONONA SIDE EXIT. YOU DROP SOME MONEY ON THE 807 PRINT"COUNTER TO PAY FOR YOUR DRINKS THEN MOVE 808 [153]"QUICKLY TO CATCH UP WITH LUTHEL. BUT YOU 809 PRINT"FIND AN EMPTY BACK ALLEY! YOU HEAR A " 810 PRINT"RUSTLING SOUND BEHIND YOU. YOU WHIRL -- " 811 PRINT"AND FIND LUTHEL POINTING A ROD AT YOU --[145][145][145]":GOSUB5:POKEVI+38,5 812 POKEVI+21,31:FORT=1TO3000:NEXT:POKEVI+21,0:FORZ=1TO5:POKE53281,1 813 FORT=1TO10:NEXT:POKE53281,2:FORT=1TO10:NEXT:POKE53281,0:NEXT 814 PRINT"[147]YOU'VE FALLEN CAPTIVE TO HOSTILE ALIENS!":GOSUB5:GOTO846 815 GOSUB20:PRINT"YOU FOLLOW THE FEMALE":PRINT"CLONE ON FOOT. SHE IS 816 [153]"MOVING AT A FAST CLIP":[153]"BUT YOU KEEP UP WITH 817 PRINT"EASE. SHE LEAVES THE":PRINT"SEEDY NIGHT CLUB AREA 818 [153]"& ENTERS AN INDUSTRIAL":[153]"ZONE. SHE'S TIRING BUT WHEREVER SHE'S 819 PRINT"HEADED MUST BE PRETTY CLOSE. (OTHERWISE, 820 [153]"YOU WOULD BE FOLLOWING HER BY CAR.) SHE 821 PRINT"GOES DOWN A DARK BACK ALLEY. YOU HESI- 822 [153]"TATE THEN RUN TO CATCH UP -- SHE'S GONE!ONONON":[141]5 824 A$[178]" GO BACK TO THE STRIPPER CLUB ":B$[178]" CHECK DOORS IN THE BACK ALLEY":X[178]2 825 C$[178]" GO DOWN OPEN MANHOLE LADDER ":[141]690:[141]200:[145]C[137]839,827,826 826 [151]VI[170]21,0:[129]Z[178]1[164]5:[151]53281,1:[137]813 827 [141]570:[153]"YOU FIND A DOOR SLIGHTY AJAR. IT IS VERY 828 PRINT"DARK INSIDE! YOU TAKE A STEP & SUDDENLY 829 [153]"HEAR SOME HIGH PITCH WHISTLES. FROWNINGONONON":[141]5:[151]VI[170]38,4 830 [151]VI[170]21,15:[129]T[178]1[164]3000:[130]:[151]VI[170]21,0 831 [153]"ONONAT IT, YOU SUDDENLY REALIZE YOU TRIPPED " 832 [153]"SOME SORT OF ALARM. YOU HEAR FEET COMING 833 PRINT"TOWARDS YOU -- YOU RUN -- HEAR THE LOUD[145][145][145]":GOSUB5:POKEVI+38,5 834 POKEVI+21,15:FORT=1TO3000:NEXT:POKEVI+21,0 835 GOSUB690:PRINT"SCREECH OF TIRES -- IT'S MARTHA KENT! 836 [153]"'GET IN!', SHE YELLS AND YOU JUMP INTO 837 PRINT"HER CAR. 'WHERE TO?', SHE ASKS. 838 [153]"'CHEMICAL PLANT! I HAVE AN ENTRY CODE!'ONONON":[141]5:[137]285 839 [141]530:[153]"YOU'RE WALKING ALONG WHEN A CAR DRIVES 840 PRINT"UP. 'NEED A LIFT?', MARTHA KENT ASKS. 841 [153]"YOU SMILE AND JUMP INTO HER CAR. 'WANT 842 PRINT"TO HAVE SOME FUN? THE LUTHELCORP CHEMI- 843 [153]"CAL PLANT IF YOU'RE GAME FOR IT?'ONONON":[141]5:[137]285 846 [153]"LOAD 1CONT START OVER":[153]" 2CONT LOADSTAR":[141]5 847 [139]K$[178]"1"[167]284 848 [137]283 900 [141]570:VI[178]53248:[137]775 10000 D[178][194](186):N$[178]"0:INF4.PT5":[159]15,D,15,"S"[170]N$:[160]15:[148]N$,D:[128]