%%HP: T(3)A(D)F(.);
\<<
"SELECT NOMINAL THICKNESS"
{ { "4 INCH" 1. } {
"6 INCH" 2. } {
"8 INCH" 3. } {
"10 INCH" 4. } {
"12 INCH" 5. } } 3.
CHOOSE ESC
"SELECT TYPE OF MASONRY"
{ { "CMU" 1. } {
"CLAY BLOCK" 2. } }
1. CHOOSE ESC DUP 8.
SWAP
  IF 2. ==
  THEN
"SELECT BLOCK MODULE"
{ { "16 INCH" 1. } {
"12 INCH" 2. } } 2.
CHOOSE ESC
    IF 2. ==
    THEN DROP 6.
    END
  END
  DO
"ENTER GROUT SPACING, INCHES"
":GROUT SPACING:"
INPUT OBJ\-> DUP2 SWAP
MOD DUP
    IF 0. \=/
    THEN
"GROUT SPACING NOT COMPATIBLE WITH BLOCK MODULE!"
MSGBOX SWAP DROP
    END
  UNTIL 0. ==
  END ROT 'MDI' SWAP
GET 4. ROLL GET OBJ\->
  IF 4. ==
  THEN 6. PICK
    IF 6. ==
    THEN SWAP
    END DROP 3. PICK
IP .5 +
  ELSE 3. PICK
  END \-> m s t tf tw
ts
  \<< t tf 2. * - m s /
DUP 1. == ts ROT 4.
PICK * tf 2. * + IFTE
OVER 3. ^ 1. tw 12. /
- * m s - * t 3. ^ s
* + 12. / ROT s m -
tw 12. / * m + * tf s
2. * * + / \v/ 'MDAT'
VTYPE
    IF -1. \=/
    THEN DUP2 'MDAT'
1. GET 5. ROT PUT 4.
ROT PUT 'MDAT' 1. ROT
PUT
    END "r" \->TAG SWAP
"teff" \->TAG
  \>>
\>>