%%HP: T(3)A(D)F(.);
\<< 'BDATA' VTYPE
  IF -1. ==
  THEN { { 3000.
60000. 1.5 3. 2.5 2.
} 2. 2. } 'BDATA' STO
  END
"Rebar Development Length"
{ { "f\180c = "
"Concrete Strength, psi"
0. } { "fy = "
"Steel Yield Strength, psi"
0. } { "c1 = "
"Concrete Cover, in"
0. } { "c2 = "
"Bar Spacing, in" 0.
} { "c3 = "
"Hooked Bar, Side Cover, in"
0. } { "c4 = "
"Hooked Bar, End Cover, in"
0. } } { 2. 0. }
'BDATA' 1. GET DUP
INFORM ESC 'BDATA' 1.
ROT PUT
"Epoxy-Coated?" { {
"Yes" 1. } { "No" 2.
} } 'BDATA' 2. GET
CHOOSE ESC 'BDATA' 2.
ROT PUT
"Lt. Wt. Concrete?" {
{ "Yes" 1. } { "No"
2. } } 'BDATA' 3. GET
CHOOSE ESC 'BDATA' 3.
ROT PUT Ld Ldh
\>>