%%HP: T(3)A(R)F(.);
@ FLY, a flight plan computer, by Eric R. Anderson
DIR
  SETUP
    \<<
      IF 'ASC\->' VTYPE -1 ==
      THEN
        "ASC\-> must be in this\010 or higher directory"
        DOERR
      END
      CURSOR ASC\-> 'CURSOR' STO
      PGROB ASC\-> 'PGROB' STO
      UPGROB ASC\-> 'UPGROB' STO
      FPLAN.GROB ASC\-> 'FPLAN.GROB' STO
      HELP.3 ASC\-> 'HELP.3' STO
      HELP.2 ASC\-> 'HELP.2' STO
      HELP.1 ASC\-> 'HELP.1' STO
      STMENU ASC\-> 'STMENU' STO
      WBMENU ASC\-> 'WBMENU' STO
      MEM DROP
      PLANES ASC\-> 'PLANES' STO
      'SETUP' PURGE
    \>>
  START.
    \<< RCLF DEPTH 'STRT.DPTH' STO
        IFERR
          1
          DO
            STMENU CHOOSE
            {
          \<<
            IF 'W&B' TRAP
            THEN
              DUP2 CLLCD "        Weight" 1 DISP
              SWAP DTAG \->STR DUP "_" POS " " REPL "'" STRIP PAD 3 DISP
              "      Moment Arm" 5 DISP
              DTAG \->STR DUP "_" POS " " REPL "'" STRIP PAD 7 DISP
              { } TMENU TEXT PAUSE
            END
            1 0
          \>>
          \<< 'FPLAN' TRAP DROP 2 0 \>>
          \<<
            IF 'WIND' TRAP
            THEN
              DUP2 CLLCD "   Winds Aloft From" 1 DISP
              SWAP DTAG \->STR PAD 3 DISP
              "          At" 5 DISP DTAG
              IF DUP TYPE 13 ==
              THEN \->STR "'" STRIP DUP "_" POS " " REPL
              ELSE \->STR
              END
              PAD 7 DISP
              { } TMENU PAUSE
            END
            3 0
          \>>
          \<<
            IF 'DALT' TRAP
            THEN
              CLLCD DUP "   Density Altitude:" 4 DISP
              DTAG \->STR DUP "_" POS " " REPL "'" STRIP PAD 6 DISP
              { } TMENU PAUSE
            END
            4 0
          \>>
          \<<
            IF 'DISTANCE' TRAP
            THEN
              CLLCD DUP2 "     True Heading" 5 DISP
              DTAG \->STR PAD 7 DISP
              "       Distance" 1 DISP
              DTAG \->STR DUP "_" POS " " REPL "'" STRIP PAD 3 DISP
              { } TMENU PAUSE
            END
            5 0
          \>>
          \<<
            IF 'CWIND' TRAP
            THEN
              DUP2 CLLCD
              DUP \->STR 1 " " REPL DUP ":" POS 1 - 1 SWAP SUB PAD 5 DISP
              DTAG \->STR PAD 7 DISP
              DUP \->STR 1 " " REPL DUP ":" POS 1 - 1 SWAP SUB " Crosswind" +
              PAD 1 DISP
              DTAG \->STR PAD 3 DISP
              { } TMENU PAUSE
            END
            6 0
          \>>
          { 7 0 }
          { 8 0 }
          \<< HELP 9 0 \>>
          { 1 }
            }
            SWAP GET EVAL
          UNTIL
          END
        THEN
        END
        2 MENU CLLCD
        DEPTH STRT.DPTH - DROPN
        STOF 'STRT.DPTH' PURGE
    \>>
  HELP
    \<<
      IFERR
        PICT { # 0d # 0d } HELP.1 UPGROB REPL
        { # 0d # 0d } PVIEW
        0 WAIT DROP
        PICT { # 0d # 0d } HELP.2 UPGROB REPL
        0 WAIT DROP
        PICT { # 0d # 0d } HELP.3 UPGROB REPL
        0 WAIT DROP
      THEN DROP
      END
    \>>
  FPLAN
\<<
   RCLF -15 CF -16 SF DEG STD
   PICT  { # 0d # 0d } FPLAN.GROB UPGROB REPL
   ":Course: \010:Distance: " ":Variation: " ":TAS: "
   ":WD: \010:WS: " ":FCR: "    1 0 0 0
   \->
   tcdef vardef tasdef winddef fcrdef speedunit totdist tottime totfuel
  \<<
    1
    DO
      "Enter number of legs,\010maximum 8" "" INPUT OBJ\->
      IF DUP 9 < THEN 1 ELSE DROP 1400 .08 BEEP 0 END
    UNTIL
    END
    FOR j
     { { "mi" "_mi" } { "nmi" "_nmi" } "" "" "" { "km" "_km" } } TMENU
     "Leg X: Enter TRUE\010course and distance" 5 j \->STR REPL
     tcdef -10 2 \->LIST INPUT
     DUP 'tcdef' STO OBJ\-> DTAG SWAP DTAG SWAP
     { { "W" "_W" } "" "" "" "" { "E" "_E" } } TMENU
     "Leg X: Enter Variation\010(- or W , + or E)" 5 j \->STR REPL
     vardef -13 2 \->LIST INPUT
     DUP 'vardef' STO OBJ\-> DTAG
     { { "mph" "_mph" } { "knot" "_knot" } "" "" "" { "kph" "_kph" } } TMENU
     "Leg X: Enter True\010Airspeed" 5 j \->STR REPL
     tasdef -7 2 \->LIST INPUT
     DUP 'tasdef' STO OBJ\-> DTAG
     IF DUP TYPE 13 == THEN DUP 'speedunit' STO UVAL END
     "Leg X: Enter Wind\010Direction and Speed" 5 j \->STR REPL
     winddef -6 2 \->LIST INPUT
     DUP 'winddef' STO OBJ\-> DTAG
     IF DUP TYPE 13 ==
     THEN
       IF speedunit TYPE 13 ==
       THEN speedunit CONVERT UVAL
       ELSE DUP 'speedunit' STO UVAL
       END
     END
     SWAP 180 + \->V2
     { { "gph" "_Gal/h" } { "lb/h" "_lb/h" } ""
       "" { "L/h" "_L/h" } { "kg/h" "_kg/h" } } TMENU
     "Leg X: Enter rate of\010fuel consumption" 5 j \->STR REPL
     fcrdef -7 2 \->LIST INPUT
     DUP 'fcrdef' STO OBJ\->
     6 ROLLD DUP 6 PICK 90 + 1 SWAP \->V2 DOT NEG 3 PICK / ASIN 6 PICK +
     DUP 4 ROLL SWAP \->V2 ROT +
     1 6 PICK \->V2 DOT
     IF speedunit TYPE 13 == THEN speedunit \->UNIT END
     SWAP ROT
     IF DUP TYPE 13 ==
     THEN
       IF DUP \->STR "W" POS THEN NEG END UVAL
     END
     - 0 RND
     SWAP DUP 4 PICK SWAP /
     IFERR '1_h' CONVERT THEN DROP UVAL '1_h' \->UNIT END
     DUP 7 ROLL * UVAL DUP 'totfuel' STO+
     IF DUP 99 > THEN 0 RND \->STR ELSE 1 FIX \->STR STD END
     IF DUP SIZE 4 < THEN " " SWAP + END
     SWAP UVAL DUP 'tottime' STO+
     \->HMS 2 FIX \->STR 2 ":" REPL STD
     ROT 0 RND DUP \->STR SWAP
     IF TYPE 13 == THEN "'" STRIP DUP "_" POS " " REPL END
     WHILE DUP SIZE 8 < REPEAT " " SWAP + END
     5 ROLL DUP 'totdist' STO+
     UVAL
     1 6 FOR k
       PICT
       { # 46d # 60d # 97d # 114d # 30d # 16d } k GET
       9 j 1 - 6 * + R\->B
       2 \->LIST
       ROT \->STR
       IF DUP SIZE 3 < THEN " " SWAP + END
       1 \->GROB REPL
     NEXT
    NEXT
    PICT { # 42d # 59d }
    totdist UVAL 0 RND \->STR
    WHILE DUP SIZE 4 < REPEAT " " SWAP + END
    1 \->GROB REPL
    PICT { # 97d # 59d }
    tottime 2 FIX \->HMS \->STR STD
    2 ":" REPL 1 \->GROB REPL
    PICT { # 114d # 59d }
    totfuel
    IF DUP 99 > THEN 0 RND ELSE 1 FIX END
    \->STR
    IF DUP SIZE 4 < THEN " " SWAP + END
    1 \->GROB REPL
    { # 0d # 0d } PVIEW
    IFERR 0 WAIT THEN END DROP
  \>>
  STOF 2 MENU
\>>
  W&B
    \<<
      RCLF
      IF 'PLANES' VTYPE -1 SAME THEN ADDPLANE END
      DO
        DO
          1 WBMENU CHOOSE
          PLANES SWAP GET LIST\-> 1 - SWAP DROP
        UNTIL
        END
        DUP TYPE 5 SAME
        1
        \<< EVAL 0 \>>
        IFTE
      UNTIL
      END
      UNITMENU TMENU
      LIST\-> \-> num
      \<<
        0 0
        1 num FOR j
          num j - 3 + ROLL WBIN
          { '1_in' '1_cm' } 10 FS? 1 + GET CONVERT UVAL SWAP
          { '1_lb' '1_kg' } 10 FS? 1 + GET CONVERT UVAL
          DUP ROT * ROT + ROT ROT + SWAP
        NEXT
        { '1_in*lb' '1_cm*kg' } 10 FS? 1 + GET \->UNIT
        1 RND "Moment" \->TAG SWAP
        { '1_lb' '1_kg' } 10 FS? 1 + GET \->UNIT
        0 RND "Weight" \->TAG SWAP
      \>>
      2 MENU 3 ROLL
      IF DUP SIZE THEN CGGRAPH ELSE DROP END
      ROT STOF
    \>>
  WIND
    \<<
      RCLF -15 CF -16 SF
      { { "MPH" "_mph" } { "KNOT" "_knot" } "" "" "" { "KPH" "_kph" } } TMENU
      "Enter True Course:" "" INPUT OBJ\->
      "Enter Ground Speed" "" INPUT OBJ\->
      DUP UVAL ROT \->V2
      "Enter True Heading" "" INPUT OBJ\->
      "Enter True Airspeed" "" INPUT OBJ\->
      IF DUP TYPE 13 ==
      THEN
        4 ROLL
        IF DUP TYPE 13 == THEN CONVERT ELSE DROP END
        DUP UVAL ROT
      ELSE 4 ROLL SWAP ROT
      END
      \->V2
      SWAP 3 ROLLD - NEG V\->
      IF DUP 0 < THEN 360 + END
      0 RND "Winds From" \->TAG
      SWAP 0 RND ROT
      IFERR \->UNIT THEN DROP END
      "Wind Speed" \->TAG
      ROT STOF 2 MENU
    \>>
  DALT
    \<<
      RCLF
      { { "ft" "_ft" } { "m" "_m" } "" ""
        { "\^oF" "_\^oF" } { "\^oC" "_\^oC" } } TMENU
      DO
        "Enter:"
        ":Air Temp.: _\^oF\010:Press. Alt.: _ft"
        IF 10 FS? THEN 15 "C" REPL 32 "m " REPL END
        { 1 13 } 2 \->LIST INPUT
      UNTIL
        IF DUP " _" POS
        THEN 1400 .08 BEEP DROP 0
        ELSE
          OBJ\->
          IF DUP '11_km' >
          THEN
            1400 .08 BEEP "Alt. < "
            { "36000 ft" "11000 m" } 10 FS? 1 + GET + " only.\010 "  +
            1 DISP 1 WAIT DROP2 0
          ELSE 1
          END
        END
      END
      '1_ft' CONVERT UVAL .0019812 * NEG 288.15 + 5.255876 ^
      SWAP
      '1_K' CONVERT UVAL / 4.255876 INV ^ NEG 288.15 + .0019812 /
      '1_ft' \->UNIT
      IF 10 FS? THEN '1_m' CONVERT END
      0 RND "Den. Alt" \->TAG
      2 MENU SWAP STOF
    \>>
  DISTANCE
    \<<
      RCLF DEG { } TMENU
      1 2 FOR j
        DO
          { "Enter Lat. (N) and\010Long. (W) of origin"
            "Enter Lat. and Long.\010of destination" }
          j GET { ":Lat: \010:Long: " 7 } INPUT
        UNTIL
          IF DUP DUP SIZE SWAP 10 CHR POS - 7 >
          THEN 1
          ELSE DROP 1400 .08 BEEP 0
          END
        END
        OBJ\->
      NEXT
      1 4 START
        4 ROLL HMS\->
      NEXT
      \-> lat1 long1 lat2 long2
      \<<
        lat1 SIN lat2 SIN * lat1 COS lat2 COS * long1 long2 - COS * + ACOS 60
*
        DUP 60 / SIN INV long1 long2 - SIN * lat2 COS * ASIN
        IF lat2 lat1 <
        THEN 180 SWAP -
        ELSE IF DUP 0 < THEN 360 + END
        END
      \>>
      SWAP
      '1_nmi' \->UNIT
      IF 10 FS? THEN '1_km' CONVERT END
      0 RND "Distance" \->TAG
      SWAP 0 RND "True Heading" \->TAG
      ROT STOF 2 MENU
    \>>
  CWIND
    \<<
      RCLF -15 CF -16 SF DEG { } TMENU
      "DUMMY"
      DO DROP "Enter runway heading" "" INPUT
      UNTIL DUP SIZE
      END
      OBJ\->
      "DUMMY"
      DO
        DROP
        "Enter wind direction\010and speed"
        { ":WD: \010:WS: " 6 } INPUT
      UNTIL DUP DUP SIZE SWAP 10 CHR POS - 5 >
      END
      OBJ\-> DTAG UVAL
      SWAP DTAG 180 + \->V2
      SWAP DUP 90 + 1 SWAP \->V2
      3 PICK DOT 0 RND
      IF DUP 0 < THEN NEG "Right" ELSE "Left" END
      \->TAG
      3 ROLLD 1 SWAP \->V2 DOT 0 RND
      IF DUP 0 < THEN NEG "Headwind" ELSE "Tailwind" END
      \->TAG ROT STOF 2 MENU
    \>>
  PAUSE
    \<< IFERR -1 WAIT THEN END DROP \>>
  TRAP
    \<<
      DEPTH 1 - 'S.DEPTH' STO
      IFERR EVAL
      THEN
        DEPTH 1 - S.DEPTH - DROPN
        STOF
        IF ERRN # 0d \=/
        THEN
          1400 .08 BEEP
          "Error:\010" ERRM + CLLCD 1 DISP 2 WAIT
        END
        0
      ELSE 1
      END
      'S.DEPTH' PURGE
    \>>
  MAKEMENU
    \<<
      ERASE
      PICT { # 0d # 8d } { # 130d # 8d } LINE
      { # 2d # 0d }
      "Enter Title,\01021 char max" { \Ga } INPUT 2 \->GROB
      REPL
      1 10 FOR j
        PICT
        IF j 5 >
        THEN # 70d # 10d j 5 - * # 1d +
        ELSE # 2d # 10d j * # 1d +
        END
        2 \->LIST
        DO
          "Enter Item " j \->STR + "\010(10 letter max.)" +
          { \Ga } INPUT
        UNTIL
          IF DUP SIZE 11 < THEN 1 ELSE DROP 0 1400 .08 BEEP END
        END
      2 \->GROB REPL
      NEXT
      PICT RCL { # 0d # 0d } PVIEW
      IFERR 0 WAIT THEN END DROP
    \>>
  ADDPLANE
    \<<
      DO "Add or Delete? (A/D)" { "" \Ga } INPUT
      UNTIL DUP "AaDd" SWAP POS
      END
      \-> choice
      \<<
        IF 'PLANES' VTYPE -1 >
        THEN PLANES
        ELSE
          { "" } DUP DUP2 DUP2 DUP2 DUP { { } ADDPLANE "Add/Delete" }
          10 \->LIST
        END
        CASE
          "Aa" choice POS
        THEN
          DUP EVAL
          11 ROLL
          1 \-> n
          \<<
            DO
              12 n - ROLL LIST\->
              IF 1 SAME THEN DROP 1 ELSE 3 DROPN 'n' INCR DROP 0 END
              IF n 10 SAME THEN DROP2 "All slots are full" DOERR END
            UNTIL
            END
            n
            ADDGRAPH
            "Enter # of stations" "" INPUT OBJ\->
            \-> l
            \<<
              1 l FOR j
                "Enter station " j \->STR + "\010" +
                \-> sta
                \<<
                  DESCMENU TMENU
                  sta "Description" + "" INPUT
                  UNITMENU TMENU
                  sta "Default Weight" + "" INPUT
                  sta "Default Moment Arm" + "" INPUT
                \>>
                3 \->LIST
              NEXT
              l \->LIST
              PLMENU TMENU
              DO
                "Enter plane N-number/\010 type. (10 letters max)"
                "" INPUT
                DUP SIZE
                IF 10 \<= THEN 1 ELSE DROP 0 END
              UNTIL
              END
              3 \->LIST
              PUT
            \>>
            'PLANES' STO
            10 n - DROPN
          \>>
        END
        "Dd" choice POS
        THEN
          1
          IF 'WBMENU' VTYPE -1 SAME
          THEN # 131d # 64d BLANK
          ELSE WBMENU UPGROB
          END
          { # 2d # 0d } "Delete which aircraft" 2 \->GROB REPL
          { # 70d # 51d } "No change " 2 \->GROB REPL
          IF CHOOSE DUP 10 \=/
          THEN
            SWAP EVAL
            11 ROLL
            NEG 11 + ROLL
            DROP { "" } SWAP
            10 \->LIST
          ELSE DROP
          END
          'PLANES' STO
        END
        END
        TEXT CLLCD "      Updating..." 3 DISP
        PLANES EVAL
        # 131d # 64d BLANK
        70 2 FOR x
          51 11 FOR y
            SWAP
            LIST\-> \-> m
              \<< m ROLLD m 1 - DROPN \>>
            2 \->GROB
            x R\->B y R\->B 2 \->LIST
            SWAP GOR
          -10 STEP
        -68 STEP
        { # 2d # 0d } "Select Aircraft" 2 \->GROB GOR
        PICT SWAP { # 0d # 0d } SWAP REPL
        { # 0d # 8d } { # 130d # 8d } LINE
        PICT RCL PGROB 'WBMENU' STO
      \>>
    \>>
  STRIP
    \<<
      1 \-> delchr stop
      \<<
        WHILE DUP delchr POS 0 \=/
        REPEAT
          DUP delchr POS 1 - 'stop' STO
          DUP 1 stop SUB
          SWAP
          DUP SIZE stop 2 + SWAP SUB +
        END
      \>>
    \>>
  PAD
    \<< WHILE DUP SIZE 21 < REPEAT " " + " " SWAP + END \>>
  CHOOSE
    \<<
      PICT { # 0d # 0d } ROT
      IF DUP TYPE 10 == THEN UPGROB END
      REPL
      { #0d #0d } PVIEW
      R\->B
      DUP # 6d <
      # 1d
      # 69d
      IFTE
      SWAP 10 *
      IF DUP # 50d > THEN # 50d - END
      \-> x y
      \<<
        DO
          PICT
          x y 2 \->LIST
          DUP 3 ROLLD CURSOR GXOR
          DO
            0 WAIT IP
            { 34 36 25 35 51 } SWAP POS DUP
            IF THEN DUP END
          UNTIL
          END
          {
          \<< x # 68d XOR 'x' STO 0 \>>
          \<< x # 68d XOR 'x' STO 0 \>>
          \<<
            IF y # 10d == THEN # 50d 'y' STO ELSE 'y' # 10d STO- END 0
          \>>
          \<<
            IF y # 50d == THEN # 10d 'y' STO ELSE 'y' # 10d STO+ END 0
          \>>
          1 }
          SWAP GET EVAL SWAP
          PICT SWAP CURSOR GXOR
        UNTIL
        END
        y B\->R 10 / x B\->R 69 / IP 5 * +
      \>>
    \>>
  ADDGRAPH
    \<<
      "Enter # of points in\010c.g. graph (0 for no\010graph):"
      "" INPUT OBJ\->
      \-> num
      \<<
        IF num 0 \<=
        THEN { }
        ELSE
        0 1000 0 1000000
        \-> mmax mmin wmax wmin
        \<<
          DO
            ERASE
            1 num FOR j
              "Enter point " j \->STR + " in form\010{mom/1000 weight}" +
              { "{ }" { 1 2 } } INPUT OBJ\->
              DUP EVAL DUP DUP
              IF wmax > THEN DUP 'wmax' STO END
              IF wmin < THEN DUP 'wmin' STO END
              DROP DUP DUP
              IF mmax > THEN DUP 'mmax' STO END
              IF mmin < THEN DUP 'mmin' STO END
              DROP
            NEXT
            { # 0d # 0d } PVIEW
            1 num 1 - START
              SWAP DUP 3 ROLL
              1 2 START
                SWAP EVAL wmax wmin 63 SCL # 63d SWAP -
                SWAP mmax mmin 130 SCL SWAP 2 \->LIST
              NEXT
              LINE
            NEXT
            DROP
          UNTIL
            0 WAIT DROP
            { "YES" "" "" "" "" "NO" } TMENU
            "Is the graph correct?" "" INPUT
            "YES" ==
            1
            \<<
               "Enter # of points"
               "" INPUT OBJ\-> 'num'
               STO 0
            \>>
            IFTE
          END
          PICT RCL PGROB mmax mmin wmax wmin 5 \->LIST
          \>>
        END
      \>>
    \>>
  SCL
    \<<
      \-> valmax valmin factor
      \<< valmin - valmax valmin - / factor * 0 RND R\->B \>>
    \>>
  WBIN
    \<<
      EVAL
      \-> station defwgt defarm
      \<<
        DO
          "Enter " station + "\010weight and moment arm:" +
          ":Weight: " defwgt + "\010:Mom. arm: " + defarm +
          { 1 10 } 2 \->LIST INPUT
        UNTIL
          IF DUP " _" POS THEN 1400 .08 BEEP DROP 0 ELSE 1 END
        END
        OBJ\->
      \>>
    \>>
  CGGRAPH
    \<<
     IFERR
      EVAL
      \-> mmax mmin wmax wmin
      \<<
        UPGROB PICT STO
        DUP2
        { '1000_in*lb' '1000_cm*kg' } 10 FS? 1 + GET
        / mmax mmin 130 SCL SWAP UVAL
        IF DUP wmax \<=
        THEN wmax wmin 63 SCL
        ELSE DROP2 "Aircraft is overweight" DOERR
        END
        # 63d SWAP - 2 \->LIST
        # 1d 0 360 ARC { # 0d # 0d } PVIEW
      \>>
      IFERR 0 WAIT THEN END DROP
      CLLCD
     THEN
      CLLCD 1400 .08 BEEP ERRM 1 DISP 2 WAIT
     END
    \>>
  PGROB
"D9D20ECE8176040CCD20EB1008FB976014713506174147DAF4C2818F2E8FD7B5
081AF1813581AF0A80824E4A20141818F2913507818F24134142CAD816415271
517179818F2E13481AF0813713581AF0917115201510D31701601361348B9606
6601560155090661B67AEB808A73DA6F654031409EBB3136EB134137EB13581A
F11E2808A7A9818FA27BA013313181AF01627F137135EB81AF11E2818FA28AA8
1CE7A70137135EBCE81AF0981AF1913596B01AEB8089714D1721361348B56066
1F81AF1A81AF0806133130EA34A10008A6501608F176618F2D760071458DF192
081AF1113314D13101B21300239"
  UPGROB
"D9D20ECE81D5040CCD204F0008FB97601471350617414334510008A6018F2D76
08D7AC8117414381AF0117414381AF008F3B51113681AF0813507818F2413414
2CAD816E14A1611361348BD46808770431F09EAF11567155716F17F81868F31F
09E65E15601550160170A6C5EE6DAF8084715601550170A6C55F160609F81AF1
08D1FF11B2130D903"
  PLANES
"47A2047A2047A20E4A20FE3000400038000390008A8F007490006A8000339010
81980008490004A80004490003A8000339000CA80008490002A800063901081A
80001390006A8000C490001A8000239000CB80001390003A8000C390008B8000
2390006A8010812901081A80004390004B80002390003A80108129000CB80004
390002B800032901081A80008390006B80004390001B8000329000CB80008390
003B8000629000848F00768000129000648000258000C2907081000081580002
29000648000468000129000148000258000C2900085800015800022900044800
0C58010812900024800025800043900014800015800022900084800085801081
2900044800045800043900024800035800033905010000858000839000848000
4580004390004480002580003390602000081480008490501000045800063900
0848000258000139000448000148000C4905020000C580002490501000025800
0139000C48000148000C49050200008580002490501000044801081390008480
0034800044905040000858000249050200004480108149050100002480004490
6080000814800034905040000448000859050200002480004590501000014800
034905080000C480008590504000024800065905020000148000159040100084
8000C5905080000448000259050400003480001590402000848000C69098F003
6903392020000000000090103392010000000000052503392030000000000003
20339203000000000000510B213047A2047A20C2A20F000054D6074797C2A203
100013336363F5C626C2A20310003393E243F596E6B213047A20C2A20B0000F4
96C6C2A20F00001353F5C626C2A2051000D21333E233F596E6B213047A20C2A2
012000645756C602155716E647964797F2C2A20D0000F57416C6C2A203100043
73E283F596E6B213047A20C2A20F00000596C6F647C2A20B0000F5C626C2A20F
00003373F596E6B213047A20C2A20320006427F6E647020516373756E6765627
C2A20B0000F5C626C2A20F00003373F596E6B213047A20C2A201200025561627
020516373756E6765627C2A20B0000F5C626C2A20F00007333F596E6B213047A
20C2A20120002416767616765602162756160213C2A20B0000F5C626C2A20F00
009353F596E6B213047A20C2A20120002416767616765602162756160223C2A2
0B0000F5C626C2A2011000132333F596E6B2130B2130C2A209100034563737E6
1602137323B213047A20C2A2050000B213047A20C2A2050000B213047A20C2A2
050000B213047A20C2A2050000B213047A20C2A2050000B213047A20C2A20500
00B213047A20C2A2050000B213047A20C2A2050000B213047A2084E208014444
405C414E454C2A2091000144646F24456C6564756B2130B21308244"
  FPLAN.GROB
"E4A20EA7000400038000E0100400010040004780D74000010004011E4C9198A4
39D5000EC00047547D5D54011148409DA455840001200042D6154544011D4840
9AE45984000D400042557D5D540119484098A451549400098000425415454401
7E488198A43D84000E6000425475CDD50100400010040004780A040000100040
F9F017010040001004000478091400001000401C040001004000478091400001
0004018040001004000478091400001000401804000100400047809140000100
04018040001004000478091400001000401C1400010040004780914000010004
010040001004000478091400001000401C140001004000478091400001000401
0140001004000478091400001000401C14000100400047809140000100040140
40001004000478091400001000401C1400010040004780914000010004010040
001004000478091400001000401C140001004000478091400001000401014000
1004000478091400001000401C14000100400047809140000100040101400010
04000478091400001000401C1400010040004780914000010004010040001004
0004780914000010004014140001004000478091400001000401414000100400
0478091400001000401C14000100400047809140000100040101400010040004
7809140000100040101400010040004780914000010004010040001004000478
091400001000401C140001004000478091400001000401404000100400047809
1400001000401C14000100400047809140000100040101400010040004780914
00001000401C1400010040004780914000010004010040001004000478091400
0010004018140001004000478091400001000401404000100400047809140000
1000401C14000100400047809140000100040141400010040004780914000010
00401C1400010040004780914000010004010040001004000478091400001000
401C140001004000478091400001000401014000100400047809140000100040
1804000100400047809140000100040140400010040004780914000010004014
0400010040004780914000010004010040001004000478091400001000401C14
00010040004780914000010004014140001004000478091400001000401C1400
010040004780914000010004014140001004000478091400001000401C140001
00400047809140000100040100400010040004780A040000100040F9F5070BAA
6580401000C78A9160000100040555577721610004885810000100040BAA6252
5111000C78A9160000100040555525271210004885810000100040BAA6252514
1000C78A91600001000405555272573100048859000001000405332"
  HELP.1
"E4A206950004000380001A0A11D5EAE481900542C40C42CA24EE680A11541A4A
8AA084454942A22A2A42680A15D5DE4CA9B08456D82E22A2E4E680A1B549A42
9AA08C694942A22A2A42680A11D5EA4CA9A30546D40CAECEEA4EBA0211D5EAE0
2960642429D1E80111541A405BA0AA2A654F80215D5DE407FA06E2EE5C1E8011
B549A405DA0AA2AA54F80211D5EA4059606AEA29D5FC0C171EAE0E242108EE24
250C42CA24EE480C1111A40A2A61042A2A6942A22A2A42480C171DE40E2EE104
EE2EE902E22A2E4E480C1119A4022AA104222AA942A22A2A42480C117EA402EA
210822EA250CAECEEA4E9A09119830AE46A4E00E6EA2D08DDDD780A1B5500A2A
AA51001AAA651445441680A15D530EEEAA7D00D6AAE518CDD51680A115520A2A
AA69409AAAA51054449680A1159B0AEA6A4E20EAEE2D0C4CDD48A0B175470790
6EAEE042D0C5D50C4D42580B12D6101B0AAA420A65144540455D2580B1255707
F06AA4E0EE51C5D50C4DC3580B1254101D0AAA420AA514454045553580B12547
0790AEE4E0A2D04CDD1CC55A6C0B11596042EEE0415962075A12A2D81580A115
BA0A2A240215BA421DA22A655680A155FA0E2AE40255FA407DB2AAE59680B1B5
DA0A2A2402B5DA4215B26BA511580A115960AEE240415962015A12A2DCBA0402
1777C904051512C904071572C904051512C90405771ADD0C1379CEA042E04321
718B2D0CC52BEA480C151B24A0A2402551229865145CA84A480C157F4440E240
2571228BE514DD3944480C151D8440A24025512298A514543A44480C13796440
AE40435721882D0CC5A9449A091217D5DC1CDC54073766537021778091512945
50445D6055111551051278091712945D1CD45507372253707127809151294550
445540151445510512780915729CDC144D54015733757057A9A0F02960EE2ABB
19BA93190E05BA0426BA8A29AA290F07FA04EAABB939A93190E05DA0422A88A2
9AA290F059604E2A8BA29BAB0B01909"
  HELP.2
"E4A20DF50004000380001A0C139D15D4270A9CE429D50C42CA24EE480C155805
5DA009A24A654842A22A2A42480C15988C5DB609A44EE5C902E22A2E4E480C15
194455B409A84AA54842A22A2A42480C13D844D4270A964A29D50CAECEEA4E8A
0D789CE429D184A18A39929389BB8EE2100008A24A65404DA28A8AA6508A0982
26100008A44EE5C1CDB28BBBAE538939AEEE100008A84AA54045B28A8AAA528A
0729D22A100008964A29D145A18ABA929389398EE215A0218B8E024E82E29383
96CF801198A02A482A6508AAA2F80119AA02E442AE538BB64F80119DA02A422A
A5288AA8F802198E0EA42EE29388AA62FC0C15015960C2A309545A908948558C
D1480B15015BA026B28444DA29445445494580C12755FA02AA38445DB214C544
5C9C1480B150B5DA022A084C65B29445445494580C15015960C2A009545A9085
D9DD59C18A0618A3998A4302960C6ECC2A2DA80718A8AA8A5505BA02AA222A65
1980718BBBAAA7507FA026A44AAE51980718A8AADA6505DA02AA886BA5198071
8ABA98A4305960CAE662A2D4BC0D757170AAB8B0C5560737E64220942A330005
11509A8829845105551AA630BA6B80000771709BB8318C520735D6EA20FEAA31
000511109A8809845401559AA22820DA2A0200057710AABB8084530157EAA2A0
9A2AB16A0B1821C9CC5ABA3BC046E0E6ECD8446580B18614555C29A8820AA20A
AA245D61580B18E1CDDCD39B3940E6E0E6AADC552580B18A14455439A0A80AA2
02AA255544580B1821445D529AB960AAE02AEC555438A0D73988B18920BB993B
BB4352701D5A2000088A88828A288AAA88AA55DA00B5CA2000088B88B281188A
9939BA75DB605DDB2000088A888282188AAA0A8A655B4040154B2480C1BABBB1
8110BBAAB98B4352701D5A36A0D7BABCE00BB38B017032077301DDD46000088A
A2208801888A002501550B58451000088BA2E009318B8B6025075305D9C41000
088AA2200A01888A40250155014058451480C1BABCE2893188B27072017501D9
4565A0608BABBA3A90608A29A21A90608A29B21A90608A29821A90608B39835C
D05CEE"
  HELP.3
"E4A20032000400038000DE0019A4EAB40737E64223F80018AAA4AA505551AA6B
090118BAE4AA70735D6EA21F8011829A4AA601559AA222F8011829A4AB40157E
AA2A1DF0106AF9010AAF901064F9010A4F901064FF0D08B9C042DCD8D52390D0
88A20A655454D2390D08B920EE5DD84D3390D088A20AA5541553390D08BAC0A2
DC5DC52FF0FF0FF0E100003B9BB40671DDC9957906EAEA476580B1888A885015
B5554445B0AAA4A511680A1989BB70155DDC9845F06AA4A772680A1A8A886015
15450155D0AAA4A614580B181BABB4067154DDC4790AEE4A4738F0106AF9010A
AF901064F9010A4F901064FF0C00E6A403359ECE590B02AA20555B422590B0E6
A10332F44E590B02AA20552D482590B0EAA40352946EFF0FF0B90616B"
  STMENU
"E4A202940004000380000183081000200E00201090E044001000200110229031
40E01E877001D3781EC3D803183111150200154201154E80214F11F502001542
01154D803144101140A001D3A01154D803183E83E87400E40483E44990004490
F9F0074C0C144001040280F0060044044400010E480D74400004024111040044
04400001011000044E81EC3741193400820446C3E101C2F0045111154280F044
0001F5544411014511045F111542451974008204544B44110145110C6101E54A
42154400440C6444110155F0044E83054485F87E0044044E44E10E44168000E8
900015C0B0C76001800C36590B0404001800444590E040483FC1044483F290F0
C34441900C340411190F04044419004048711190F04048719204044411190F04
0E04111040E871149010830E0E044400010E810012290E044000010111082229
0E0446C3E10111E807290E045444110F111D12290E0454441101111902290E0C
6444110111190A290E044E44E10193E8048F0E0C1000080000E8126803011067
80E0420000800001112680301104780E044EC3ED11101117680501934C3580E0
44154180110F11268050F54444580E044F54E801101112680501D7444580E042
144092E10111A680501504C3580E0C1E44F01010193468040193E4E8000E0900
04AC0A0C1400200114A8040E0048680A042000204114A804011008680D044687
702197F83780501546C1580D04440201F541547804015448680D04448328015
41547804055448680D042404A4015419778050944482580D0C1EC34001971147
8050697E011901083FF0DB04D19"
  WBMENU
"E4A20302000400038000D083081000200E015801048B80C04400100020011680
10A8B806140E01E87700191D97D932C1A805183111150200F1134030478C8041
4F11F5020011114018728B806144101140A00111140144282A806183E83E8740
0193187187201CA0F9F0074C01083880304C7E29010448804060411190F040E8
7ED3E0040201190E040150144010401C290E040F93E44E104802290E04410405
41104801290F083EC3F44E10E80F1FF0FF0FF0FF0FF0FF0FF0FF0FF0480C0830
140C108108490C04401405200108490E044E97844E01EC1E290F0C7154444111
19011190F044154244F11F90F1190E0441541421011821290E044E970C1E83E0
1EFF0DC071C0"
  CURSOR
"E1B20F900090000D3000FFFFFFFFFFFFFFF1FFFFFFFFFFFFFFF1FFFFFFFFFFFF
FFF1FFFFFFFFFFFFFFF1FFFFFFFFFFFFFFF1FFFFFFFFFFFFFFF1FFFFFFFFFFFF
FFF1FFFFFFFFFFFFFFF1FFFFFFFFFFFFFFF11664"
  UNITMENU
{ { "lb" "_lb" } { "kg" "_kg" } { "in" "_in" } { "cm" "_cm" } { "Gal"
"_Gal" } { "L" "_L" } }
  PLMENU
{ "Cessna " "Mooney " "PA-" }
  DESCMENU
{ "Empty" "Oil" "Fuel Quantity/" "Pilot" "Front " "Rear " "Passenger"
"Baggage" }
  Gal
'6_lb'
  L
'1.584_lb'
  CST
{ '1_Gal' '1_lb' "" "" '1_kg' '1_L' }
END
