LANDFALL  1 7:0:32499~ "LANDFALL" K21,0;" PLEASE LEAVE THE TAPE RUNNING ":1,0 :N=121:G$ R=07:B G$+R,B:R:N "A",0,0,0,0,128,128,192,240,"B",64@,208,244,246,255,255,255,255 "C",0,0,0,2,6,7,31,15,"D",9 ,13 ,45-,127,255,255,255,255,"E",0,0,16,20,60<,124|,254,255 C"H",255,127,255,3,3,31,31,63?,"I",240,252,240,192,192,252,198,195,"J",63?,31,31,3,3,255,127,255,"K",195,198,252,192,192,240,252,240 E"L",1,3,70F,68D,228,228,255,255,"M",128,192,98b,34",39',39',255,255,"N",255,255,231,231,231,231,225,160,"O",255,255,231,231,231,231,135,5 ?"P",15,63?,15,3,3,63?,99c,195,"Q",255,254,255,192,192,252,252,254,"R",195,99c,63?,3,3,15,63?,15,"S",254,252,252,192,192,255,254,255 E"T",160,225,231,231,231,231,255,255,"U",5,135,231,231,231,231,255,255,"F",255,255,196,196,68D,70F,3,1,"G",255,255,39',39',34",98b,192,128 d87:0::1,10 ;" LANDFALL " n3,3;"TO MAKE A SUCCESSFUL LANDING";4,2;"FIRST SLOW DOWN TO REACH A";5,4;"PARKING ORBIT." x7,3;"TURN AS YOU FALL INTO THE";8,2;"GRAVITATIONAL FIELD AND APPLY";9 ,2;"MAIN DRIVE - GENTLY!" V11 ,3;"YOUR DESCENT RATE MUST BE";12 ,2;"LESS THAN 100." U14,3;"THE CONTROLS WILL BE MATCHED";15,2;"TO YOUR HANDS." 17,2;"YOU WILL NEED 4 KEYS -";18,1;" MAIN DRIVE   REVERSE THRUST ";19,3;" TURN LEFT   TURN RIGHT " :21,0;" PLEASE LEAVE THE TAPE RUNNING " "":21,0;:"" XM(23730\+256*23731\)-(23653e\+256*23654f\) bGBuLANDFALL P~YR* \~# #^#V#F*\  (!{ _0zW|S\_>@2\LANDFALL. I;KO(Z$y?)=32500~ "LANDFALL" >>  MACBRIDE 1983 << cZ$(32 ):18,0;" STOP THE TAPE AND PRESS ANY KEY";Z$;Z$;Z$:1,20 #z0:GF=0:LX=0:CX=0:CN=0:FL=0:DF=0:GL=0:S$(4,2,2) (eL$(2,63?):5000:21,0;" PRESS ANY KEY TO GO ON ":0 20:1:1: <7:0 F8L=115:L,1;" ":L P6:1,20;"GROUND SPEED";4,20;"DESCENT RATE";;5,24;" 0 ";7,20;"GRAV. FORCE";8,24;" 0 " Zu10 ,22;"ALTITUDE";11 ,24;"1000";13 ,23;" FUEL ";16,23;" TIME " dP19,19;"ENGINE STATUS";21,18;" INACTIVE " n@19,2;" TRAVEL MODE ";21,6;"FLIGHT" p*23672x\,0:23673y\,0 s5F=1935:GS=6000p:DR=0:GF=0 xR7:LX=0:CX=0:SL=3:SC=9 :SD=1:BT=.1}L z,17,1;" " }3200 :3000 ?15,1;:3:RUBBISH=O(L$(1)):0 ?N=12:L$(N)=L$(N,263?)+L$(N,1) N /GS<500SL>3SL=SL+GF:3000 FƦ""400:150 BT>0BT,10 =T=((256*23673y\+23672x\)/5)/10 RBT<.1}LGS=1000000t$:0,8;" MAXIMUM SPEED ":160 BT>11000 :BT.1}L0,8;1;" " #GS=0+(64@/BT^5) F<0F=0 w2,24;GS;" ";14,24;F;" ";17,24;T;" ":F=014,24;"EMPTY" 621,18;" INACTIVE ":FLF=F-1 MSL>40,8;"!!! DANGER !!!":3200 :3000 130 ,K=0:N=14:=C$(N)K=N N:K=0 #21,18;6;W$(K) !K=3600X:577A !K=4650:577A  F=F-502  "SD=2SD=4550& HSD=1BT=BT+(.1}LK=2)-(.1}LK=1):545! =SD=3BT=BT+(.1}LK=1)-(.1}LK=2) !,N=15:.02{# =,20:N: 0HK=1LX=0-(SD=2)+(SD=4):LX=LX+(SL+LX<1) 5HK=2LX=0-(SD=4)+(SD=2):LX=LX+(SL+LX<1) : 3200 ?211 ,24;(16-SL)*1000;" " A3200 :3000 D X/SD=SD+1-(4SD=4):660 $SD=SD-1+(4SD=1) #F=F-10 :.2~L,40(:  ?2,24;" 0 ";21,2;"PARKING ORBIT" /SL>321,2;" LANDING " CF<0F=0:14,23;" EMPTY":1020 14,24;F;" " ""1900l $GF>03200 :2500 621,18;" INACTIVE ":FLF=F-1 BLX=0:CX=0 L 1005 l,K=0:N=14:=C$(N)K=N vN:K=0 /3200 :21,18;6;W$(K) "K=3600X:3000 "K=4650:3000 8F=F-502:T=15:.02{# =,20:T WK=2LX=0-(SD=4)+(SD=2):CX=0+(SD=3)-(SD=1) WK=1LX=0+(SD=4)-(SD=2):CX=0+(SD=1)-(SD=3) LX=LX+(SL+LX<2)+GF (CX=CX+(SC+CX=0)-(SC+CX=18) >(SD=2K=2)(SD=4K=1)DR=DR*2 Y(SD=2K=1)(SD=4K=2)DR=(DR/3):DR<0DR=0 3200 :3000 4 ĆLX=LX+GF:3200 :3000 :DR=DR+(GF*10 ):5,24;" ";DR;" ";11 ,24;(15-SL)*100d;" " SDR>(100d-(75KDF))5,24;" ";DR;" ":.1}L,30 SL<15 mGS<200SD=2SL15L$(2,SCSC+1)=" "DR<(100d-(75KDF))4000 SL>153050 CGS200GF=(SL-2)/10 :8,25;GF;" "  SL=SL-(SL>16):SL-1,SC-1+(SC=0);2;8;"*#";SL,SC-1;"ɚ!^";SL+1,SC-1;"'%" CT=140(:.1}L,*502-30:(*8):T "YOU CRASHED.TRY AGAIN ?";A$ A$=""3060 -A$(1)="Y"A$(1)="y"3100 -A$(1)="n"A$(1)="N"4060 N0,0;" PLEASE  ENTER  YES OR NO ";A$:A$=""3090  3070 CN:5000 &FLFL=0 0DFDF=0 :&GL=GL-1+(GL=0):502 5SL,SC;" ";SL+1,SC;" ":SL=SL+LX:SC=SC+CX RSL=SL+(SL<1):SC=SC+(SC<1)-(SC>17):17,SC;3;" " G8;SL,SC;2;S$(SD,1);SL+1,SC;S$(SD,2)  621,0;" SUCCESSFUL LANDING " %LX=0:SL=15:3200 85,24;" ";DR;" ";11 ,24;"000" &T=15:1,T*5 T 'GL=GL+1:GL>6GL=6 P0,0;" WOULD YOU LIKE TO DO IT AGAIN ?";A$:A$=""4050 cA$(1)="N"A$(1)="n"21,0;"FAREWELL AND MANY HAPPY LANDINGS":4060 -A$(1)>"Y"A$(1)"y"4050 9:1,1;"THIS TIME YOU'VE GOT PROBLEMS!" $CN=0:FL=0:DF=0 .GL=1GL=4GL=6FL=1 #GL=2GL5DF=1 ACN=0GL3C$((*4)+1)="`":CN=1 T/FL4,2;" YOU HAVE A FUEL LEAK." ^DF8,2;" LANDING FINS DAMAGED.";10 ,2;" YOU MUST LAND WITH A";12 ,2;"DESCENT RATE LESS THAN 25kps." h_CN14,2;"YOU HAVE CONTROL DAMAGE.";16,2;"ONE KEY NO LONGER WORKS." rU21,0;" PRESS ANY KEY TO GO ON ":1,10 :0 | 502 VU$(4):C$(4):W$(4,14):5000:N=14:W$(N) 23692\,21 a"  KEY  FOR ";W$(N);" ";:0,0;" PRESS  KEY  AND  ENTER  ";C$(N) !C$(N)<"0"C$(N)>"z"5020  C$(N)'' NU$(N)=C$(N):T=1N-1:U$(T)=C$(N)1,-10 :5020 T .5,25:N :"MAIN DRIVE","REVERSE THRUST","STEER LEFT","STEER RIGHT" pOL$(1)=" " uOL$(2)=" " z4S$(1,1)="":S$(1,2)="" 4S$(2,1)="":S$(2,2)="" 4S$(3,1)="":S$(3,2)="" 4S$(4,1)="":S$(4,2)=""  XM(23730\+256*23731\)-(23653e\+256*23654f\) # ̃? 10581058=MAIN DRIVE REVERSE THRUSTSTEER LEFT STEER RIGHT lFf5l ubbis?kANk