ZXTape! 0Created with Ramsoft MakeTZXS aci=2::1:1:6:::3,11 ;"STAR TRAIL";'''''" These are the voyages of the starship Endeavour, on a five year mission, to boldly go where no man has gone before, and free the Galaxy of all alien Klingons and Romulens."'''" There will be a short delay while the computer scans the Galaxy."'''" DON'T PANIC" Ptrue=1:false=0:h$=" ":b$=" " "e",24,60<,102f,255,255,102f,60<,24,"b",24,60<,102f,129,129,195,66B,102f,"i",126~,195,195,165,219,165,126~,0,"k",129,60<,60<,90Z,36$,90Z,129,0,"r",60<,219,219,126~,165,129,66B,0 "a",255,128,128,128,128,128,128,255,"c",255,0,0,0,0,0,0,255,"d",255,1,1,1,1,1,1,255 RU$(1):4:i=18:U$:l=07:m:U$+l,m:l:i 236099\,25 Fff=100d:r(9 ):g$(100d,5):s$(8,8) ::r(x )=(x/2-1):f(x)=(x/2) <a(x)=(*x)+1 >!z(a ,b)=a*10 +b @%x(a ,b)=z(a,b)-10 Aro=0:b=0:k=b F(l=110 :m=110 Pz=x(l,m):g$(z)=" " Z6l=1l=10 m=1m=10 155 _ a(6) cg$(z)="000 0" dn=13 ix= n,x.965w =pg$(z,2)="1":145 xx.4L145 5x.12}u[g$(z,3)=a(6) :145 3a(6)>2g$(z,1)=(a(2)) 3a(6)<3g$(z,5)=(a(2)) n >b=b+g$(z,2):k=k+g$(z,1):ro=ro+g$(z,5) m:l inst=0 kt=a(6)*(k+ro)+25:r=a(8)+1:c=a(8)+1:x=a(8):y=a(8) %g=10 :e=5000:s=0 7:7:1: (0,11 ;"STAR TRAIL" 1''''" Near the bottom of the screen is the symbol ""L"". When you"'" see this during the game, remember to press the  ENTER  key once you have finished typing." p3;'''" If you would like details of the commands, please type y. "'" If not, please type n." 9860& reply :420: g:0,0;"CAPTAIN'S LOG":8100:9000(#:1500:2000:200 N:"COMMANDS"'':l=110 :a$(l);" - ";r$(l):l:1950 O18,0;b$;21,0;"Enter command (HP=HELP) " u=23673y\ $v=23673y\:u>vv=v+255 i$:21,0;b$ ԋv>u+3g$(z,1)"0"g$(z,5)"0"21,0;"Too slow, under alien attack. ":3100 :9900&:200 0.05|L,30 i=1 i>11 200 'i$=a$(i)i$=a$(i+17)220 i=i+1:215 *inst=i:7::i=11 190 "i=10 420:190 "i=9 7::5155# 0;6;R$(i):r(i)0'''"Sorry,it's damaged. Repair timeis ";r(i);" hour"+("s"r(i)1):i>1i<8200 Hi=1r(1)1r(1)=r(1)-1:300, Hi=8r(8)1r(8)=r(8)-1:400 4l=18:r(l)>0r(l)=r(l)-1 l  )i=1r(1)>0300, 4:i*1000:t=t-1:t=09500% inst=8190  200 ,{''"As your warp engines are damagedyou may use warp factors of upto0.3. This means you may only use local navigation." 69100#::"LOCAL NAVIGATION":1950:s$(x,y)=".":z=x(r,c):3,0;h$;"7 8 1"''h$;"6 0 2"''h$;"5 4 3";21,0;"Enter course " 8u=23673y\ ;(d$:v=23673y\:u>vv=v+255 =v>u+1g$(z,1)"0"g$(z,5)"0"21,0;"Too slow, aliens have attacked ":3100 :9900&:3106 > 9900& ?ld$=""20,0;"You forgot to type anything! Try again and enter course. ":3128 @Tnu=false:j=1̱d$:nu=nu+((d$(j)<"0"d$(j)>"9")d$(j)"."):j:nu319? Ad$="."319? Jd=d$:d=0200 L d<0d>83106 T=20,0;b$;"Enter warp factor (0 to 0.3) " Vu=23673y\ Y(w$:v=23673y\:u>vv=v+255 [v>u+1g$(z,1)"0"g$(z,5)"0"21,0;"Too slow, aliens have attacked":3100 :9900&:3106 ]lw$=""20,0;"You forgot to type anything! Try again and enter course. ":342V ^Tnu=false:j=1̱w$:nu=nu+((w$(j)<"0"w$(j)>"9")w$(j)"."):j:nu340T h)w=w$:w>0.3w<0340T |1050:200 ''"Most computer functions have been damaged by alien fire and are now being repaired."''"The micro-computer controlling manual docking is the only part of the system available. This will help you to dock, if possible, so rapid servicing canoccur." 19100#:9100#::85004!:190 ]0,0;0;6;r$(10 ):''"Which command shall I explain? "'' M0;"Code Command"::i=19 :0;a$(i);" ";r$(i):i :21,0;"Please type the code letters. " w$:21,0;b$ #w$=a$(11 )w$=a$(28)  co=1 co>9 440 )w$=a$(co)w$=a$(co+17)455 co=co+1:451 ^0.05|L,30::c(co):9840p&:reply:6;0;r$(10 ):420  9890&:1;"You move within the Galaxy by entering:"''" - a course or direction. This is given as a number between 0 and 8, as shown on the screen at the time."  ''" - a warp factor or distance. This can be a whole number or a decimal number. For example, a warp factor of 1 moves the Endeavour 1 sector. A warp factor of 0.1 will move it 1 square within a sector." 9850z&:reply 9890&:1;"Each navigation command takes 1 star date to carry out."''"You also use 10 energy units for each sector location (or square) which you cross." 9850z&:reply 9890&:'"You cannot travel through stars,Klingons, Romulens or starbases."'''"If the Endeavour navigates off the edge of the Galaxy, it is drawn into a black hole." 9850z&:reply q9890&:"Should the aliens damage your main navigation system, you can still use local navigation." ''"Unfortunately, movement is then very slow - it takes time for your navigator to double check your course!"'''"Under local navigation, the Endeavour can only move between one and three squares at a time."  9890&:''"This displays the contents of the 64 locations in the current sector."''"Status information is also shownon the screen, including one of the three conditions ALERT, DOCKand OK."''"Note that the border colour alsoindicates the condition." 9850z&:reply 9890&:''"Condition ALERT means aliens arein the current sector ... They can attack the Endeavour at any time."'''"Condition DOCK only occurs when the Endeavour is within range ofa starbase."  H''"Condition OK means the Endeavouris safe, for the time being."  9850z&:reply  9890&:"The following symbols are used:"'''" a Klingon"''" an injured Klingon"''"  a Romulen"''" one of your starbases"''" the Endeavour"''"* a star"''". an empty location"  9890&:"A long range scan shows what is in each sector round the Endeavour."''"Four digits are used to describethe contents of a sector."''"They show respectively:" &t'" - the number of Klingons"'" - the number of Romulens"'" - the number of starbases and - the number of stars." 0 :?9890&:"This command is used to set the phaser power." D''"Phasers can travel through starsor other obstructions to reach all the Klingons in a sector. "''"The greater the strength of yourphasers the more likely they areto hit the Klingons." HO''"You can set your phaser power toany whole number in the range 0 to 100." L9850z&:reply Nn9890&:'"Every time you fire a phaser, your energy is decreased by yourcurrent phaser power setting." S''"Phasers can destroy or damage Klingons, but do not affect Romulens."'''"If you leave a sector, and later re-enter it, by that time all damaged Klingons will have been repaired." U9850z&:reply Vo9890&:"Having set your phasers, you will automatically enter COMBAT MODE. This is explained next." W9850z&:reply X9890&:"During COMBAT MODE a short rangescan of the sector is displayed.You are given a short time in which to press:" ]n''" - p to activate your phasers - t to fire a torpedo, or - s to stop the combat." ^J'''"For this one command, you shouldNOT press ENTER at the end." `9850z&:reply a9890&:"If you press s to leave combat mode, then the aliens may well attack the Endeavour while it is trying to leave the combat area."''''"The only other way to leave combat mode is to destroy all the aliens in the sector." b9850z&:reply l9890&:"An alien's fire may damage the Endeavour. This depends on the setting of your shields."'''"Damaged equipment can't be used until it has been repaired by:" qx'" - waiting the specified time (each command takes 1 hour)"''" - locating and docking with a starbase." v 9890&:1;"Torpedoes can destroy Klingons, Romulens, stars and starbases! They don't miss providing you enter the correct course! (This is as in navigation.)" ''"Torpedoes travel in straight lines and use no energy."'''"You are limited to 10 torpedoes per flight."'''"Docking renews your supply." 9850z&:reply 9890&:"After you have fired a torpedo, you will be asked for another course until:"''" - there are no Romulens left in the sector, or"''" - you have no torpedoes left." '"You will then enter COMBAT MODE if there are still Klingons in the sector, or COMMAND MODE if there are no aliens at all." B''"COMBAT MODE is explained under the HELP section on PHASERS."  9890&:"You can divert up to 500 units of energy to provide shielding against alien attacks."''"Initially your shields are set at zero." ''"The higher you set your shields,the better is your protection, but 100% defence is impossible!"'''"On docking, your shields are automatically lowered. Rememberto raise them later!"  9890&:"This lets you end this attempt at saving the Galaxy from the aliens."'''"You may accept a new challenge from the aliens if you so wish.": 9890&:"This lists the current status ofthe starship's equipment."''"If equipment is damaged, then the repair times are given." 1;''"Since each command equates to 1 hour, if the damage is severe, it is better to dock as soon as possible so that all repairs canbe carried out.": @9890&:''"Which computer command shall I explain?"'' V''" CODE COMMAND"::m=16:0;" ";a$(m+11 );" ";c$(m):m 021,0;"Please type in a code." w$:co=1 #w$=a$(11 )w$=a$(28) co>6730 2w$=a$(co+11 )w$=a$(co+28)755 co=co+1:750 >0.05|L,30::c(co+9 ):9880&: reply co=8:710 i9898&:''"This tells you:"''" - the number of Klingons left"''" - the number of Romulens left" \'" - how many starbases remain"''" - the time left to achieve victory for Earth."   9898&:"This shows the contents of the 64 sectors of the Galaxy."''"It gives a three digit number to represent the contents of thesectors the Endeavour has been in or near." '"The digits show respectively:"'" - the total number of aliens"'" - the number of starbases"'" - the number of stars."''"The Endeavour is currently in the sector where the values are flashing."   9898&:"This gives you information on:"''" - the layout of the Galaxy, and how to find named sectors"''" - the contents of each sector"''" - the aliens." * 49898&:"This calculates the torpedo courses required to hit each Romulen in the current sector."'''"But can the Endeavour remain in working order long enough for you to enter the commands required to fire?" 9q''"Remember, while you are jotting down the values, the aliens could be damaging your torpedo function!" > H9898&:"This computer function will calculate the course and warp factor required for you to navigate between the start and finish points that you specify." M''"Enter each of the four co-ordinates separately. "'''"NOTE: if the resultant course isa whole number, the warp factor may be distorted." R \|9898&:"This computer function gives youmanual control of the Endeavour during the final stages of docking." a''"Successful docking will:"''" - repair all damaged equipment"''" - rearm the Endeavour with ten torpedoes"''" - refuel the ship with 5000 units of energy." c9850z&:reply f9898&:"You may only use manual docking when the Endeavour is next to a starbase."''"If you are unsure, remember the condition will be DOCK and the TV border cyan." p''"You have to guide the Endeavour from above the starbase to the opening beneath it, without going out of docking range. " u9850z&:reply z@9898&:"Use the direction keys (5 to 8) to move the Endeavour as you require."'''"If you press, say, 5 to go left,you continue to do so until you cancel the motion by pressing the key with the opposite effect(in this case 8)."''"Pressing a key twice makes you move twice as fast in that direction." 9850z&:reply 9898&:"To dock successfully, you must:"''''" - enter the hole beneath the starbase at slow speed"'''" - always stay on the screen"'''" - not touch any red areas."  1950:s$(x,y)=".":z=x(r,c):3,0;h$;"7 8 1"''h$;"6 0 2"''h$;"5 4 3";21,0;"Enter direction" u=23673y\ (d$:v=23673y\:u>vv=v+255 v>u+1g$(z,1)"0"g$(z,5)"0"21,0;"Too slow, aliens have attacked ":3100 :9900&:1000 d$=""1010 Unu=false:j=1̱d$:nu=nu+((d$(j)<"0"d$(j)>"9")d$(j)"."):j:nu1010 (d=d$:d<0d>81010  d=0 :21,0;"Enter warp factor "  u=23673y\  (w$:v=23673y\:u>vv=v+255  w$=""1030  v>u+1g$(z,1)"0"g$(z,5)"0"21,0;"Too slow, aliens have attacked ":9100#:3100 :1000 S19,0;b$;21,0;"The Endeavour is on her way ... " Unu=false:j=1̱w$:nu=nu+((w$(j)<"0"w$(j)>"9")w$(j)"."):j:nu1030 w$="."1030 w=w$ w1w=w-(w)*.2~L p=x:q=y:w=0 $\new=false:l=.1}Lw.1}L:e=e-10 :7,28;e:e09400$ .1.02{# =,30:1300+100d*(dɺd) 8?p>8p<1q<1q>8x=p:y=q:1105Q =s$(p,q)"."1250 B"x=(p+.5):y=(q+.5) G%x=(p+.5):y=(q+.5):l L-new=true1500:new=false:2000 M 2000 Q-new=true:p>8p=1:r=r+1 S#p<1p=8:r=r-1 U#q>8q=1:c=c+1 Y#q<1q=8:c=c-1 `(r>1r9 c>1c9 )9900&::9803K&:10 ,0;"You have left the Galaxy and are falling into a black hole! "''"Perhaps you should have used a better navigator ... ":9990':9510&% ~ x=p:y=q (n=18:s$(n)="........":n  9900&:19,0;"COLLISION COURSE! WARP DRIVE TURNED OFF!";b$:9000(#:1100L nq=q+(d1d3)-(d5d7):p=p+(d3d5)-(d=7d=8d=1): x*q=q+(d/4*):p=p-(d/4*): ^z=x(r,c):p$=n$(r(r)*4+f(c))+" "+(r*2-r(r)*4-3+c-f(c)*2) (l=18:s$(l)="........":l ,s$(x,y)="":g$(z,3)="0"1540 6l=1̰g$(z,3):1900l:s$(p,q)="*":l Ig$(z,1)"0"l=1̰g$(z,1):1900l:s$(p,q)="":l  Ig$(z,5)"0"l=1̰g$(z,5):1900l:s$(p,q)="":l ,g$(z,2)"0"1900l:s$(p,q)="" g$(z,4)="":g$(z-11 ,4)="":g$(z-9 ,4)="":g$(z-1,4)="":g$(z-10 ,4)="" "ng$(z+1,4)="":g$(z+9 ,4)="":g$(z+10 ,4)="":g$(z+11 ,4)="" 6 l7p=a(8):q=a(8):s$(p,q)"."1900l v 9800H&:5,24;"STATUS":6,20;"Time ";t;" ";7,20;"Energy ";e;8,20;"Torpedo ";g;" ";9 ,20;" & ";k+ro;" ";10 ,20;" ";b;" " 12 ,22;" POSITION":13 ,22;" (";r-1;",";c-1;") ";14,22;" ";p$;15,22;" " xg$(z,1)="0"g$(z,5)="0"1,22;"CONDITION";2,25;" OK ":4:4 }d0=false:a=false:n=x-1x+1:m=y-1y+1:n1n8m1m8a=a+(s$(n,m)="") jm:n:atrue1,22;"CONDITION";3,25;"DOCK ":5:5:d0=true g$(z,1)>"0"g$(z,5)>"0"1,22;"CONDITION";2,25;1;"ALERT":2:2   s$(x,y)="" t0:14,161:124|,0:0,-124|:-124|,0:0,124|:1 Jl=18:n=18:l*2,n*2;s$(l,n):n:l  1950  !7::"SHORT SCAN" 1:1970 Ri4i5(g$(z,1)>"0"g$(z,5)>"0")ƥ<.8L4040   1950:6,146:118v,0:0,-47/:-118v,0:0,47/:43+,145:0,-46.:83S,145:0,-46.:6,131:118v,0:6,116t:118v,0 °l=13:m=13:n=(r+l)*10 +c+m-32 :3;l*2+2,(m-1)*5+1;g$(n,1);g$(n,5);g$(n,23) m:l &13 ,0;"  *" ֠513,103g:-15,-30:59;,103g:-8,-30:66B,103g:9 ,-30:75K,103g:16,-30 ]28,76L:72H,0:0,-16:-72H,0:0,16  'g$(z,1)="0"g$(z,5)="0" 18,0;b$; !18,0;"Aliens fire ...":.04|# =,502:.08}# =,60<:*600X018,0;"Phasers damaged by an alien attack, and not available for";2'r(4);" hour"+("s"r(4)1)+".": F1970:21,0;"Enter phaser power. " u=23673y\ (f$:v=23673y\:u>vv=v+255 v>u+1g$(z,1)"0"g$(z,5)"0"21,0;"Too slow, aliens have attacked ":9100#:3100 :4010 %f$>3űf$=04010 Inu=false:j=1̱f$:nu=nu+(f$(j)<"0"f$(j)>"9"):j:nu4010 ff=f$ %ff<0ff>100d4013 X21,0;b$;21,0;"Phasers set at ";ff;" units. ":9100# 3g$(z,1)="0"g$(z,5)="0"1970: I21,0;"Press: P=Phaser S=Stop T=Torpedo":l=0 <10 :i$=:l=l+1:i$=""l<2004050 0.05|L,-5 +0.05|L,-3:21,0;b$ ׍(i$="t"i$="T")r(5)>0.01z# =21,0;"Your torpedoes are damaged! ":9100#:3100 :4040 ڍ(i$="p"i$="P")r(4)>0.01z# =21,0;"Your phasers are damaged! ":9100#:3100 :4040 F21,0;b$:r(5)=0(i$="t"i$="T")5005 ?l=18:m=18:s$(l,m)=""4700\ s$(l,m)=""41506 s$(l,m)""4300 6>.53100 ;0(i$"p"i$"P")r(4)04300 @a*100d>ff18,0;"Phasers missed";b$;b$;b$:9100#:9900&:4300 Je=e-ff:e09400$ T.65&fff18,0;"Well done! You have injured a Klingon";b$;b$;l*2,m*2;"":9992':s$(l,m)="":9100#:9900&:4290 ^9 ,28;k-1+ro;18,0;"Congratulations! You've killed a Klingon";b$;b$;l*2,m*2;".":9994 ':s$(l,m)=".":g$(z,1)=(g$(z,1)-1):k=k-1:9100#:9900&:k0ro05150 31950:g$(z,1)="0"g$(z,5)="0" 1g$(z,1)="0"g$(z,5)"0"5002 r(4)>018,0;"Phasers damaged by an alien attack, and not available for";2'r(4);" hour"+("s"r(4)1)+".": 18,0;b$;b$;b$;b$ m:l i$="s"i$="S"  4035 \18,0;"Aliens fire ... ":.04|# =,502:.08}# =,60<:*600X>s+502"They missed! " f20,0;"... Starbase destroyed ":b=b-1:s$(l,m)=".":g$(z,2)="0":10 ,28;b;" ";l*2,m*2;1;"" p>9100#:9900&:l*2,m*2;".":4300 :"TORPEDOES":g$(z,1)="0"g$(z,5)="0"'''" There are no Klingons or Romulens in this sector!":9100#: r(5)>018,0;"Torpedoes damaged by an alien attack, and not available for";2'r(5);" hour"+("s"r(5)1)+".":9100#:18,0;b$;b$;b$;b$: g018,0;"No Torpedoes left - "'"docking advised ":9100#:9900&: 1970:12 ,22;"DIRECTION";13 ,24;"7 8 1 "'14,24;"6 0 2 "'15,24;"5 4 3 ":21,0;"Enter course of the torpedo. ":u=23673y\:d$ d$=""d$="."d$:5006 20,0;b$;b$ $v=23673y\:u>vv=v+255 v>u+120,0;"You must fire more quickly: The aliens won't wait for you...":9100#:9900&:3100 :5002 Vch=false:j=1̱d$:ch=ch+((d$(j)<"0"d$(j)>"9")d$(j)"."):j:ch5030 ~20,0;"A torpedo course must be a number, enter torpedo course. ":u=23673y\:d$:5006 d=d$  d=0 d<0d>820,0;"Torpedo courses must be between 0 and 8, enter torpedo course. ":u=23673y\:d$:5006 21,0;b$ 0g=g-1:8,28;g;" ":p=x:q=y Y1300+100d*(dɺd)::p<.5p8.5q<.5q8.55102  5110 p<.5p=1 q<.5q=1 p8.5p=8 q8.5q=8  5112 3s$((p+.5),(q+.5))="."5100 ~xc=16*y+4:yc=172-16*x:pc=16*(q+.5)+4-xc:qc=170-16*(p+.5)-yc  9999':.5,-30 "p=(p+.5):q=(q+.5) ;s$(p,q)=""s$(p,q)=""l=p:m=q:5400:5480h %s$(p,q)="."5500|:5480h %s$(p,q)=""5500|:5480h /s$(p,q)=""l=p:m=q:5470^:5480h  s$(p,q)=""5300 19,0;"You have blasted a star.":9996 ':9100#:9900&:g$(z,3)=(g$(z,3)-1):s$(p,q)=".":p*2,q*2;".":5550:5002 7::''10 ;"CONGRATULATIONS"'''"You have destroyed the whole of the alien fleet. We are now safe."'''"The Galaxy sends you its thanks."  0.2~L,12 :0.05|L,13 :0.1}L,10 :0.1}L,8:0.1}L,7:0.2~L,5:3:0.05|L,7:0.05|L,8:0.05|L,10 !0.2~L,12 :0.05|L,13 :0.1}L,10 :0.1}L,8:0.1}L,7:0.5,5:1,3 #7:''"Perhaps your tactics can be improved in a fight to save another galaxy!"''"Would you like to try STAR TRAILonce more?"''"Please answer y or n." $ 9860& (reply:1 <.:10 ,12 ;"GOODBYE": 18,0;"You have just blasted your starbase! ";b$;b$:9996 ':s$(p,q)=".":g$(z,2)="0":b=b-1:7,27;b J9100#:l*2,m*2;".":9900&:5550:5480h ?l*2,m*2;1;"":k=k-1:s$(l,m)=".":9 ,28;k+ro:g$(z,1)=(g$(z,1)-1):18,0;"Well done! You've destroyed a Klingon. ":9994 ':k>09100#:9900&:5550:l*2,m*2;".":1970: k=019,0;"Klingon, it was the last of the Klingon invasion fleet. ":9100#:9900&:l*2,m*2;".":5550:ro=05150 " ^6l*2,m*2;1;"":ro=ro-1:s$(l,m)=".":9 ,28;k+ro:g$(z,5)=(g$(z,5)-1):18,0;"Well done! You've destroyed a Romulen. ":9994 ':ro>09100#:9900&:5550:l*2,m*2;".": cro=019,0;"Romulen, it was the last of the Romulen invasion fleet. ":9100#:9900&:l*2,m*2;".":5550:k05150 f h31950:g$(z,1)="0"g$(z,5)="0" r1g$(z,1)="0"g$(z,5)"0"5005 wg$(z,1)>"0"4040 x |P18,0;"Torpedoes missed - bad course.":9100#:9900&  9999' 3100 : p9940&:3;4,0;"Operational energy: ";e;6,0;"Shield energy: ";s;8,0;"Total energy: ";e+s:e=e+s:12 ,0;"How much energy do you want to"'"use for the shields?" uu=23673y\ z(v$:v=23673y\:vu+1g$(z,1)"0"g$(z,5)"0"21,0;"Too slow, aliens have attacked ":9100#:9900&:3100 : }uv$=""12 ,0;"You forgot to type a number. Try again. ":9100#:6005u ~nu=false:j=1̱v$:nu=nu+(v$(j)>"9"v$(j)<"0"):j:nu12 ,0;"That was wrong. Shields can onlyuse energy between 0 and 500 units. Please try again.":100d:6005u s1=v$ s1<0s1>50012 ,0;"That was wrong. Shields can onlyuse energy between 0 and 500 units. Please try again.":100d:6005u s=s1:e=e-s:12 ,0;b$;b$;b$;b$;b$;3;4,20;" ";4,20;e;6,20;" ";6,20;s: XK9940&:l=18:r(l)=0r$(l);" FUNCTIONAL":l: b6r$(l);2;" DAMAGED "'"Repair time ";r(l):l: @j:"COMPUTER"'':m=16:2;a$(m+11 );" - ";c$(m):m:1950:a=0 E:21,0;"Enter computer command (HP=Help)" Fu=23673y\ Gw$:21,0;b$ H$v=23673y\:u>vv=v+255 Iv>u+10 g$(z,1)"0"g$(z,5)"0":21,0;"Too slow, under alien attack. ":3100 :9900&:8000@ J80.02{# =,30:w$=a$(11 )w$=a$(28) K co=0 Lco=co+1 Mco>68005E N3w$=a$(co+11 )w$=a$(co+28)8020T O 8012L ^@:6;0;"COMPUTER: ";c$(co)'':j$(co):8005E u'"Star date T minus ";t;" hours."'''"There are:"'2'" - ";k;" ";"Klingon battlecruiser"+("s"k1) 2;'" - ";ro;" Romulen interceptor"+("s"ro1)''" - ";b;" Starbase"+("s"b1);1;''"You must destroy the aliens"'"before they kill us."'':t>(k+ro)*4"Don't panic! You are winning." 4t(k+ro)*4"Good luck, you'll need it!"  l=18:m=29 :l*2,m*4-7;6;"":z=z(l,m):g$(z,4)=""l*2,m*4-7;g$(z,1)+g$(z,5);g$(z,23) m:l  0;'" You are at (";r-1;",";c-1;"): ";p$:z=z(r-1,c):r*2-2,c*4-7;1;g$(z,1)+g$(z,5);g$(z,23): 0'"We are fighting the evil Klingons () and Romulens ()  for the freedom of our Galaxy. These aliens are trying to conquer us."''"For the sake of mankind,they must be stopped."''"Their warships are now widely spread throughout the Galaxy."; :V''"Your mission is to destroy the aliens and so save the Galaxy.":9000(#: D''"The Galaxy is divided into 16 quadrants, which are named:"''3;" SOLARA NAGRO CRAB SIRIUSVIRGO GEMINI ORION VEGA TRAAL LEO SPICA DRACO RIGEL OSIAN ANGEL PLUTO " NK''"Each quadrant is divided into 4 sectors, numbered 1 to 4.":9000(# X:''"A sector may contain:"''" - up to 6 stars (*)"''" - up to 2 Klingon craft ()"''" - up to 2 Romulen craft ()"''" - at most, 1 Starbase ()." bv''"When you are next to a starbase you may dock to replenish your ship with fuel, energy and arms."''"Good luck!": l6;0;0,0;"COMPUTER: COMPUTE COURSE ":exit=false:3,0;"Current position is (";r-1;",";c-1;")";7,0;"Enter start position ";:8370 v4p$:8380 :exittruep$18310v {exit _7,20;"(";p$;",";:8370 :q$:8380 :exittrueq$18320 exit (p$"0"p$>"8")(q$"0"q$>"8")7,23;q$;")";'''"ERROR! This position is outside the Galaxy. Please try again.":9100#::8300l B7,23;q$;")";10 ,0;"Enter destination "; p1=p$:q1=q$ @8370 :p$:8380 :exittruep$18340 exit `10 ,20;"(";p$;",";:8370 :q$:8380 :exittrueq$18350 exit (p$"0"p$>"8")(q$"0"q$>"8")10 ,23;q$;")";'''"ERROR! Please try again with a position inside the Galaxy!":9100#::8300l :10 ,23;q$;")"''':p=p$:q=q$:8800`": u=23673y\: $v=23673y\:u>vv=v+255 Ƒv>u+1g$(z,1)"0"g$(z,5)"0"21,0;"Too late! They're attacking!":exit=true:3100 :9900&:  Gg$(z,5)="0"''''"There are no Romulens near here!": Kp1=x:q1=y:p=15:q=15:s$(p,q)=""8800`" q:p: !4ed019,0;"No starbases within range - Docking aborted. ": !>pS>0e=e+s:s=0:21,0;"Shields lowered for docking":9100#:21,0;b$ !?+0,0;b$:a=0:f=0 !@2:7:6,14;"";7,11 ;" ";8,12 ;"";9 ,11 ;"";10 ,11 ;"";11 ,12 ;"";12 ,13 ;"";2,5;" ";2,20;" " !C3,8;" ";3,22;" ";4,8;" ";4,21;" ";5,9 ;"";5,20;"";6,10 ;" ";6,19;"" !D0:7:2;0,72H:2;255,0,/2:2;0,71G:2;255,0,/2 !E2:30,175:-30,-30,/6:255-30,175:30,-30,-/6:29,175:-29,-29,/6:255-29,175:29,-29,-/6 !G2;0,145:2;0,-73I:2;1,145:2;0,-73I:2;254,145:2;0,-73I:2;255,145:2;0,-73I !HC7;7;11 ,15;" ";12 ,15;" " !M)1:7:p=3:q=16 !p/p,q;"":e=e-5:e09400 $ !u=(p=11 p=12 )(q=16q=15)8630! !a=a+(="6")-(="7"):f=f+(="8")-(="5"):p,q;" ":p=p+a:q=q+f:p0p21q0q31((p,q)23ƫ(p,q)58:)(p=11 p=12 )(q=16q=17)8560p! !Zm=(*10 +1)*10 :e=e-m:20,0;"Docking failed - energy: ";e !0.1}L,-40(:0.1}L,-30:0.1}L,-20:0.2~L,-30:0.3,-40(:9100#:e09400$ ! !:"COMPUTER: MANUAL DOCKING"''"Docking successful."''"Initialising repair sequence.":9801I&:''"Repairs complete.":e=5000:g=10 !{';"Energy now ";e:l=18:r(l)=0:l:''"All systems fully operational. Separation countdown starting." !ʥ15,12 ;"";16,12 ;"";17,12 ;" ";18,12 ;"";19,12 ;"";17,14;"10" !m=9 0-1:.02{# =,40(:491:17,14;" ";m:m:.02{# =,40(:491:15,0;b$;b$;b$;b$;b$;16,0;"Returning to initial orbit. " !dj=15:i=17:i:0.1}L,-25+7*j+i:i:j:0.2~L,18 !2000: "`Dp<1p>8q<1q>8'"INVALID POSITION": "e\w=((p-p1)*(p-p1)+(q-q1)*(q-q1)):w=(w*1000)/1000:w=0''':8850" "jJd=((q-q1)/w)*4/:d=(d*1000)/1000:p>p1d=4-d "td0d=d+8 "~3''"Course:";d;" "; "2;"Distance:";w: #(@9800H&:21,0;"Press any key to continue." #2i$=:i$=""90102# #<0.05|L,30:: # 300,: $:10 ,0;"Insufficient energy to maintain your life support systems.":''"You fought a gallant fight but ..."'':9510&% % %!e10 ,0;"Too late! The alien fleet has attacked and destroyed the Mothership." %&E9990':'''"THE GALAXY IS LOST! ":9100#::5155# &H.(56 8((22,0)))=568 &I,i=23232Z23296[:i,568:i: &Ke0:z$(32 ):23659k\,0:22,0;0;z$;z$:23659k\,2: &R+i=23232Z23296[:i,8:i: &pK21,0;3;"Help with another command? (y/n)":9860& &zE21,0;3;"Would you like more? Type y or n" &w$ &w$=""9860& &w$=w$(1) &,(w$="y"w$="Y"w$="N"w$="n")9860& &reply=(w$="y"ůw$="Y") &0.05|L,30: &K21,0;3;"More about the computer? (y/n) ":9860& &E:0,0;0;6;"EXPLANATION OF ";r$(co);''': &Q:0,0;0;6;"EXPLANATION OF ";r$(8)'c$(co);''': &18,0;b$;b$;b$;b$ & &.g$(z,1)="0"g$(z,5)="0"4 &}d0=false:a=false:n=x-1x+1:m=y-1y+1:n1n8m1m8a=a+(s$(n,m)="") &m:n:atrue5 &.g$(z,1)>"0"g$(z,5)>"0"2 & '0.5,-12 :0.25~,-13 :0.5,-10 :0.5,-18:0.5,-17:1,-15: '<0.1}L,7:0.05|L,8:0.1}L,5: ' {0.1}L,15:0.05|L,16:0.1}L,13 :0.1}L,18:0.1}L,17:0.3,16: ' ?0.3,-7:0.15~,-8:0.3,-5: 'xc,yc:1;pc,qc: } NAVIGATION SHORT SCAN LONG SCAN PHASERS TORPEDOES SHIELD DAMAGE COMPUTER RESIGN INSTRUCTIONSÉCAPTAIN'S LOG GALAXY MAP GALACTIC GUIDE COMPUTE COURSE TORPEDO COURSE MANUAL DOCKING 810082008240830084008500eSOLARANAGRO CRAB SIRIUSVIRGO GEMINIORION VEGA TRAAL LEO SPICA DRACO RIGEL OSIAN ANGEL PLUTO I"NVSSLSPHTOSDDMCMRSINHPLGGMGGCCTCMDnvsslsphtosddmcmrsinhplggmggcctcmdN:  H4\!ruals db kzTxnstr cyge^seplauvdwL  eDLfxi# H B d0 d 00000000002000300000005000000040 000000200030000000000020006000100000010000200040000000000100003000000000006000400010002000000040 00600040006001100060001000000000 015001000010205 00110000000000010 00000050015000000000010000200150 0050006000502050000 0006000300000 E...................*.*..................*..........**..........F100Q5V500POSIAN 3ItD8Wn