Datos

DATOS
ISRAEL VALLEJO 5º INFORMATICO
set talk off
set sysmenu off
set status off
op="S"
DEFINE WINDOW CURSOS FROM 12,15 TO 26,30 TITLE "CURSOS"
DEFINE WINDOW PARALELO FROM 12,63 TO 18,64TITLE "PARALELO"
DEFINE WINDOW ESPECIALIDAD FROM 12,63 TO 22,64 TITLE "ESPECIALIDAD"
store space (30) to nom,ape,cur,esp,par,NOMR,TEL,ESPECIALIDAD
store 0 to cod,pro,PARALELO,ED
clear
use datos@2,50 say "COLEGIO PARTICULAR BRASIL"FONT "ARIAL",20 COLOR G/W*
@4,50 SAY "REGISTRO DE ESTUDIANTES"FONT "ARIAL",20 COLOR R+/W*
@8,2 SAY "CODIGO DEL ALUMNO: " get cod
read
@10,2 say "NOMBRES: "GET NOM
READ
@10,40 SAY "APELLIDOS: " GET APE
READ
@12,40 SAY "PARALELO: "
@12,2 SAY "CURSO: "
ACTIVATE WINDOW CURSOS
@1,1 PROMPT "OCTAVO"
@3,1 PROMPT "NOVENO"
@5,1 PROMPT "DECIMO"
@7,1PROMPT "PRIMERO"
@9,1 PROMPT "SEGUNDO"
@11,1 PROMPT "TERCERO"
READ
MENU TO CURSOS
DEACTIVATE WINDOW CURSOS
if(cursos=1)
@12,15 say "OCTAVO"
ACTIVATE WINDOW PARALELO
@1,1 PROMPT "A"@3,1 PROMPT "B"
READ
MENU TO PAR
DEACTIVATE WINDOW PARALELO
IF(PAR=1)
@12,55 SAY "A"
ELSE
@12,55 SAY "B"
ENDIF
ELSE
if(cursos=2)
@12,15 say"NOVENO"
ACTIVATE WINDOW PARALELO
@1,1 PROMPT "A"
@3,1 PROMPT "B"
READ
MENU TO PAR
DEACTIVATE WINDOW PARALELO
IF(PAR=1)
@12,55 SAY "A"
ELSE@12,55 SAY "B"
ENDIF
else
if(cursos=3)
@12,15 say "DECIMO"
ACTIVATE WINDOW PARALELO
@1,1 PROMPT "A"
@3,1 PROMPT "B"
READMENU TO PAR
DEACTIVATE WINDOW PARALELO
IF(PAR=1)
@12,55 SAY "A"
ELSE
@12,55 SAY "B"
ENDIF
else
if(cursos=4)
@12,15 say"PRIMERO "
ACTIVATE WINDOW PARALELO
@1,1 PROMPT "A"
@3,1 PROMPT "B"
READ
MENU TO PAR
DEACTIVATE WINDOW PARALELO
IF(PAR=1)
@12,55 SAY "A"...