Cd40?3МD:\68q=0 mL" HOW MANY LASER BLASERS DO YOU WANT TO USE (1 TO 3) ? " s) 5,1;"-":a$="":d=0 xa=1 9hԥ }0>480Ư<546Ʊ>02695 9000(# a lbsu= rlbs-lbsu<0:10 ,0;" NOT ENOUGH LASER BLASERS LEFT ":2,-20::1000 :9500% [22-2*ysg,2*xsg;"S":0,1;"** LASER BLASERS **" 9700% ((a$(1))+9 *xg-9 -xs)>2Ž((a$(2))+9 *yg-9 -ys)>2:10 ,1;"*** OUT OF RANGE, CAPTAIN ***":2,-20::1010 9760 & qattack1:10 ,1;" NO ENEMY SHIP PRESENT, CAPTAIN ":2,-20::1010 attack=0 >12 ,0;" PRESS F TO ENERGISE LASERS " a=1 9hԥ ="f"2760 9000(# a |>(.4L+.1}L*lbsu)*le:10 ,0;"*** ENEMY SHIP NOT DESTROYED ***":2,-20::1010 9800H& 3:1:73I,90Z:115s,0:0,1:-115s,0:2.2 ,502:9 ,27;" ":0:0:73I,90Z:115s,0:0,1:-115s,0:9806N&:7 lbs=lbs-lbsu :1010 DEFENCE SYSTEMS  P" THERE ARE 3 LEVELS OF DEFENCE STATUS :- YELLOW, GREEN AND RED." p:" YELLOW PROVIDES THE LEAST DEFENCE BUT IS FUEL AND WEAPON EFFICIENT. " n:" RED IS THE HIGHEST, PROVIDING THE BEST DEFENCE BUT THE LEAST FUEL AND WEAPON EFFICIENCY. " N:" PRESS 1 FOR RED, 2 FOR GREEN OR 3 FOR YELLOW. " a=1 9* 9000(# P>0Ư491Ư513defence=(4-())*2:3050 a $defence=2f$=" YELLOW " #defence=4f$=" GREEN " !defence=6f$=" RED " A:" DEFENCE STATUS =";f$:a=160<:a:1000 SOLAR GENERATORS (:6:502,125},30 502,160:0,15:502,90Z:0,-15:15,125}:-15,0:85U,125}:15,0 87W,162:-11 ,-11 :87W,88X:-11 ,11 :15,162:11 ,-11 :15,88X:11 ,11 02,14;" SOLAR GENERATORS " 110 ,14;" PRESS ANY KEY " (6,22;" " "a=19ɿ fuel=fuel+.5 c6,14;" FUEL = ":0:6:6,23;fuel:0:7 9000(# >01000 a GALACTIC MAPS  *:" 1 CULTOPIA SUB-GRID (ACCURATE) " 0::" 2 ANY OTHER SUB-GRID " 0::" 3 OVERALL GRID-SCAN " a=1 9nk' %>0i$=:.5,40( i$="1"4050 i$="2"4110 i$="3"4200h  9000(# a CULTOPIA SUB-GRID   9500% =0,0;"* CULTOPIA SUB-GRID SCAN (2,2) *"  9880& a=115 k(a,3)=1k(a,1)18k(a,1)10 k(a,2)18k(a,2)10 22-2*((k(a,2))-9 ),2*((k(a,1))-9 );"K" a .a$(1)="2":a$(2)="2":9620% Fxg=2yg=222-2*ysg,2*xsg;"S"  12 ,10 ;"C" &12 ,21;"PRESS A KEY" a=19> >01000  9000(# a  ANY SUB-GRID  ,"PLEASE INPUT CO-ORDS OF SUB-GRID"  9500%  9700% Y0,0;"SUB-GRID SQUARE (";a$(1);",";a$(2);") "  9620% "a=115 %)>.25~+.01z# =*reccy4140, '=k(a,1)(a$(1)*9 )-8k(a,1)(a$(1)*9 )k(a,2)(a$(2)*9 )-8k(a,2)ǰa$(2)*9 k(a,3)=122-2*(k(a,2)-(9 *a$(2))+9 ),0+(2*(k(a,1)-(9 *a$(1))+9 ));"K" ,a -xg=a$(1)yg=a$(2)22-2*(ys-(((ys/9 ))*9 )),2*(xs-(((xs/9 ))*9 ));"S" .Ka$(1)=2ưa$(2)=212 ,10 ;"C" 1*12 ,21;"PRESS A KEY" 2 9880& 6a=1 9* ;>01000 @ 9000(# Ea hGRID SCAN m r,0,1;" OVERALL GRID-SCAN " w 9500% | 9880& ~&10 ,21;"PRESS A KEY" a=115 ).01z# =*reccy+.25~<4240 k(a,3)=122-2*((((k(a,2))/9 ))+1),2*((((k(a,1))/9 ))+1);"K" a [22-2*(((ys/9 ))+1),2*(((xs/9 ))+1);"S" 18,4;"C" a=1 9hԥ >01000  9000(# a  STATUS REPORT  x:" FUEL  ";fuel::" PHOTON TORPEDOES  ";pts::" LASER-BLASERS  ";lbs ,:" COSMIC MINES  ";5-fn 4:" NO. OF KRINOIDS  ";15-ships $:" DEFENCE STATUS  ";f$ +:" NO. OF RECCE SHIPS  ";reccy :::" PRESS 1 FOR SHIP DAMAGE REPORT "::" PRESS 2 FOR PLANET STATUS "::" PRESS ANY OTHER FOR OPTION LIST" a=1 9nk' ="1"4600 /="2":kan=1:7000X:kan=0 $>0Ʀ"1"Ʀ"2"1000  9000(# a  &" DAMAGE TO SHIP": .5,40( 2:7 b=5damage5: 9900&+b s$=t$s$="" r$  s$>1s$ t$=s$ b 7:0 -21,8;"PRESS ANY KEY" b=1 9hԥ  >0:1000 % 9000(# *b COSMIC MINES Xfn=5:" THERE ARE NO MINES LEFT ":1,30:1000  ," *** COSMIC MINEFIELDS *** "  $"  HOW MANY MINES ? " 9000(#:j$= j$15050 'j$>535ůj$<4915050 .5,30:cms=j$ X fn+cms>5:"YOU CANNOT HAVE THIS MANY MINES":1,30:5000  fn=fn+cms b=1cms  ."  POSITION OF MINE ";b;" " 84,3;" GRID SQUARE x CO-ORDINATE - " :6,3;" GRID SQUARE y CO-ORDINATE - "  9700% Ff(b,1,1)=a$(1):f(b,1,2)=a$(2) 74,4;" SUB-GRID SQUARE x CO-ORD - " 96,4;" SUB-GRID SQUARE y CO-ORD - " ( 9700% 2Ff(b,2,1)=a$(1):f(b,2,2)=a$(2) 7.5,30 <b P 1000 |RETURN TO CULTOPIA (xs14ys14):" YOU MUST FIRST RETURN TO THE "::" CULTOPIA SUB-GRID SQUARE. "::"  PRESS ANY KEY ":a=1 9hԥ:=09000(#:a '(xs14ys14)1000 b:2,2;" YOU HAVE DOCKED IN THE CITY ":kan=2:7000X:kan=0 7a=1 9:=09000(#:a J:" REPAIRS ARE BEING MADE TO THE SHIP " n:" SOME WEAPON AND FUEL STORES HAVE BEEN LOST DURING ALIEN ATTACKS ON THE CITY. " n:" YOUR WEAPONS AND FUEL HAVE BEEN REPLACED BUT THERE ARE LESS THAN BEFORE " fuel=rfuel*2+20 pd5fuel=fuel/2 /damage=damage-(damage*((8-pd)/7)) ,pts=(opts*((8-pd)/7)+1) ,lbs=(olbs*((8-pd)/7)+1) *:" PRESS ANY KEY TO RE-LAUNCH SHIP" a=19> >01000  9000(# a f X CULTOPIA REPORTS  ]kan0:72204 2pck=0:ppk=5:pd=17200  &ppk=10 :pd=27200  Eppk=20:p$="WEAPON SUPPLIES REDUCED ":pd=37200  4ppk=40(:pck=10 :pd=47200  Wppk=80P:p$="FUEL STORES HALVED ":pck=40(:pd=57200  ;ppk=95_:p$="":pck=80P:pd=67200  %ppk=100d:pck=100d:p$=""  4:1: % 1 *Ya=15:a,2;" KRINOID ATTACK ON CULTOPIA ":.05|L,502:a / 0 >58,2;" " C:9 ,2;"   ": Hb10 ,2;"   ":2:7:10 ,4;p$ R;11 ,2;"   ": \h12 ,2;"   ":12 ,4;ppk;"% OF CULTOPIA IS DEAD " f;13 ,2;"   ": pg14,2;"   ":14,4;pck;"% OF THE CITY IS DEAD" z;15,2;"   ": 616,2;" " 0:7 |kan=1kan=218,8;" PRESS ANY KEY ":a=1 9nk':=09000(#:a kan=11000 kan=25560  LSHIP + B.HOLE  VNl$=" Your ship has entered a black-hole, never to be seen again." `Wa=140(:ڥ*7::a:0:7::8,-30:9962& SHIP+STORM ROUTINE  damage502l$=" Your ship has been destroyed in a meteor storm.":a=140(:ڥ*7::a:0::8,-30:9962& o::6:1:1:a=15:a,9 ;" METEOR STORM ":.05|L,502:a:0 0:7 damage=damage+5 Ja=9 13 :a,0;" ":a s$="":r$="" (9900&+damage) (10 ,((36$-r$)/2);r$  (12 ,((36$-s$)/2);s$  250: #(GOSUB ROUTINE #-0xv=0:yv=0:ka=0:kp=0 #2krnd=(*14+1) #<kpx=k(krnd,1)-14 #Fkpy=k(krnd,2)-14 #P2kpz=(((kpx))^2+((kpy))^2)^.5 #Zrnd=*5 #dksx=k(krnd,1)-xs #iksy=k(krnd,2)-ys #n.ksz=((ksx)^2+(ksy)^2)^.5 #MOVE KRINOID  #r= #$kpx=0kpy=0r=1 #kpx>0xv=-1 #kpx=0xv=0 #kpx<0xv=1 #1kpy>0r<.5yv=-1:xv=0 #kpy=0yv=0 #0kpy<0r<.5yv=1:xv=0 #RANDOM MOVEMENT #Qrnd<1kpz>6xv=(*2.49\(-1):yv=(*2.49\(-1) $+CHECK  DIST FROM SHIP $ ka=0 $ksz<7(xg2yg2)k(krnd,3)=1ƥ>(.1}L+defence*.2~L)xv=0:yv=0:ka=1 $ka=19850z& $;ka=1b=175K:b:ka=0:1000 $" ka=0 $TCHECK IF BEING ATTACKED $^(attack=1xv=0:yv=0 $cCHECK IF KRINOID DEAD $h1k(krnd,3)=0xv=0:yv=0 $ADD ON VECTORS $$k(krnd,1)=k(krnd,1)+xv $$k(krnd,2)=k(krnd,2)+yv $CHECK FOR MINE $c=15 $O (k(krnd,1)=f(c,1,1)*9 +f(c,2,1)-9 k(krnd,2)=f(c,1,2)*9 +f(c,2,2)-9 ).6,40(:.6,10 :k(krnd,3)=0:f(c,1,2)=0:f(c,1,1)=0:f(c,2,1)=0:f(c,2,2)=0 $ c $CHECK FOR PLANET $ªkpz<1kpz>-1k(krnd,3)=1:k(krnd,1)=(*513+30):k(krnd,2)=(*513+30):pd=pd+1:7000X:1000 $CHECK FOR EDGE OF GRID $Vk(krnd,1)<0k(krnd,1)>81Qk(krnd,1)=k(krnd,1)-xv $Vk(krnd,2)<0k(krnd,2)>81Qk(krnd,2)=k(krnd,2)-yv $.04|# =,30 $ %DRAW GRID ROUTINE %&@a=414816:12 ,a:144,0:a %+@a=12 15616:a,4:0,144:a %0Fa=9 1-1:2*a+2,0;10 -a:a %5,a=19 :2,2*a;a:a %?%4,21;" x coord - " %D/6,21;" y coord - " %I %NSHIP+HOLE ROUTINE %S 7500L %g %lSHIP+STORM %q 7600 %v %OUT OF FUEL % %110 ,6;"**  OUT OF FUEL  **" %#1.5@,-20::1010 %PLOT MINES ON MAP %a=15 %(f(a,1,1)=a$(1)f(a,1,2)=a$(2))22-(2*(f(a,2,2))),(2*f(a,2,1));"M" %a % %INPUT COORDS ROUTINE %d=0:a$="" %a=1 9* % 9000(# %l(<491ů>579)Ʊ>06,30;"-":4,30;"-":9700% %A>0a$=a$+:d=d+1:2+2*d,30; %]d=2Ʊa$26,30;"-":4,30;"-":9705% %d=29750& &a & & CHECK ATTACK ON KRINOID &#attack=0 &%a=115 &* (a$(1))+(9 *xg)-9 =(k(a,1))(a$(2))+(9 *yg)-9 =(k(a,2))k(a,3)0:9 ,0;b$;" LOCKED ONTO ":10 ,0;" ENEMY KRINOID SHIP CAPTAIN ":attack=1:sn=a:97804& &/a &1]:10 ,0;" NO ENEMY SHIP PRESENT, CAPTAIN ":2,-20::1010 &4 &HKRINOID DESTROYED &I &Jships=ships+1 &K9 ,27;"K" &L0,90Z:15,0:3,-3:34",0:3,3:15,0:-8,8:-7,0:-2,2:-11 ,0:3,5:4,0:2,1:-2,1:-28,0:-2,-1:2,-1:4,0:3,-5:-11 ,0:-2,-2:-7,0:-8,-8:60<,0 &M\30,100d:10 ,0:3,5:-16,0:3,-5 &N188,85U:20,25:23,0:20,-25:-7,0:0,-5:5,-5:-13 ,0:5,5:0,5:-20,0:0,-5:5,-5:-13 ,0:5,5:0,5:-19,0:0,-5:5,-5:-13 ,0:5,5:0,5:-7,0 &Rships=15:" WELL DONE ! "::" ALL SHIPS DESTROYED "::" PRESS ANY KEY FOR ANOTHER GAME ":2,40(:0: &W &zSHIP BEING ATTACKED &damage=damage+5 &damage=60<9859& &1:4:::1:a=15:.05|L,502:a,5;"KRINOID ATTACK ON SHIP":a:0:0:7:a=9 13 :a,0;" ":a &r$="":s$="" &(9900&+damage) &P10 ,((36$-r$)/2);r$:12 ,((36$-s$)/2\ );s$ &b=1100d:b &0:9246$ &DRAW KEY  &w4,21;"S Ship ":6,21;"C Cultopia ":8,21;"K Krinoid " &&10 ,21;"M Mine " & &DAMAGE REPORTS &,r$="MINOR DAMAGE TO CONTROL SYSTEMS": &r$="FUEL LEAKAGE" &-fs=15:fuel-15<0fs=fuel &0fuel=fuel-fs:s$="FUEL LEFT = "+(fuel): &7r$="ENERGY-BOOST ACCELLERATORS":s$="FAILING" & &Lr$="PHOTON PARTICLE POWER LOSS":s$="POWER OF TORPEDOES REDUCED" & pe=.5 & &(r$="INVERSE MATRIX ACCUMULATION": &Qr$="LASER ENERGY DRAIN":s$="LASER EFFICIENCY REDUCED":le=.5: &Pr$="THRUST BOOSTERS 1+2 DISABLED":s$="FUEL REQUIREMENT *3 PER THRUST" &te=3: &)r$="SHIP ENTERING CRITICAL PHASE": &,r$="CENTRAL CONTROL SYSTEMS FAILING": &Yr$="WARP FACTOR REDUCED TO 3B":s$="FUEL REQUIREMENT *2 PER WARP":we=2: &Fr$="ZERO DEFENCE POTENTIAL":s$="SHIP'S COMPUTER DISABLED": &Ba=140(:ڥ*7::a:0::8,-30 &&l$=" Your ship has been vapourised." &ml$::" Twenty dedicated crew-members and yourself have been killed."::" Next of kin will be informed." &e:" The planet of Cultopia now has no protection and will soon be destroyed by the evil krinoids" &b=1200:b: &:" Do you want another go ? (y/n)":r$:r$"n"1: & '9:a=115:k(a,1);" ";k(a,2):a '  ' "galaxy"1:9995 ' ' u:a=15:f(a,1,1);",";f(a,1,1),f(a,2,1);",";f(a,2,2):a #OkeuelmacpPdalb pt sshipttacamag#efencolamuelplanernpppxn?sss#+*r~$ue.t b eccfueot jA62F  YELLOW hԥR THRUST BOOSTERS 1+2 DISABLEDS"FUEL REQUIREMENT *3 PER THRUSTT"FUEL REQUIREMENT *3 PER THRUSTI22k+\)Έ^Ptx }$;pu"i;<C@rP(A4˼}0x8\0`e0 M'aǸ!|n tjs8P`8 [!0 m uxSrYa'u4R``ST`N" {}\XSP"d -;2@~4yo4:/pZ!sh)5d%'5|} "!;d#* s E8ksֺC W,`"a*DXP `0h&ldxGJ8+`#@86L"" H|z3+8wIaRC6MC3М\3943e3u7e3X8e3X'e3 )O%{Rv>>BB<DHpHDB@~BfZBBBBbRJFB0.5,25:5600 * 9000(# ,a 0CHOOSE WEAPONS AND FUEL :r:"* SHIP'S CARGO HOLDS *":::::1;" FUEL (TONNES) ";21;" --- " ?F:1;" LASER BLASERS ";21;" --- " D=:1;" PHOTON TORPEDOES ";21;" --- " Idd=0:a$="":d=0 N a=195 S 9000(# X=480Ư579Ʊ>0d=d+1:dd=1 ]Ldd=1d1d35,21+d;:a$=a$+:dd=0 bLdd=1d4d67,18+d;:a$=a$+:dd=0 gLdd=1d7d9 9 ,15+d;:a$=a$+:dd=0 kqd=9 Ʊa$9 :::1;" PLEASE PRESS KEYS WITH CARE ":1.5@,-20::5600 l d=9 30:650 a Ofuel=a$(13):pts=a$(46):lbs=a$(79 ) rfuel/5+pts*3+lbs>60<:::1;" OUT OF SPACE ":1.5@,-20::5600 Tfuel>fuelmax:::1;" OUT OF FUEL ":1.5@,-20::5600 Zfuel<100d:::1;" NOT ENOUGH FUEL ":1.5@,-20::5600 olbs=lbs:opts=pts 30:740 DESPATCH RECCY SHIPS  :"There are ";fuelmax-fuel;" tonnes of fuel "'"left. This is enough to despatchupto ";fuelmax-fuel;" recce ships. " 3,0;" " 0,30;"" :::"However if too many are sent, your fuel reserves will be low when you return to refuel - eventhough they will have increased." :"Too few recce ships will result in not being able to find the krinoids which have to be destroyed. "  N:"How many recce ships do you wantto despatch ? " 8:::" Number of recce ships = ";" ";" --- " .5,30  d=0 a$=""  a=1 9 % 9000(# *=579Ư480Ʊ>0d=d+1:dd=1 /9dd=119,27+d;:a$=a$+:dd=0 4d=3840H 9a HTdɱa$:" PLEASE PRESS KEYS WITH CARE ":1.5@,-20::750 M reccy=a$ pQreccy>fuelmax-fuel:" OUT OF FUEL ":1.5@,-20::750 urfuel=fuelmax-fuel-reccy zreccy=01000 L.5,30:::" ";reccy;" recce ships have set off. " *::::7;" PRESS ANY KEY " a=19t# >01000  9000(# a .5,30  0" PRESS ANY KEY FROM 1 TO 8 ":: )" 1) Operate thrust or warp drive" .:" 2) Operate lasers or torpedoes " *:" 3) Initiate the defence systems" .:" 4) Operate the solar generator " $*:" 5) Operate the grid scanners " ..:" 6) Obtain status reports " 8*:" 7) Lay cosmic minefields " B.:" 8) Return to Cultopia " ~a=1 9hԥ gi$=:i$>0Ưi$491Ưi$568goto=(1500+500*i$):.5,40(:goto  9000(# a  1150~ SHIP MOVEMENT *:"***  WARP AND THRUST DRIVES  ***" ^:::4;" 1) FOR WARP DRIVE "::4;" 2) FOR THRUST DRIVE " a=1 9:C@  9000(# ="1"2050 ="2"2200 a  WARP   00,1;"** GRID SQUARES **"  9500% /22-2*yg,2*xg;"S" C 9700% afl=fuel-((we)*(4)*((4-defence)/2)*((((xg-(a$(1))))^2+((yg-(a$(2))))^2)^.5)) bfl<09600% c fuel=fl fjxg=a$(1):yg=a$(2):xsg=5:ysg=5:xs=9 *xg-4:ys=9 *yg-4  2300  THRUST  00,1;" SUB-GRID SQUARES "  9500% /22-2*ysg,2*xsg;"S"  9700% ԏfl=fuel-((te)*(4/9 )*((4-defence)/2)*((((xsg-(a$(1))))^2+((ysg-(a$(2))))^2)^.5)) fl<09600%  fuel=fl Zxsg=a$(1):ysg=a$(2):xs=9 *xg-9 +xsg:ys=9 *yg-9 +ysg CHECK FOR HOLES a=1502 /h(a,1)=xsƺh(a,2)=ys9550N% a CHECK FOR STORMS a=1100d $/m(a,1)=xsƺm(a,2)=ys9580l% )a 1000 FIRE WEAPONS  '"* PHOTON TORPEDOES AND LASERS *" \:::"  1) FOR PHOTON TORPEDOES "::"  2) FOR LASER BLASERS " a=195 ="1"2570 ="2"2660d 9000(# a PHOTON TORPEDOES !b$=" PHOTON TORPEDOES "  npts0:10 ,0;"** NO PHOTON TORPEDOES LEFT ! **":2,-20::1010  9500% 10,0;"  PHOTON TORPEDOES " /22-2*ysg,2*xsg;"S" # 9700% ((xsg-a$(1))4Ž(ysg-a$(2))3:10 ,0;"*** ENEMY SHIP OUT OF RANGE  ***":2,-20::1010 - 9760 & 7!attack=0:pts=pts-1 <>12 ,0;" PRESS F TO LAUNCH TORPEDOES " Aa=1 9:C@ F="f"2640P H 9000(# Ka Pa>(.8L*pe):10 ,6;"***  NO EFFECT  ***":2,-20::1010 U 9800H& Vb=115:k(b,1)(a$(1))+(9 *(xg-1))k(b,2)(a$(2))+(9 *(yg-1))b=b:b WZa=824:8,a;" =":.02{# =,40(:a:0:9806N&:7 X~9 ,20;"KRINOID ":10 ,20;"PLASMALISED":2,-35#:k(b,3)=0 Z:1010 dLASER BLASERS fb$=" LASER BLASERS" iklbs<110 ,1;"**  NO LASER BLASERS LEFT  **":1.5@,-20::101