alien 4ɲ 502 a$="  'CHIN' for JRS 1982"  &"STOP TAPE NOW !!!"::a$:200 27:7:0: d 9495% @0:7:0 J Tn=016824 ^ 0,n h1;240,0 rn |m=025524  m,0 1;0,168 m =""8100  300, $"%24,25,0,145 $'& 24,25,192,0 $,&24,150,192,0 $1&24,170,192,0 $6&216,25,0,145 $8(35#,120x,125},120x $;&35#,90Z,125},90Z $@&35#,60<,125},60< $E&35#,30,125},30 $J 9250"$ $Tt=15 $^ 9900& $ct $ht=18 $m 9970& $rt $t1,4;"SINCLAIR" $w5,5;"1 DOWN 5" $|5,16;"6 UP 0" $9 ,5;"Q OUT T" $9 ,16;"Y IN P" $13 ,5;"A FLAME G" $ 13 ,16;"H THROWER" $17,5;"Z LEFT V" $ 17,16;"B RIGHT M" $ 17,3;2;"S" $!17,26;2;"B" $B21,2;2;1;"NOT SHIFT & SPACE TOGETHER" $A201:19,5;"This Will Be REPEATED":201 $9400$: $ $J21,0;"CONTINUE ";1;"?";0;" " $=""9410$ $ $ %n=121::n %9500%:9570b% % 1 %&A$(150) %0(A$="INTERFACE 2037:Ready For Inquiry:" %:N=132 %Da$(n); %I 7 %Nn %X::60< %] 0: %b7a$="Request Evaluation Of Current Procedures " %l1:n=144, %va$(n); % 7 %n %0:::160 %"You must enter the 3-D grid of air ducts inside the space cargovessel -NOSTROMO- in the hope ofkilling........";1;"THE ALIEN" %::350^ %"To move around the ducts:-" %:"X Axis - LEFT & RIGHT" %:"Y Axis - DOWN & UP" %$:"z Axis - OUT & IN OF SCREEN" %'::"The Keyboard set up follows...." %175:9400$ % 9250"$ % 9500% &l502:"Try to Kill the ALIEN with the FlameThrower,but remember, you only have fuel for three shots" & 200:: &"A Detector Of Micro Changes In Air Density plots your position in the X & Y Axis.Your Z Axis position is given at top right hand corner..." & 250 &*sn=09 :0,0;" ";:1;"Z Axis";0;" - ";n;"":35#:n &4100d:: &>14,0;"The Detector always shows the Z axis you are on,therefore the alien will only appear when it is on the same Z Axis as you" &H :350^ &M@;2;1;"The ALIEN will try to kill you":100d &R 9400$ &\9500%:::40( &aC"The nearer the ALIEN approaches the higher the Detector tone..." &fA502:n=10 40(5:0.5,n:15:n &kL:"Until you are ";2;1;"caught":502:3,-10 &p100d::"Your only chance is to",,,"KILL the ALIEN or ";:125}:;4;1;"ESCAPE":n=131:0.01z# =,-20:0.01z# =,20:n &u]200::"Use the readout at the top of the screen to find the escape hatch" &z502:U=028 &{0,U;" " &| 10 :U &180:17,0;"You will find the Escape Hatch where the readout is ZERO min. Local minimums occur on each axis" &F150:2,0;2;" < Min Max > " &`125}:9400$:9500%::a$="Request options for possible procedure ": &bb=1:aa=46. &1:n=1aa &a$(n); & 5:n &aa=18:40(:: &=bb=1bb=0:a$="TO TERMINATE ALIEN":9862& &O0:::"UNABLE to compute:-":502::"Avalible data insufficient:" &502:::"Mothers Intuition: FlameThrower INADEQUATE to KILL Alien will only confuse momentarily to allow escape" &0502:9400$:9500%:502:: &1"END OF ALL AVALIBLE INFORMATION":502:: &:"WHEN READY" &$:"Start tape, then press any key" &:"To Load 'ALIEN'"::"" & 0 &DRAW ROUTINE & yy,xx,pp,qq &yy,xx &pp,qq & &yy,xx:yy,xx &L0,20:75K,0:0,-20:-75K,0: & ! :% h$}z&A  'CHIN' for JRS 1982ALIEN PXE9R 9500% ES=0:CC=0 8000@ B=65278:C=32766 D=61438:E=63486 IF=57342:G=64510:H=65022:J=49150:K=255 ($ON=1:TH=3:NI=9 d=X=ON+TH*(*NI):Y=2+TH*(*6):Z=ON+TH*(*NI) KSS=-30:FT=3:S=X:T=Y:DX=20:DY=20:DZ=20 21,30;ft P=ON+TH*(*NI) Q=2+TH*(*6) R=ON+TH*(*NI):V=Q:W=P ,M=ON+TH*(*NI) 6N=2+TH*(*6) @O=ON+TH*(*NI) !DN=(X-M):DM=(Y-N):DO=(Z-O) AB=DN+DM+DO:AD=AB:AC=AB AB>27AB=27  U=ONAB-ON 0,U;1;"" U BQSH=-1 E1:1:I=YQSH JI,X;3;"":1 ^I,X;2;"" `1:I,X;6;"" b%1:I,X;"";I,X;"";I,X;"" hI:0:0 rHFT=FT-1:21,30;ft:Q<5Q>171000 |Q=Q+(SH*3):3000 SH=1:X>PSH=-1 1:1:I=XPSH Y,I;3;"":1 0Y,I;2;"":1 2Y,I;6;"":1 5Y,I;"";Y,I;"";Y,I;"" :I:0:0 DHFT=FT-1:21,30;ft:P<3P>251000 NP=P+(SH*3):3000 lUR<3R>25FT=FT-1:X=X+3:21,30;ft:1000 vSH=1:R27AB=ACAC=AB:1000 I(AB-AC)>3(AC-AB)>31000 NABAC0,AB-3;1;"" bAC=AB AB=05100 1000  END GAME -0,0;1;2;"CAUGHT" 2,-10 cc=cc+1  5200P  ESCAPE .0,0;1;1;" ESCAPE" BI=131:0.01z# =,-20:0.01z# =,20:I es=es+1 O EXIT P518,0;"NEW GAME";1;"?";:" " Z$19,0;"N = NO " _$20,0;"D = DIFFICULTY" d$21,0;"K = KEYBOARD " n=""5230n x="n"Ŧ="N"5300 1="K"Ŧ="k"9250"$::9250"$:10 #="d"Ŧ="D"9500%:10  10 S30:7:7:0::502:::"Caught Escapes" ':" ";cc;" ";es;" " 502:: es>cc5400 "CCESQ$="RECOMENDATION:- " 23692\,255 (N=115:Q$(N);:7:N =502:::"Not suitable as interglactic crew member" #9980&:9500%:100d "Smarty pants","Clever clogs","You think","Your good enough to beat me","I bet you were on min difficulty","CHEAT","CHEAT CHEAT CHEAT","I'll stich you up","Get out of this","INTERFACE WILL SELF DESTRUCT","IN 10 SECONDS"  5400 "M=111 ,M$:M$ 6325+(*20):::ٺ(0.5+*6) @23692\,255:M E420::0;"REPEAT - WILL SELF DESTRUCT" J63:V=10 1-1:15:V:V T: SELF DISTRUCT ** X1:7200 :X=13 : V=0:U=0 v W=1X:f,g,l,t,r,p,c1,c2 !R=1U=3:V=0 !R1U=0:V=3 q=p-f:s=l-g n=1t3 m=1r3 f,g:1;c1;Q+n,s+m f,g:1;Q+n,s+m c2:U,V:m:n:f,g:w  (250,568:-30,75K X100d:21,0;" 'CHIN' for JRS 1982":7400::100d:2  I120x,174,130,30,1,20,2,0 *L120x,174,130,30,1,160,2,0 4F120x,0,95_,30,1,20,2,0 >G120x,0,95_,30,1,160,2,0 HF120x,0,557,30,1,70F,2,0 RG120x,0,557,30,1,160,2,0 \F0,174,557,1,75K,20,2,0 fF0,174,557,1,75K,502,2,0 pH120x,174,557,1,75K,70F,2,0 zI120x,174,557,1,75K,130,2,0 I120x,174,557,1,75K,160,2,0 I255,174,557,1,75K,220,2,0 I255,174,557,1,75K,250,2,0 J7410:M=13:P$:N=18:AA:P$+N,AA:N:M O"A",0,16,124|,68D,214,68D,124|,16 O"Q",24,568,68D,130,130,68D,568,24 I"S",0,0,16,568,568,16,0,0  @0:7:0: Tn=016824 h*0,n:1;240,0:n |m=025524 *m,0:1;0,168:m =""8100  15 $"%24,25,0,145 $'& 24,25,192,0 $,&24,150,192,0 $1&24,170,192,0 $6&216,25,0,145 $8(35#,120x,125},120x $;&35#,90Z,125},90Z $@&35#,60<,125},60< $E&35#,30,125},30 $T9250"$:t=15 $^9900&:t $h"t=18:9970&:t $t1,4;"SINCLAIR" $w5,5;"1 DOWN 5" $|5,16;"6 UP 0" $9 ,5;"Q OUT T" $9 ,16;"Y IN P" $13 ,5;"A FLAME G" $ 13 ,16;"H THROWER" $17,5;"Z LEFT V" $ 17,16;"B RIGHT M" $ 17,3;2;"S" $!17,26;2;"B" $B21,2;2;1;"NOT SHIFT & SPACE TOGETHER" $301-:9400$: $J21,0;"CONTINUE ";1;"?";0;" " $ 0: %):8,0;"0 = Max & 10 = Min" %&+e$:e$<480ůe$>5799500% %+,ee=e$:ee>10 ee<09500% %0T502:::"Once in Air ducts'press any key'":9400$:0.5,30: & yy,xx,pp,qq &yy,xx:pp,qq: &yy,xx:yy,xx &L0,20:75K,0:0,-20:-75K,0: &(400:7:7:0: E0