0 REM *** SAVE"@0:INF3.MAIN",8
1 POKE56,150:CLR:POKE53281,0:POKE53280,0:POKE53371,0:DV=PEEK(186):PRINT"";
2 GOTO10
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
12 SYS57812"INF3.SID PLAYER",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
14 SYS57812"HOLST.MUS",DV,0:POKE780,0:POKE781,0:POKE782,150:SYS65493
18 SYS57812"INF3.FONT",DV,0:POKE780,0:POKE781,0:POKE782,48:SYS65493
20 PRINT"[147]":POKE53272,29:GOSUB800
22 POKE214,19:PRINT:PRINT"         ALIEN INFILTRATION III
24 [153]"         BY CHERYL DE BOISSIERE
33 SYS57812"ALIEN.SPR",DV,0:POKE780,0:POKE781,0:POKE782,62:SYS65493
34 SYS57812"SINUS ML 64",DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
35 SYS57812"D.LSDEMO",DV,0:POKE780,0:POKE781,6:POKE782,64:SYS65493
36 SYS49615:POKE781,0:POKE782,150:SYS49664
37 VI=53248:PG=64:SA=PG*256:SP=248
38 SS=49152:POKEVI+32,0:POKEVI+33,0
39 REM *** SETUP SINUS INTERRUPT
40 SYSSA
41 REM *** POKE SPRITE DATA
42 YY=14:FORI=0TO7
43 POKE2040+I,248+I:REM SPRITE POINTERS
44 POKEVI+39+I,I+1:REM SPRITE COLORS
45 POKEVI+37,14:POKEVI+38,15:NEXT
46 POKEVI+29,255:REM X SIZE
47 POKEVI+23,0:REM Y SIZE
48 POKEVI+28,255:REM MULTICOLOR ON
49 POKEVI+37,5:REM MULTICOLOR 1
50 POKEVI+38,13:REM MULTICOLOR 2
51 POKEVI+21,0:REM TURN SPRITES ON
52 POKESS,7:ZZ=2:ZY=10:ZX=ZY:GOSUB800
53 POKESA+6,2:POKESA+7,1:POKESA+8,ZZ
54 POKESA+9,ZZ:POKESA+10,ZY
56 POKESA+13,ZX:POKEVI+37,14
58 POKEVI+38,ZC:POKEVI+39,3
60 Z=Z+1:IF Z=10 THEN Z=0:ZZ=ZZ+1:IF ZZ=5 THEN ZZ=2:ZY=ZY+5
61 IF ZY=40 THEN ZY=10:ZX=ZX+5
62 Y=Y+1:IFY<3THENZC=5
63 IFY>2THENZC=4:IFY>3THENY=0:YY=YY+1:IFYY=15THENYY=0:GOTO66
64 GETA$:IF(PEEK(SS)=0)OR(A$<>"")THENPOKE49152,0:GOTO70
65 GOTO53
66 YX=2^YZ+YX:POKEVI+21,YX:YZ=YZ+1:IFYZ=8THENYX=0:YZ=0:XX=XX+1
69 GOTO64
70 REM *** TURN OFF SINUS
72 POKEVI+21,0:POKEVI+32,0:POKEVI+33,0
73 SYS57812"ALIEN FONT",DV,0:POKE780,0:POKE781,0:POKE782,48:SYS65493
74 POKE53272,29:GOTO80
75 REM *** REPLAY
76 IFPEEK(49152)=0THENRETURN
77 IFPEEK(49152)=7THENRETURN
80 REM *** GAMESTART
81 PRINT""SPC(20)"YOU ARE JAMES CLARK,":PRINTSPC(20)"[145]                   "
82 PRINTSPC(20)"HOMICIDE DETECTIVE.":PRINTSPC(20)"[145]                   "
83 PRINTSPC(20)"YOU AWAKE ABRUPTLY, ":PRINTSPC(20)"[145]                   "
84 PRINTSPC(20)"FEELING SOMETHING IS":PRINTSPC(20)"[145]                    "
85 PRINTSPC(20)"[145][145]TERRIBLY WRONG  [192][192]  ":PRINTSPC(20)"[145]                    "
86 PRINTSPC(20)"[145][145]FRAGMENTS OF A WEIRD":PRINTSPC(20)"[145]                    "
87 PRINTSPC(20)"[145][145]DREAM LINGER:  YOU  ":PRINTSPC(20)"[145]                    "
88 PRINTSPC(20)"[145][145]ARE WET AND STICKY. ":PRINTSPC(20)"              "
89 PRINTSPC(20)"[145]SOMEONE HANDS YOU A ":PRINTSPC(20)"TOWEL AND ASK YOUR
90 [153][166]20)"NAME.  YOU'RE GIVEN":[153][166]20)"CLOTHES.  YOU DRESSONONON
91 GOSUB5:POKESA+6,3:POKEVI+38,4:POKEVI+21,255:FORT=1TO3000:NEXT:POKEVI+21,0
92 PRINT""SPC(20)"QUICKLY.  SOON, YOU ":PRINTSPC(20)"ARE MOVING THROUGH  "
93 PRINTSPC(20)"STRANGE CORRIDORS.  ":PRINTSPC(20)"AND THEN, THROUGH A  "
94 PRINTSPC(20)"LONG SERIES OF DARK":PRINTSPC(20)"AND SMELLY TUNNELS. "
95 PRINTSPC(20)"[152]'YOU DIED, CLARK.  I":PRINTSPC(20)"CANNOT GIVE YOU BACK"
96 PRINTSPC(20)"YOUR LIFE.  BUT I'VE":PRINTSPC(20)"GIVEN YOU A SECOND  "
97 PRINTSPC(20)"CHANCE [192][192] A NEW BODY":PRINTSPC(20)"WITH OLD MEMORIES!' [155][145][145][145]"
98 GOSUB5:POKEVI+38,5:POKEVI+21,255:FORT=1TO3000:NEXT:POKEVI+21,0
99 GOSUB210:PRINT"YOU SHAKE OFF THE DREAM AND STUMBLE INTO
100 [153]"THE BATHROOM.  A STRANGER LOOKS BACK AT YOU FROM THE MIRROR!":[141]5
101 [153]"ONONONONONNO STRANGER TANTAN IT IS YOUR YOUNGER SELF  "
102 [153]"YOU SEE REFLECTED.  THE DREAM WAS REAL! YOU SIT DOWN TO GET YOUR ";
103 [153]"BEARINGS.":[141]5:A$[178]" CALL WENCUBE (YOUR PARTNER)  "
104 B$[178]" CALL DIVISION HEADQUARTERS   ":C$[178]" DROP BY STARTOWER CYBER CAFE ":X[178]1
105 [141]800:[141]200:[145]C[137]106,112,290
106 [141]830:[153]"ONYOU CALL RAY'S HOME.  A WOMAN ANSWERS
107 PRINT"THE PHONE.  SHE TELLS YOU THE FUNERAL[145][145][145]":GOSUB5:POKEVI+38,4
108 POKEVI+21,127:FORT=1TO3000:NEXT:POKEVI+21,0:POKEVI+38,5
109 PRINT"[145]WAS THIS MORNING.  SHE ASK YOU WHO YOU  ARE.  YOU HANG UP QUICKLY";
110 PRINT".           [145][145][145]":GOSUB5:POKEVI+21,127:FORT=1TO3000:NEXT:POKEVI+21,0
111 A$=" DROP IN ON YOUR FAVE LABTECH ":GOSUB210:GOSUB200:ONCGOTO289,112,290
112 GOSUB870:PRINT"YOU CALL THE STATION AND ASK FOR RAY'S
113 [153]"LOCATION.  AN IRATE PERSON TELLS YOU RAYWENCUBE'S FUNERAL WAS ";
114 [153]"TODAY!ONONON":[141]5:[151]VI[170]38,4:[151]VI[170]21,63:[129]T[178]1[164]3000:[130]
115 [151]VI[170]21,0:[153]"ONONYOU APOLOGIZE AND SAY YOU'VE BEEN AWAY.
116 PRINT"YOU ASK FOR YOURSELF AND ARE TOLD THAT  "
117 PRINT"YOU DIED A MONTH BACK!      [145][145][145]":GOSUB5:POKEVI+38,5:POKEVI+21,63
118 FORT=1TO3000:NEXT:POKEVI+21,0:A$=" CALL WENCUBE (YOUR PARTNER)  "
119 B$=" DROP IN ON YOUR FAVE LABTECH ":GOSUB210:GOSUB200:ONCGOTO106,289,290
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 REM *** JAMES CLARK2
211 PRINT"[147]            [158]     [164][175][175][164]  [150]     [153]       ";
212 PRINT"      [155]           [158]   [172][191]   [168][188][146][187] [154] [153]   ";
213 PRINT"             [154] [155]          [158] [172][185][191]     [146][166]";
214 PRINT"[187][146][187] [150]      [153]          [155]           [158]  [191]";
215 PRINT" [191]     [146][166][172][146] [153]                [155]         ";
216 PRINT" [158]   [191] [191][220][185][220][166]  [166][146] [153]                [155]    ";
217 PRINT"     [158]   [191] [191][150][162]   [162][158][146][191]  [146]  [153]          ";
218 PRINT"     [155]         [158]   [158][187] [146][181][150][185][190] [188][146][185][158][182][191][172][146]";
219 PRINT"   [153]              [155]             [158][188][167][150][166]";
220 PRINT" [192] [166][158][180][146][190]    [153]               [155]  [150]     ";
221 PRINT"[150]      [158][188][150][220][175][175][175] [158][146][190]     [153]             ";
222 PRINT"                [150][205] [192] [206][146]     [158]  [153]    ";
223 PRINT"                        [150][220][183][183][183][167][146]     ";
224 PRINT"   [153]                      [185][184][183][183][163][220]   [206][163][183]";
225 PRINT"[183][184][146][162][175][151]   [153]                    [190]       ";
226 PRINT"         [188][151][146]   [153]                 [150] [172][188]";
227 PRINT"                [172][150][146][187][151]   [153]             ";
228 PRINT"   [150][172]  [146][188]              [172][150][169] [146][187][151]   [153]     ";
229 PRINT"         [150][172]    [146][187]            [172][150][169]   [146]";
230 PRINT"[187][151]  [155] [153]            [150][172]    [146][190]         ";
231 PRINT"     [150][146][188]    [146] [151] [155] [151] [153]      [151]     [150]   ";
232 PRINT" [146][190] [187]            [172][150][146] [188]   [188][153][146][155]":RETURN
235 REM *** CLEAR TEXT
236 FORI=HTO24:POKE781,I:SYS59903:NEXT:POKE214,J:RETURN
289 F$="INF3.PT3":GOTO291
290 F$="INF3.PT2"
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
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
830 REM *** CITYSCAPE7
831 PRINT"[147][155][176][192][192][174][151]        [150]      [151] [154]      [151] [154]    [151] ";
832 PRINT"   [151]     [150] [155]}[158][190] [155][173]``[174][159].[151]   [150] [151] [150]     [154]";
833 PRINT" [150] [154]             [155].  [151]   [150] [155]}[158][190] [188] [155] }";
834 PRINT"[151]   +[151] [150]   [155].[150]   [154]       [155].[154]   .    [151] ";
835 PRINT"[175][175][175][150] [155]}[158][190] [188] [155] }[151]  [159].[149]            +[149]  [159].";
836 PRINT"[149]          [151][180][158][172] [151][180][155]} [158][191][151] [158][188][188][155]}[151]      ";
837 PRINT" [150] [149] [155]+[149]        [151]      .[151]   [175][180][158][187] [151]l[155]}[158]";
838 PRINT"[190] [188] [188][155]}[152][163][165][149]   [159].[129]  [149]    [151]         .[151]   ";
839 PRINT"   [165][158] [172] [150] [155]}[158][190] [188]  [155]}[158].[152][165][151] [149] [151]          ";
840 PRINT"              [165][158]   [150] [155]}[158] [191][151]  [158][188][155]}[158].[152][165][151] ";
841 PRINT"[155].[151]    [159].[151]   [149]   [155][176]````[174][151]   [152][186]ol[151] [165] [158][172] ";
842 PRINT"[150] [155]} [158] [188]  [155]}[158].[152][165].[151]         .[151]  [155]}[158] :";
843 PRINT"::[155]}[151][163][163][165][152][180][158]||[152][180][151][165][158] [187] [150] [155]}[158][190] [172]  [155]}[158].[152][165] ";
844 PRINT"[151]  [152].[151]  [155][164][164][164][164][164][164][164]}[158]::::[155]}[158][190][190][151][165][152][165][158]||[152][165][151][165][158] ";
845 PRINT" [187][150] [155]} [158][191][146]   [155]}[151] [152][165][151]     [152][170][158][168]::[152][171][179][158]:[168]";
846 PRINT"[152][165][158]:: :[155]}[152] [158][190][151][165][152][165][158] |[152][165][151][165][158]   [150] [155]}     [155]";
847 PRINT"}[158].[155]o[183][180]o[183][180][152][170][158][168] :[152][171][179][158]:[168][152][165][158]::::[155]}[152]  [151][165][152][165][158]|";
848 PRINT"|[152][165][151][180][158] [187] [150] [155]} [158][190]  [158][191][155]}[158].[155][180][158][190][155][180][165][158] [155][165][152][170]";
849 PRINT"[158][168]::[152][171][179][158]:[168][152][165][158]: ::[155]}[158][190] [151][165][152][165][158]||[152][165][151][165] [158]  [150]";
850 PRINT" [155]}   [158][191] [155]} [155][180][158][190][155]l[180][158][190][152][183][183][158][168]  [152][173][189] [158][168]";
851 PRINT" [158]::::   [151]l[152][165][158]| [151][183][158]  [187] [150] [155][189] [158][188]   [155][177]";
852 PRINT"`     [158][190] [158][168]::  [158]:  [158]: [158]::  [158][190]  [158]|";
853 PRINT"  [158][172]   [150]   [158][190]  [158][191]   [158][190]  [158][190][190] [158][168]: ";
854 PRINT"  [158]:[168]  [158]::: [158][190]   [158]||     [150] [191][190][188][146]  ";
855 PRINT"[190][188][146]  [190][188][146][187]  [191][191][188][146]  [190][191][146][187]  [187] ";
856 PRINT"[172][162][162]  [162][158]||[191][146][162][185][158][187] [150] [191] [172][188] [146][191] [188][190]  [191][184]";
857 PRINT"[146][191]   [188][146][191] [146][187] [146][191] [188][146] [188][146][191] [146][191][191] [190][146][191] [146][191]";
858 PRINT"[191][188][191][188][146][191][191][162][146][191][191][191][191][146][191][188][146][191][190][191][190] [146][191][191][191] [146][191][191][162][146][191]";
859 PRINT" [191][191][190][191][146][191][191][190] [191][191][190][188]  [146][191][191] [149][187][172][146][190][191] [149][190][146][188][149][188]";
860 PRINT"[172][190][172][162][149][188][162][146][187][191][172][149][146][161][188][188][172][149][190][146][184][172][149][172][187][191][172][146][191][172][149]";
861 PRINT"[146][161][191][187][149][190][146][191][172][149][188][146][191] [146][190][149][182][161][150] [149][182][150] [149][188][172][146][190][184][161][188]";
862 PRINT"[161][161][150][146] [149][187][150][146] [149][188][150][146] [149][188][161][150] [149][188][161][172][161][188][172][161][146][190][162][146][161][172]";
863 PRINT"[190][155][146] [149][161][188][187][146] [172][146][190][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
10000 D=PEEK(186):N$="0:INF3.MAIN":OPEN15,D,15,"S"+N$:CLOSE15:SAVEN$,D:END