MODULE ОпечаткаПриНаследовании; 

IMPORT KernelLog;

TYPE Родитель = OBJECT
  PROCEDURE Печатай;
  BEGIN
    KernelLog.String("Родитель"); KernelLog.Ln
  END Печатай
END Родитель;
 
TYPE Дитя* = OBJECT (Родитель)
  PROCEDURE Печатаи*;
  BEGIN
    KernelLog.String("Дитя"); KernelLog.Ln
  END Печатаи
END Дитя;
 
VAR р : Родитель; д : Дитя;

PROCEDURE Жми*;
BEGIN
  NEW(д); р := д; р.Печатай
END Жми

END ОпечаткаПриНаследовании.Жми ~

IF Peek( Scanner.And ) THEN  (* constructor *)
   NextToken;
   isConstructor := TRUE
ELSIF Optional( Scanner.Not ) THEN  (* finalizer *)
   isFinalizer := TRUE
ELSIF Optional( Scanner.Minus ) THEN  (* inline *)
   isInline := TRUE;
ELSIF Optional( Scanner.LeftBrace) THEN
   modifiers := Flags();
   IF Optional( Scanner.Minus ) THEN  (* inline *)
      isInline := TRUE
   END;
END;