TESTRUN 1 "TESTRUN" V31374z:19,2;" LEAVE THE TAPE RUNNING ":1,20 /:N=19 :G$:R=07:B (G$+R,B:R:N 2"C",0,0,568,124|,110n,58:,14,0,"D",60<,118v,255,251,239,191,126~,60< <"U",16,568,124|,254,186,568,568,568,"B",0,0,64@,0,0,0,2,0 F"E",0,3,14,31,63?,63?,127,127,"F",0,192,240,248,252,252,254,254 P"G",127,127,63?,63?,31,15,3,0,"H",254,254,252,252,248,240,192,0 ZE"A",0,0,0,0,0,0,0,0 d1:1:7: nML=120:C=(*32 ):L,C;"":C=(*32 ):L,C;"":L xm10 ,9 ;6;"";11 ,9 ;" TEST RUN ";12 ,9 ;"" 619,2;" PROGRAM NOW LOADING " "":"" bGAncTESTRUN ~! ||@g {*{\_Hw$A,}( } o0|0g |Xg ><>?= :\w# *\~>#RwTESTRUN. TCmb=32429~:sah=mb+30:sal=mb+29:ma=mb+116t SB=31010"y "TESTRUN." U19,0;" STOP THE TAPE AND PRESS ANY KEY":1,20:0 >>  MACBRIDE 1983 << &5:7:0:0: I2,10 ;" TESTRUN ":3000 ::3000 +100d*G (S$(3,27,13):4100 - 4100 9 )-(ya>99c)-(ya>999)-(ya>9999');(ya) 19,20;"0000000000";19,26-(di>9 )-(di>99c)-(di>999)-(di>9999')-(di>99999CO)-(di>999999t#);(di);9 ,3;X-1;"0 ";13 ,3;Z-1;"0 "  ,D(4):Q=0:I$= 6"N=16:C$(N)=I$Q=N @EN:Q=01,8;3;" ":600X JQ>2460 TQ=2440 NYA>300000u1,8;" MAXIMUM SPEED":M1=8:580D DLFƽYA<7YA=YA+(I$=C$(1))-(I$=C$(2)):580D /M1=M1+0.5:YA=YA+YA+1:580D 9M1=M1-0.5:YA=YA-(YA/2)-1:580D D(Q-2)=1 D75,18;W$(Q):.02{# =,Q*5+15 N&YA>-.73333YA<.73333YA=0 XAX=X+D(2)-D(1):Z=Z+D(3)-D(4):DI=DI-YA bx1=x1+D(2)-D(1) gSX1<1X1>8x1=x1-(8x1>8)+(8x1<1):615g l!y1=y1-(ya>0)+(YA<0) nWY1<1Y1>14y1=y1-(14y1>14)+(14y1<1):622n qz1=z1+D(3)-D(4) vSZ1<1Z1>3z1=z1-(3z1>3)+(3z1<1):630v  5000 *DI<1000ƽx+Z<5021000 A¾(SB+X1+2+13 *((Y1+M)+27*Z1))>""800  I¾(SB+X1+2+13 *((Y1+M-1)+27*Z1))>""750 YA*3>DI700 BDI<-10001,8;1;" OVER-SHOOT " PYA>3000 YA<300000u1,8;1;" ULTRA-LIGHT "  240 U1,8;6;">>SLOW DOWN!<<":QY=1:1,40(:240 J1,8;1;" METEOR AHEAD ":.5,502:240  YA<1500860\ *2N=110 :(*8):ں(*8): 4.T=110 :.02{# =,20:T:N >b0:0::10 ,5;7;1;"YOU CRASHED AT ";(YA*10 );"0 KPS" H 1250 \.5,0 fIQ=(*4)+3:X$=C$(Q):C$(Q)=C$(9 -Q):C$(9 -Q)=X$ p21,8;"CONTROL DAMAGE":240 PLF=1:Z=1X>-3X<5DI>-2DI<11 1100L ,Z=1X=1DI=01200 @1,8;"ORBITAL COURSE":DI>12 LF=0  LKN=1+(DI=12 )+(DI=11 )3-(DI=-0)-(DI=-1) VET=1+(X=4)+(X3)3-(X=-2)-(X-1) `712 -DI+N,13 -X+T;1;6;P$(N,T) j.T:N:15,12 ;"  ": u9 ,3;7;"00 ";13 ,3;"00 ";12 ,20;" 0000000";19,20;"00000000" G1,8;" GOOD LANDING ":1,20:1,10 a21,3;6;"TRIP TIME ";(23673y\*256+23672x\)/502;" SECS." 1"ANOTHER RUN ?(Y/N)";A$:A$=""1250 KA$(1)="Y"A$(1)="y"6:0::3010 :60< RA$(1)="N"A$(1)="n"1,9 ;" GOODBYE ":1270 b4,1;"This is the simulator developed";6,1;"after the first test runs." R10 ,1;"Do you want to go to PLUTO ";12 ,1;" or SIRIUS ?" 5"Pluto or Sirius (P/S)?";A$:a$=""3020 >a$(1)="P"a$(1)="p"g=1:di=75000|: ?a$(1)="S"a$(1)="s"g=2:di=957860i@: 3020 U2,1;"Maintain SUB-LIGHT speeds to";4,1;"avoid overshoot." 6,1;"Watch out for and they will";8,1;"damage the controls or wreck ";10 ,1;"the ship completely.";12 ,21;"";13 ,2;"Land the ship here +";14,21;"" 618,2;"Drawing Starmap - Please wait.": A=(mb+150) 4N=1160/G:X=(*1050)+365m  G=(*3)+145 sb+X,G ,N L3sb+3+13 *(12 +27),144 Oz=351_3*351_+1351_:y=13 18313 :x=15:a=sb+x+y+z:a+8,a:x:y:z Pz=351_3*351_+1351_:y=13 16913 :x=113 :a=sb+x+y+z:a+182,a:x:y:z TPP$(3,3):P$(1)="":P$(2)="+":P$(3)="": 'M=11 -M1:M>11 M=11 1:7:T=sb+X1+13 *(Y1-(11 -M)+27*Z1):T2=(T/256+0.0001sQX):sal,T-T2*256:sah,T2:ma,(11 -M):T=mb 7:0: ~a~a~!"yg|aC  P_P PVa qm0{D-3599354+ 105786S MAIN THRUST REVERSE DRIVE MOVE LEFT MOVE RIGHT MOVE UP MOVE DOWN 105876X6I1APM