Pilot EEGYPilot by Bill Longley from ZX Computing Jun/Jul'83  q=0 Db$="":b$=b$+b$:b$=b$+b$+b$+b$+b$  8000@ :8;"____PILOT____" *23658j\,0:SET LOWER CASE MODE ''" CONTROLS:" ('" 'B' - AIR BRAKES" 2" 'S' - SLOWER" <" 'F' - FASTER" A" 'W' - WHEELS DOWN" F!'"MOVEMENT:";15;"6 (up)" K15;"|"'15;"|" P"5;"(west) 5--+--8 (east)" U15;"|";'15;"|" Z15;"7 (down)" d619,6;6;0;"HIGH SCORE: ";q n521,4;1;"PRESS ANY KEY TO START" 0: u$="UP":b=0:z$="OFF" 'd2=((*300,)-150)*9 Sf1=700:t1=5:a1=t1*502:d1=((*100d)+300,)*100d 4h1=(*750)+1300:c=0:z=0 2a$="":400 50,0;"" ;a=110 :" ":a $""  912 ,0;a$;"Speed South " 'a$;"Wheels East " 'a$;"Thrust Altitude " 'a$;"Fuel Brakes " a$: =13 ,6;" ";13 ,22;" " 713 ,14-a1;a1;13 ,30-d1;d1 <15,7;" ";15,21;" " "615,14-u$;u$;15,30-d2;d2 ':17,7;" ";17,25;" " ,717,14-t1;t1;17,30-h1;h1 1>19,5;" ";19,23;" " 6219,14-f1;f1;19,26;z$  !210:230:270 Lz$="OFF":h1<1000Ʀ="w"Ŧ="d"u$="DOWN":z=z+5:a1=a1-3 (b0a1=a1+b*10 :b=0 e="f"f1>0t1=t1+1:a1=a1+30:b=1:a1>500a1=a1-30:5600 f="s"f1>0t1=t1-1:a1=a1-30:b=-1:a1<100da1=a1+30:5600 *="b"a1=a1-3:z$="ON":5600 M="6"a1=a1-9.8:c=c+1:d1=d1-(a1*10 /6):570: M="7"a1=a1+9.8:c=c-1:d1=d1-(a1*10 /6):570: <="5"d1=d1-(a1*.5):d2=d2-(a1*.1}L):570: &<="8"d1=d1-(a1*.5):d2=d2+(a1*.1}L):570: 0d1=d1-(a1*100d/60<) :t1>10 t1=10 <'t10a1=a1-5:t1=0 ?Xf1=f1-(t1*1.5@):h1=h1+(9.8*c*(a1/250)):a1>500a1=a1-10 Af1<0f1=0 Bh1<0h1=0 Dc<0c=c+.5 Fc>0c=c-.5 H'a1>t1*502a1=a1-(a1*.005y# =) S(d1=d1:d2=d2:f1=f1:a1=a1:h1=h1 T 270 Uf1301000 V@(d1<2000ƽd2>100d)21,10 ;" " X)d1<2000ƽd2>100d1100L [a1<100d1200 ]%h1<1501300:619k b*(d1<2000d2>100d)210 g 4000 k1d1<0h1>0ƽd2<100d5400  500 '21,0;1;"LOW FUEL"  z=z-5 f10t1=0  Vd105300 `)21,10 ;1;"MOUNTAINS" j10 ,82R:40(,85U:25,-85U:71G,95_:20,25:40(,-38&:125},90Z:30,35#:18,-43+:165,105i:45-,40(:40(,-40( t b=1 ~ 80P: %21,25;1;"STALL" Dh1=h1-35#:t1=0:a1=a1+28:h105200P 6a=0100d:a:21,25;" ": d150001400x ()d1<5000ƽd2>100d1500 27d1<5000d13000 ƽd2100d1600@ <7d1<3000 d11800ƽd2100d1700 F7d1<1800d11200ƽd2100d1800 P6d1<1200d1600Xƽd2100d1900l Z3d1<600Xd10ƽd2100d2000 x1,0;b$ h105000  3000 d15001510  210  3000 @"1,0;b$:z=z+5 T?2,d2/12.5H+14;" ":h105000 ^ 3000 "1,0;b$:z=z+5 O2,d2/12.5H+14;" ";3,d2/12.5H+13 ;" "  3000 "1,0;b$:z=z+5 ~2,d2/12.5H+12 ;" ";3,d2/12.5H+11 ;" ";4,d2/12.5H+10 ;" " &h105000 0 3000 l#1,0;b$:z=z+10 2,d2/12.5H+11 ;" | ";3,d2/12.5H+10 ;" | ";4,d2/12.5H+9 ;" | ";5,d2/12.5H+9 ;" | " h105000  3000 #1,0;b$:z=z+16 2,d2/12.5H+11 ;" | ";3,d2/12.5H+10 ;" | ";4,d2/12.5H+9 ;" | ";5,d2/12.5H+8;" | " i6,d2/12.5H+7;" | ";7,d2/12.5H+6;" | " h105060   f100d:a=12 21:a,0;" ":a:12 ,0; ,"YOU CRASHED AT ";a1;" KMH,":z=z-70F d1;" METRES FROM THE AIRPORT" ""AND ";d2;" METRES OFF-CENTRE." "THE PLANE IS A WRITEOFF." 7"THERE WERE NO SURVIVORS.":z=z-100d:6000p  200 .d2<20"YOU LANDED ON THE RUNWAY ";d2 +d2<20"METRES OFF COURSE AND ";d1 1d2<20"METRES FROM THE ";:z=z+30 -d2>20"YOU JUST MISSED THE RUNWAY:" (d2>20"YOU WERE ";d2;" METRES" .d2>20"OFF COURSE AND ";d1;" METRES" d2>20"FROM THE "; )"AIRPORT."'"YOUR SPEED WAS ";a1;" KMH." Vu$"DOWN""YOUR UNDERCARRIAGE WAS NOT DOWN:THE PLANE WAS A WRITEOFF.":z=z-502 a1<2506000p <d=((a1-250)/20):e=1d:f=(*10 ) bf=7"YOU LANDED TOO FAST; THE PLANE JUST BROKE UP COMPLETELY.":z=z-80P:6000p e:6000p Pn12 ,0;"YOUR PLANE STALLED AND CRASHED ON ITS NOSE. NOBODY SURVIVED. YOU WERE ";d2;" METRES", Z5"OFF COURSE AND ";d1;" METRES","FROM THE AIRPORT.", dz=z-150:6000p P12 ,0;"YOU SMASHED INTO A MOUNTAIN AT"'a1;" KMH.",,:z=z-200 6"YOU WERE ";d2;" METRES OFF COURSE.",,:6000p D12 ,0;"YOU FLEW RIGHT OVER THE AIRPORT.":z=z-60< dz=z+((200/(d1+1))+(150/(d2+2))+(f1/15)+(30-(h1/150))) z<0z=0 '"YOU SCORED ";z;" POINTS.",:z>qq=z ,,"HIGHEST SCORE: ";q, ,,"PRESS SPACE TO CONTINUE.", " "6090  10 @!a="a""a"+23:w:a,w:a JF1,2,4,8,16,32 ,64@,128 TF128,64@,32 ,16,8,4,2,1 ^L0,32 ,32 ,112p,112p,248,248,32 h