ZXTape! 0Created with Ramsoft MakeTZXTESTRUN 14 "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. Tq%Cmb=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 PRISONER ` "PRISONER" k7:0:32528:21,0;" PLEASE LEAVE THE TAPE RUNNING ":1,20 5l=020:l,8;"P R I S O N E R":L @c=1312:l=020:l,c;"":l:c /:N=17:G$:R=07:B (G$+R,B:R:N 2"A",0,0,0,129,255,129,0,0,"B",192,192,96`,480,24,16,0,192 <"C",124|,84T,254,238,254,186,568,124|,"E",0,24,40(,79O,129,79O,40(,24,"F",28,20,20,119w,65A,34",20,8 F"G",8,20,34",65A,119w,20,20,28,"H",24,20,242,129,242,20,24,0 K0,0; P"" U0,0 Z"" !bGHPRISONER BD[\!!R}o|Xg* \~# #^#V#F!~#!8:\85PRISONER  k o(z$=32$)=32529 "PRISONER." >>  MACBRIDE 1983 << f7:0:0:21,0;" PLEASE STOP THE TAPE AND WAIT ":1,0 #rg=0:5000 (:M$(20,30) 2bC=4245:L=2144:90Z:T=1̺(*4)+1 <4N=14:M$(L+N,CC+3):N:T:L:C Z["BBB"," B"," B"," BB","","BBBB","","BB"," BB"," B","BBB"," BB"," BB","BBBB","","BBB" xCC=3285:L=318:M$(L,C)="B":L:C 6LC=24:LL=(*15)+3:M$(LL,LC)="L" G(12 ,2):N=16:G(N,2)=N*5-2:G(N,1)=(*15)+3:M$(G(N,1),G(N,2))="G":N iN=712 :G(N,1)=19:G(N,2)=N+6:M$(G(N,1),G(N,2))="G":N %m$(19,1516)="BB" BM$(20,1417)="DDDD":M$(5,2)="DD" rg225 \1,0:0::C=2293:L=021:L,C;"":L:C |9 ,9 ;2;"";10 ,9 ;" PRISONER ";11 ,9 ;"" J6,12 ,4,0,0,0,5,0,8 8"DO YOU WANT INSTRUCTIONS?(Y/N)";A$:A$=""190 8A$(1)="Y"A$(1)="y"4000:225 ,A$(1)="N"A$(1)="n"225 190 $184:E,GS,GN,A,LF,ET,PL,PC,D ;1:0::5:0,1;M$(1) Gl=120:l,31;" ":l:21,1;M$(1) il=201-1:l,0;" ":l:7:5,1;"";20,14;"" 3840 LL,LC;"*" 5pl,pc;(143+d):PL*PC0M$(PL,PC)="P" D20:ETET=ET+1:ET=63800:AET=0 #I$=:EƦ="E"EƦ="e"3200 &I$<535ůI$>568270 "LD=I$-480:L=PL-(D=7)+(D=6):C=PC-(D=5)+(D=8) '!C<1c=1:3106 ,,M$(L,C)=" ".5,-10 :270 @hPL,PC;" ":PL=L:PC=C:LFPC<2PC=2:0,0;" THIS DOOR IS NOW LOCKED " E"A=13908D:335O J:(PC+2)/5=((PC+2)/5)2000 OGN=06500d T2LF=0ƽ(PL-LL)+(PC-LC)<23000 ^.ET>8A=03900<:ET=0 r 260 >.6+(rg/10 ) QX=0:N=112 :G(N,2)=PCG(N,1)PLX=N:N=14 N:X=0 8N=318:N,C;" ":N:PL,PC;(143+D)  G(X,1),G(X,2);"" DC=6+(G(X,1)7I=I-7:2430~ $D>8D=D-4:2440 X.1}L,T*3:PL,PC;I;(143+D):T:GN=GN-1:GN>02050 3840 OLF=1:0,1;" BLOW OPEN THE CELL DOOR ":3500 ]0,0;" PLANT CHARGES OR THROW THEM ? ENTER P OR T";A$:A$=""3200 -A$(1)="P"A$(1)="p"3500 -A$(1)"T"A$(1)"t"3200 \0,0;"WHICH WAY 5,6,7 OR 8 ? ENTER 5,6,7 OR 8";A$:A$=""3230 -A$(1)<"5"A$(1)>"8"3230 sD1=A$(1):BL=PL+(2D1=6)-(2D1=7):BC=PC+(2D1=8)-(2D1=5) 3550 BL=PL:BC=PC 2BL=BL+(2BL<2)-(2+BL>19) 2BC=BC+(2BC<2)-(2+BC>29) WET=1:1,10 :0,0;("PRESS ENTER AND TAKE COVER");A$  E=E-1 $ uq=13:P=172:N=BL-1BL+1:N,BC-1;P;" ":.02{# =,-P*5 ,M$(N,BC-1BC+1)="BBB":N:P:Q N=112 :G(N,1)BL-1G(N,1)BL+1G(N,2)BC-1G(N,2)BC+1G(N,2)=0:GS=GS-1 N }PLBL-1PLBL+1PCBC-1PCBC+1GN=GN-1:0,1;" ONE RESCUER HAS BEEN BLOWN UP" ^LF=1LF=2:0,1;" LOUIS IS OUT - JOINS RESCUERS":GN=GN+1 W2,30:21,1;"CHARGES ";E;" KORTH ";GS;" RESCUERS ";GN;" "  GN=06300  <0,1;"ALARMS ACTIVATED - LIGHTS ON!!":1,-10 :A=1:N=318:N,1;:rubbish=o(M$(N)):N ALF=0LL,LC;"*" DM$(PL,PC)="D"6400 F\M$(PL,PC)="P":PL,PC;(143+D):N=112 :G(N,2)=03990 H'V=(G(N,1)PL) J'H=(G(N,2)PC) K[G(N,2)=PC(PC+2)/5=((PC+2)/5)X=N:2045:3990 LG(N,1)PL3920P N3T=G(N,2)+HPC-HH:M$(PL,T)"B"3920P OAT:X=N:DC=5+(3H=-1):2047:3990 PCM$(G(N,1),G(N,2))="B":G(N,1),G(N,2);" " _NM$(G(N,1)+V,G(N,2))="B"G(N,1)=G(N,1)+V:3980 dNM$(G(N,1),G(N,2)+H)="B"G(N,2)=G(N,2)+H:3980 iNM$(G(N,1),G(N,2)-H)="B"G(N,2)=G(N,2)-H:3980 nBM$(G(N,1)-V,G(N,2))="B"G(N,1)=G(N,1)-V  G(N,1),G(N,2);"" #M$(G(N,1),G(N,2))="G" N: F7::10 ;"PRISONER"'':" Rescue group or "'' #" Korth guard - Louis *"'' B6;" Side door (IN) ";6;"Main doors (OUT) "'' X" To Move  5 , 6 , 7 and 8  "'':" To Fire Press key to point -"'' )"e.g.  6  to shoot downscreen."''' '"Press  E  to use explosives."''' 7"Hold keys down for best results"'':1,10 -" Press any key when ready ":0: "B()=40(-((PL-LL)+(PC-LC)) GH(X)=X*8+4:V(Y)=(21-Y)*8+4  rg=rg-1+(1rg<-4):21,1;" YOUR GROUP HAS BEEN WIPED OUT":P=20-30-1:.1}L,P:P:6500d xrg=rg+1-(rg>4):21,1;" SAFELY OUT - ";GN;" STILL ALIVE ":1,20:1,32 d"ANOTHER GAME ?(Y/N)";A$ nQA$="Y"A$="y"21,1;" ONE MOMENT PLEASE ":40( s-A$(1)="N"A$(1)="n"6515s x 6500d 222<e adxlli ubbisvhI}     AN] BBB BBBB B B BB BB BBB BB B BBBB B BB BBB BB BBB BBBB B B BBB BB BBB BBBB BB