%%HP: T(3)A(D)F(.);
\<< "WALL LOADING" { {
"Pd: "
"Axial Dead Load, lbs"
0. } { "Pl: "
"Axial Live Load, lbs"
0. } { "Md: "
"Top Dead Load Moment, ft-lb"
0. } { "Ml: "
"Top Live Load Moment, ft-lb"
0. } { "Mlat: "
"Lateral Load Mid-ht Mom, ft-lb"
0. } { "\Ggw: "
"Wall Density, psf"
0. } } { 2. 0. }
'MDAT' 4. GET DUP
INFORM ESC 'MDAT' 4.
ROT PUT
"LATERAL LOAD DUE TO:"
{ { "Wind" 1. } {
"Seismic" 2. } {
"Neither" 3. } }
'MDAT' 3. GET CHOOSE
ESC 'MDAT' 3. ROT PUT
\>>