20 lines
450 B
Plaintext
20 lines
450 B
Plaintext
BEGIN
|
|
CLASS MyClass(instanceVariable);
|
|
INTEGER instanceVariable;
|
|
BEGIN
|
|
PROCEDURE doMyMethod(n);
|
|
INTEGER n;
|
|
BEGIN
|
|
Outint(instanceVariable, 5);
|
|
Outtext(" + ");
|
|
Outint(n, 5);
|
|
Outtext(" = ");
|
|
Outint(instanceVariable + n, 5);
|
|
Outimage
|
|
END;
|
|
END;
|
|
REF(MyClass) myObject;
|
|
myObject :- NEW MyClass(5);
|
|
myObject.doMyMethod(2)
|
|
END
|