LISTAGEM DO PROGRAMA
Um Programa para a Avaliação da Função Renal
Renato G.G. Terzi
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
12 ' FUNRENAL '
14 ' Programado em BASICA para IBM-PC e compativeis '
16 ' Prof.Dr. Renato G.G. Terzi - Faculdade de Ciencias Medicas/Unicamp '
17 ' (c) 1993 Renato G.G. Terzi '
18 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
19 CLS:PRINT "FUNRENAL 1.01":PRINT STRING$(79,"-"):PRINT
20 PRINT "Este programa calcula indices de funcao renal para o diagnostico"
30 PRINT "precoce na oliguria e/ou azotemia.":PRINT
60 PRINT STRING$(79,"-")
70 LOCATE 21,01:PRINT STRING$(79,"-")
80 LOCATE 22,24:PRINT "Tecle ENTER apos entrar cada dado"
90 LOCATE 08,10:INPUT "1) NOME DO PACIENTE : ", NOME$
110 LOCATE 10,10:INPUT "2) DATA (dd/mm/aa) : ", DAT$
130 LOCATE 12,10:INPUT "3) HORA (hh:mm) : ", HORA$
150 LOCATE 14,10:INPUT "4) NOME DO MEDICO : ", MED$
170 LOCATE 16,10:INPUT "5) PESO (kg) : ", PESO
190 LOCATE 18,10:INPUT "6) ALTURA (cm) : ", ALTURA
210 LOCATE 22,01:PRINT SPC(78);
215 LOCATE 22,23:PRINT "Deseja alterar algum dado (S/N) ?";
220 A$=INKEY$:IF A$="" THEN GOTO 220
230 IF A$="s" OR A$="S" THEN GOTO 780
240 IF A$="n" OR A$="N" THEN GOTO 270
250 GOTO 220
270 FOR W=10 TO 18:LOCATE W,1:PRINT SPC(78);:NEXT W
280 LOCATE 22,24:PRINT "Tecle ENTER apos entrar cada dado"
290 LOCATE 08,10:INPUT "0) VOLUME DE URINA COLHIDO (ml) : ", VO
310 LOCATE 09,10:INPUT "1) TEMPO DE COLETA DA URINA (horas) : ", TE
330 LOCATE 10,10:INPUT "2) CREATININA DO PLASMA (mg/dl) : ", CP
350 LOCATE 11,10:INPUT "3) SODIO PLASMATICO (mEq/l) : ", SP
370 LOCATE 12,10:INPUT "4) POTASSIO PLASMATICO (mEq/l) : ", KP
390 LOCATE 13,10:INPUT "5) OSMOLARIDADE PLASMATICA : ", OP
410 LOCATE 14,10:INPUT "6) CREATININA URINARIA (mg/dl) : ", CU
430 LOCATE 15,10:INPUT "7) SODIO URINARIO (mEq/l) : ", SU
450 LOCATE 16,10:INPUT "8) POTASSIO URINARIO (mEq/l) : ", KU
470 LOCATE 17,10:INPUT "9) OSMOLARIDADE URINARIA : ", OU
490 LOCATE 21,01:PRINT SPC(78)
495 LOCATE 21,23:PRINT "Deseja alterar algum dado (S/N) ?";
500 A$=INKEY$:IF A$="" THEN GOTO 500
510 IF A$="s" OR A$="S" THEN GOTO 950
520 IF A$="n" OR A$="N" THEN GOTO 540
530 GOTO 500
540 RO=OU/OP :' RELACAO OSMOLAR (RENAL
570 RC=CU/CP :' RELACAO CREATININA U/P
590 II=SP/(CU/CP) :' INDICE DE INSUFICIENCIA RENAL
610 FE=(SU/SP)/(CU/CP) :' EXCRECAO FUNCIONARIA DE SODIO FILTRADO
630 VM=VO/(TE*60) :' VOLUME MINUTO URINARIO
640 D0=(OU*VM)/OP :' DEPURACAO OSMOLAR
660 DA=D0-VM :' DEPURACAO DA AGUA LIVRE
670 CC=(CU*VM)/CP :' FILTRACAO GLOMERULAR
675 CLS
680 PRINT "FUNCAO RENAL RESULTADOS DATA ";
682 PRINT DAT$;" - ";HORA$
685 PRINT STRING$(79,"-")
688 PRINT "PACIENTE: ";NOME$
689 PRINT STRING$(79,"-")
690 LOCATE 05,05:PRINT "PESO............................:";USING " ###.##";PESO
695 LOCATE 06,05:PRINT "ALTURA..........................:";USING " ###.##";ALTURA
700 LOCATE 07,05:PRINT "RELACAO OSMOLAR U/P.............: (NORMAL<1.05)"
705 LOCATE 07,43:PRINT USING "###.##";RO
707 LOCATE 08,05:PRINT "SODIO URINARIO..................: (NORMAL )"
709 LOCATE 08,43:PRINT USING "###.##"; SU
710 LOCATE 09,05:PRINT "RELACAO CREATININA U/P..........: (NORMAL<20)"
715 LOCATE 09,43:PRINT USING "###.##"; RC
720 LOCATE 10,05:PRINT "INDICE DE INSUFICIENCIA RENAL...: (NORMAL )"
725 LOCATE 10,43:PRINT USING "###.##"; II
730 LOCATE 11,05:PRINT "EXCRECAO FRACION.SODIO FILTRADO.: (NORMAL )"
735 LOCATE 11,43:PRINT USING "###.##"; FE
740 LOCATE 12,05:PRINT "DEPURACAO OSMOLAR...............: (NORMAL )"
745 LOCATE 12,43:PRINT USING "###.##"; D0
750 LOCATE 13,05:PRINT "DEPURACAO DE AGUA LIVRE.........: (NORMAL>>>>25)"
755 LOCATE 13,43:PRINT USING "###.##"; DA
760 LOCATE 14,05:PRINT "FILTRACAO GLOMERULAR............: (NORMAL<100)"
765 LOCATE 14,43:PRINT USING "###.##"; CC
767 LOCATE 20,43:PRINT MED$
770 STOP
780 LOCATE 21,01:PRINT SPC(78)
785 LOCATE 18,23:PRINT "CORRECAO - tecle o no. a corrigir"
790 A$=INKEY$:IF A$="" THEN GOTO 790
800 COD=ASC(A$):IF COD1 OR COD54 THEN GOTO 790
820 ON VAL(A$) GOTO 830,850,870,890,910,930
830 LOCATE 08,32:PRINT SPC(45):LOCATE 08,32:INPUT NOME$ :GOTO 210
850 LOCATE 10,32:PRINT SPC(10):LOCATE 10,32:INPUT DAT$ :GOTO 210
870 LOCATE 12,32:PRINT SPC(10):LOCATE 12,32:INPUT HORA$ :GOTO 210
890 LOCATE 14,32:PRINT SPC(49):LOCATE 14,32:INPUT MED$ :GOTO 210
910 LOCATE 16,32:PRINT SPC(10):LOCATE 16,32:INPUT PESO :GOTO 210
930 LOCATE 18,32:PRINT SPC(10):LOCATE 18,32:INPUT ALTURA:GOTO 210
950 LOCATE 22,01:PRINT SPC(78)
955 LOCATE 22,23:PRINT "CORRECAO - tecle o no. a corrigir"
960 A$=INKEY$:IF A$="" THEN GOTO 960
970 COD=ASC(A$):IF COD0 OR COD57 THEN GOTO 960
990 ON VAL(A$)+1 GOTO 1000,1020,1040,1060,1080,1100,1120,1140,1160,1180
1000 LOCATE 08,48:PRINT SPC(10):LOCATE 08,48:INPUT VO:GOTO 490
1020 LOCATE 09,48:PRINT SPC(10):LOCATE 09,48:INPUT TE:GOTO 490
1040 LOCATE 10,48:PRINT SPC(10):LOCATE 10,48:INPUT CP:GOTO 490
1060 LOCATE 11,48:PRINT SPC(10):LOCATE 11,48:INPUT SP:GOTO 490
1080 LOCATE 12,48:PRINT SPC(10):LOCATE 12,48:INPUT KP:GOTO 490
1100 LOCATE 13,48:PRINT SPC(10):LOCATE 13,48:INPUT OP:GOTO 490
1120 LOCATE 14,48:PRINT SPC(10):LOCATE 14,48:INPUT CU:GOTO 490
1140 LOCATE 15,48:PRINT SPC(10):LOCATE 15,48:INPUT SU:GOTO 490
1160 LOCATE 16,48:PRINT SPC(10):LOCATE 16,48:INPUT KU:GOTO 490
1180 LOCATE 17,48:PRINT SPC(10):LOCATE 17,48:INPUT OU:GOTO 490
2000 END
Voltar ao artigo
Copyright (c) 1995 Renato M.E. Sabbatini