%%HP: T(3)A(D)F(.);
\<< 'PD' VTYPE
  IF -1. ==
  THEN { 1000. 12. 2.
200. } 'PD' STO
  END
"Pole Footing Embedment Depth"
{ { "P:"
"LATERAL LOAD, POUNDS"
0. } { "H:"
"HEIGHT OF LOAD, FT"
0. } { "B:"
"POLE FOOTING WIDTH, FT"
0. } { "S:"
"ALLOW. SOIL PRESSURE, PCF"
0. } } { 1. 0. } PD
DUP INFORM ESC DUP
'PD' STO OBJ\-> DROP 0.
0. 0. \-> P h b s dc
dnc C
  \<< P s b * / DUP
3.51 * 'C' STO 4.25 h
* * 3. XROOT DUP 'dc'
STO 'dnc' STO
    DO 12. INV 'dnc'
STO+ C dnc / DUP DUP
2.18 h * * SWAP SQ +
\v/ +
    UNTIL dnc \<=
    END
"Constrained:
d = "
dc +
" ft
Non-Constrained:
d = "
+ dnc + " ft" + SCRN
dc dnc
  \>>
\>>