SIMULATOR i 9 7k "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