%%HP: T(3)A(D)F(.);
\<< { { "YES"
  \<< 1 SF CONT
  \>> } { "NO"
  \<< 1 CF CONT
  \>> } } TMENU
"Input new data?"
PROMPT
  IF 1 FS?
  THEN { { "CONT"
    \<< CONT
    \>> } } TMENU
"b (in)?" PROMPT
'b' STO "d (in)?"
PROMPT 'd' STO
"f'c (psi)" PROMPT
'fc' STO
"Area of steel (in^2)?"
PROMPT 'As' STO
"fy (psi)?" PROMPT
'fy' STO
    IF 2 FS?
    THEN
"d' (in)?
Dist to compr. steel"
PROMPT 'dp' STO
"As' (in^2)?
Area compression steel"
PROMPT 'Asp' STO
    ELSE
      IF 3 FS?
      THEN
"bw (in)?" PROMPT
'bw' STO "hf (in)?"
PROMPT 'hf' STO
      END
    END
  END BETA 1 CF 1
MENU
\>>
