K * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * J * DC-10 Flightsimulation ( part 2 ), by Jan Arkesteijn, 1988 *J * V 0.1f released in the public domain 9 april 1988, see doc file *J * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ,u0:  ,,,,@ ,"DC-10-30 prototyping by Jan Arkesteijn 1988",,,7 ,,,: ,,?@,: ,,?L,: ,,,; : : ,%((),-%((),/%((),0%(()" & : %  % : % & & : "exec.library"<&:&&(!,&): & "TROUBLE_1"*%%(): % "TROUBLE_2"$*&&():$"KbdPort"()6 & , : & , : & ,($)3 &, : &,%: &,*&7 &,& : &,&: (&).&&(0,&): & "TROUBLE_3"/&&( ,&): & "TROUBLE_4" / & , : & ,: &,&, &, : &,: &$, / &(,&:$"keyboard.device"()8%(($),,&,): % "TROUBLE_5"4:::::6:M:  : : P: M:  ; : : : ::::&:*:7;:8: O:::?\(::@: @: А:!:O"A:#:$:%:&:':(n:)2:*():*()H+():+() :+():+():+()#:+()-:+()7P,$"###.#":-$"####.#"::.$"\ \/###":/$".##":0$"##.#":3$"#.#"<1$"###":2$"#####":3$" ":4$" "G5<9:6?:7E:8?:98ѷ::N:;7/<<:=Z:>:?h:@d:A : ,7(,)(, ),,{:(,):( ,):(,):(,):((, ): ( , ):(,):(,):1(,)(,),: (,):(,): (,):3(, )(, ),:(, ):(,):(, ):>(,)(,),/%:(,)(,),0%:(,)(,),,%"(,)(,),-%:: , D: ; ,:"Flight preparation ": ,:"Take-off from :"G ,:"1) ASD 19R 3) ASD 27 5) BXL 25L 7) LHR 10R 9) MST 22"G ,:"2) ASD 24 4) BMH 15 6) LGW 08 8) MCR 06 0) RTD 24"C ,:"Enter your choice (0 to 9)";B: B B D2 B E$"250:52.3322:+4.74271":()2 B E$"250:52.3067:+4.77728":()2 B E$"250:52.3208:+4.79692":()3 B E$"205:52.4631:-1.75780":()3 B E$"250:50.8959:+4.51151":() 4 B E$"220:51.1446:-0.20575":()@ 3 B E$"250:51.4686:-0.48410":()2 B E$"218:53.3468:-2.29155":()2 B E$"220:50.9235:+5.77800":()2 B E$"207:51.9636:+4.45220":():H((E$,)):I#((E$,,)):J#((E$,))  K N: PLM:QL:RL:S:TBQ#:U@/:VBMa:W>{3XBM:Y@:[$"EHN:51.4756:+5.59056"MZ$"SPL:52.2847:+4.75583:3.9":\$Z$:]$"LON:51.4756:-0.46500:7.0"@^ :_KA:`_((B)(B)(B))x@a((()))( ):b :c(:d:e^((L`)5)(L5):fe(L5)  i P: 5 ,: ((@),);":";((@),);":"; ((@),):; < :: < :N 'F       L'b :::   :1 X ,7:"*";: v v)  :  Z(>p>z)()("$):::!!:"8 ! ::: ,:"EMPTY";: ]5 ,: ,$;A;: ,: ,$;!A;2 ,: ! ,$;A; : 3$; ]: ? '& '& (') : '&('):&. ,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< ())M  (</)(()): (/) R.(:o( )//+)(()= )J  :  : < ()()()(     )    ?    :   :$   : >L=   ( ( )) :  1.:(5)R(()()3):(3()),()(()=5),()(()=5)E  (M)5:e():f():;ee(()=5): e e9Hff(()=5):{eeff:({)=  L(fe)5=((f)(e)(f)))LS8:(?)?, ) ?ff:o : R/(<#  :o 0p_ )()  / /W/:(3()()):7CDR:   ::<8:@Q9:  :K{:():6:((>))B(T;-):((9))5:.   ,$: 4$ : h:$5(Ly>):0()  L({0):L(()(0))5 0:L >L  M(?)?()?:S8:(?)?  ,: ((A),);  ,:: ((A),);A(LQ): ,,: 3$;((=)?);:QL ,: 1$;;/ ,: /$;;:  ,(: 2$;; ()'  )  ,: 2$;;:  ,:":"; N0  ,: 2$;'();:  ,:">"; :6: ,: 1$;;:  ,: 1$;;8 ,: .$;((Ay(y)?),);6; ,7:" "; (,)(,),? Z   J@:(,)(,),E:     @`_()()()<()x:`a=  ^(b^):y`a*  #( b:yR #( % (#():bc:y(d). % * bc:yd> * , (,):(bc):S@8: S S : S S :     P (,)(,),,{:5:():s()# (,)(,),,{  3I#I#((5)8);:I#>J#J#((5)8);(5):J#%  T:U:%  V:W:#  X:Y:"     N ()<: ()<(()85):    93R(  )5=(( )( )( ))M >R()(S)8:  ( ?)?( )?WRR()>()()S8:RR(R)?(R?)?8  (),L()F: ((AR),);:  (),G()A: ((A ),);     I (    ):? %:  ,B: 2$; ;    R% 5:():()   "(,)(,),,{V  % @ :r:(,)(,),,{   "(,)(,),,{V  % @ :r:(,)(,),,{   "(,)(,),,{>:s :(,)(,),,{   :    }:~     :    N ()<: ()<(()85):    9(    )9    3(  )5=(( )( )( )).2:M:():      o 6 , :"REMAIN:";: 2$;7A;:" FT";    .: | >#  + | | ()  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),  ,( () " @ff @s33 V "O M";0 ?333 ? |  "M M";   3$;  =()d: ,(2 = = "D H"; : 3$;# = = c@ (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:" *"; : %    :  ,I:"UP"; :D(&): s :(s)(&s):(s):%   P :   () () [ Z: 5(&): (&) (&) P  Z  : () - () [$" OA:52.4714:+4.75361". () [$" WP:52.3272:+5.03333". () [$" GX:52.5183:-1.82000". ()@ [$" GY:51.1270:-0.31200". () [$" NW:51.0203:+5.87889". () [$" RR:52.0053:+4.76944": () . () [$"BPK:51.7483:-0.10167". () [$"CAM:52.2100:+0.18500". () [$"CON:53.1967:-2.19333". () [$"DUN:51.1317:-0.38167". () [$"KNI:52.5400:-3.22667". ()@ [$" LA:51.5067:-2.00500"- () [$"LIC:52.7467:-1.71667". () [$"MCR:53.3300:-2.32667". () [$" NH:52.6767:+1.38667". () [$"WOD:51.4533:-0.87833": () . () [$"EHN:51.4756:+5.59056". () [$"ENK:52.6742:+5.24139". () [$"LAK:52.5122:+5.56944". () [$"NYK:52.2319:+5.52611". () [$"ROT:51.8986:+4.55472". ()@ [$"STD:51.7422:+4.24389"- () [$"THN:51.1842:+5.83389". () [$"DEN:50.8823:+4.03077". () [$"GAA:50.7783:+4.62833". () [$"ONT:51.2150:+5.55833":<  ,: ([$,);:X(([$,,)):Y(([$,)) ()@  2 () \$"BCN:51.7233:-3.26167:8.2"2 () \$"BIG:51.3300:+0.03667:6.6"2 () \$"BNN:51.7250:-0.54833:7.0"2 () \$"BUR:51.5167:-0.66833:7.1"2 () \$"BTN:53.4583:-2.45500:7.8"2 ()@ \$"CFD:52.0733:-0.61000:7.1"1 () \$"CLN:51.8483:+1.15000:5.8"2 () \$"DET:51.3033:+0.59833:6.2"2 () \$"DTY:52.1800:-1.11167:7.3"2 () \$"DVR:51.1617:+1.35667:5.7" :  () J2 () \$"GAM:53.2817:-0.94500:7.3"2 () \$"HON:52.3583:-1.65833:7.4"2 () \$"IBY:50.8933:-1.74833:7.4"2 () \$"LAM:51.6450:+0.15333:6.3"2 () \$"LON:51.4867:-0.46500:7.0"2 ()@ \$"MAY:51.0167:+0.11833:6.5"1 () \$"MID:51.0533:-0.62333:7.0"2 () \$"OCK:51.3050:-0.44500:6.9"2 () \$"SFD:50.7600:+0.12333:6.4"2 () \$"WAL:53.3917:-3.13333:8.0"J: () K2 () \$"EEL:53.1650:+6.66722:3.3"2 () \$"HDR:52.9081:+4.76611:3.9"2 () \$"HSD:51.7236:+3.85833:4.4"2 () \$"MAS:50.9728:+5.96083:3.4"2 () \$"PAM:52.3358:+5.09250:3.7"2 ()@ \$"RKN:52.1342:+6.76444:3.0"1 () \$"RTM:51.9747:+4.48139:4.1"2 () \$"SPL:52.2847:+4.75583:3.9"2 () \$"SPY:52.5414:+4.85417:3.9" K:  () L2 () \$"BUB:50.9017:+4.53667:3.9"2 () \$"BUN:51.0767:+4.77333:4.0"2 () \$"CIV:50.5750:+3.83333:4.6"2 () \$"COA:51.3483:+3.35500:4.6"2 () \$"KOK:51.0950:+2.65333:4.8"2 ()@ \$"LNO:50.5867:+5.71139:3.5"1 () \$"NIK:51.1658:+4.18528:4.3"3 () \$"SPI:50.5150:+5.62500:3.5" L: = ()@ () () () O:- () %: ,@:"S";: O- () %: ,@:"L";: O( () ]$\$ : Z$\$/  ,H: (Z$,);: ,H: (]$,);;T((Z$,,)):U((Z$, ,)):((Z$,));V((]$,,)):W((]$, ,)):((]$,)) O: (()): ()  % ()@ () $S: ()  () ()  +T: ()@ = () () ()  % () ()  () ''  '& $ '& ! (')( '(')(1R: () P 8'   P          ()  () : @ ()  '&:$8::  ,4:"*R*"; ()  A:(7,Z)(7,z),,{:( ,8)(k,8),,{% ,!: 3$;: ,+: 3$;   ()  ()@  () ' () ,I:" ON";:2* () **: * *D () * + ++: + + () #' () : ,I:" ON";4 () !: !!: :  () 5 () '&:$::  ,4:" "; ()  ()  ()@  () & () : ,I:"OFF";* () **: * ** () ++: + + () #' () : ,I:"OFF";:D () ()     : C   | (LM) (M)  ()  K:M () t$"ASD 19R:183:1.944:52.3001:+4.73996:52.3297:+4.74250"M () t$"ASD 24 :238:1.971:52.2894:+4.73212:52.3054:+4.77387"M () t$"ASD 27 :267:2.025:52.3190:+4.74212:52.3206:+4.79278"M () t$"BMH 15 :146:1.333:52.4450:-1.73777:52.4609:-1.75566"M () t$"BXL 25L:250:1.900:50.8852:+4.46480:50.8951:+4.50772"M ()@ t$"LGW 08 :078:1.513:51.1498:-0.16680:51.1451:-0.20190"L () t$"LHR 10R:090:1.974:51.4686:-0.43153:51.4686:-0.48000"M () t$"MCR 06 :051:1.498:53.3624:-2.25924:53.3484:-2.28823"M () t$"MST 22 :213:1.513:50.9025:+5.75641:50.9214:+5.77583"M () t$"RTD 24 :237:1.349:51.9514:+4.42174:51.9622:+4.44861">M((t$,,)):|((t$,,)):}((t$,,))<~((t$,,)):((t$,$,)):((t$,))2  : N : ,: (t$,);: ,#: ,$;();@  ( 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: (,)(,),  Pi:9  ,:"Empty weight 115 tons"<  ,:"Max take-off weight ";H;" tons"l:4 ,:"Enter payload (0 to 45 tons) ";k k k- l$mHks: mi mi n: : ,:"Enter fuelload (15 to";m;" tons) ";: ! ! !m nR:s!k:!!A:A:o( ):]o:p] Z]: Z Z% , :"DC-10 take-off data :"% , :"T.O. RWY ";(t$,)) , :"Fuel ";!A;" tons"( , :"T.O.W. ";A;" tons"" , :"V 1 = ";Z;" kt""  , :"V R = ";p;" kt"(  , :"V 2 = ";];" kt" 8  , :"Start FLAP retraction at : ";];" kt"8 , :"Start SLAT retraction at : ";]<;" kt"E , :"To continue with pre take-off checks, press enter";s-: (,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,r)(f,t),,{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:DN"1 s : s,G: s(s);:5  ,:"ADF:EHN":  ,:"BG:": ,:"RBG:"3 ,:"DME RWY ";(t$,);:  ,:"HDG:"4 ,':"ILS";:  ,6:"TRK:": ,@:"L";*  ,C:"DME/VOR 1":  ,H:"SPL";* ,C:"DME/VOR 2": ,H:"LON";& ,C:"RGB:": ,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": ! 'A  h :;: ,:"W I T H I N A M I N U T E O R S O"@ , :"Y O U W I L L C R A S H B E C A U S E O F"8  ,:"H I G H S P E E D S T A L L ": ! :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 listcrash0apoaboanorunways1s2s3ppauseforRUNasct0