ZXTape! 0Created with Ramsoft MakeTZXSIMULATOR i 9 7 k "SIMULATOR" W7:0:0::21,0;" LEAVE THE TAPE RUNNING " 0:N=121:G$:R=07:B (G$+R,B:R:N 2"A",1,3,15,254,60<,4,6,3,"B",128,192,240,127,60<,32 ,96`,192 ,98b j"L",0,5,31,59;,31,15,4,8,"M",128,208,252,110n,252,248,144,8 k<"N",7,13 ,31,63?,255,122z,568,16,"P",16,568,120x,252,126~,31,61=,31,"R",8,28,30,63?,126~,248,188,248,"T",240,176,248,254,255,94^,28,8 n#2,10 ;"SIMULATOR" x3" This is the Weapons Simulator used by Louis." c:" Study the enemy and the weapon specifications then test your tactics in the combat trial." F" In any conflict you should have time to use at least 2 weapons."'' "  OPERATING MODES "'' &" 1 KORTH VESSEL (computer model)"'' ?" 2 WEAPONS SPECIFICATION"'':" 3 CONTROL  KEY  CODING"'' " 4 COMBAT TRIAL" 0" PROGRAM NOW LOADING " "" bGNSIMULATOR.d "SIMULATOR" >>  MACBRIDE 1983 << "21,19;" READY " :19,0;" PLEASE STOP THE TAPE NOW " #1,10 : ( 5500| M4:7:0::1,2;"KORTH PATROL CRAFT TYPE 4PK" nZ$(32 ):12 ,171:224,0:0,-16:-224,0:0,16 4,15;"";5,12 ;"";6,10 ;" ";7,9 ;"  " 8,10 ;" ";9 ,10 ;" ";10 ,12 ;" " Y11 ,2;"MAX.SPEED 50000000 kps";12 ,2;"ENGINES- Anti-Grav Drive" |13 ,9 ;"- Ion Directional";15,1;"ARMS - 10 Proton Cannons";16,9 ;"8 Fixed Proton Guns" $T17,9 ;"2 Swivel Guns";19,1;"FORCE FIELD - Proton barrier" .k20,0;" Press  P  to show field range. ":" Press  Q  to select next mode ":0 8O="p"Ŧ="P".5,0:124|,92\,62>:.5,10 B2="q"Ŧ="Q"20,0;Z$;Z$:5500| L 1070. 10:0:7::21,0; ?2000:S$(8,12 ):N=18:S$(N):N z"CODENAME....","WEAPON TYPE.","MAX.RANGE...","FLIGHT SPEED","DAMAGE.......","FORCE FIELD?","PROTON BEAM?","USAGE NOTE.." 62030:N=16:W$:2500 :'':N u"Which Specification ?","1 Heat Seeker","2 Power seeker","3 Lead Shell","4 Sub-magnetic Beam","5 close and move on" <0,0;"Please  ENTER  choice .";a$  .a$<"1"a$>"5"1,-10 :2050 a$="5"5500|  q2000+100d*a$(1):n=18:w$=s$(n):6:2500 :w$:7:2500 :n *Z'':w$="Press any key to go on.":2500 :1,10 :0:''':2030 4"HEAT SEEKER","MISSILE","10 MILL KM.","500,000kps","5 MEGATON EXPLOSION","MAY FIND EXHAUST PORT","WILL EXPLODE IN BEAM","KORTH SHIPS GIVE OFF LITTLE HEAT" "POWER SEEKER","MISSILE","10 MILL KM.","250,000kps","1 MEGATON EXPLOSION","WILL FIND EXHAUST PORT","DEFLECTED BY BEAM","CAN BE TUNED TO KORTH POWER OUTPUT" "LEAD SHELL","PROJECTILE","1 MILL KM.","100,000kps","IMPACT ON SOLID BODY","WILL DISINTEGRATE ON CONTACT","WILL EXPLODE IN BEAM","SLOW - POSSIBLE 10 MEGATON BEAM EXPLOSION" `"SUB-MAGNETIC BEAM","FIELD RAY","5 MILL KM.","INSTANT","NIL","CREATES HOLE IN FIELD","WILL DEFLECT BEAM","POSSIBLE USE WITH OTHER WEAPON?" F23692\,502:q=1̱w$:w$(q);:.1}L,0:q:: 6:7:0: FZ$(32 ):1,1;" KEY  CONTROLS FOR COMBAT TRIAL" T3000 :n=18:a$:n*2+2,2;" ";n;"  ";a$:n ֒"LAUNCH HEAT SEEKER","LAUNCH POWER SEEKER","FIRE LEAD SHELL","ACTIVATE SUB-MAGNETIC BEAM","STEER LEFT","REDUCE SPEED","ACCELERATE","STEER RIGHT" X20,1;"PRESS  C  FOR COMBAT TRIAL":" OR  Q  FOR NEW SELECTION" "0:="C"Ŧ="c"4000 2="q"Ŧ="Q"20,0;Z$;Z$:5500| 3050 1:7:0: GX(C )=C*8+4:Y(L)=(21-L)*8+4 1,10 ;"COMBAT TRIAL";3,2;"KEY TO SYMBOLS";5,4;" SPACE DRIVE 1";7,3;" KORTH PATROL SHIP" 79 ,4;"* MISSILE";11 ,6;"BEAM" &20,80P:20,10 14,8;"REACTION TIMES";16,2;"FAST SLOW";17,3;"1 2 3 4 5 6 7 8 9" Y0,0;" HOW FAST DO YOU WANT IT? ENTER A NUMBER FROM 1 TO 9 ";A$ A$<"1"A$>"9"4034 RT=A$ =20,6;" PRESS  G  TO GO ON ":0 ="G"Ŧ="g"4070  4040  4900$ !4000:O,HF,SD,SL,SC,KL,KC :0,0,1,2,0,0,15 SS=RT/10 20:23672x\,0:M(3,3) $I=0:I$=:I$""4500 &HFƾ23672x\>5024590  SL,SC;" " "*L=SL:C=SC:D=SD:4600:SC=C:SL=L @>SL,SC;7;(158+SD-1-(8SD=8)) EKL4190^ J223672x\>(*100d)+502KL=21 ^HN=13:M(N,3)>04700\:.02{# =,0 hN r1KL4800:RT/502,0:4110 | SS,10  4110 I$<"1"I$>"8" I=I$(1) I<54550 PSD=SD+(I=8)-(I=5):SD=SD+(8SD<1)-(8SD>8) QSS=SS+(.05|LI=6)-(.05|LI=7):SS=SS+(.06|u\SS0)  kl=0 "I=4HF=04570 I<1I>3 M(I,3)>0 FM(I,1)=SL:M(I,2)=SC:M(I,3)=SD:N=I:4700\: nx=x(sc):y=y(sl):x1=x(kc):y1=y(kl):X,Y:x1-X,Y1-Y:0,2;" HOLE IN FORCE FIELD " ,q=13:m(q,3)=0:q ,O=1:23672x\,0:HF=1  kO=0:HF=0:0,2;" ":1:x,y:x1-x,y1-y:0: bC=C+(D>7D<3)-(D>3D<7):L=L+(D>1D<5)-(D>5D8) `L=L-(20L>20)+(20L<1):C=C-(30C>30)+(30C<1)   \L=M(N,1):C=M(N,2):D=M(N,3):T=15-N:4600:KL>0ƽ(L-KL)+(C-KC)<24730z at=14717m fHM(N,1)=L:M(N,2)=C:L,C;"*":.02{# =,20:L,C;" " kmM(N,1)>21M(N,1)<0M(N,2)>31M(N,2)<0M(N,3)=0 mT p zeN=3Op=71-1:kl,kc;1;p;"":.5,5*p:p:4930B wkl,kc;1;"":n=223672x\,0:0,2;" HOLE IN FORCE FIELD ":o=1: Tn=10,2;"95% PROBABILITY - NIL DAMAGE":1,20: `N=3O=00,2;"80% PROBABILITY - NIL DAMAGE":.5,-10 : ""4500  KL,KC;" " .KL=KL+(KLSL):KC=KC+(KCSC) hKC=KC+(31KC<0)-(31KC>30):KL=KL+(21KL<0)-(22KL>21)  KL,KC;"" '(KL-SL)+(KC-SC)<34850  .X=X(KC):Y=Y(KL):X1=X(SC)-X:Y1=Y(SL)-Y GZ=16:1:X,Y:X1,Y1:X+1,Y:X1-1,Y1:Z PQ=110 :Z=155159:.01z# =,10 :SL,SC;Z:Z:Q 0:4950V $m1::7:X=0250250:Y=017516:X,Y:5,0:Y:X .YY=0167167:X=025516:X,Y:0,5:X:Y 8 B70,1;"98% PROBABILITY - MAJOR DAMAGE" VJ0,0;" WANT TO TRY AGAIN ?(Y/N) ";A$:A$=""4950V `/A$(1)="Y"A$(1)="y":4032 j-a$(1)="n"A$(1)="N"5500| t 4950V 10:7:0::21,0; 45300:n=17:w$:2500 ::n b"BEST COMBINATIONS","SUB-MAGNETIC BEAM + LEAD SHELL","EST.87% DAMAGE - .0005 SEC. TIMEALLOWANCE" I"POWER SEEKER + LEAD SHELL","EST.55% DAMAGE - .001 SEC. TIME ALLOWANCE" Q"SUB MAGNETIC BEAM + HEAT SEEKER","EST.36% DAMAGE - .002 SEC. TIME ALLOWANCE" )" END OF REPORT"'':" END OF PROGRAM"'' #" PRESS  R  TO RUN AGAIN" ="R"Ŧ="r"5500|  5360 |o0,0;"  ENTER  1 KORTH SHIP 2 WEAPONS 3 CODES 4 TRIAL 5 STOP ";A$ A$=""5500| a$<"1"a$>"5"5500| 1000*a$(1) A1 LANDFALL  19 7:0:32499~ "LANDFALL" K21,0;" PLEASE LEAVE THE TAPE RUNNING ":1,0 :N=121:G$ R=07:B G$+R,B:R:N "A",0,0,0,0,128,128,192,240,"B",64@,208,244,246,255,255,255,255 "C",0,0,0,2,6,7,31,15,"D",9 ,13 ,45-,127,255,255,255,255,"E",0,0,16,20,60<,124|,254,255 C"H",255,127,255,3,3,31,31,63?,"I",240,252,240,192,192,252,198,195,"J",63?,31,31,3,3,255,127,255,"K",195,198,252,192,192,240,252,240 E"L",1,3,70F,68D,228,228,255,255,"M",128,192,98b,34",39',39',255,255,"N",255,255,231,231,231,231,225,160,"O",255,255,231,231,231,231,135,5 ?"P",15,63?,15,3,3,63?,99c,195,"Q",255,254,255,192,192,252,252,254,"R",195,99c,63?,3,3,15,63?,15,"S",254,252,252,192,192,255,254,255 E"T",160,225,231,231,231,231,255,255,"U",5,135,231,231,231,231,255,255,"F",255,255,196,196,68D,70F,3,1,"G",255,255,39',39',34",98b,192,128 d87:0::1,10 ;" LANDFALL " n3,3;"TO MAKE A SUCCESSFUL LANDING";4,2;"FIRST SLOW DOWN TO REACH A";5,4;"PARKING ORBIT." x7,3;"TURN AS YOU FALL INTO THE";8,2;"GRAVITATIONAL FIELD AND APPLY";9 ,2;"MAIN DRIVE - GENTLY!" V11 ,3;"YOUR DESCENT RATE MUST BE";12 ,2;"LESS THAN 100." U14,3;"THE CONTROLS WILL BE MATCHED";15,2;"TO YOUR HANDS." 17,2;"YOU WILL NEED 4 KEYS -";18,1;" MAIN DRIVE   REVERSE THRUST ";19,3;" TURN LEFT   TURN RIGHT " :21,0;" PLEASE LEAVE THE TAPE RUNNING " "":21,0;:"" XM(23730\+256*23731\)-(23653e\+256*23654f\) bGBuLANDFALL P~YR* \~# #^#V#F*\  (!{ _0zW|S\_>@2\1LANDFALL. I;hKO(Z$y?)=32500~ "LANDFALL" >>  MACBRIDE 1983 << cZ$(32 ):18,0;" STOP THE TAPE AND PRESS ANY KEY";Z$;Z$;Z$:1,20 #z0:GF=0:LX=0:CX=0:CN=0:FL=0:DF=0:GL=0:S$(4,2,2) (eL$(2,63?):5000:21,0;" PRESS ANY KEY TO GO ON ":0 20:1:1: <7:0 F8L=115:L,1;" ":L P6:1,20;"GROUND SPEED";4,20;"DESCENT RATE";;5,24;" 0 ";7,20;"GRAV. FORCE";8,24;" 0 " Zu10 ,22;"ALTITUDE";11 ,24;"1000";13 ,23;" FUEL ";16,23;" TIME " dP19,19;"ENGINE STATUS";21,18;" INACTIVE " n@19,2;" TRAVEL MODE ";21,6;"FLIGHT" p*23672x\,0:23673y\,0 s5F=1935:GS=6000p:DR=0:GF=0 xR7:LX=0:CX=0:SL=3:SC=9 :SD=1:BT=.1}L z,17,1;" " }3200 :3000 ?15,1;:3:RUBBISH=O(L$(1)):0 ?N=12:L$(N)=L$(N,263?)+L$(N,1) N /GS<500SL>3SL=SL+GF:3000 FƦ""400:150 BT>0BT,10 =T=((256*23673y\+23672x\)/5)/10 RBT<.1}LGS=1000000t$:0,8;" MAXIMUM SPEED ":160 BT>11000 :BT.1}L0,8;1;" " #GS=0+(64@/BT^5) F<0F=0 w2,24;GS;" ";14,24;F;" ";17,24;T;" ":F=014,24;"EMPTY" 621,18;" INACTIVE ":FLF=F-1 MSL>40,8;"!!! DANGER !!!":3200 :3000 130 ,K=0:N=14:=C$(N)K=N N:K=0 #21,18;6;W$(K) !K=3600X:577A !K=4650:577A  F=F-502  "SD=2SD=4550& HSD=1BT=BT+(.1}LK=2)-(.1}LK=1):545! =SD=3BT=BT+(.1}LK=1)-(.1}LK=2) !,N=15:.02{# =,20:N: 0HK=1LX=0-(SD=2)+(SD=4):LX=LX+(SL+LX<1) 5HK=2LX=0-(SD=4)+(SD=2):LX=LX+(SL+LX<1) : 3200 ?211 ,24;(16-SL)*1000;" " A3200 :3000 D X/SD=SD+1-(4SD=4):660 $SD=SD-1+(4SD=1) #F=F-10 :.2~L,40(:  ?2,24;" 0 ";21,2;"PARKING ORBIT" /SL>321,2;" LANDING " CF<0F=0:14,23;" EMPTY":1020 14,24;F;" " ""1900l $GF>03200 :2500 621,18;" INACTIVE ":FLF=F-1 BLX=0:CX=0 L 1005 l,K=0:N=14:=C$(N)K=N vN:K=0 /3200 :21,18;6;W$(K) "K=3600X:3000 "K=4650:3000 8F=F-502:T=15:.02{# =,20:T WK=2LX=0-(SD=4)+(SD=2):CX=0+(SD=3)-(SD=1) WK=1LX=0+(SD=4)-(SD=2):CX=0+(SD=1)-(SD=3) LX=LX+(SL+LX<2)+GF (CX=CX+(SC+CX=0)-(SC+CX=18) >(SD=2K=2)(SD=4K=1)DR=DR*2 Y(SD=2K=1)(SD=4K=2)DR=(DR/3):DR<0DR=0 3200 :3000 4 ĆLX=LX+GF:3200 :3000 :DR=DR+(GF*10 ):5,24;" ";DR;" ";11 ,24;(15-SL)*100d;" " SDR>(100d-(75KDF))5,24;" ";DR;" ":.1}L,30 SL<15 mGS<200SD=2SL15L$(2,SCSC+1)=" "DR<(100d-(75KDF))4000 SL>153050 CGS200GF=(SL-2)/10 :8,25;GF;" "  SL=SL-(SL>16):SL-1,SC-1+(SC=0);2;8;"*#";SL,SC-1;"ɚ!^";SL+1,SC-1;"'%" CT=140(:.1}L,*502-30:(*8):T "YOU CRASHED.TRY AGAIN ?";A$ A$=""3060 -A$(1)="Y"A$(1)="y"3100 -A$(1)="n"A$(1)="N"4060 N0,0;" PLEASE  ENTER  YES OR NO ";A$:A$=""3090  3070 CN:5000 &FLFL=0 0DFDF=0 :&GL=GL-1+(GL=0):502 5SL,SC;" ";SL+1,SC;" ":SL=SL+LX:SC=SC+CX RSL=SL+(SL<1):SC=SC+(SC<1)-(SC>17):17,SC;3;" " G8;SL,SC;2;S$(SD,1);SL+1,SC;S$(SD,2)  621,0;" SUCCESSFUL LANDING " %LX=0:SL=15:3200 85,24;" ";DR;" ";11 ,24;"000" &T=15:1,T*5 T 'GL=GL+1:GL>6GL=6 P0,0;" WOULD YOU LIKE TO DO IT AGAIN ?";A$:A$=""4050 cA$(1)="N"A$(1)="n"21,0;"FAREWELL AND MANY HAPPY LANDINGS":4060 -A$(1)>"Y"A$(1)"y"4050 9:1,1;"THIS TIME YOU'VE GOT PROBLEMS!" $CN=0:FL=0:DF=0 .GL=1GL=4GL=6FL=1 #GL=2GL5DF=1 ACN=0GL3C$((*4)+1)="`":CN=1 T/FL4,2;" YOU HAVE A FUEL LEAK." ^DF8,2;" LANDING FINS DAMAGED.";10 ,2;" YOU MUST LAND WITH A";12 ,2;"DESCENT RATE LESS THAN 25kps." h_CN14,2;"YOU HAVE CONTROL DAMAGE.";16,2;"ONE KEY NO LONGER WORKS." rU21,0;" PRESS ANY KEY TO GO ON ":1,10 :0 | 502 VU$(4):C$(4):W$(4,14):5000:N=14:W$(N) 23692\,21 a"  KEY  FOR ";W$(N);" ";:0,0;" PRESS  KEY  AND  ENTER  ";C$(N) !C$(N)<"0"C$(N)>"z"5020  C$(N)'' NU$(N)=C$(N):T=1N-1:U$(T)=C$(N)1,-10 :5020 T .5,25:N :"MAIN DRIVE","REVERSE THRUST","STEER LEFT","STEER RIGHT" pOL$(1)=" " uOL$(2)=" " z4S$(1,1)="":S$(1,2)="" 4S$(2,1)="":S$(2,2)="" 4S$(3,1)="":S$(3,2)="" 4S$(4,1)="":S$(4,2)=""  XM(23730\+256*23731\)-(23653e\+256*23654f\) # ̃? 10581058=MAIN DRIVE REVERSE THRUSTSTEER LEFT STEER RIGHT lFf5l ubbis?kANk