UN MENU CON MARCO

2.- Un menú dentro de un marco.
close all
clear
do while .t.
clear
@05,10 to 26,70
@10,20 prom "Ingreso" mess "Ingreso de notas"
@12,20 prom "Consulta" mess "Consultar notas"
@14,20 prom "Modificar" mess "Modificar notas"
@16,20 prom "Eliminar" mess "Eliminar notas"
@18,20 prom "Imprimir" mess "Imprimir notas"
@20,20 prom "Salir" mess "Terminar programa"
@24,25 say "pulse una tecla para continuar"
menu to n
do case
case n =1
input "ingrese cantidad a evaluar: " to n
declare notita(n)
for i=1 to n
input "nota["+str(i)+"]:" to notita[i]
nmax=notita[n]
nmin=notita[n]
nsuma=0
next
for i=1 to n
nsuma=nsuma + notita[i]
if notita[i]>nmax then
nmax=notita[i]
endif
if notita[i] nmin=notita[i]
endif
next
nmedia=nsuma/n
@10,38 say "suma de notas: "+str(nsuma)
@11,38 say "promedio: "+str(nmedia)
@12,38 say "nota maxima: "+str(nmax)
@13,38 say "nota minima: "+str(nmin)
case n=6
@22,38 say "Hello Baby..."
exit
endc
read
clear
endd
return
endd