\' Gambas module file
Public Sub Main()
Dim per1 As New Persona
Dim per2 As New Administrativo
Dim per3 As New Docente
Dim per4 As New PersonalLimpieza
per1.Registrar("Juan", 100)
per1.Consultar()
per2.Registrar("Jose", 120, "Administracion General")
per2.Consultar()
per3.Registrar("Javier", 80, "Profesor Matematicas", 10)
per3.Consultar()
per4.Registrar("Julio", 74, "nocturno")
mostrar(per4)
End
Public Sub mostrar(per As Persona)
Print "********************************************************"
Print "Usando una funcion que recibe cualquier clase de persona"
Print "********************************************************"
per.Consultar()
End