Sistema de Apoio ao Diagnóstico em dBASE III+
Listagem do Programa Principal
O Ensino de Programação de Banco de Dados em Medicina
Cláudio R. Palombo e Renato M.E. Sabbatini
* SISTEMA DE APOIO AO DIAGNOSTICO MEDICO
* PROGRAMA: DIAG.PRG
* OBJETIVO: MENU PRINCIPAL
SET TALK OFF
SET BELL OFF
SET SCOREBOARD OFF
SET STATUS OFF
USE DIAG
SET COLOR TO GR+
DO WHILE .T.
OPCAO = ' '
CLEAR
@1,1 TO 23,79 DOUBLE
@3,2 TO 3,78 DOUBLE
@2,2 SAY ' Sistema de Auxilio ao Diagnostico em Medicina
@6,27 SAY 'Por favor, escolha a opção:'
@9,26 SAY '<< 1 >> Consulta por Sintomas'
@12,26 SAY '<< 2 >> Consulta por Regiao
@15,26 SAY '<< S >> Sair'
@19,35 SAY 'Opção: ' GET OPCAO PICTURE '!'
READ
DO CASE
CASE OPCAO='1'
DO DIAGSIN
CASE OPCAO='2'
DO DIAGREG
CASE OPCAO='S' .OR. OPCAO='s'
CLEAR
CANCEL
ENDCASE
ENDDO
ISSN 1413-0947
Copyright © 1995 Renato M.E. Sabbatini