*MODULO*
PUBLIC SUB Main()
DIM mat AS matricula
DIM no AS String
DIM nota AS Integer
mat = NEW matricula
'mat.matri(Now)
PRINT "La fecha de matricula es...", mat.matri()
PRINT "Ingrese nombre..."
INPUT no
mat.PoneNombre(no)
mat.PoneApellido("Cedeño")
'PRINT "la fecha de matricula es..", mat.Ponefecha("18/12/1992")
mat.PoneCurso("Quinto B Sistemas")
mat.PoneSeccion("Nocturno")
PRINT "El nombre completo es....", mat.NombreCompleto()
PRINT "Ingrese primer parcial...."
INPUT nota
mat.Poneparcial1(nota)
PRINT "Ingrese segundo parcial...."
INPUT nota
mat.Poneparcial2(nota)
PRINT "Ingrese tercer parcial...."
INPUT nota
mat.Poneparcial3(nota)
PRINT "El promedio es...", mat।promedio()

*CLASE*
PUBLIC SUB PoneSeccion(cadena AS String)
Seccion = cadena
END
PUBLIC SUB Poneparcial1(numero AS Integer)
parcial1 = numero
END
PUBLIC SUB Poneparcial2(numero AS Integer)
parcial2 = numero
END
PUBLIC SUB Poneparcial3(numero AS Integer)
parcial3 = numero
END
PUBLIC FUNCTION promedio() AS Integer
RETURN (parcial1 + parcial2 + parcial3) / 3
END