%%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 6.
ROLL 6. ROLL DROP2
"Enter Hooked Bar Size"
":Bar #:" INPUT OBJ\->
\-> f\180c fy c3 c4 \Gl \Gb db
  \<< 'db' 8. STO/
1200. f\180c \v/ / 8. MAX
db * 6. MAX fy 60000.
/ * \Gb \Gl * *
    IF 'c3\>=2.5' 'c4\>=
2.' AND
    THEN .7 *
    END db 8. * MAX
6. MAX
"      Hooked Bar 
 Development Length:
     Ldh = "
SWAP \->STR +
    IF 'c3<2.5' 'c4<
2.' AND
    THEN
"

  Stirrups required
 around hooked bars!"
+
    END SCRN
  \>>
\>>