%%HP: T(3)A(D)F(.);
\<< GDAT 13. ROLL 13.
ROLL DROP2 11. PICK *
13. PICK * 24. / 6.
ROLL + 13. PICK 4000.
MIN .75 * 0. 0. \-> f\180m
b t \<-h Fy As d \<-LAT
\<-Pl \<-Md \<-Ml \<-Mlat \<-Pd
E \<-Mcr \<-Ig
  \<< As b d * / 87.
DUP Fy + / f\180m Fy / *
.0007225 * DUP2 .5 *
    IF >
    THEN
" \Gr > .5\Grb -- No Good!"
    ELSE
" \Gr \<= .5\Grb -- O.K."
    END 5. FIX ROT
" \Gr = " SWAP \->STR +
ROT "
\Grb = " SWAP
\->STR + + "
" + SWAP +
SCRN 2. FIX
"WALL TYPE" { {
"Solid Grout" 1. } {
"Partial Grout" 2. }
{ "Double Wythe" 3. }
} 2. CHOOSE ESC \-> x
    \<<
      CASE 'x==1.'
        THEN 235. 4.
        END 'x==2.'
        THEN 125. 2.5
        END 125. 2.
      END
    \>> f\180m \v/ * MIN t
3. ^ b * 12. / DUP
'\<-Ig' STO * t 6. * /
'\<-Mcr' STO .5 DUP
'\<-Md' STO* '\<-Ml' STO*
"Mcr = " \<-Mcr \->STR +
" ft-lb
 Ig = " + \<-Ig
\->STR + " in^4" + SCRN
1. SF 1. 2.
    FOR x LFAC
"   P = " 5. PICK
\->STR + " lbs
  Pu = "
+ 4. PICK \->STR +
" lbs
P/Ag = " + 5.
PICK b t * / DUP 7.
ROLLD \->STR + " psi" +
SCRN 5. ROLL f\180m /
"No Good!

P/Ag >"
SWAP DUP
      IF .04 >
      THEN
        IF .2 >
        THEN ".2f\180m"
+ SCRN KILL
        ELSE 12. \<-h *
t /
          IF 30. >
          THEN
".04f\180m, h/t >30" +
SCRN KILL
          ELSE DROP
          END
        END
      ELSE DROP2
      END Fy 1000. *
4. PICK OVER / As + *
LASTARG SWAP DROP
OVER .85 f\180m b * * /
d OVER 2. / - 4. ROLL
* 12. / OVER .85 / d
OVER - SQ 29000. E /
* 5. PICK * SWAP 3. ^
b * 3. / + "Ase = "
5. ROLL \->STR +
" in\178
  a = " + 4.
ROLL \->STR +
" in
Icr = " + OVER
\->STR + " in^4
 Mn = "
+ 3. PICK \->STR +
" ft-lb
\O/Mn = " + ROT
.8 * SWAP OVER \->STR +
" ft-lb" + SCRN OVER
6. ROLL 5. ROLL E
PDELTA "\GDu = " ROT
\->STR + " in
Mu = " +
OVER \->STR +
" ft-lb

" + SWAP ROT
      IF >
      THEN
"No Good, Mu > "
      ELSE
"OK!, Mu \<= "
      END "\O/Mn" + +
SCRN ROT ROT E PDELTA
"Ms = " SWAP \->STR +
" ft-lb
\GDs = " + OVER
\->STR + " in

" + SWAP
\<-h .084 *
      IF >
      THEN
"No Good, \GDs > "
      ELSE
"OK!, \GDs \<= "
      END ".OO7h" + +
SCRN
    NEXT
  \>>
\>>