Docking1 002v<0v=v+65536 Sa=(v/256):b=(256*(v/256-a)):d,b:d+1,a:d=d+2: ,31725{,125}:23658j\,8 `7:f=12:0::7:f:th=0:c$="DOCKING":B$=" ":T=0 QPX=(*10 +10 ):PY=(*40(+40():PZ=(*502+502) >PHI=(*360h):PSI=(*360h):THETA=(*360h) A$=:A$=""A$=B$ CT>0TH=(TH+9 *1/T):FU=(FU-9 *1/T) &A$"0"A$"9"T=A$:FU=FU-T:A$=B$ A$="U"B$="D"A$="D"B$="U"A$="M"B$="N"A$="N"B$="M"A$="F"B$="B"A$="B"B$="F"A$="P"B$="O"A$="O"B$="P"A$="Y"B$="T"A$="T"B$="Y"A$="R"B$="E"A$="E"B$="R"FU=FU-TH:TH=0:T=0 $B$=A$:PX=PX+T*(A$="N")-T*(A$="M") PY=PY+T*(A$="U")-T*(A$="D") PZ=PZ+T*(A$="B")-T*(A$="F") #THETA=THETA+T*(A$="T")-T*(A$="Y") PSI=PSI+T*(A$="R")-T*(A$="E")  PHI=PHI+T*(A$="O")-T*(A$="P")  (THETA360hTHETA=THETA-360h *"PSI360hPSI=PSI-360h "PHI360hPHI=PHI-360h &THETA<0THETA=THETA+360h PSI<0PSI=PSI+360h PHI<0PHI=PHI+360h PZ>256PZ=256 <V=PX:D=31706{:1:V=PY:1:V=PZ:1 AD=31712{:V=PHI:1:V=THETA:1:V=PSI:1 31535/{ _1,1;C$;5,2;1;A$;13 ,22;"L-R ";PX+19;14,22;"U-D ";PY-83S;15,22;"F-B ";PZ+109m;16,22;"Pitch";phi-180;17,22;"Yaw ";theta;18,22;"Roll ";psi;19,22;"Thrust ";t;20,22;"Fuel ";fu:c$="NO DOCK" &FU<1C$="NO FUEL":5000 XP=0:PHI=180PSI=0THETA=0PX=-19PY=83SP=1 cPZ<-109mPZ=-109mP1PZ=-109mP=1T>6C$="CRASHED":5000 GPZ=-109mP=1T<7T>3C$="DOCKED ":5000 PZ=-109mP=1T<4C$="NO DOCK":R=(*10 +1):N=1̥*5+5:PZ=PZ+R*2:THETA=THETA-R:PSI=PSI-R*2:PHI=PHI+R:2080 :N:5000  2000 N1,1;1;C$:C$="NO DOCK"C$="DOCKING":B$=" ":2000  9000(# pz1:7::0:FU=999:R1=(*5)+3:R2=(*6)+3:A1=0:A2=:H=0 z19,0;1;"";20,0;0;"Fuel ";fu;1;"";21,0;0;"Orb.Diff ";(r1-r2);1;"" :a1=a1+(/2)/r1:a2=a2+(/2)/r2:c=a1:s=a1 `x1=(r1*c+16.5):x2=(r2*a2+16.5):y1=(r1*s+10.5():y2=(r2*a2+10.5() jA$="":a$=(""S-.921kƧ)+(""S>-.921kƧS.382CC>0C<.924lC)+(""C.924lC) na$=A$+(""S>.382CS<.921kƧC>0)+(""S>.921kƧ)+(""S<.921kƧS.382CC<0) ^a$=A$+(""C-.924lC)+(""S<-.382CS>-.921kƧC<0):H=06040 Y8,X8;" ":Y9,X9;" " <10 ,16;"":Y1,X1;A$:X1=X2Y1=Y26100 2Y2,X2;"":="6"R1=R1-1:FU=FU-10 &="7"R1=R1+1:FU=FU-10 z21,9 ;(R1-R2);20,6+(FU<100d);" ";FU:Y8=Y1:X8=X1:Y9=Y2:X9=X2:R1>10 R1=10 HFU=010 ,12 ;1;1;"NO FUEL":9000(# R1<1R1=1 H=H+1:6020 ԀY1,X1;A$;Y1,X1;1;"":0,3;1;1;"SATELLITE IN VISUAL RANGE":N=1500:N:3 30999y:"Docking2" 86120:N="A""J"+7:A:N,A:N:6000p 0,252,254,103g,103g,254,252,0,24,28,252,230,103g,63?,31,14,102f,126~,126~,102f,102f,126~,60<,24,12 ,28,63?,103g,230 252,248,112p,0,63?,127,230,230,127,63?,0,112p,248,252,230,103g,63?,28,12 ,24 60<,126~,102f,102f,126~,126~,102f,14,31,63?,103g,230,252,568,480,0,0,0,24,24,0,0,0,0,60<,126~,126~,126~,126~,60<,0 #(>#0;"PRESS 0 TO PLAY AGAIN":0:"0"9000(# #2 6000p Docking2 'y'>2{*{Uy"{"{2{*{UyͲy"{W*{UyͲy"{ɯR|yDM:{8K{!͜y0Ѽ ͓yDM!͜y͓y͕y<80()x:{?02{RgoR:{<2{0Z hB8B8>2{{ NC{Yyy:{yz"{z*{[{ůz"{>z*{[{>z"{z"{*{[{R|(&o E*{[{R|(oJPEy0iկ_(;hA`x88OO*{yH( "{*{OG( "{{yɯ*{M*{>Gͱ"G>FW^(/wɰw:{0@0*{ !$+H{K{*{ůW^{(S{W#^{(S{W#^{(S{#0z[{*{)"{[{*{)"{[{*{"{y~#8*{"{*{"{{͇z  #(,059=BFJOSW[_dhlptx||xtplhd_[WSOJFB=950,(#