%%HP: T(3)A(D)F(.);
@ Sample AIR directory for use with FLYING.LIB
DIR
  PLANES
    DIR
      N26H
        \<<
'PPIPARCH'
'PIPARCH' {
":Gal Per Hr:10.0
:TAS:125
:Base Wt:1601
:Base Mom:140.806"
{ -1 0 } V }
        \>>
      PPIPARCH
        \<< ERASE {
(81.0000000004,1200)
(94.0000000004,2600)
X 0 {
(81.0000000004,1200)
"C.G.(aft.datum)"
"WT" } FUNCTION Y }
'PPAR' STO DRAX
LABEL
(81.9999999998,1200)
(92.9999999989,1200)
LINE
(92.9999999989,1200)
(92.9999999999,2550)
LINE
(92.9999999999,2550)
(88.5000000017,2550)
LINE
(88.5000000017,2550)
(81.9999999984,2050)
LINE
(81.9999999984,2050)
(81.9999999998,1200)
LINE MOMT WGHT /
1000 * .1 - WGHT 10
- R\->C MOMT WGHT /
1000 * .1 + WGHT 10
+ R\->C BOX { # 0d
# 0d } PVIEW
        \>>
      PIPARCH
        \<< WGHT fpwt
+ rpwt + b1wt +
b2wt + gal 6 * +
'WGHT' STO MOMT
fpwt 32.5 401 / * +
rpwt 38 325 / * +
gal 6 * 29 300 / *
+ b1wt 27.5 199 / *
+ b2wt 100 1 / * +
'MOMT' STO { b1wt
b2wt rpwt fpwt }
PURGE
        \>>
      sst.p
"C# 588 0400038000FF0FF0890E0EB0C172AF080C97290E0280888222080888290E0280880222080888290E0280880222080888290E0E90880E32080887290E028088C222080888290E0280888222080888290E0280888222080888290E028FC1F22208FC97FF0FF0CE020C41E9020451E9010C8F901049F9010C8AF0F088C17E37E17C10E1190788482600220002D807088880888482200221907088880888482B00227C33C97C38807188880888E12E302A82022A82A80715880888A022202AFC122A8C19807158808882122202A0022CB802980002588482B002A00220A802980712C17807227220E17E170A8E1C9010C17D080E00807C1289080110C88223790908E2088822279090822080FC32790908E208080228908011080401289080E00C13C07FF0FF00E0"
    END
  RTE.FILES
    DIR
    END
END
