%%HP: T(3)A(D)F(.);
\<<
"MASONRY WALL INFO."
{ { " fm\180: "
"Masonry Design Stress, psi"
0. } { } { "   W: "
"Wall Section Width, in."
0. } { "  T: "
"Actual Wall Thickness, in."
0. } { "Teff: "
"Effective Thickness, in."
0. } { "  r: "
"Radius of Gyration, in."
0. } { "   H: "
"Height of Wall, ft."
0. } } { 2. 0. }
'MDAT' 1. GET DUP
INFORM ESC 'MDAT' 1.
ROT PUT
"REINFORCEMENT INFO."
{ { "Fy: "
"Steel Yield Stress, ksi"
0. } { } { "As: "
"Area of Reinforcement, sq.in."
0. } { "d: "
"Depth to Reinforcement, in."
0. } } { 2. 0. }
'MDAT' 2. GET DUP
INFORM ESC 'MDAT' 2.
ROT PUT
\>>