K * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * J * DC-10 Flightsimulation ( part 3 ), by Jan Arkesteijn, 1988 *J * V 0.1f released in the public domain 9 april 1988, see doc file *J * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ,u0:  ,,,,C ,"DC-10-30 with autopilot by Jan Arkesteijn 1988",,,7 ,,,: ,,?@,: ,,?L,: ,,,C : : ,%((),-%((),/%((),0%((),( )" & : %  % : % & & : "exec.library"<&:&&(!,&): & "TROUBLE_1"*%%(): % "TROUBLE_2"$*&&():$"KbdPort"()6 & , : & , : & ,($)3 &, : &,%: &,*&7 &,& : &,&: (&).&&(0,&): & "TROUBLE_3"/&&( ,&): & "TROUBLE_4" / & , : & ,: &,&, &, : &,: &$, / &(,&:$"keyboard.device"()8%(($),,&,): % "TROUBLE_5"/:M: : P: M:  ; : : : ::::&:*:7;:8: 5:::@: А:!:C"A:$:&:'.:(n:)2:*():*()H+():+() :+():+():+()#:+()-:+()7Q,$"###.#":-$"####.#"::.$"\ \/###":/$"#.##":0$"##.#":3$"#.#"<1$"###":2$"#####":3$" ":4$" "G5<9:6?:7E:8?:98ѷ::N:;7A<<:=Z:>:?h:@d:A::: : ,7(,)(, ),,{:(,):( ,):(,):(,):((, ): ( , ):(,):(,):1(,)(,),: (,):(,): (,):3(, )(, ),:(, ):(,):(, ):>(,)(,),/%:(,)(,),0%:(,)(,),,%#(,)(,),-%:: , FL:QL:I#A:J#B:TAϴ:UB:\SVA6:WBo:XAQ:YBc:fBR:e:eeff D: ?: ,:"Enter All Up Weight (min 130, max 175 tons) ";" :   DL?8(()A)::A:_h:()8^((_2)(_)(_)(_6))0 ,:"V AT =";(( )8);" kt" _: 9 ,:"Wind possibilities": ,:"< 1 > No wind"0  ,:"< 2 > Normal wind (groundwind: ";* .$;((A_),);6^;:")"1  ,:"< 3 > Choose groundwindparameters"1  ,:"Enter your choice (1,2 or 3)": ^ ^ ^ _ ^ Z H ,:"Enter winddirection (0-360 degr) and windforce (0-18 kt)";) ,:"###,##";_,`:^`6, _ _h ^ ^ _ M ^ _:^ : a(?)( ):b :_a K P: 5 ,: ((@),);":";((@),);":";  ((@),): ; < :: < : ,#: ,$;();@  ( R) ( R) ,!:" ";  (,),/%,  (,),0%, ,(: 1$;();@  ( S) ( S) ,0:" ";  (x,),,%,  (x,),-%,  ,,0     3$;(); %    3$;@  ( T) ( T) ,0:" ";  (x,),,%,  (x,),-%,*V:W:X:,V (,)(,),9 (VW) W: (,)(,), ($,)((,),9 (VX) X: ($,)((,), (`,)(d,),9 (VX) X: (`,)(d,), (,)(,),9 (VW) W: (,)(,),N 'F       L'b :::   :1 X ,7:"*";: v v)  :  Z(>p>z)()("$):::!!:"8 ! ::: ,:"EMPTY";: i5 ,: ,$;A;: ,: ,$;!A;2 ,: ! ,$;A; : 3$; i: ? '& '& (') : '&('):&. ,4:  1$;; : " SD";. ,8:  1$;; : " SD";. ,<:  1$;: : " SD";;   :'&:$:  ,4:" ";I (,)(,),:(,)(,),:(,)(,),/ (,)(,),:>>(')%  (,)(,),<  (,)(,),:(,)(,),%  (,)(,),?:  ,9:  ;"OUT"; : 3$X(:)(:):'(')9$(?fff8)W?~(:5:5L:5:5:3():()8 ) =B8 : =B8< ())R.(:o( )//+)(()= )J  :  : < ()()()(     )    ?    :   :$   : >L=   ( ( )) :  1.:(5)R(()()3):(3()),()(()=5),()(()=5)E  (M)5:e():f():;ee(()=5): e e9Hff(()=5):{eeff:({)? 9 L(fe)5=((f)(e)(f))O  (LQ)= LL>:LL(L?)?::j, ) ?ff:o : R/(<#  :o 0p_ )()  / /W/:(3()()):7CDR:   ::<8:@Q9:  :_{:((j))():j:6:((>))B(T;-):((9))5:.   ,$: 4$ : h:$5(Ly>):0()  j&L({0):L(()(0))5 j`0:L >L  &(?)?()?&  ,: ((A(L8)),);&  ,:: ((A(8)),);A(LQ): ,,: 3$;((=)?);:QL ,: 1$;;/ ,: /$;;:  ,(: 2$;; ()' k )  ,: 2$;;:  ,:":"; k0  ,: 2$;'();:  ,:">"; :6: ,: 1$;;:  ,: 1$;;8 ,: .$;((Ay(y)?),);6; ,7:" "; (,)(,),? Z   J@:(,)(,),E:     P  ^(b^):y_a : b:y :    m P (,)(,),,{:L5:():s()# (,)(,),,{  3I#I#((5)8);:I#>J#J#((5)8);(5):J#  T:U  V:W  X:Y"     N ()<: ()<(()85):    93R(  )5=(( )( )( )): >R8:  ( ?)?( )?>RR()>8:RR(R)?(R?)?8  (),L()F: ((AR),);E   (),G()A: ((A ),);    p E (    ):? :  ,B: ,$; ;    R% 5:():()  q "(,)(,),,{R   @ :r:(,)(,),,{   r"(,)(,),,{R   @ :r:(,)(,),,{   r"(,)(,),,{>:s :(,)(,),,{   :   r }:~ s   s: s   N ()<: ()<(()85):    9(    )9   t3(  )5=(( )( )( ))62:M:{:({): t"     ts 6 , :"REMAIN:";: 2$;7A;:" FT"; t   .: | >#  + | | ()  9 | >#   - $  >#  %  ! :    &  "!   )  ) # :    ,#" () 3$;();  " LE";  " RI";A  ( 2) ( 2) ,!:" ";  (,),-%,  (,),,%,   : 7  ,:"TO GO:";: -$;;:" NM";  .((7))5:64:4& 2 ,+: 3$;: 5  ,+" (4) 3$;(4); 4 " DN"; 4 " UP";A 4 (4 6) (4 6) ,.:" "; 4 (h,),0%, 4 (h,),/%,5:S(7,Z)(7,z),,{:7;A(()()()())5(7,Z)(7,z),,{:( ,8)(k,8),L8j(4(4)(4)(4)(4)):( ,8)(k,8),  ,( () y! @ff @s33 y_"O M";:0y ?333 ? | y "M M"; y 3$;:  =()d: ,(9 = = l "D H"; : 3$;* = = lz@ (4)?333 ()8 (M) ,(:"O S";  : Io( ):]o:Z]:p]:?o() Z Z  ,) | ] "V MO";: A, ?aG B] "M MO";: A= ] ] +  "V 2 ";: AE ? ? +   "V AT";: AE p p +   "V R ";: A= Z Z   "V 1 ";: A " "; A: *C +D EQC*:D+: +(+): (*(*))(*(*))+H>*(*)?ff+(+):(*(*))+(+)$  >*(*)+(+)G($,)((,),:?# *(*):($,)((,),G(V,)(Z,),:?z+(+):(V,)(Z,),E:8 #     :  ,I:"* "; : H'     :  ,I:"DN";H:7 #     :  ,I:" *"; : k$    :  ,I:"UP";k: mn o? 2  ( ) p : p@ p (?L |> ) i /p:q: ,(:"AOS";: ,(:"AOS"; ) q :   * q '' : 'Z 'Z# q  'Z I?q:l:n:m:r:s:t:u:v:w# ,(:" ";: ,(:" ";  q  o:  l y  s s:zM{ Lss: s }z:~ : }M< (L){:~C (})@ ()~ : ((})) ()  ()  () ' ( t :t  +   ((}))  X  3L'(? )((4))(4(4>L)(4>L)) % X w w:'L w ,  ' :8((@)})y: n & 2  ,  4uu: u  8= (?)     +8()<o()* 8 8 :  "  v v: /   :  : m %  : ,I:"OFF";   R'(?)()((4))(4(4>L)(4>L))    '&!   r D6r:: ,I:" ON";:2: ,I:" ON";+'&:$8:  ,4:"*R*";: ,  '' : 'Z 'Z.   P ? ('&:$:  ,4:" ";:  :E(&): s  :(s)(&s):(s):  P :   () ()  Z: 5(&): (&) (&) P  Z  & () () :  lmn " ( ) () m?l:m:n:q:r:w:v:u:t:s# ,(:" ";: ,(:" ";   P  =   * +    : A  (4)8 (M) :  :  :! ( ) () 3  (? )   %l:m:n: ,(:"A L";  D l    (?)  e# ( ) ()  m: ,(:"A T";%] ( ) () ]n: ,(:"A F";  :  () 9 () e$"20.0 MIA 279:26.0150:-80.8250:0"9 () e$"17.8 MIA 231:25.7767:-80.7183:1"9 () e$"12.4 MIA 205:25.7750:-80.5567:2"9 () e$"11.0 MIA 183:25.7783:-80.4717:3"9 () e$"18.0 MIA 214:25.7117:-80.6450:4"9 () e$" 5.2 BSY 293:25.7050:-80.2667:5"9 ()@ e$" 4.8 BSY 061:25.7100:-80.1017:6"8 () e$" 7.9 BSY 072:25.7101:-80.0451:7"9 () e$"10.4 BSY 044:25.7967:-80.0450:8"9 () e$" 8.3 BSY 028:25.7933:-80.1050:9" ,J: (e$,);<V((e$,,)):W((e$,,)): $(e$,,)?  $"MIA" TAϴ:UB : TA_:UB[J+ ,C: (e$, );:  ,H:  $ : (()): ()  % ()@ () $S: ()  () ()  +T: ()@ = () () ()  % () () ' () m ''  '& $ '& ! (')( '(')(9R: () n P 8'   P          () H ()  m '&:$8::  ,4:"*R*";* () mn   A:(7,Z)(7,z),,{:( ,8)(k,8),,{% ,!: 3$;: ,+: 3$;   () m  ()@ m  () m / () m ,I:" ON";:2* () **: * *D () * + ++: + + () #/ () m : ,I:" ON";4 () !: !!: :  () = () m '&:$::  ,4:" "; ()  ()  ()@  () . () m : ,I:"OFF";6 () mn **: * *6 () mn ++: + +# () mn #/ () m : ,I:"OFF";:D () ()     : C   | (LM) (M) , ()  mn K: ()  Mt$"MIA 09R":MW:|?H:}AK^:~B:AH:B2  () kNt$"MIA 27L":M :|?ٙ:}AH:~BR:AJ:B 2  : i : ,: (t$,);:  P i: : (,S)(,S),+ (,)(,S),: (,)(,S),- (,S)(,),: (,S)(,),+ (},)(},),: (,)(,), (,)(,>),2 s :(,:s)(,:s),:6 s : (!s,)(!s,>),: 3 s : (,s)(,s),:3 s : (,s)(,s),:/ (*,)(*,$),: (T,)(T,4),3 s : (*,s)(-,s),:3 s : (Q,s)(T,s),:-($,)((,),:(V,)(Z,),/ (6,X)(@,X),: (6,|)(@,|),7 (,d)( ,p),,{: (n,d)(o,p),,{3 (n,Z)(r,\),,{: (,Z)(,\),,{7 (b,Z)(f,\),,{: (b,j)(f,l),,{3 ,:"AUW :": ,:"FUEL:": ,:"FFHR:"- ,:"M:": ,:"TAS:": ,:"WD:"5  ,:"GS:": ,:"IAS :":  ,:"VSI :"9 ,:"IAS": s :  s,: ds;:3 ,':"--O--":  ,$:"ALT:": ,9:"N1"* ,%:"0.0 0/0.0";: ,,:"0.0";, s : s,7: ".#";s;:, s : s,;: ".#";s;:! ,7:"1.";: ,;:"1.";( ,E:"SL FL": ,F:"AB:OFF"' ,F:"WB:OFF":  ,F:"LG:UP"1 s : s,G: s(s);:5  ,:"ADF: MI":  ,:"BG:": ,:"RBG:"3 ,:"DME RWY ";(t$,);:  ,:"HDG:"4 ,':"ILS";:  ,6:"TRK:": ,@:"S";*  ,C:"DME/VOR ":  ,H:"MIA";/ ,B:"(17.8 MIA 231)": ,H:"WP1";* ,C:"WAYPOINT": ,C:"RGB:";)  ,:"N": ,:"W * E"  ,:"S";: ,9:"+"  P:B (*):   ,%:"BUFFETING";&  ,%:"* STALL *";"  ()  :: ,:"W I T H I N A M I N U T E O R S OB , :"Y O U W I L L C R A S H B E C A U S E O F"5  ,:"L O W S P E E D S T A L L": !   h  :3: ,:"YOU LANDED SHORT OF RUNWAY": ":/: ,:"IT WAS A CRASH LANDING": #:/: ,:"IT WAS A HEAVY LANDING": $:/: ,:"YOU SLID OF THE RUNWAY": %:/: ,:"YOU OVERRUN THE RUNWAY": &::: ,:"YOU LANDED WITH YOU WHEELS UP":  !: \  ::0 s  : s,<:"B A N G":8 ,:"Y O U H A V E C R A S H E D ! ! !" := ,: "T R Y I T A G A I N";: s ':: Astartnzz1z2z3z4x0x7xoy0y1y5qsp1p2p3p4p6p7p8p9t1t2s4mpmav6m0v9wammzflg1ucmrsfn0n1n2h0stntcacbcdclcrcscvcocnc0c1c4c5c9doe0q1q2q3q4q7q9tcchoice1agn1rvpqpswmfxfyrwyakrdrtn1rtnrtn2alramcf1f2f3f4f9f0v1l1vv2w0r0ryr1w2w9r9bxbyipburtn3preptplagn2zmagn3cwvrDCtakexrwbtestipTASwdlocate22bfduf5f6f7f8ttthqtmtsho1n3n4n5fhmnfcgo2o3step1oen9trsgAllocMemDoIO OpenDevice AllocSignalFindTaskmemportsigBitsigTasksBAddPortreqkbddevfoutLIBinitz0iagn4pxpylab1jp1abanjp2sithenapapjp5xrjp4z94en1ePRINTLIN ClearPointerandqthemuwrestartandzeaukdvfdfjp6rb1rb2rb3rb4rb5aedzafbbbkboaobpiodgdmhsstallhstallcrashaadrbsgrsct1gqlibgbvbwawavbnaxaybhzanclgtheazdr8iobzczbtsdlstallqtendifbrfwzdklusingcv printusingsct2gyr2djbah1223t0gxfafbmvmdmesct3dadbrewvdibeceiet6t7t8t9s8s9sct4amahdtsct5locatsct6sct7crash1crash9crash2crash3crash4crash5crash7ifdvandeauvlrrrlluuuddcolor2ahocxaisct8aiot3t4 iiiiiiiiiiistamd THENPRINTx2locate21vagotosctsct9dhsunusct10ssct10stc4sct11orb6rb7rb8v4crb9kid listcrash0apoaboanorunways1s2s3ppauseforRUNalocate3wpagn1aa0RIGHTelsewrb81wctlprelistrtn2sct0wtapi1xlxtxfapi2uososurtztytxtwtvapi5api3rbeblistapi1arsnTHENn1nnapi4aqttttttttttttttuapapi6apiapi7uomtIFrrrIF eeeeeeeeeprtn2THENep