M2compiler-V3/compiler/tests/t_classdef.def

DEFINITION MODULE TClassDef;
TYPE
  CLASS Shape;
    x, y : INTEGER;
    kind : INTEGER;
    VIRTUAL PROCEDURE Draw;
    PROCEDURE Move(dx, dy : INTEGER);
    PROCEDURE Area() : INTEGER;
  END Shape;
END TClassDef.