
$filename "t.exe"
'uses rtl64 
'
'-----------------------------
'CONSTRUCTOR AND DESTRUCTOR
'=============================

  class clss
  '=========
    '
    private va as long
    '
    method constructor()
      print "construct"
    end method
    '
    method destructor()
      print "destruct"
    end method
    '
    method v(byval a as long)
      va=a
    end method
    
    method v() as long
      return va
    end method
    
  end class 'clss


  '-----------------------
  '
  new clss obj
  obj.v=42
  print obj.v
  del obj
  '
  '-----------------------
  '
  
 
