Startrek1 7 7 ,9  65260 &0:0:6:5: $"STARTREK by M.Florey.48K Version" 12,2;"The object of Startrek is to"  b"rid the galaxy of evil Klingons"''"To do this you have command of"''" the starship ENTERPRISE." X''" In a 8X8 quadrant Galaxy."'" Each quadrant is divided"'" into 8X8 sectors." !A''"The Enterprise accepts single key commands as follows...." # 9020<# ' 9000(# (" You have the options of:" ) -" G=Galactic record Record of Klingons,bases,stars Shown as 3 numbers for example 315 indicates 3 Klingons,1 Base and 5 Stars NOTE this record will need updating if Klingons are mobile.": 2:" W=Warp drive used for movementwithin the galaxy." 7 >BB<DHpHDB@@@@@~@Hhjn~**BB<<Startrek3 LLLStartrek 3000 }236099\,20:O1=159:O2=191:zz=0:zz:7:zz:zz:H="1":zz::8;"Startrek 3000"'' <o1,7:o2,zz:sd=223:o1,7:o2,127 LB=zz:sn="50" |sdo1,7:o2,126~:o1,8:o2,13 :i=13 zz-h:4:o1,h:o2,i:i:o1,7:o2,127 "9860" ('p1,zz;:p1=p1+1:p1<22 ) p1=21 *&23300[,zz:23301[,80P +-23302[,224:23303[,72H -65283 .65308 /65272 065354J 1;21,zz;" ";P1,ZZ;: 3 sdL1,b1: 4lb 5'R1:l=zz13 :n:o1,l:o2,n:l: <e=e-a >E>"9999"E="9999" ?Q=ZZ:E<1000Q=H @ EH"365" qr1=3106:535:Q$("?"):n4,n8;1;"ENTERING GALAXY";n8,n4;"GOING WHERE NO MAN HAS";10 ,N8;"GONE BEFORE!" rSS=H:LS=H:D=D-(Q5*502)+K:D9=D:B9=B:T="300":K9=K:C="":C9=C:I=HN8:J=H̯" "N4:A$(I,JJ+N4)=" 00"+((*Q)):J:I vI=HB:RC:A$(X1,Y4-H)=(A$(X1,Y4-H)+H):I:I=HK:RC:A$(X1,Y4-N2)=(A$(X1,Y4-N2)+H):I:S9="3082":F7=ZZ:F8=F7 5I=HN8:G$(I)=" --- --- --- --- --- --- --- ---":I N :"1140" X'RC:U=X1:V=Y1:V4=Y4:RC:X=X1:Y=Y1 d"7500":"7600":x$="":I=HN8:J=HN8:S$(I,J)=X$:J:I:S$(X,Y)=E$:O=ZZ:"4360":M1"710" :I$=K$:I=HM1:PI:P$(I)="300":Q$(I)=X1:R$(I)=Y1:I: $M9=M1:M2>ZZI$=B$:I=HM2:PI:I M3>ZZI$=O$:I=HM3:PI:I  "1040" "5400":"2100"  sczz,19;h;7;zz;"Score: ";zz,25;sc ( a=H:EN *)EZZPR:" No energy":"4780" /"70" 4C=ZZ:"4810" \""860\ _sk=-10 :80P:h a*PR:"CAPTAIN ";N$;" orders please?"; c0LB=zz:L1=.01z# =:B1=20:R1=330J fc$=:SN:lb=h:C$="""870" k&o1,h:o2,6:o1,n8:o2,10 *LB=zz:M=23+n$:"9E3":"CAPTAIN" C$="P"C$="p""1710" C$="C"C$="c""8e3":CM C$="d"C$="D""2850" C$="H"C$="h""4950" C$="S"C$="s""1600" C$="T"C$="t""3490" C$="W"C$="w""2930" C$="L"C$="l""1460" C$="R"C$="r""2660" C$="G"C$="g""1320" 7c$="q"c$="Q":"Mission abandoned....":"4510"  "4920" =I=X-(X>H)X+(XH)Y+(YZZCM Fp1=12 ::RP:80P RL$=" ":N4;N2,ZZ;" 1 2 3 4 5 6 7 8 ";H;G$(H);L$;G$(N2);L$;G$(3);L$;G$(N4);L$;G$(5);L$;G$(6);L$;G$(7);L$;G$(N8);L$ SQN4;3,ZZ;"1"'" "'"2"'" "'"3"'" "'"4"'" "'"5"'" "'"6"'" "'"7"'" "'"8"'" " U221,zz;"CAPTAIN ";n$;" orders please?" V5LB=zz:L1=.01z# =:B1=20:R1=330J:SN: Z&C$=:.01z# =,H:C$=""1370Z d%:7500L:7600:910 RP:J5=N2:CD:I5>ZZCM DLS=H:R=3:n2,17;N4;" ";V-H;" ";V;" ";V+H;" " I=U-HU+H:R,17;"  ";R+H,17;N4;I;":";:R=R+N2:J=(V-H)*N4(V+H)*N4N4:IN8J" "" ";:"1560" 1N4;H;A$(I,J-N3J);:G$(I,J-N2J)=A$(I,J-N2J) |J:R,17;"  ";:I:10 ,17;H;H;N4;"KL'N,BASE,STAR":D1=.1}L:TD:E=E-"20":"800" @'RP:J5="7":CD:I5>ZZSS=zz:"800" ^%SS=H:G$(U,V4-N2V4)=A$(U,V4-N2V4) _n2,h;5;ZZ;" 12345678";3,h;"1";H;S$(H);N4,H;ZZ;"2";H;S$(N2);5,H;ZZ;"3";H;S$(3);6,H;ZZ;"4";H;S$(N4);7,H;ZZ;"5";H;S$(5);N8,H;ZZ;"6";H;S$(6);9 ,H;ZZ;"7";H;S$(7);10 ,H;ZZ;"8";H;S$(N8) cFx+n2,y+h;1;h;7;5;e$:D1=".1":TD:E=E-N8:CM J5="3":CD:I5>ZZCM .o1,n8:o2,n8:"ENERGY? ";I$:I$="""1730" "8600":Q=H1730 +o1,7:o2,127:A=I$:AZZCM AE"1810" ,PR:"SCOTTY:only ";E;" Units left":CM bpr:"Phasor energy used ";a;" units.":R1=300,:l1=d5:b1=-15:SN:EN:M1>ZZ"1850" JPR:"SPOCK:You hit nothing Capt.":PR:"USING ";A;" UNITS OF ENERGY" &K=zz"4420" 0D1=D5:TD:"770" :)A=(A/M1):M=HM9:P$(M)="000""1900" X("1930":pr:S;" UNITS HIT ";:"2015" l M:"1830" A<"1E3""1960" L1=.8L:B1=20:R1=330J:SN:o2,12 :o1,h:o2,h:o1,n8:o2,12 :PR:"SCOTTY:Dillithuim crystals have":pr:" OVERLOADED":J5="3":D(J5)=D(J5)+H:CD:A="1E3"  30 :I=Q$(M)-X:J=R$(M)-Y:S=(A*"30"/("30"+I*I+J*J)+H): ߌ"S ";Q$(M);R$(M);:A1=P$(M)-S:A1>ZZP$(M)=A1:n2:sk=10 :L1=.4L:B1=15:R1=325E:SN:h:" DAMAGED":80P: P$(M)="000":K=K-H:M1=M1-H:A$(U,V4-N2)=(A$(U,V4-N2)-H):G$(U,V4-N2)=A$(U,V4-N2):n2:S$(Q$(M),R$(M))=X$:" DESTROYED":sk=1E3:80P:70F:SSh: i=2025:L1=.05|L:B1=I:R1=320@:SN:LB=h:Q$(M)+N2,R$(M)+H;5;7;h;"":n2:L1=.02{# =:b1=i+h:SN:5;h;Q$(M)+N2,R$(M)+H;"":h:I:Q$(M)+N2,R$(M)+H;5;X$ LB=zz:R1=330J:SN  4 M1ZZ >_o1,7:o2,127:R1=330J:l1=d5:b1=-n4:SN:PR:"SPOCK:KLINGON ATTACK" CXsdo1,n8:o2,13 :o1,h:q=10 zz-h:n2:o2,q:q:o1,7:o2,127 H O"2280" R5PR:"SPOCK:STARBASE SHIELDS...":>".15"*(M1) zsk=-100d:80P:n2:R1=320@:SN:SN:PR:"SPOCK: STARBASE DESTROYED SIR!":i=zz7:i:i:B=B-H:M2=M2-H:A$(U,V4-H)=(A$(U,V4-H)-H):G$(U,V4-H)=A$(U,V4-H):n2:I=X-(X>H)X+(XH)Y+(YZZ"2380" 8R1=320@:L1=n2:SN:r1=315;:sn:PR:"**BANG** Enterprise destroyed":w=120:q=07:q:q:w: L$a=zz:EN:(E*/6)ZZ"2470" 6D(6)=(*T/"75"):J5="6":CD:I5>ZZ"2470" *PR:"SPOCK:SHIELDS PREVENT DAMAGE": lJ5=(*"7"+H):D(J5)=D(J5)+(*T/"100")+H:sk=-d(j5)*20:80P:I6=(*T/"50"):I6=ZZ"2530" sk=-(I6*100d):80P C=C-I6:Ch" people killed." I6=h" person killed." PR I5=D(J5):I5ZZ"2630" PR J5="7""SHORT RANGE"; J5=H"GALACTIC RECORD"; J5=N2"LONG RANGE"; J5="3""PHASOR"; J5=N4"WARP DRIVE"; J5="5""TORPEDOES"; (J5="6""SHIELDS"; -J" DAMAGED":PR:n8;I5;" STARDATES":PR:" ESTIMATED FOR REPAIR": F J5=N2LS=H HJ5="7"SS=H J nPR:PR:"STATUS REPORT.":RP:P=D9-D+S9:"7E3":PR:"STARDATE ";P:PR:D;" STARDATES LEFT":PR:C;" CREW":PR:B;" BASES":PR:F;" TORPEDOES":PR:K;" KLINGONS LEFT":O=HPR:"Enterprise is DOCKED" XM1>ZZPR:"CONDITION RED":PR:N2;6;M1;" KLINGONS IN QUADRANT":"2740" PR:"CONDITION GREEN" CM ,DPR:PR:"DAMAGE REPORT.":A=ZZ:J=H̰"7":J5=J:CD:I5>ZZA=H 6J:A>ZZ"2890" @ PR:PR:"ALL SYSTEMS OK":PR JCM ro1,h:o2,3:M=3:J5=N4:CD:I5>ZZM=(*N2)+H+N8/I5:PR:"IMPULSE ENGINES ONLY":PR:"SCOTTY:";M;" sectors at the most" 0"Warp Factor(IN SECTORS) ";I$:I$="""2950" gI$>7:7500L:7600:P1=12 :PR:"THAT NUMBER ";I$:PR:"WAS A BIT LARGE!":CM "8600":Q=H"2950" I$N8Z=H:U=U+H:P=P-N8:I=H v JN8Z=H:V=V+H:G=G-N8:J=H V4=V*N4:ZZZ"3140" SS3225 4S$(I,J)=X$X+N2,Y+H;(D(7)>ZZ);5;X$ s$(i,j)=x$X=I:Y=J:"3140" oB1=zz:L1=.5:R1=315;:SN:a=h30:zz:h:n2:3:4:5:6:7:a JPR:"SPOCK:Automatic EMERGENCY STOP":PR:"Acivated":T="500":CD <R1=315;:SN:SSX+N2,Y+H;5;H;7;H;E$ !S$(X,Y)=E$:RP:"1040":"770" Z=ZZX=I:Y=J:"3250" >.1}L"3310" ڛ6:PR:" SPACE STORM":sk=-500:80P:L1=H:B1=-N8:LB=h:SN:o1,n8:o2,12 :T=300,:"2430":>.1}L3370* >.1}L"3370" rzz:L1=h:B1=-n2:SN:LB=zz:191,15:PR:"You have plunged into a rotating":PR:" BLACK HOLE!" 8PR:"You are hurtling through a space":PR:"Warp":PR /SS=ZZ:LS=ZZ:PR:" POSITION UNKNOWN......." LB=ZZ:A=(*3000 ):PR:"Power surge...Energy increased":PR:"by ";A;" Energy units!":a=-a:EN:PR:x$=" ":R1=315;:SN:"600" *#LB=zz:UN8VN8"3390" 4(R1=315;:SN:X=I:Y=J:RP:"640" >JPR:"SPOCK:You have just tried to":PR:"Leave the galaxy":UN8U=N8 p VN8V=N8 V4=V*N4:"3380" $J5="5":CD:I5>ZZo1,h:o2,h:CM -FPR:"CHEKOV:PHOTON TORPEDO is loaded":"3920":R=ZZCM ,5:F=F-H:F8=F8+H:F7=F7+H:P=X:G=Y r1=3051:l1=d5:b1=h:SN @P=P+S:G=G+T:I=(P+D5):J=(G+D5):IN8JN8"3670"  S$(I,J)X$"3620"  (o2,13 :sd.025{L,j+25 4H;5;I+N2,J+H;"":I+N2,H+J;5;X$  o2,h:sd.05|L,I+20 $S$(I,J)=X$"3580" )PR:R1=330J:LB=zz:SN .PR:S$(I,J)=K$"3700" BS$(I,J)=B$"3750" LS$(I,J)=O$"3800" [isk=-200:80P:LB=zz:R1=330J:SN:PR:"CHEKOV:It missed Captain ";n$:K=ZZ"4420" ` K"4420" j'D1=D5:TD:E=E-"20":"1040":"770" tMF7=F7-H:S=("250"+*"200"):M=HM9:P$(M)=ZZŰQ$(M)IŰR$(M)J"3740" "2E3" M:AA R1=320@:L1=1.5@:B1=-5:SN:B=B-H:M2=M2-H:A$(U,V4-H)=(A$(U,V4-H)-H):G$(U,V4-H)=A$(U,V4-H):S$(I,J)=X$:PR:"SPOCK:Starbase DESTROYED!.....":PR:" Fascinating":SSI+N2,J+H;5;X$ AA nPR:"SPOCK: HIT A STAR!":PR:"....Human error!":<".3"PR:"SPOCK:Torpedo absorbed by star.":AA M3=M3-H:A$(U,V4)=(A$(U,V4)-H):G$(U,V4)=A$(U,V4):S$(I,J)=X$:PR:"SPOCK:STAR DESTROYED":SSLB=zz:Q=HN8:I+N2,J+H;H;O$:L1=.04|# =:B1=N4+Q:R1=320@:SN:LB=H:I+N2,J+H;5;X$:L1=.02{# =:B1=Q+N8:SN:Q  >".4"AA (3PR:"SCOTTY:RADIATION Alert":"2430":AA PTo1,n8:o2,n8:"Course?(0360),'C' help ";I$:i$="c"I$="C"8e3@:3920P UI$=""3920P VmI$>N4:7500L:7600:EN:70F:P1=12 :PR:"THAT ";I$:PR:"WAS A BIT LARGE!":r=zz: W8600!:Q=H3920P X"I$360h3920P dI=I$ nPR:"Course ";i;" Degrees." =S=((I+"45")/"90"):I=((I-S*"90")*/"180"):S=N4S=ZZ R=(H+I*I):S=ZZS=-H:T=I: S=HS=I:T=H: S=N2S=H:T=-I: S=-I:T=-H: 1M1=A$(U,V4-N2):M2=A$(U,V4-H):M3=A$(U,V4): X\"70":R1=330J:i=zz15:L1=.02{# =:B1=i:SN:LB=h:O1,h:O2,I:N2:i:lb=zz Y?O1,7:O2,127::"WELL DONE!":"MISSION COMPLETED" [3,0; D9-D=ZZR=zz:4520 LR=(E/4)+(F*100d)+(C*5):c$="q"c$="Q"r=r-(k*500) M"Score=";sc:"BONUS SCORE for surplus:":"Energy left..",(e/4) "Torpedoes....",f*100d "Crew left....",c*5 Pc$="q"c$="Q"'"Penalty (for Quitting)...":"Klingons left -";k*500 P502:'"Captain ";n$;" on this mission":"you destroyed ";k9-k;" Klingons" Zc9-c;" out of ";c9;" crew died.":f8>0f8;" Photon torpedoes fired":f7;" missed" sc=sc+r:scQ5"5560" @4P=I:G=J:P=P-(P-U):G=G-(G-V):P=IG=J"5560" hXA$(I,J*N4-N2)=(A$(I,J*N4-N2)-H):A$(P,G*N4-N2)=(A$(P,G*N4-N2)+H):PUGV"5560" OQ8=Q8+H:I$=K$:PI:M9=M9+H:M=M9:P$(M)="300":Q$(M)=X1:R$(M)=Y1:M1=M1+H J:I .PR:PR:Q8Q8;" KLINGON";:Q8>1"S"; Q8" Entering Quadrant" Tlb=zz:r1=330J:"53":o1,h:o2,6:G$(U,V4V4-N4)=A$(U,V4V4-N4):M1 $M=HM9:P$(M)=ZZť>Q5/N2"5680" 7S$(Q$(M),R$(M))=X$:I$=K$:PI:Q$(M)=X1:R$(M)=Y1 0M: XP=(P*"d"+D5)/"d": Ll$=X$+X$+X$+X$+X$+X$+X$+X$+"":N2,H;5;" 12345678";3,H;"1";L$;N4,H;"2";L$;5,H;"3";L$;6,H;"4";L$;7,H;"5";L$;N8,H;"6";L$;9 ,H;"7";L$;10 ,H;"8";L$ QM7,160:73I,zz:zz,-73I:-73I,zz:zz,73I:zz VBZZ,81Q:255,ZZ:ZZ,80P:255,ZZ:70F: L$="  ":N2,17;" ";3,17;L$;N4,17;L$;5,17;L$;6,17;L$;7,17;L$;N8,17;L$;9 ,17;L$;9 ,17;L$;10 ,17;L$ Q135,160:114r,zz:zz,-73I:-114r,zz:zz,73I:zz  @(PR:"STARTREK by M.Florey.48K Version" Bq=110 :PR:q Cw14,n4;"Enter course";16,n4;"in degrees.";18,n4;"Shown is some";20,zz;"directions to help" D!161,37%:68D,zz E 196,3:ZZ,68D F'171,12 :491,491 G(221,12 :-491,491 H195,37%,35# I12 ,23;"360";13 ,24;"0";21,23;"180";14,28;"45";14,19;"315";20,27;"135";20,19;"225";17,18;"270";17,28;"90" J 17,24;"" M !4Fs=0:i=1̱I$:I$(i)<480ůI$(i)>579s=1 !>i: !5Q=ZZ:S=H̱I$:I$(S)<480ůI$(S)>579Q=H !S: #' #(I=HM:N8;:I: &\'"What is your name?"'"(Not more than Six letters)":n$:n$=""'"PLEASE...":"9855" &an$>6'" Now try again,THIS time using only six letters maximum. ":"9855" &gq=6:d=36$:"Do you wish to define how many bases,Stars,Klingons ";I$:I$=""9875& &\I$(1)="n"I$(1)="N":B=8:k=25:b=8:d=35#:340T &-i$(1)"y"I$(1)"Y"9875& &N"How many Klingons?(40 Max.) ";I$;:85004!:I$=""s=19879& &)k=I$:k<1k>40(9879& &O"How many stars(max.9/quadrant)";I$:85004!:I$=""s=19881& &$q=I$:st=q:q>9 9881& &X"How many Bases in galaxy Max.20 ";I$:85004!:I$=""s=19883& &B=I$:b>209883& & D=60< & &"340" h23