document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Inherits Unidad
  4.  
  5. Private horden As String
  6.  
  7. Public Sub setOrden(ordenNueva As String)
  8.  
  9.   horden = ordenNueva
  10.  
  11. End
  12.  
  13. Public Function orden() As String
  14.  
  15.   If horden = Null Then
  16.     Return Super.orden() \'no tengo ordenes devuelvo la superior...
  17.   Else
  18.     Return horden & "<br>"
  19.   Endif
  20.  
  21. End
  22.  
  23. Public Function DevuelveNombre() As String
  24.  
  25.   Return " Capitan " & Super.DevuelveNombre()
  26.  
  27. End
');