document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Property numero As Integer \' jugador primero ("Amarillo", "-1") y jugador segundo("Naranja", "1")
  4. Private hnumero As Integer
  5. Property profundidad As Integer
  6. Private hprofundidad As Integer
  7.  
  8. Private Function numero_Read() As Integer
  9.  
  10.   Return hnumero  
  11.  
  12. End
  13.  
  14. Private Sub numero_Write(Value As Integer)
  15.  
  16.   hnumero = value
  17.  
  18. End
  19.  
  20. Private Function profundidad_Read() As Integer
  21.  
  22.   Return hprofundidad
  23.  
  24. End
  25.  
  26. Private Sub profundidad_Write(Value As Integer)
  27.  
  28.   hprofundidad = value
  29.  
  30. End
');