Airplane b b d YAirplane by David Courtier-Dutton from Sinclair User #16 (Jul'83) -zx=0:x=0:y=0:z=0 1020 9500% &m=l:tr=w:6:7:2 l89Y,145:3;7,0:89Y+l/502,145:3;w/502,0 "17,15;"DESTINATION" dNa=0:s=0:d=0:r=0:c=0:f=29:n=0 q1:2:0,0:255,0:0,175:-255,0:0,-175 H0,16:255,0:20,0;1;"FUEL" I32 ,0:0,16:32 ,8:223,0 ;20,4;3;"0 50 100 150 200 250 300" L88X,16:0,159:0,144:255,0 ]The following PRINTs were on 10 separate lines, so I've put them into one. [JimG] 73;0,0;"INSTRUMENTS";1;14,1;"ALTITUDE";10 ,3;"RANGE";2,2;"SPEED";6,1;"TAIL FLAP";12 ,0;"RUNWAY LEFT";18,0;"FLAP ANGLE";8,1;"R/BEARING";4,0;"ACCELERATE";16,1;"DROP RATE" 6r89Y,95_:166,0:0,160:88X,0:89Y,112p:166,0 T?t=32 12816:0,t:86V,0:t E21,4;" ":0:700 #s<150a>05000 K5,13 ;"Increase/Decrease";6,13 ;"thrust +75/-75?" 0x:x>75Kx=75K 5x<-75Kx=-75K :1s=s+x:c=x:x=0:s>600Xs=600X <#s=s-5:s<0s=0 =+l=l-(1.25 *s*(1-d/100d)) ? 700 B#s<150a>05000 Dzx=0:5,13 ;"Change flap angle?";6,13 ;"50/-50 ":y:n=n+y:n>502n=502 En<-502n=-502 F-a=a+(3.06C =*n):a<-55020 Ga500a=500 I"a<4l>100da=0 Nr=(3.06C =*n):s=s-n S!a<0a-5a=0 X 700 ] zx=1 bk5,13 ;"Alter tail flap? ";6,13 ;"+45/-45":z:d=d+z:pe>179pe=-179 dpe<-179pe=179 l pe=pe-d vl0w=w-s {f05040 !a<0l>05080 -a0pe0l255100 Cf=f-((n/10 +s/20)/(e/2)):f05040 ;l>400l<500a>5a<502a=100d #s>230a0a=502 w05060 3,1;0;s;" ";15,1;a;" ";11 ,1;l;" ";7,1;d;" ";19,1;n;" ";5,1;c;" ";17,1;r;" ";9 ,1;pe;" ";13 ,1;w;" " *?t=1614416:0,t:86V,0:t \08,12 ;4;" - R/BEARING +" p)9 ,12 ;" " z=9 ,21;"o":9 ,21-(pe/20);"^" |zx0900  ;0;((m-l)/502)+89Y,a/18+146  zx=0 21,f;" " Ua0w0f>0pe=0l<0s0s-16000p Fa40(16,15;2;7;1;"ALTITUDE" Ds<16514,15;2;7;1;"SPEED" Dl<100d12 ,15;2;7;1;"RANGE" Sl<300,pe013 ,15;2;7;1;"R/BEARING" Jw<20012 ,15;2;7;1;"RUNWAY LEFT" q=1100d:.007ye`A,-22:q:0:12 ,15;" ";13 ,15;" ";14,15;" ";15,15;" ";16,15;" "  500 0:5:2: )10 ,7;"INSTRUCTIONS? [y/n]"  ="n"  k"y"1035 :I changed this from IF ="" which could drop through. [JimG]   I.3,0:.3,0:.3,0:.8L,-5 I.3,3:.3,3:.3,3:.8L,-2 $_m=-75:.1}L,m:m:20:.17~.z,15:15:.4L,-25 .510 ,12 ;2;"AIRPLANE":150: 8" AIRPLANE simulates an aeroplaneflight from London airport to one of ten other airports aroundthe world,the choice of which isyours. However flying a plane isnot as easy as you may think,so read these instructions carefully." L0'''" ";1;"PRESS ANY KEY TO CONTINUE" `=""1120` jy:1;"BEAR IN MIND";0'"You will stall at under 150 KMH so do not take off before this speed is attained." t'"To change altitude a positive (up) or negative (down) value must be applied to the flaps; your altitude will change by three times the flap angle." ~d'"To alter course use your TAIL FLAP; when the runway bearing [R/BEARING] is 0 you will be on" d"course. In the R/BEARING displayyour destination is represented by 'o' and your actual course by" 6"'^';when the 'o' disappears you will be on course." .'" ";1;"PRESS ANY KEY TO CONTINUE" =""1170 :"Your speed will decrease as you climb & increase as you descend.Due to air resistance it will decrease by 5 KMH after every set of instructions." `'"The RUNWAY LEFT refers to your destination and if this value isless than 0 you will crash." '"Your position relative to Londonand your destination is plotted at the top of the screen to showyour position at a glance. The distance you are from your destination is shown in the RANGE readout." /''" ";1;"PRESS ANY KEY TO CONTINUE" =""1230 m:"To land successfully your speed must equal 0, your altitude mustequal 0, and you MUST be on the runway." Z'"Flashing instructions will help you to fly the plane safely. GOOD LUCK!" L6''"TO REPEAT INSTRUCTIONS PRESS 'R' PRESS ANY OTHER KEY TO BEGIN" ="r":10808 =""1270  O40(::"You stalled at ";s;" K/M/H and crashed -USELESS":5200P V40(::"Your altitude is ";a;" metres so you have crashed -USELESS":5200P M40(::"You ran out of fuel so you have crashed -USELESS":5200P c40(::"You over shot the runway by ";w;" metres so you have crashed -USELESS":5200P n40(::"You tried to land ";l;" miles short of the runway so you have crashed -USELESS":5200P m40(::"You have missed the runway completely by ";pe;" degrees and have crashed -USELESS":5200P P7300,::"Another flight?(y/n)":="y"1: ]1:It seems that you get another flight whether you want one or not ... [JimG] pk=f/3 (sc=(110n*(w/tr)):k=2*k+sc K100d::"Well done!You scored ";k;" points out of a possible 100":  %7:2:0::"WHICH AIRPORT?":"0)Istanbul"'"1)Chicago"'"2)Milan"'"3)Moscow"'"4)New York"'"5)Port Stanley"'"6)Oslo"'"7)Tel Aviv"'"8)Delhi"'"9)Toronto" %!2:7 %"yThere was a lot of rep-etitive code checking options, so I consolidated it, using statements. [JimG] %&Vo$=:o$"1"o$"9"9600%+20*o$:l,e,w,pe,d$::18,16;d$: %q 9510&% %21562,9 ,480,35#,"ISTANBUL" %34235,15,700,170,"CHICAGO" %.581E,4,700,35#,"MILAN" %11549 ,9 ,640,-10 ,"MOSCOW" %43500 ,13 ,750,170,"NEW YORK" %87406,24,440,110n,"PORT STANLEY" %.722,5,500,-30,"OSLO" & 32230,11 ,650,40(,"TEL AVIV" & 05203S,18,510,34","DELHI" &443728,14,550&,-150,"TORONTO"