document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Public Sub usarMotorComun()
  4.  
  5.   Dim m As New MotorComun
  6.  
  7.   M.encender()
  8.   m.acelerar()
  9.   m.apagar()
  10.  
  11. End
  12.  
  13. Public Sub usarMotorEconomico()
  14.  
  15.   Dim m As New MotorEconomico
  16.  
  17.   M.encender()
  18.   m.acelerar()
  19.   m.apagar()
  20.  
  21. End
  22.  
  23. Public Sub usarMotorElectrico()
  24.  
  25.   Dim m As New MotorElectricoAdapter
  26.  
  27.   M.encender()
  28.   m.acelerar()
  29.   m.apagar()
  30.  
  31. End
');