STARFIRE   E1:1:7::4,8;"S T A R F I R E" '60<,130:130,0 90,20:-130,0:0,-20 (110 ,3;"  1983 Virgin Games Ltd." 2,15,5;" By Martyn C. Davis" f=1̱g$step:21,0;g$(f);1;"":f &W21,g$;" ":23692\,255:l=3209 :g$29l=3209 ' (7:0:7 29000(#:init < F 100d P 130 d'0,0;:f=119 n 5;"" xf z+20,4;"" {+21,4;"" |J32 ,16:8,8:199,16:-8,8 } 0:236077\,249:0:20,4;1;"QUAD: ";20,9 ;qx-1;",";qy-1;21,4;"TORP: ";21,9 ;torp 20,15;1;"TIME : ";20,21;(time+.5);21,15;"POWER: ";21,21;pow seds1g(qx,qy,1)=g(qx,qy,1)-1:kli=kli-1:4500:seds=0:2:65071/,3:650753,5:65090B,2:65031,1:65034 ,15:65037 ,250:l=65070.+65030:7:100d:13 ,10 ;7;0;1;"XTARDAN";14,11 ;"SELF-";15,9 ;"DESTRUCTED":4002 sg(qx,qy,1)>01,27;1;1;7;2;" RED ";2,27;"ALERT" edam=100d6500d kli=07000X c$=:c$=""136 0.01z# =,21:shen<0shen=0 "shen>6000pshen=6000p 51,27;" ";2,27;" " c$="n"700 c$="c"1500 c$="r"2000 c$="b"2500 c$="s"4510 c$=""7950 c$="d"500 c$="l"4000 .1}L,-37% 130  DOCK  6g(qx,qy,2)=0g$="starbases":5000 try=15700D time=time-2 61:0:7::ink=7:7900 0f=125:*255,*175:f 8,0;3;""'""'"."'"";7;"/";3;'"."'"";7;"__";2;'"";3;'""'"."'"";7;"\";3'"."'""'""  %16,557:15,0  try=1:timetry=time 12,2;" " =1,2;"DISTANCE RET FUEL VELOCITY" &-dist=21004+(*400):oldist=dist 0vel=(*35#)+15 :)fuel=(*30)+170-dr*3 ? odist=dist D14,(odist/100d)+2;0;" ";14,(dist/100d)+2;6;1;"":2,3;1;dist;" ";2,14;fuel;" ";2,25;vel;" " Eovel<-3010 ,4;1;1;"ESCAPE VELOCITY ATTAINED":3,-25:1999. N;.1}L,30:"Thrust? (0-100%) ";t$:t$=""t$="0" Xt$="a"3700t Y*t$<480ůt$>579t$"a"t$="0" Z:t$>100dŰt$<0.5,-37%:590N [;t$="a"7:7::0:100d:130 \thr=((t$)/100d)*fuel ]@odist=dist:dist=dist-vel:vel=(vel+vel/10 +5-thr) ^fuel=(fuel-thr/3) _dist>0580D `vel>25620l avel>10 5500| b65001,1:65004,20:65007,255:l=65000:10 ,10 ;"Well Done.":1,40( g0:7:6000p l1,-40( v:8,0;"You have crashed into a starbase"''"You have lost our only chance ofwinning the galactic war: the 'Starfire' is ruined":f=-20-45--1:.1}L,f:f 100d:6500d   new quad  a13 ,10 ;0;" ";14,11 ;" ";15,9 ;" " Ƌ14,8;1;0;7;"NEW QUADRANT:":236077\,60<:16,8;1;"X=";1;1;" " i$=:i$=""711 i$<"0"i$>"9"711 516,10 ;1;i$:.002xn,30 $nqx=(i$)+1:""714 P16,18;1;"Y=";1;1;" ":i$=:i$=""715 i$<"0"i$>"9"715 H16,20;1;i$:.002xn,30:nqy=(i$)+1 "236077\,249:100d !down=(nqx-qx):along=(nqy-qy) $dist=(along^2+down^2) pow=pow-dist*100d &pow<1pow=0:6500d Dqx=nqx:qy=nqy:sx=(*10 )+1:sy=(*10 )+1 @time=time-dist/4:time<1time=0:6500d skli=g(qx,qy,1) #timetimetry-2try=0 0.1}L,35#+(-557skli>0):"" 'g(qx,qy,2)=-17700 'g(qx,qy,1)=-14600 <.04|# =7500L  130  destruction  7:okx,oky;0;0;7;1;""edam100d:65071/,3:650753,6:65090B,1:l=65070.:1  7 *127,87W:-100d,-15 )127,87W:-10 ,-80P )127,87W:-30,16  (127,87W:120x,70F '127,87W:10 ,30 )127,87W:126~,-35# (127,87W:-10 ,86V (170,112p:80P,20 '127,87W:5,-24 $f=1200:f:6500d  computer  step=4 0:0:7: *2,0;"ENTERPRISE COMPUTER " '"FUNCTIONS:" '"1) COMMANDS AVAILABLE" "'"2) ENERGY ALLOCATION" ,'"3) DAMAGE" JG.1}L,25:#0;1,0;"Which Choice, ";n$;"? " Ki$=:i$=""1611K Li$<"1"i$>"4"1611K M choice=i$ T=choiceɺchoice(choice>0choice<5)1610J ^1600@+502*choice r commands available  w:g$="COMMANDS":36$ |g$="":36$ g$="'N'- Navigate":36$ &g$="'B'- Battlestations ":36$ )g$="'R'- Galactic War Report":36$ %g$="'C'- Computer call ":36$ !g$="'L'- L.R. Scan ":36$  g$="'S'- Smart Bomb Release " 36$:g$="":36$ *g$="press any key to continue":36$ =""1695 F.1}L,20:0:7:7::100d:130  :7  pow>9999'pow=9999' /0,0;" ENERGY ALLOCATION REPORT" &5,0;"[1] shields:",shen &8,0;"[2] reactors:",pow +12 ,0;"[3] smart:",smart*smen 236077\,60< p16,0;"Press the number of the energy field you wish to alter, or 'n' to return to command mode." ""1717 =""1718 i$= +(i$<"1"i$>"3")i$"n"i$"N"1717 Bi$="n"i$="N"0:7:7::100d:130 wi$="1"pow=pow+shen:"New shield value? ";shen:shen=shen:pow=pow-shen:pow01,-35#:1722 Ni$="2"#0;0,0;"NO NEED TO ALTER THAT":1,-30 i$"3"1727 /smart=0.5,-30:1700 i$="3"#0;0,0;"SMART BOMBS NOW BEING CONVERTED TO ENERGY. ":f=110 :.01z# =,65A:10 :f:smart=0:pow=pow+smen:pow>9999'pow=9999'  1700   B7:557,120x,40(:557,120x,4 a94^,112p:116t,0:94^,128:116t,0:0,-16 ښ110n,128:8,30:-20,0:0,16:136,0:0,-16:-108l,0:-8,-30 ۚ110n,112p:8,-30:-20,0:0,-16:136,0:0,16:-108l,0:-8,30 914,0;6;" PLAN VIEW OF ""STARFIRE""" M236077\,60<:16,0;"At present we have ";edam;"% SDF." 2edam=0f=1200:f:1999 ߆f=1(edam+5)/10 :z(1,f),z(2,f);2;7;1;1;"X":.1}L,0:20:f L18,0;"This will require ";edam*502;" units"'"to repair." 221,0;"Do you authorise this? (y/n)" i$=:i$=""1766 i$="y"i$="Y"1770 Bi$="N"i$="n"0:7:7::100d:130  1766 {pow-502*edam0#0;0,0;" WE HAVEN'T ENOUGH ENERGY":1,-35#:i$="n":1768 f=1(edam+5)/10 :z(1,f),z(2,f);1;1;" ":.1}L,0:g=140(:g:f K1,20:pow=pow-502*edam:edam=0:i$="n":1768  0 30:7:7::100d:130  report   /''1;" GALACTIC WAR STATUS REPORT " 236077\,60< $"________________________________" #'"Active Xtardans Remaining:";kli %'"Stardates Left: ";time $'"Energy Bank Reserves: ";pow ('"Ship Damage Factor: ";EDAM;"%" $"________________________________" ""2055  K21,0;3;"Press any key to continue-":=""2060  :100d:130 Yseds=0:klcon=80P:1:skli<1g$="xtardans":0:5000 |1:0:7::0,0:255,0:0,175:-255,0:0,-175 cux=112p:cuy=83S Ekx=10 +(*8)-4:ky=15+(*10 )-5 okx=kx:oky=ky kx,ky;"" P2,9 ;0;7;1;1;2;"BATTLESTATIONS" G#0;0,0;7;" SD TORP SDF ENERGY TIME XTA " 0F=120:*255,*175:F }65001,3:65004,4:65007,220:l=65000:2,9 ;0;" " ;#0;1,1;1;2;7;" " #0;1,5;TORP;10 ;"0"edam<10 ;edam;"%";16;pow;" ";24;(TIME+.5);29;SKLI Scux,cuy:24,0:0,18:-24,0:0,-17 ="4"lasers=1 ocux=cux:ocuy=cuy )cux=cux+(8Ʀ="h")-(8Ʀ="f") )cuy=cuy+(8Ʀ="t")-(8Ʀ="b") %cux<0cux>230cux=ocux %cuy<0cuy>156cuy=ocuy okx,oky;"";kx,ky;"" Uocux,ocuy:24,0:0,18:-24,0:0,-17 Scux,cuy:24,0:0,18:-24,0:0,-17 )"="4"lasers=12700 *oky=ky:okx=kx 1(kli>1>dr/10 2620< 2kx=kx+(*3)-1 3ky=ky+(*3)-1 4Ikx<0kx>21ky<0ky>31kx=10 :ky=15 <\klcon<30<.1}Lseds=5:#0;1,1;7;1;"" F!seds>1seds=seds-1 Gseds=11000 PC="a"0:0:7:7::100d:130 UFpow=pow-(dr*15+23):pow0pow=0:6500d Z=time=time-.05|L:time0time=0:6500d _L#0;1,16;pow;" ";1,24;(time+.5);" " d7>.075}*(skli+(3kli=1))2670n e65031,5:65034 ,2:65037 ,120x:65071/,2:650753,6:65090B,1 g/2:l=65030+65070.:1 h&pow=pow-(*(dr*502))+100d i&pow0pow=0:6500d jshen<0shen=0 kEDAM=EDAM+((6001q-shen)/6000p*(*100d+30))+(*7):#0;1,10 ;"0"edam<10 ;edam;"% ":shen=shen-10 *edam:edam100dedam=100d:#0;1,10 ;"100%":1000 2555   fire torpedoes  >lasers=0:torp=0.2~L,-40(:2799 @65031,3:65034 ,7:65037 ,502 l=65030 R65031,1:65034 ,15:65037 ,200:l=65030 7torp=torp-1:#0;1,5;torp;" " hoocux=cux:oocuy=cuy:cux=cux+(8Ʀ="h")-(8Ʀ="f"):cuy=cuy+(8Ʀ="t")-(8Ʀ="b") !xx=cux+9 :yy=cuy+12 5f=12:0,80P:xx,yy-80P .255,80P:xx-255,yy-80P "0,77M:xx,yy-77M 1255,77M:xx-255,yy-77M:f (1+cux/8)=ky21-(1+cuy/8)=kx65071/,2:650753,5:65090B,3:65031,1:65034 ,3:65037 ,175:l=65070.+65030:cux=oocux:cuy=oocuy:2760 cux=oocux:cuy=oocuy 2602* klcon=klcon-(*100d) klcon>02799 .klcon=klcon-(*100d):klcon0seds=0:kli=kli-1:g(qx,qy,1)=g(qx,qy,1)-1:skli=skli-1:pow=pow+(*(750))+400:kx,ky;0;0;6;1;"":65031,1:65034 ,10 :65037 ,255:l=65030 pow>9999'pow=9999' Jskli=07:0:0:7::100d:130 +klcon0klcon=80P:2500 2602*  specific damage   s escape from dock proc  t?pow=pow-(vel)*12 :pow<0pow=0:6500d ~ 5030  L.R. scan  100d  qw=5 qw,9 ; f=qx-1qx+1 g=qy-1qy+1 Dg<1g>10 f<1f>10 "-- ";:4050 Tg(f,g,1)<0g(f,g,2)<0g(f,g,2)>100d4100 .1;g(f,g,1);g(f,g,2);" "; g qw=qw+2:qw,9 ; f  130 |g(f,g,1)=-11;"0";1;1;2;6;"";0;0;0;" ";:4050 ^g(f,g,2)>100d1;g(f,g,1);g(f,g,2)-100d;" ";:4050 " 4050 skli=g(qx,qy,1):  SMART BOMB RELEASE  .smart=0.5,-45-:130 [12 ,8;7;0;1;" SMART BOMBS";14,10 ;"RELEASED" bigskli=0  f=1̺(*2)+2 B65001,10 :65004,5:65007,100d Z65071/,1:650753,(*2)+5:65090B,(*15)+1  l=65000+65070.:f 2f=qx-1qx+1:g=qy-1qy+1 7g<1g>10 f<1f>10 4580 Aoneskli=g(f,g,1):g(f,g,1)<1oneskli=0 bigskli=bigskli+oneskli 0g(f,g,1)>0g(f,g,1)=0 g(f,g,2)=0 .001wn,30:g:f >powused=(bigskli*1000+(*1000))+(*1000) *kli=kli-bigskli:kli=07000X 7pow=pow-powused:pow<1pow=0:6500d !smart=smart-1:4000  T I M E P O R T A L  g(qx,qy,1)=0 step=2 &0:1:0:7: ?g=15:.1}L,25:f=14:f:g ng$="A warning from the computer:":36$:g$="":36$:g$="The time portal we have entered":36$ /g$="will be hazardous to navigate.":36$ g$="If the ship touches the walls ":36$:g$="of the portal, a time vortex ":36$:g$="will be produced, and we will ":36$:g$="be trapped forever." S36$:0:g$="":36$:.1}L,35#:g$="Press a key":36$ =""4615  .5,0 ;1::f=125:*255,*175:f ink=7:7900  f=34"2188 *Nf,175:aa=(*7)+1:aa;aa;1;0,-175:f 4,down=10 :f=253-3 Hdown<0down=0 R.down,f;0;" ";down+1,f;" " S7down=down+(-.5):down>20down=20 \f f"10 ,29;4;"" h;.1}L,20:.05|L,25:.07}\(,22 i/f=2010 -.5:.01z# =,f:f ed=10 :ea=29 oed=ed:oea=ea &ed=ed+(="6")-(="7"):ea=ea-1 (ed,ea)>63?4950V -oed,oea;0;" ";ed,ea;4;"" ea=14900$  4760 $ A SAFE PASSAGE  %Eed,ea;0;" ":f=10 30.5:.005y# =,f:f .1:7:1: 8L1,0;" Good manoeuvering,";3,6;" Captain ";n$;"!" B05,0;"By your skill, we've gained" L>tipl=(*10 )+10 :'"an extra ";tipl;" stardates." MCtime=time+tipl:12 ,0;"New time is ";(time+.5) Nsqx=(*10 )+1:qy=(*10 )+1:g(qx,qy,1)0g(qx,qy,2)04942N OL16,0;"Our new coordinates are ";qx-1;",";qy-1;"." P 4500 QU"Press 'ENTER' to continue ";g$:0:7:7::100d:130 V CRASH  WSoed,oea;0;" ";ed,ea;1;9 ;8;"":.2~L,-35# XMf=10 -10 -1:.01z# =,f:7:0:f:6500d  4::5,0;" Captain ";n$;"-"'''" There are no ";g$;" in"''" quadrant ";qx-1;",";qy-1;"." ink=0:7900 .2~L,30  200 37:7:0::100d:130 | Bump into Starbase  62:0:7::3,3;n$;":"  upow=(*1000)+200 mendtime=(*2)+1 '''" You have crashed the 'STARFIRE'-the resultant damage repairs will use up ";upow;" energy units,"'"and will take ";mendtime;" stardate";"s"mendtime1;" to "'" repair." ink=7:7900 H.4L,-22:pow=pow-upow:pow0pow=0:6500d <time=time-mendtime:time0time=0:6500d >300,:7:7:0::100d:130 DA2:7:0::3,4;"Captain ";n$;"-" F6,0;" We cannot attempt to dock againso soon after the last attempt, as the ret fuel tanks must be replenished." H]15,0;" TIME REQUIRED:";((2-(timetry-time))*100d)/100d;" STD" Iink=7:7900 N+.1}L,-20:300,:5030 p STARBASE DOCK UP  q(g(qx,qy,2)>100d6400 r 0 sshen20007700 t zY2::255,0:0,175:-255,0:0,-175 {c$="" |time=time-1 }retime=(*3)+2 edam<502edam=0 edam5026210B @torp=torp+(*15)+15:torp>30torp=30 c236077\,60<:4,10 ;"We have now docked,";7,13 ;"Captain ";n$;"." 236077\,249:1,3;1;"MAX";19,3;"MIN";9 ,4;2;7;"POWER";10 ,4;"LEVEL" ]7,168:0,-153:9 ,0:0,153:-9 ,0 78,16:5;5;0,150 120x,568:6;71G,0:6;0,23:6;-71G,0:6;0,-23 13 ,16;6;" ";13 ,16;2;" ";13 ,18;4;1;1;" ";0;6;13 ,20;3;" ";13 ,22;6;0;"" "lev=19-(pow/555.555 ) Dpow=pow+(*2000)+4000:pow>9999'pow=9999' "lup=19-(pow/555.555 ) }f=levlup-.5:f,1;1;7;">":.05|L,30-f:.04|# =,28:f,1;5;" ":f 6lup,1;2;7;1;1;">" .2,30-f 837:7:0::100d:130 B Damage Repairs  C+1,1;"MESSAGE FROM STARBASE:" G236077\,60< L$3,1;"Captain ";n$;"-" V7,1;"We have ";edam;"% damage,";9 ,1;"which will require ";retime;" STD";11 ,1;"to repair." `216,1;"Do you authorise this? (Y/N)" j7i$=:i$=""(i$"y"i$"Y"i$"n"i$"N")6250j ti$="N"i$="n"6280 ~ edam=0:time=time-retime 0.1}L,30::ink=0:7900:  ?3:7:1::0:ink=0:7900  \2,1;1;"A MESSAGE FROM THE XTARDANS:":236077\,60<:5,1;1;"You've just docked successfully";6,1;"into OUR starbase: (We captured";7,1;"it!).";9 ,1;"You & your ship are now our";10 ,1;"prisoners.":.3,-20:20,1;"Press a key" ""6420 =""6430 d/0:7:7:0::1 epow<1pow=0 ftime<1time=0 n=''" Time = ";time''" Power = ";pow''" S.D.F.= ";edam;"%" x/'''2;"MESSAGE FROM STARFLEET COMMAND:" U''" YOU'VE FAILED YOUR MISSION, THEXTARDANS HAVE CONQUERED THE GALAXY. I AM..." %f=170F:="s"25 f 65031,10 :65034 ,10 :65037 ,60<:l=65030:65071/,4:650753,5:65090B,10 :l=65070.:2;'" AAARRRRGGGGHHHH!" ="s"25  200 ="s"25 Cf=160<:2:l=23:0:="s"25 f 3236077\,60<:0:7:0: -1,7;"""We, the Xtardans, have" .2,7;"just shot your commander." +4,11 ;"We are a nasty bunch," 5,2;4;"" H6,1;4;" ";7;" and we do horrible" $7,3;4;" " ?8,2;4;"";7;" things." ,9 ,2;4;"@@" )10 ,2;4;"''" E11 ,2;4;"";14;7;"LIKE THIS," %12 ,2;4;"" "J13 ,1;4;"";18;7;"FOR INSTANCE:" ,'14,1;4;"" 6G15,0;4;"";19;7;"(bye!)""" @)4;16,0;"" J)4;17,0;"" T*4;18,0;"" ^Z236077\,249:20,0;1;7;" A XTARDAN"'"REPRESENTATIVE" _="s"25 rS65001,1:65004,110n:65007,255:l=65000 S<7:20:0::502:0:7: Ts236077\,60<:23659k\,0:22,0'"  1982 Sinclair Research Ltd":23659k\,2 U:0:10 ,2;"Ho ho! Bet that scared you!" V65001,10 :65004,10 :65007,502:l=65000:i$(1):"Another go? ";i$:i$"n"25 W 9999' X WIN WIN WIN WIN  Y236077\,60< b*1:1:7::2:"" cink=0:7900 lD6:1,3;" ";0;"""Well done indeed." v2,2;"" _3,1;"";0;"--";7;"";13 ;0;"You, ";n$;"," 14,1;"";0;"@@" W5,1;0;"U";7;14;0;"have freed the" )6,1;"";0;"" A7,2;"";15;0;"galaxy from the" 86:8,3;0;"";7;"" H1:9 ,3;"";13 ;0;"Xtardan menace."  10 ,0;"" G7;"";7;"";15;0;"You deserve a" 7;"" %" ";0;"medal.""" "" "" #" ";6;""  9"";0;6;"";7;"" -4;""  I236077\,249:20,2;0;"^ SUPREME COMMANDER" !f=2040(:.005y# =,f:.005y# =,70F-f:f:f=50230-1:.005y# =,f:.005y# =,40(-f:f "f=14:.01z# =,10 :.05|L,12 :f:.04|# =,5:.04|# =,7:.04|# =,10 :.04|# =,15:.04|# =,26 */l$(1):7;"Another go? (y/n) ";l$ + 0 , 0 4l$"n"l$"N"25 > 9999' L***  asteroid storm  V0:0:7: [Y3,0;2;7;1;1;"RED ALERT - ASTEROID FIELD AHEAD" `Q65001,3:65004,8:65007,220:l=65000 ego=0::f=116:lll=:21,(*22)+2;1;7;""lll<.5;""lll.5:l=3209 :f j alo=0 tM0,alo;5;"":go=0""go=1:.1}L,32 ualo=alo+(go=1) valo=3165001,1:65004,10 :65007,255:65031,1:65034 ,10 :65037 ,255:l=65000+65030:7:7:0::100d:130 w&go=1.0075yu[,70F-alo ~E(1,alo)>63?ū(1,alo+1)>63?7600 llll=:lll>.521,(*22)+2;1;7;""lll<.75@;""lll.75@ l=3209 :7540t >l=3209 :1;0,alo-1;5;" " x7:65071/,3:650753,7:65090B,6:l=65070.:0:0::6500d  STBASE BLOW- UP  z2:"":65071/,4:650753,5:65090B,10 :l=65070.:7:7::0 (K236077\,249:0,0;"MESSAGE FROM STARFLEET COMMAND-" 2p''"YOUR SHIELDS, WHICH YOU LEFT UP WHILE DOCKING, HAVE JUST VAPOR- IZED ONE OF OUR MOST EXPENSIVE STARBASES."  pow=5000+(*2000) #?retflag=0 #@timetry=time #Ashen=3000 #B2smart=(*3)+1:smen=(1000*) #Cstar=20 #Dkli=(*15)+5 #Esta=(*4)+2 #Fqx=(*10)+1 #GM9032H#:x=110 :q$:f=07:cha:q$+f,cha:f:x #HK"k",0,66B,90Z,126~,90Z,66B,0,0 #JM"e",146,84T,0,198,0,84T,146,0 #K"s",255,16,8,4,2,7,3,0,"d",128,0,255,32 ,64@,254,252,0 #LM"g",0,16,568,62>,62>,62>,126~,524 #MN"h",24,568,252,255,126~,38&,4,0 #NM"o",255,2,1,127,127,1,2,255 #OQ"l",128,24,60<,254,254,60<,24,128 #PO"j",24,24,36$,195,195,36$,24,24 #QO"b",0,60<,126~,126~,126~,126~,60<,0 #d 9240$ #n&g(10 ,10 ,2):galaxy #xf=1kli #y.01z# =,f*2-20 #x=(*10 )+1 #y=(*10 )+1 #'g(x,y,1)=g(x,y,1)+1 #f #x=(*10 )+1 #y=(*10 )+1 #;g(x,y,1)0g(x,y,2)09131# #g(x,y,1)=-1 #f=1sta #x=(*10 )+1 #y=(*10 )+1 #'g(x,y,2)=g(x,y,2)+1 #Ag(x,y,1)>0g(x,y,2)=100d+g(x,y,2) #f #4qx=(*10 )+1:qy=(*10 )+1 #Ag(qx,qy,2)=-1g(qx,qy,1)=-19190# # 7 #skli=g(qx,qy,1) $ 9250"$ $9"1 Android (ZX80 brain)","2 Android (ZX81 brain)" $D"3 Barely Humanoid","4 Junior Captain","5 Senior Captain" $@"6 Sub-Lieutenant","7 Lieutenant","8 Fleet Commander" $%"9 Super Hero","10 Impossible" $ $96:"":3,0;" S T A R F I R E" $x236077\,60<:''" Please enter your name,Captain."''"(standard Federation procedure)":ink=0:7900 $.1}L,30:"Your name: ";n$:n$<1űn$>9 15,1;0;"That's no good:";17,1;"A maximum of 9 letters, and a";18,1;"minimum of 1, if you please.":.2~L,-35#:9243$ $Z:1,0;" Which degree of difficulty do"''" you require?":7900 $[v$(25):f=110 :v$:f+6,3;1;7;1;v$:f $_20,35#:208,0:0,88X:-208,0:0,-88X $:.05|L,0:.05|L,10 :"Difficulty: ";dr $ +drɺdrdr<1dr>10 9247$ $!0time=time-dr:timetry=timetry-dr:kli=kli+dr: $"5:" Welcome aboard the destroyer ""Starfire"", "; $6"Captain ";n$;"." $@ $J,"STARDATE ";(*1000)+3000 ;":" $TT236077\,249:5,2;1;"GALACTIC WAR STATUS REPORT:" $U$"________________________________" $V236077\,60< $^='"Federation ships left: ";1;"01";0;"(yours)" $h:'"Xtardans still active: ";1;"0"kli<10 ;kli $r1'"Functional Starbases : ";1;0;sta $w*'"Stardates left : ";1;time $|$"________________________________" $8''" It's now up to you, ";n$;","'"to save the galaxy." $5.1}L,10 :'"GOOD LUCK! [ you'll need it ]" $3#0;2;" -Press any key to continue-" $""9374$ $=""9375$ $ $ escape from BHol  $Of=020:.005y# =,f:.01z# =,f*3:.01z# =,-30:f $f=120:f $pow=(pow*.25~) $)f=14:.1}L,24:f $ 2 $?:ink=7:7900:2,1;"Captain ";n$;"-" $sqx=(*10 )+1:qy=(*10 )+1:g(qx,qy,1)0g(qx,qy,2)09421$ $֚4,1;"Black hole evaded. Wanton use";6,1;"of hyperspace results in our";8,1;"now being at quadrant ";qx;",";qy;"." $""9450$ $!20,1;"press a key" $=""9470$ % 4500 %37:0:7::100d:130 ' That's all, folks!  1982 Virgin Games * dedicated to Caroline * ]M/C Ƽ$$$~$$~$>(> >bd&F(*D:  >>> < >> >F<DHphdb@@@``~|JjjjjbRJfbb  !2͵+|   <!͵# x dn&͵ x x > G^*Y\~X