K * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * N * DC-10 Flightsimulation ( part 1 ), by Jan Arkesteijn, 1988 * K * V 0.1f released in the public domain 9 april 1988, see doc file * K * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * :" : ,,,: ,,?@,( , : "* * * D C 1 0 * * *"( , : " by "( , : " JAN ARKESTEIJN "(  , : " 1988 ") , : " - OPTIONS - ") , : "<1> Making a Flightplan") , : "<2> Take-off and fly ") , : "<3> Practice landings "/ , : "Enter your choice (1,2,3)";     "dc10eur.bas"  "dc10mia.bas" : B  : $(Z),( ),( ),$( ),( ),( ) M$( )"BCN:51.7233:-3.26167:8.2" : $( )"BIG:51.3300:+0.03667:6.6"M$( )"BNN:51.7250:-0.54833:7.0" : $( )"BUR:51.5167:-0.66833:7.1"M$( )"BTN:53.4583:-2.45500:7.8" : $( )"CFD:52.0733:-0.61000:7.1"M$( )"CLN:51.8483:+1.15000:5.8" : $( )"DET:51.3033:+0.59833:6.2"M$( )"DTY:52.1800:-1.11167:7.3" : $( )"DVR:51.1617:+1.35667:5.7"M$( )"GAM:53.2817:-0.94500:7.3" : $( )"HON:52.3583:-1.65833:7.4"M$( )"IBY:50.8933:-1.74833:7.4" : $()"LAM:51.6450:+0.15333:6.3"M$()"LON:51.4867:-0.46500:7.0" : $()"MAY:51.0167:+0.11833:6.5"M$()"MID:51.0533:-0.62333:7.0" : $()"OCK:51.3050:-0.44500:6.9"M$()"SFD:50.7600:+0.12333:6.4" : $()"WAL:53.3917:-3.13333:8.0"M$()"BPK:51.7483:-0.10167:6.7" : $()"CAM:52.2100:+0.18500:6.3"M$()"CON:53.1967:-2.19333:7.7" : $()"DUN:51.1317:-0.38167:6.8"M$()"KNI:52.5400:-3.22667:8.1" : $()" LA:51.5067:-2.00500:7.5"M$()"LIC:52.7467:-1.71667:7.4" : $()"MCR:53.3300:-2.32667:7.7"M$()" NH:52.6767:+1.38667:5.8" : $()"WOD:51.4533:-0.87833:7.3"M$()"EEL:53.1650:+6.66722:3.3" : $( )"HDR:52.9081:+4.76611:3.9"M$(!)"HSD:51.7236:+3.85833:4.4" : $(")"MAS:50.9728:+5.96083:3.4"M$(#)"PAM:52.3358:+5.09250:3.7" : $($)"RKN:52.1342:+6.76444:3.0"M$(%)"RTM:51.9747:+4.48139:4.1" : $(&)"SPL:52.2847:+4.75583:3.9"($(')"SPY:52.5414:+4.85417:3.9" M$())"EHN:51.4756:+5.59056:3.6" : $(*)"ENK:52.6742:+5.24139:3.7"M$(+)"LAK:52.5122:+5.56944:3.6" : $(,)"NYK:52.2319:+5.52611:3.6"M$(-)"ROT:51.8986:+4.55472:4.1" : $(.)"STD:51.7422:+4.24389:4.3"M$(/)"THN:51.1842:+5.83389:3.5" : $(0)"DEN:50.8823:+4.03077:4.3"M$(1)"GAA:50.7783:+4.62833:4.0" : $(2)"ONT:51.2150:+5.55833:3.6"M$(3)"BUB:50.9017:+4.53667:3.9" : $(4)"BUN:51.0767:+4.77333:4.0"M$(5)"CIV:50.5750:+3.83333:4.6" : $(6)"COA:51.3483:+3.35500:4.6"M$(7)"KOK:51.0950:+2.65333:4.8" : $(8)"LNO:50.5867:+5.71139:3.5"N$(9)"NIK:51.1658:+4.18528:4.3" : $(:)"SPI:50.5150:+5.62500:3.5" M$(=)" OA:52.4714:+4.75361:3.9" : $(?)" WP:52.3272:+5.03333:3.8"M$(@)" GX:52.5183:-1.82000:7.4" : $(B)" GY:51.1270:-0.31200:6.8"M$(E)" NW:51.0203:+5.87889:3.5" : $(F)" RR:52.0053:+4.76944:4.0"M$(G)"ASD:52.3297:+4.74250:3.9" : $(H)"ASD:52.3054:+4.77387:3.9"M$(I)"ASD:52.3206:+4.79278:3.9" : $(J)"BMH:52.4609:-1.75566:7.4"M$(K)"BXL:50.8951:+4.50772:4.0" : $(L)"LGW:51.1415:-0.20190:6.8"M$(M)"LHR:51.4686:-0.48000:7.0" : $(N)"MCR:53.3484:-2.28823:7.7"O$(O)"MST:50.9214:+5.77583:4.1" : $(P)"RTD:51.9622:+4.44861:4.1" 9 :  <9 :  < :  7 :  > @:" Survey of available radiobeacons and runways" : : H" GB-VOR GB-VOR GB-NDB NL-VOR NL/B-NDB B-VOR LOC RWY" : K" 1:BCN 11:GAM 21:BPK 31:EEL 41:EHN 51:BUB 61:OA 71:ASD 19R"K" 2:BIG 12:HON 22:CAM 32:HDR 42:ENK 52:BUN 72:ASD 24 "K" 3:BNN 13:IBY 23:CON 33:HSD 43:LAK 53:CIV 63:WP 73:ASD 27 "K" 4:BUR 14:LAM 24:DUN 34:MAS 44:NYK 54:COA 64:GX 74:BMH 15 "K" 5:BTN 15:LON 25:KNI 35:PAM 45:ROT 55:KOK 75:BXL 25L"K" 6:CFD 16:MAY 26: LA 36:RKN 46:STD 56:LNO 66:GY 76:LGW 08 "K" 7:CLN 17:MID 27:LIC 37:RTM 47:THN 57:NIK 77:LHR 10R"K" 8:DET 18:OCK 28:MCR 38:SPL 48:DEN 58:SPI 78:MCR 06 "K" 9:DTY 19:SFD 29: NH 39:SPY 49:GAA 69:NW 79:MST 22 "K" 10:DVR 20:WAL 30:WOD 50:ONT 70:RR 80:RTD 24 "J:" Compose your flightplan hopping from beacon to beacon/waypoint"H" Enter the appropriate numbers (max 10) separated by a > sign"" Example 12>37@147>3"$"" : : $& ($,) ">" $$">" ($)    ($) ($, ,)">"  U : () : $() ($,(),()())    - ($()) ($())P H ($()) ($())P $(($()))"" 1 ($()) $()$()  ($())  "()($()) : 3 ($()) !R()(($(),)):()(($(),))(($(()),))&()()(())h 3   ) ()= ()c + () ()h    ($())C ($(),,)"@"  : ($())     ?(($(()),,))()(() ) 1$((),) : $$(($),"0")K(($(()), ,))()(() ) ( )E () 8()():$(8): ($),0 () $()/$($,) : $$(($),"0")# A @ٙ +()P : 4$"WP"((),)R$(())4$":"($,)":"$":"((@?),,) :   ? : $($(()),) : $($(()),)4 : , : "Result also to printer (y/n) ?"-:$ : $"" -K $ "y"  : " " : "FLIGHTPLAN ";$;" - ";$ : " "3 : , : "FLIGHTPLAN ";$;" - ";$ 4 , : "From To d (nm) QDM (degr)"=  "From To d (nm) QDM (degr)" : " "   9$($(( )),) : $($(( )),)A(($(( )),,)) :  (($(( )),,))C!(($(( )), ,)) : "(($(( )), ,))#(($(( )),))O$? ("!) : %? ( ) : &? ( )!'((%)((&)($)))!(((%)((&)($)))5)(((()('))(%)) : )/*((') # : **(*)h!*$(((*?)),). )A33 ,$" #.#" : ,$"### "*+$"\ \ \ \ ",$" \ \"-  , : +$;$;$;);*$*  +$;$;$;);*$     ,% : "______",  ,: "Total distance ####";'  " ------"+  "Total distance ####";? , : "Do you want to change your routeplan (y/n) ?" .:$ : $"" .* $"y"  : "dc10eur.bas"cstartalCc1d1d2dtfpxcrcke0e1inputnrnrnjp1endiffyfxfyikeypben1l1l2bybxlylxm1lmbmbpgmgpdgripupusskey1key2printfxprinprintc workbenchdc10.baswJan Arkesteijnmarchfzrestart