(* Oberon-2 *)
 
TYPE Class = RECORD field1: INTEGER; field2: CHAR; (*...*) END;
 
PROCEDURE (VAR this: Class) Method (arg1, arg2: INTEGER (*; ... *) );
 
VAR Object: Class;
 
BEGIN Object.Method(arg1, arg2 (*, ... *) );
 
(* Oberon-1 *)
 
PROCEDURE Method (VAR this: Class; arg1, arg2: INTEGER (*; ... *) );
 
BEGIN Method(Object, arg1, arg2 (*, ... *) );

typedef
	struct Class {
		int field1;
		char field2;
	} Class;
 
Class Object;
 
void Method (Class *this, int arg1, int arg2)
{
}
 
// Вызов метода:
Method(&Object, arg1, arg2);