%%HP: T(1)A(D)F(.);
DIR
  CST { arga }
  arga
    
      DO
"ESCOLHA O SERVICO E DIGITE [ENTER].
1  CHAPISCO  
2  EMBOCO INTERNO
3  EMBOCO EXTERNO
4  REBOCO INTERNO
5  REBOCO EXTERNO
6 E 7  EMBOCO INTERNO/EXTERNO
8  PESOS ESPECIFS. DOS MATERIAIS
9  ARGAMASSA P/ ALVENARIAS"
TEXTO
"Opo escolhida:"
"" INPUT OBJ 'O'
STO
        CASE 1 O ==
          THEN CHA
"SERVICO: CHAPISCO

TRACO 1:4  CIMENTO:AREIA
0,005 M3 DE ARG. POR M2 SERVICO

CONSUMO POR M3 DE ARGAMASSA:
342,1 KG DE CIMENTO
1,052 M3 DE AREIA SECA OU
1,294 M3 DE AREIA C/ 3% UMIDADE"
TEXTO
          END 2 O
==
          THEN EMB
"SERVICO: EMBOCO INTERNO

TRACO 1:4  CAL HIDRAT:AREIA
0,015 M3 DE ARG. POR M2 SERVICO

CONSUMO POR M3 DE ARGAMASSA:
167 KG DE CAL
1,096 M3 DE AREIA SECA OU
1,348 M3 DE AREIA C/ 3% UMIDADE"
TEXTO
          END 3 O
==
          THEN EMB
"SERVICO: EMBOCO EXTERNO
TRACO 1:2:9  CIMENTO:CAL:AREIA
0,02 M3 DE ARG. POR M2 SERVICO

CONSUMO POR M3 DE ARGAMASSA:
181,3 KG DE CIMENTO
181,3 KG DE CAL
1,216 M3 DE AREIA SECA OU
1,496 M3 DE AREIA C/ 3% UMIDADE"
TEXTO
          END 4 O
==
          THEN REB
"SERVICO: REBOCO INTERNO

TRACO 1:4  CAL HIDRAT:AREIA
0,005 M3 DE ARG. POR M2 SERVICO

CONSUMO POR M3 DE ARGAMASSA
167 KG DE CAL
1,096 M3 DE AREIA SECA OU
1,346 M3 DE AREIA C/ 3% UMIDADE"
TEXTO
          END 5 O
==
          THEN REB
"SERVICO: REBOCO EXTERNO

TRACO 1:3  CAL HIDRAT:AREIA
0,05 M3 DE ARG. POR M2 SERVICO

CONSUMO POR M3 DE ARGAMASSA:
240,5 KG DE CAL
1,112 KG DE AREIA SECA OU
1,358 KG DE AREIA C/ 3% UMIDADE"
TEXTO
          END O 6
==
          THEN EMB
"SERVICO: EMBOCO EXT./INT.

TRACO 1:8  CIMENTO:AREIA
0,02 M3 DE ARG. POR M2 SERVICO

CONSUMO POR M3 DE ARGAMASSA:
225 KG DE CIMENTO
1,25 M3 DE SAIBRO"
TEXTO
          END 7 O
==
          THEN EMB
"SERVICO: EMBOCO EXT./INT.

TRACO 1:6  CIMENTO:SAIBRO
0,02 M3 DE ARG. POR M2 SERVICO

CONSUMO POR M3 DE ARGAMASSA:
230 KG DE CIMENTO
1,14 M3 DE SAIBRO"
TEXTO
          END 8 O
==
          THEN
"CIMENTO: E.REAL=3.05KG/L
         E.APARENTE=1.42KG/L
SACA 50 KG CIMENTO=35.3 LITROS
AREIA: E.REAL=2.62KG/L
AREIA SECA: E.APAR=1.5KG/L
AREIA (5%UMID): E.APAR=1.2KG/L
AREIA (10%UMID): E.APAR=1.15KG/L
BRITA: E.REAL=2.56KG/L
      E.APARENTE=1.39KG/L"
TEXTO
          END 9 O
==
          THEN
"TRACOS (EM VOLUME) + UTILIZADOS:
1:2:9  CIM:CAL:AREIA
1:8  CIMENTO:SAIBRO

VER OBSERVACOES NO PROGRAMA
[ALVENARIA]."
TEXTO
          END
        END TEXT
"OPCAO" {
Reconsultar } 1
CLLCD CHOOSE
      UNTIL 0 ==
      END 'O' PURGE
CLEAR obra 0 MENU
    
  REB
    
"REBOCO:

CAMADA + FINA (.5 CM) C/ GRAOS 
FINOS (.05 A .42 MM).
EXECUTADO APOS ENDURECIM. DO EM-
BOCO E APOS COLOCACAO DE EITORIS 
E GUARNICOES DE PORTAS E JANELAS,
MAS ANTES DE RODAPES E ALIZARES.
ESPALHA-SE ARGAM. C/DESEMPENA-
DEIRA EM TRECHOS DA PAREDE E ACA-
BAMENTO APERFEICOADO C/ CAMURCA."
TEXTO
    
  EMB
    
"EMBOCO:
ESPESSURA DE 1 A 2 CM, ACABAMEN-
TO ASPERO, APLICADO APOS O ENDU-
RECIMENTO DO CHAPISCO E C/ AS
INSTALACOES JA EMBUTIDAS.
 TECNICA: ESPALHAMENTO C/ CO-
LHER E REGULARIZ. C/ REGUA, 
SEGUINDO GUIAS FIXAS NA PARE-
DE E DESEMPENADEIRA.
 A ARGAM. DEVE SER BEM DOSA-
DA (EVITAR TRINCAS POR RETRACAO),
GRAOS MEDIOS(.42 A 2 MM)."
TEXTO
    
  CHA
    
"CHAPISCO:

CAMADA FINISSIMA DE ARGAMASSA 
FORTE DE CIMENTO E AREIA GROSSA
LAVADA (1:4), PARA AUMENTAR A
ADERENCIA DA CAMADA POSTERIOR
(EMBOCO) NA PAREDE"
TEXTO
    
END
