RosettaCodeData/Task/Classes/QuickBASIC/classes.basic

20 lines
406 B
Plaintext

TYPE MyClass
Variable AS INTEGER
END TYPE
DECLARE SUB MyClassDelete (pthis AS MyClass)
DECLARE SUB MyClassSomeMethod (pthis AS MyClass)
DECLARE SUB MyClassInit (pthis AS MyClass)
DIM obj AS MyClass
MyClassInit obj
MyClassSomeMethod obj
SUB MyClassInit (pthis AS MyClass)
pthis.Variable = 0
END SUB
SUB MyClassSomeMethod (pthis AS MyClass)
pthis.Variable = 1
END SUB