20 lines
406 B
Plaintext
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
|