Post louco, pra variar!

REM "METODO AOKI-VELLOSO"
DIM N(99), L(20), S(20), K(99), PL(99), PP(99), ALFA(99)
30 CLS
PRINT "LEGENDA - TIPOS DE SOLO"
PRINT "100 = AREIA"
PRINT "120 = AREIA SILTOSA"
PRINT "123 = AREIA SILTO ARGILOSA"
PRINT "130 = AREIA ARGILOSA"
PRINT "132 = AREIA ARGILO SILTOSA"
PRINT "200 = SILTE"
PRINT "210 = SILTE ARENOSO"
PRINT "213 = SILTE ARENO ARGILOSO"
PRINT "230 = SILTE ARGILOSO"
PRINT "231 = SILTE ARGILO ARENOSO"
PRINT "300 = ARGILA"
PRINT "310 = ARGILA ARENOSA"
PRINT "312 = ARGILA ARENO SILTOSA"
PRINT "320 = ARGILA SILTOSA"'
PRINT "321 = ARGILA SILTO ARENOSA"
VIEW PRINT 18 TO 24
INPUT "NO.DE CAMADAS"; C
FOR I = 1 TO C
PRINT : PRINT "PROF. DA CAMADA ("; I; ")"; : INPUT L(I)
PRINT "SOLO. DA CAMADA ("; I; ") "; : INPUT S(I)
FOR G = INT(L(I - 1) + 1) TO INT(L(I))
IF S(I) = 100 THEN K(G) = 100: ALFA(G) = .014
IF S(I) = 120 THEN K(G) = 80: ALFA(G) = .02
IF S(I) = 123 THEN K(G) = 70: ALFA(G) = .024
IF S(I) = 130 THEN K(G) = 60: ALFA(G) = .03
IF S(I) = 132 THEN K(G) = 50: ALFA(G) = .028
IF S(I) = 200 THEN K(G) = 40: ALFA(G) = .03
IF S(I) = 210 THEN K(G) = 55: ALFA(G) = .022
IF S(I) = 213 THEN K(G) = 45: ALFA(G) = .028
IF S(I) = 230 THEN K(G) = 23: ALFA(G) = .034
IF S(I) = 231 THEN K(G) = 25: ALFA(G) = .03
IF S(I) = 300 THEN K(G) = 20: ALFA(G) = .06
IF S(I) = 310 THEN K(G) = 35: ALFA(G) = .024
IF S(I) = 312 THEN K(G) = 30: ALFA(G) = .028
IF S(I) = 320 THEN K(G) = 22: ALFA(G) = .04
IF S(I) = 321 THEN K(G) = 33: ALFA(G) = .03
NEXT: NEXT
VIEW PRINT 1 TO 25
CLS
PRINT TAB(15); "SPT'S"
PRINT TAB(15); "-----"
PRINT
FOR J = 1 TO INT(L(C))
PRINT TAB(3); USING "##"; J;
INPUT N(J)
NEXT
350 CLS
PRINT TAB(10); "TIPO DE ESTACA"
PRINT TAB(10); "=============="
PRINT : PRINT
PRINT TAB(3); "(0) PRE-MOLDADA"
PRINT TAB(3); "(1) FRANKI"
PRINT TAB(3); "(2) ESCAVADA"
PRINT TAB(3); "(3) STRAUSS"
PRINT : PRINT
INPUT "TIPO "; Z
IF Z = 0 THEN 500
IF Z = 1 THEN 580
IF Z = 2 THEN 620
IF Z = 3 THEN 700
IF Z > 3 THEN 350
500 PRINT
INPUT "SECAO QUADRADA OU CIRCULAR (Q/C) "; PM$
IF UCASE$(PM$) = "C" THEN 550 ELSE 530
530 INPUT "DE O LADO EM cm"; LD
U = 4 * LD / 100: A = LD ^ 2 / 10000: F1 = 1.75: F2 = 3.5: GOTO 570
550 INPUT "DIAMETRO (cm)"; D
U = 3.1416 * D / 100: A = 3.1416 * (D / 100) ^ 2 / 4: F1 = 1.75: F2 = 3.5
570 GOTO 720
580 INPUT "DIAMETRO (cm) "; D
INPUT "VOLUME BASE (l)"; V
U = 3.1416 * D / 100: A = 3.1416 * ((V / 1000) * 3 / (4 * 3.1416)) ^ (2 / 3): F1 = 2.5: F2 = 5
GOTO 720
620 INPUT "BARRETE/ESTACAO (B/E) "; Z$: IF UCASE$(Z$) = "B" THEN 660 ELSE 630
630 INPUT "DIAMETRO (cm) "; D: U = 3.1416 * D / 100
A = (D ^ 2) * 3.1416 / 4 / 10000: F1 = 3: F2 = 6
GOTO 720
660 INPUT "DIMENSOES DO BARRETE EM (cm) (A,B) "; A0, B0
U = 2 * (A0 + B0) / 100
A = A0 * B0 / 10000: F1 = 3: F2 = 6
GOTO 720
700 INPUT "DIAMETRO (cm) "; D: U = 3.1416 * D / 100
A = (D ^ 2) * 3.1416 / 4 / 10000: F1 = 3: F2 = 6
720 CLS
INPUT "NIVEL DO TERRENO "; NT
INPUT "COTA DE ARRASAMENTO"; CA
L0 = NT - CA
FOR H = INT((L0) + 1) TO INT(L(C))
O = K(H) * N(H) / F1
FS = ALFA(H) * N(H) * K(H) / F2
PL(H) = PL(H - 1) + FS * U
PP(H) = A * O
NEXT
CLS
PRINT "PROF."; TAB(8); "N"; TAB(15); "PL"; TAB(25); "PP"; TAB(35); "PR"
PRINT " (m) "; TAB(14); "(kN)"; TAB(24); "(kN)"; TAB(34); "(kN)": PRINT
FOR H = INT((L0) + 1) TO INT(L(C))
PRINT USING "##"; H; : PRINT TAB(7); USING "##"; N(H); : PRINT TAB(12); USING "#####"; PL(H) * 10; : PRINT TAB(22); USING "#####"; PP(H) * 10; : PRINT TAB(32); USING "#####"; (PP(H) + PL(H)) * 10
NEXT
PRINT : INPUT "QUER IMPRESSAO EM PAPEL (S/N)"; I$
I$ = UCASE$(I$)
IF I$ = "S" THEN 950
900 INPUT "TEM MAIS ESTACAS (S/N)"; I$
I$ = UCASE$(I$)
IF I$ = "S" THEN 350 ELSE 920
920 INPUT "TEM NOVA SONDAGEM (S/N)"; I$
I$ = UCASE$(I$)
IF I$ = "S" THEN 30 ELSE 940
940 END
950 REM "ROTINA DE IMPRESSAO"
T$ = CHR$(9)
OPEN "tempfile.txt" FOR OUTPUT AS #1
PRINT #1, "_____________________________________________________"
PRINT #1, T$; "CAPACIDADE DE CARGA DE ESTACAS"
PRINT #1, T$; T$; "METODO AOKI-VELLOSO"
PRINT #1, "_____________________________________________________"
PRINT #1,
PRINT #1,
PRINT #1, "_____________________________________________________"
PRINT #1, T$; T$; "COTA DO TERRENO:"; USING "###.##"; NT
PRINT #1, T$; T$; "COTA DE ARRASAMENTO:"; USING "###.##"; CA
PRINT #1, T$; T$; "SONDAGEM: ( )"
PRINT #1, T$; T$; ""
1040 IF Z = 0 THEN 1210
IF Z = 1 THEN E$ = "FRANKI": GOTO 1160
IF Z = 2 THEN 1080
IF Z = 3 THEN 1120 ELSE 1040
1080 IF Z$ = "B" THEN 1090 ELSE 1100
1090 E$ = "BARRETE": GOTO 1130
1100 IF Z$ = "E" THEN 1110 ELSE 1160
1110 E$ = "ESTACAO": GOTO 1160
1120 E$ = "STRAUSS": GOTO 1160
1130 PRINT #1, T$; T$; "TIPO DE ESTACA :"; E$; :
PRINT #1, A0; "x"; B0; " cm"
GOTO 1270
1160 PRINT #1, T$; T$; "TIPO DE ESTACA :"; E$; :
PRINT #1, " D = "; D; " cm"
IF E$ = "FRANKI" THEN 1190 ELSE 1200
1190 ' PRINT #1, T$; T$; T$; T$; " VOL.BASE="; V; "L"
1200 GOTO 1270
1210 IF PM$ = "Q" THEN 1220 ELSE 1250
1220 E$ = "PRE-MOLDADA"
PRINT #1, T$; T$; "TIPO DE ESTACA :"; E$; :
PRINT #1, LD; " x "; LD; " cm": GOTO 1270
1250 E$ = "PRE-MOLDADA": PRINT #1, TAB(11); "TIPO DE ESTACA :"; E$;
PRINT #1, " D "; D; " cm"
1270 PRINT #1, : PRINT #1, : PRINT #1,
PRINT #1, "_____________________________________________________"
PRINT #1, TAB(11); "PERFIL GEOTECNICO"
PRINT #1, : PRINT #1,
FOR I = 1 TO C
IF S(I) = 100 THEN SOLO$ = "AREIA"
IF S(I) = 120 THEN SOLO$ = "AREIA SILTOSA"
IF S(I) = 123 THEN SOLO$ = "AREIA SILTO ARGILOSA"
IF S(I) = 130 THEN SOLO$ = "AREIA ARGILOSA"
IF S(I) = 132 THEN SOLO$ = "AREIA ARGILO SILTOSA"
IF S(I) = 200 THEN SOLO$ = "SILTE"
IF S(I) = 210 THEN SOLO$ = "SILTE ARENOSO"
IF S(I) = 213 THEN SOLO$ = "SILTE ARENO ARGILOSO"
IF S(I) = 230 THEN SOLO$ = "SILTE ARGILOSO"
IF S(I) = 231 THEN SOLO$ = "SILTE ARGILO ARENOSO"
IF S(I) = 300 THEN SOLO$ = "ARGILA"
IF S(I) = 310 THEN SOLO$ = "ARGILA ARENOSA"
IF S(I) = 312 THEN SOLO$ = "ARGILA ARENO SILTOSA"
IF S(I) = 320 THEN SOLO$ = "ARGILA SILTOSA"'
IF S(I) = 321 THEN SOLO$ = "ARGILA SILTO ARENOSA"
PRINT #1, TAB(15); USING "##.##"; L(I - 1); : PRINT #1, TAB(21); "a"; :
PRINT #1, TAB(23); USING "##.##"; L(I); :
PRINT #1, TAB(30); SOLO$
NEXT
PRINT #1, : PRINT #1, : PRINT #1,
PRINT #1, "_____________________________________________________"
PRINT #1, TAB(10); "RESULTADOS (kN)"
PRINT #1, : PRINT #1,
PRINT #1, TAB(5); "PROF."; TAB(13); "N"; TAB(20); "PL"; TAB(30); "PP"; TAB(40); "PR"
PRINT #1, TAB(5); " (m) "; TAB(19); "(kN)"; TAB(29); "(kN)"; TAB(39); "(kN)": PRINT #1,
FOR H = INT((L0) + 1) TO INT(L(C))
PRINT #1, TAB(5); USING "##"; H;
PRINT #1, TAB(11); USING "##"; N(H);
PRINT #1, TAB(17); USING "#####"; PL(H) * 10;
PRINT #1, TAB(27); USING "#####"; PP(H) * 10;
PRINT #1, TAB(37); USING "#####"; (PL(H) + PP(H) * 10);
NEXT: PRINT #1, : CLOSE : SHELL "NOTEPAD TEMPFILE.TXT": GOTO 900