TECNICAS DE PROGRAMACION II

EL OBJETO: UN MENU

close all
clear
set mess to 23
do whil .T.
@1,1,22,79 box "+-+¦+-+¦¦"
@6,30 SAY " MENU PRINCIPAL"
@8,28 clear to 17,43
@10,30 prom "[I] NGRESAR" mess "[I]NGRESAR DATOS "
@11,30 prom "[M] ODIFICAR" mess "[M]ODIFICAR DATOS"
@12,30 prom "[E] LIMINAR" mess "[E]LIMINAR DATOS"
@13,30 prom "[C] ONSULTAR" mess "[C]ONSULTAR DATOS"
@14,30 prom "IM [P] RIMIR" mess "IM[P]RIMIR INFORMES"
@16,32 SAY "[S]ALIR"
opc=" "
@18,32 say "elija opcion" get opc;
picture "!" valid opc$"IMECPS"
read
if opc= "S"
@12,30 say "APLICACION INTERRUMPIDA"
EXIT
ENDIF
SAVE SCREEN TO SPRIN
DO CASE
case opc = "I"
do menuingreso
case opc = "M"
do menumodificar
case opc = "E"
do menueliminar
case opc = "C"
do menuconsultar
case opc = "P"
do menuinformes
endcase
restore screen from SPRIN
enddo
clear
return

PROCEDURE menuingreso
clear
wait " Eligio Menú Ingreso"
restore screen from SPRIN
SAVE SCREEN TO SPRIN
read
clear
return
PROCEDURE menumodificar
clear
wait " Eligio Menú Modificar"
restore screen from SPRIN
SAVE SCREEN TO SPRIN
read
clear
return
PROCEDURE menueliminar
clear
wait " Eligio Menú Eliminar"
restore screen from SPRIN
SAVE SCREEN TO SPRIN
read
clear
return
PROCEDURE menuconsultar
clear
wait " Eligio Menú Consultar"
restore screen from SPRIN
SAVE SCREEN TO SPRIN
read
clear
return
PROCEDURE menuinformes
clear
wait " Eligio Menú Informes"
restore screen from SPRIN
SAVE SCREEN TO SPRIN
read
clear
return