STARSHIP {{}1:1::7 K2;1;10 ,7;" STOP THE TAPE ":0:1  250  $23658j\,(23658j\)+8 4,6;"S I L V E R S O F T";6,12 ;"Presents";8,8;"S T A R S H I P";10 ,11 ;"ENTERPRISE" (R15,6;"1. Keyboard version";17,6;"2. Kempston joystick" 2""60< 7=""557 <'="1"50005U,0:100d F"2"502 P50005U,1 d 50000P iN:1;2;10 ,7;" START THE TAPE ";0;1 n"" STARB |[y#IU~[ SILVERSOFT 1983 "8"9600%:145 9600% I=18 0(A$)=I180:D$(I,10 13 ) I 145 J=11 14 -J,1;" " J SX=(8*+1) SY=(8*+1) G$(SX,SY)=" " 200H @BG=0 JDK13604 TN12 ,7;"STARBASE SHIELDS";13 ,6;"PROTECT ENTERPRISE" Y350^:180 ^ hZ=1BG r!B(Z,3@)0450a |>X=(((B(Z,1)-EX))^2+(B(Z,2)-EY)^2) }X<1X=1 X=((B(Z,3@)/X)*(L+))  S=S-(X*) S<08500 64070F H12 ,2;X;" UNIT HIT ON ENTERPRISE";8,12 ;S;" " 70F:180 X<20 450a  470k Z  .ND=2*(L+)*X/((100H+S)/600) ND=(ND*10 )/10  0 I=(*8)+1 D(I)=D(I)-ND &#11 ,8;"DAMAGE REPORT" 0"13 ,4;D$(I,9 ) :P$=" DETERIORATING" DD(I)<0P$=D$(9) N13 ,13 ;P$ S100d:180 X  1400x  91000 DK=11110V B DK=0 L 1300" V W DK=1 `S$=" DOCKED" 1A=EN-333&+100H*((*8+1)) A1S$=17+2+18+1+" RED " <7:125} x D(2)>01404| y412 ,7;D$(2,9 );D$(9 ) z 70F {180:145 |0:0::4 }%0,7;"SHORT RANGE SCAN"  9700%  6 QI=18:2,8+2*I;I;3+2*I,6;I:I  9500% &I=18:J=18 .3+2*I,7+2*J;G$(I,J) J:I :21,9 ;"SCAN COMPLETE":9600%:70F  110n  D(3)02020 >12 ,7;D$(3,9 );D$(9 ):70F  145 0:0::4 39500%:0,9 ;"LONG RANGE SCAN."  I=100d196480 J=20138480 G=032 8 I+G,J:0,32 I,J+G:32 ,0 G I+32 ,J:4,4:0,32 :-32 ,0:-4,-4:I+32 ,J+32 :4,4 J:I  6  9500% 2J=QX-1QX+1:I=QY-1QY+1  A=I:ND=J %I<1I>8A=(I-8)  &J<1J>8ND=(J-8) J$(ND,A)="1"  A$="00"+(2*(I$(ND,A))) B=A$-2 E9610%:11 +6*(J-QX),19+6*(I-QY);A$(B)  I %J *?3,0;"1ST DIGIT.";5,0;"NO OF ALIENS" /V9 ,0;"2ND DIGIT";11 ,2;"NO OF";13 ,1;"STARBASES" 2?18,0;"3RD DIGIT";20,0;"NO OF STARS" 34:72H,148:36$,-12 :72H,100d:44,,-12 :92\,12 :32 ,18:9600% 4 70F 6 110n TD(5)<012 ,7;D$(5,9 );D$(9 ):2504 @T=012 ,5;"ALL TORPEDOES FIRED":2504 2506 ,9610%:70F:180:145 0:0::6 &0,7;"PHOTON TORPEDOES" ͕4:I=08:32 +24*I,27:0,128:32 ,27+16*I:192,0:I=02512 k6:1+2*I,2;I;1+2*I,29;I;1,2+3*I;I:4 I uI=07:43++24*I,87W:0,8:124|,35#+16*I:8,0:I 6:I=18:J=18:1+2*J,2+3*I;G$(I,J):J:I:4:128,91[,16:128,91[,32 :128,91[,480 FI1=1:X=4:Y=4:X1=X:Y1=Y:9500%:2528 T$="":I1=0 "T$=:T$=(13 )2532 AT$="5"X=X-1*(X1)+8*(X1):2528 AT$="7"Y=Y-1*(Y1)+8*(Y1):2530 AT$="6"Y=Y+1*(Y8)-8*(Y8):2530 AT$="8"X=X+1*(X8)-8*(X8):2528 2516 2:1::19,2+X1*3;" ";19,2+X*3;"":X1=X:0:6:I1=12530 2516 2:1:1+Y1*2,3;" ";1+Y1*2,28;"";1+Y*2,3;"";1+Y*2,28;"":Y1=Y:0:6:2516 64010 :T=T-1 G$(X,Y)="B"3022 G$(X,Y)="E"85004! fG$(X,Y)E$(1)21,1;"NO ";E$;"S IN THAT SECTOR":9610%:70F:2552 c>.9ffff21,0;" TORPEDO DEFLECTED ":9610%:70F:2556 I=1BG ,(B(I,1)=XB(I,2))2551 MB(I,3)=0:G$(X,Y)=" ":1+2*Y,2+3*X;" " BG=BG-1:TBG=TBG-1 TBG=09000(# I bT=021,0;" ALL TORPEDOES FIRED ":9610%:70F:2558 ?21,0;" FIRE AGAIN Y/N ? ":70F H="Y"21,0;" ":2516 5I$(QX,QY)=((BG*100d+10 *BAS+ST)/2) 110n 1:1::7 Ҩ5,3;"STARFLEET COMMAND REPORT";7,6;"STARBASE DESTROYED";9 ,4;"A GENERAL COURT MARTIAL";11 ,5;"IS BEING CONSIDERED" DK=0 70F 9000(# ~BG=012 ,7;"NO ";E$;"'S IN";14,8;"THIS QUADRANT":9600%:70F:180:145 ]D(4)<012 ,7;"PHASORS";D$(9 ):70F:180:145 55009,*20:55010,*20:56090,255:56103',255:57863,100d:55007,BG:55022,0:55023,0:55024,0 0:0::7 !55110F &,55022=1D(6)=-10 +%55023=1E=E-200 0,55024=1D(1)=-10 555007=BG3160X :I=BG̾55007+1 ?9G$(B(I,1),B(I,2))=" ":B(I,3)=0 D/E=E-200:BG=BG-1:TBG=TBG-1 ITBG=09000(# NI S5I$(QX,QY)=((100d*BG+10 *BAS+ST)/2) X 110n DK=13560^ +D(6)>03800:110n $12 ,8;"REPORT DAMAGED" ,9610%:70F:180:145 3800m  A=0 I=18 D(I).733333610a A=A+.5 I $A=0110n .A=A+(.5*) 8A>1A= B4,3;"ESTIMATED REPAIR TIME IS";6,8;(A*100d)/100d;" STARDATES";9 ,5;"AUTHORISE ? (YES/NO)" ` 70F j="N"109m t"Y"9610%:3680` ~I=18 D(I)>.7333337%0j` D(I)=D(I)+.5  3720h I  T1=T1+A  110n &0:0::4:1 *0,5;"DAMAGE CONTROL REPORT" I=18 A$="OPERATIONAL" ND(I)<0A$=18+1+D$(9 ,11 )+18+0 C9610%:2*I,2;I;". ";D$(I,9 );17;A$  I  0 09610%:19,8;"END OF REPORT."  70F (  300,  D(7`)>04040| %12 ,8;"SHIELDS DAMAGED" ,9610%:70F:180:145 DK14090 +12 ,6;"WE CANNOT USE SHIELDS" .13 ,5;"THIS CLOSE TO A STARBASE" ,9600%:70F:180:145  180 R12 ,5;"ENERGY AVAILABLE ";E+S;14,6;"NEW SHIELD LEVEL ?" B$=""  70F A$= A$=(13 )4115 'A$<"0"A$>"9"9600%:4100  9600%  B$=B$+A$  #14,24;B$:4100 B$=""4100 A=B$:A180:6,12 ;E;" ";8,12 ;S;" " 6 145  D(8)>04530 1180:12 ,7;"COMPUTER DAMAGED"  70F  145 F1:1:7::2,5;" COMPUTER SYSTEMS " 4,7;"1. STATUS REPORT";6,7;"2. GALAXY MAP";8,7;"3. REPAIR";10 ,7;"4. AUTOMATIC DOCKING" M&13 ,7;"WHICH FUNCTION ?" R 70F a-A$=:A$<"1"A$>"4"9600%:4690R f A=EX:B=EY hND=A$ k$9610%:4710f+20*ND pW z 70F { |O2,0;R$((8*(L-.5)+1));"'S LOG STARDATE ";(T1) ~Y4,5;"THERE ARE ";TBG;" ";E$;"'S";6,5;"LEFT IN THE GALAXY AND" 18,4;TBAS;" OPERATIONAL STARBASES." 310 ,2;"TIME REMAINING FOR COMPLETION" a12 ,4;"OF MISSION ";(T9-T1);" STARDATES";17,6;"END OF STATUS REPORT."  350^ 9600%: 1:1::7 30,5;"G A L A X Y M A P":9610% `7,20:248,0:0,128:-248,0:0,-128 wI=06:35#+32 *I,20:0,128:8,16*I+36$:247,0:I dI=18:2,4*I-3;I:1;2+2*I,0;I:0:I /6:I=18:J=18 J$(I,J)"1"4763 .A$="00"+(2*(I$(I,J))):B=A$-2 ?1;2+I*2,4*J-3;A$(B):0 J:I:9500% #21,9 ;"SCAN COMPLETE"  70F =(13 ) 9600%:4765 (1:1::7:A=0 #0,8;"REPAIR SYSTEMS" ]I=18:D(I)<0A=A+1:2+A,7;D$(I,9 );D$(9 ) I 4+A,8;A;" SYSTEMS DAMAGED";6+A,3;"ENERGY REQUIRED FOR REPAIRS";8+A,8;(A*(10 +*6));" UNITS" '10 +A,8;"AUTHORISE Y/N ?"  70F  ="N" "Y"9600%:4781 S1;2;12 +A,3;"SYSTEMS BEING REPAIRED":I=18 D(I)>.733334788  D(I)=D(I)+.5:4786 I Z;0;1;12 +A,3;" ALL SYSTEMS REPAIRED ":9600%:70F: 1:1::7 BAS=0DK=1 06,2;"DOCKING PROCEDURE ACTIVATED" &I=18:J=18 2G$(I,J)="B"EX=I:EY=J:G$(I,J)="E":DK=1 J:I 210 ,8;"DOCKING COMPLETE":9500%  # $LX=QX:LY=QY:NF=0 & 9500% )0:0::6 .r0,5;"NAVIGATION COMPUTER";5;2,4;"QUADRANT";2,21;"SECTOR";6 34,36$:120x,0:0,128:-120x,0:0,-128:132,36$:120x,0:0,128:-120x,0:0,-128 8I=071G8 =O32 ,64@+I:64@,0:160,64@+I:64@,0 BO32 +I,64@:0,64@:160+I,64@:0,64@ GI LmI=18:4,3+I;I;5+I,2;I;4,19+I;I;5+I,18;I:I Q 4955[ Vy5:I=18:15,3+I;I;5+I,13 ;I;15,19+I;I;5+I,29;I:I [f6:4,0:248,0:0,28:-248,0:0,-28 ] 9500% ^ 4970j `D(1)019,6;"WARP DRIVE DAMAGED":R=.25~:NF=1:502:19,1;" ":4985y eR=8:4985y jI=18 oD(I)>10 /L4981u t2D(I)=D(I)+10 +(D(I)/2)*(1.5@-L) uI v y D(1)<05010 { NF=0 ~n9600%:19,2;"QUADRANT OR SECTOR NAVIGATION";20,7;"PRESS 'Q' OR 'S'"  70F :="Q"HP=3:VP=12 :CX=QX:CY=QY:5015 G="S"HP=19:VP=28:CX=EX:CY=EY:NF=1:5015 =(13 )110n 9600%:4995 4HP=19:VP=28:NF=1:CX=EX:CY=EY 35995k:5,HP+CY;"";5+CX,HP;""  9500% I5:I=18:15,HP+I;I;5+I,VP+1;I:I (14,HP+CY;"";5+CX,VP;"" T$="" =""5032 T$= ;T$="5"5900 :CY=CY-1:CY<1CY=8 ;T$="6"5905:CX=CX+1:CX>8CX=1 ;T$="7"5905:CX=CX-1:CX<1CX=8 ;T$="8"5900 :CY=CY+1:CY>8CY=1 T$="A"110n RT$=(13 )19,6;"CO-ORDINATES LOCKED":9500%:5050  5025 EX=CXEY=CY110n 6G$(EX,EY)=" ":EX=BXEY=BYDK=1G$(EX,EY)="B"  DK=0 NF15085 J=((EX-CX)^2+(EY-CY)^2):J>R*8+.9ffff5990f:19,6;"IMPULSE POWER ONLY";20,7;"MAXIMUM 2 SECTORS":9600%:70F:5900 :5905:5995k:5025 EX=CX:EY=CY K5995k:19,6;"NAVIGATE COMPLETE":300,:5110 +J=(((LX-CX)^2+(LY-CY)^2)) zJ=J*8:J>E5995k:ND=J:19,6;"INSUFFICENT ENERGY":9600%:70F:5995k:5025 QX=CX:QY=CY QX=LXQY=LY110n  7400 *G$(EX,EY)=" "G$(EX,EY)="E":5145 G$(EX,EY)"B"5135 )>0.95s333G$(EX,EY)="E":3022  &G$(EX,EY)="E":DK=1:110n /200:G$(SX,SY)=G$(EX,EY):G$(EX,EY)="E"  9200# OE=E-(((ND*2)^1.5@)*(250+S)/650):E<0E=0 | 110n  14,HP+CY;" ": 5+CX,VP;"": ki19,1;" ";20,1;" ": p1:1::7 uJ$(8,8) z 9500% .1,3;"L E V E L S O F P L A Y" I=14 )2*I+2,9 ;I;". ";R$(I) I "21(,5 ;"WHICH LEVEL?"  9500%  70F =(13 )6090 <"1"Ŧ>"4"6090 A$= A=A$-480 #L=.125}*(A-1)+.5 $ Q$=R$(A) . 8310 ,4;"PLEASE ENTER YOUR NAME":A$="" = 70F ? A=(13 )6215G B A$=A$+ D18,1;Q$;" ";A$ EA$>206215G F 6205= GQ$=Q$+" "+A$: `CA=(*3)+1:E$=F$(A):DK=0:EN=5000:E=EN e 0 j;T=10 :NT=T:TBG=0:SN=200:TBAS=0  S=400H 2QX=(*8)+1:QY=(*8)+1 2EX=(*8)+1:EY=(*8)+1 A=(A-1)*5:55026,144+A:55027,32 :55028,145+A:55029,146+A:55030,147+A:55031,148+A (I=18 2-D(I)=(*30p+1/10 )+1 <I A 9500% F%8,8;"WELCOME ABOARD "; K/14,3;"ENTERPRISE BEING REFITTED" P111 ,(32 -((Q$)))/2-1;Q$ Z"17,10 ;"PLEASE WAIT" &I=18:J=18 R1=  BG=0 DBG=(R1>.825S332)+(R1>.925l)+(R1>.975y)+(R1>.985|() h TBG=TBG+BG r BAS=0 |>.94p BAS=1 TBAS=TBAS+BAS #ST=((*4))*2+2  A=100H*BG+10 *BAS+ST A$=(A/2)  I$(I,J)=A$ J:I $T1=(*20 +20 )*100H T0=T1 %T9=T1+(10 +(*4)+TBG)/L  ] 4732 b 9500%  7400g@ G$(EX,EY)="E"  110n  G$(8,8) t%BG=0:BAS=0:ST=0 A=2*(I$(QX,QY)) (BG=(A/100H) <BAS=(A/10 -BG*10 ) P ST=A-100d*BG-10 *BAS Z"S0BG>08500 BG=08120} B(4,3) ,I=1BG @ 200H TG$(SX,SY)=E$(1) h3B(I,1)=SX:B(I,2)=SY:B(I,3)=SN I BAS=08260 I=1BAS  200H 9SX<2SX>7`SY<2SY>7`8160 G$(SX,SY)="B" BX=SX:BY=SY 0I DST=08360 XI=1ST l 200H G$(SX,SY)="." I &0:0:7:1: >I=711 :0:I,14;" ":I:7 8 MI=2551-5:61930,I:61943,I:61000H:I 60< LI=12555:61930,I:61943,I:61000H:I 0 BG<1SSN8400 BG<18380 f1;7;2;19,2;" COMBAT AREA ";E$;" ALERT ":7:0:1 SSN8395 g1;7;2;20,2;" WARNING SHIELDS LOW ":7:1:0 64100d E2,3;"HYPERSPACE JUMP COMPLETE":9600%:502:  !41:1::7 !6*2,4;"ENTERPRISE DESTROYED" !: 9010 #(1:1::7 #-TBG=09030  #225,2;"YOU HAVE FAILED YOUR MISSION," #7O7,8;"THE ";E$;"'S";9 ,2;"HAVE CONQUERED THE GALAXY." #< 9040 @ #FX1;2;1,0;" C O N G R A T U L A T I O N S ":1:0 #H03,(32 -((Q$)))/2-1;Q$ #J,5,4;"YOU,VE SAVED THE GALAXY" #K+7,4;"FROM THE ";E$;" MENACE" #M64100d #P(21(,1;"TRY AGAIN?(YES/NO)" #Z 70F #d="Y"6000p #n"N"9000(# #x #y"" #z-236066\,84T:236077\,251 #{"50005U=19800H& #| 6000p #2J=EY-1EY+1:I=EX-1EX+1 #5I<1I>8J<1J>89140 #G$(I,J)="B"DK=1: #I:J # #$T1=T1+.25~:T1>T99000(# $ %8K=16:.035|\(,*25+40(:K: %.1}L,37%: %!.035|\(,45-+*5: % 9500% %I=012816 %B4:68D+I,12 :0,128:8,8 %968D,12 +I:128,0:8,8 %I %_196,12 :8,8:0,128:-128,0:-8,-8 & &H-9810R&:I=119:A,B:A,B:I &R55140d,31,55142f,103g,55143g,196,561197,31,561219,87W,56122:,196,56128@,31,56130B,95_,56131C,196,56137I,31,56139K,71G,56140L,196,56146R,31,56148T,79O,56149U,196,561175,0,56135G,0,56144P,0,56126>,0 &\ qleert bbasH~Ma7u7Q;QxKLINGONROMULANTHOLIAN) CAPTAINCOMMANDERCOMMODORE ADMIRALESTATUS QUADRANTSECTOR TIME NOWDEADLINEENERGY SHIELDS b6yć NAVIGATE 4900S.R.SCAN 1000L.R.SCAN 2000PHASORS 3080TORPEDOES2500REPORT 3500SHIELDS 4000COMPUTER 4500 DAMAGED WARP UNIT dd55iaE46g564ee5h4;+xX(TX lu>vHw\pO SILVERSOFTh % /iUUU//`n  T zyvrgaVBvsogv~FA:+5,pwycgmHZ popo  ( _-,<AP DAMAGED B400Q CAPTAIN ETHOLIANT E . . . . . . . E .A4S  GREEN E STARC ()*)      J6Fd7s99wuTz~~likopEIOP44MJsCoFE%S"xXxX(F<1>K >OLCK͔ CK C: K͔ !CKCK ͔ !C K C K͔CK CK͔ CMK CK͔!CK  CK͔ !CͣK CK͔ CK  C K"͔ C"K$ C$K&͔ !C&K("C(K*͔ "C*K, *C,MK.͔  *C.K02C0:K2͔ 2C2K4 :C4K6͔ :C6K8 BC8K:͔ BC:K< JC͔ J!C>>K":\2\":\ˇ2\>>:~\U>W̕>W̃>W̧>OYg[z(<2:[zRSg[{(<2g[{(=2g[z(=2:[zRS[ѯy2Vy2extxԃxԒxԡx԰yyyxxxxy2..y2= y ܠxԠ x԰y ܰ xy xy xy xy xyx yx y x x 0y0 x @y@ x PyP x `y ` x py p x ܀y ܀ y ܐx ܐ>2> 2>2>2> 2:[> 2@2A:[> 2@>2D>2Dsd:DĠCuh:DĨCxl:DİC~n:DĸC n:DCl:DCh:DCd:DC]:DC X:DC$U:DC(R:DC,sR:DC0uU:DC4xX:DC8~]:DC͚:=2+[> 2@S>/2@[> 2@S>\2@:̘> 2> 2@2A[SS>2:: :>2>2:=2>2>2:[> 2@S>|2@:7> 2>2:qċܗ> 2@[>2> 2>2>T>T>T>T>2vv>2vv:[> 2@S>.2@[> 2@S>.2@>T>T:=2> 2> 2@[[ SS>2:G>2::̕:̃:̧:Y:̟[S@[: !":̾<2>2[S[S[S!@>{z~#z>2*F#>?gxd2">>>2@>2A2B>2C>2@>2A2B>2C !Xw#>K CK͔ CK  CK͔  CKCK ͔ C K C K͔CK !CK͔ !CK )CK͔)CK  1CK͔ 1CK 9CK͔ 9CK  @C K"͔ @C"K$ HC$K&͔ HC&K(PC(K*͔ PC*K, XC,K.͔  XC.K0`C0K2͔ `C2K4 hC4K6͔ hC6K8 pC8K:͔ pC:K< xC͔ xC>":\2\":\ˇ2\>>[ѯy2܀y2܏xԞxԭxԼxxyyy xx+x:xIy2Xy2g y ܠxԠ x԰y ܰ xy xy xy xy xyx yx y x x 0y0 x @y@ x PyP x `y ` x py p x ܀y ܀ y ܐx ܐ>!(͵Z} !͵R !(͵Z} !͵R 2!͵R $$$~$$~$>(> >bd&F(*D:  >>> ~BBFF~~B~`~|DFF~|DD~ ~@~F~~@~FF~~<$~bb~~BB~ >>~~``<~ۙ !ఈ9aBB~<?(|` 8`|BB|@@>>