19 lines
406 B
Text
19 lines
406 B
Text
DECLARE SUB MyClassDelete (pthis AS MyClass)
|
|
DECLARE SUB MyClassSomeMethod (pthis AS MyClass)
|
|
DECLARE SUB MyClassInit (pthis AS MyClass)
|
|
|
|
TYPE MyClass
|
|
Variable AS INTEGER
|
|
END TYPE
|
|
|
|
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
|