%%HP: T(3)A(D)F(.);
\<< 'BDATA' 1. GET OBJ\->
DROP 'BDATA' 2. GET
'BDATA' 3. GET 1. ==
1.3 1. IFTE SWAP 1.
== 1.2 1. IFTE ROT
DROP ROT DROP ROT 2.
/ 4. ROLL MIN
"Enter Bar Size"
":Bar #:" INPUT OBJ\->
DUP 6. > 1. .8 IFTE
SWAP 8. / \-> f\180c fy \Gl
\Gb c \Gg db
  \<< c db / \Gb
    IF 1. \=/
    THEN DUP
      IF 3. <
      THEN '\Gb' .8
STO/
      END
    END 2.5 MIN f\180c \v/
* \Gb \Gg \Gl fy .075 * * *
* SWAP / db * DUP 12.
MAX SWAP \Gb 1.5 == 7.5
INV 1. + 1.3 IFTE *
12. MAX
  \>>
"            Ld
           (in)
Top Bars: "
SWAP \->STR +
"
   Other: " + SWAP
\->STR + SCRN
\>>