TYPE
        Error* = POINTER TO ErrorDesc;
        ErrorDesc* = RECORD
            initPtr: Error;
            errors*: BOOLEAN;
            filename: StringTypes.SimpleTypeString;
            rider: Files.Rider;
            file: Files.File;
            errnr: LONGINT;
        END;

-----
PROCEDURE (this: Error) Init*(filename: StringTypes.SimpleTypeString);

        VAR
            res: INTEGER;
    BEGIN
        this^.errnr := 0;
        this^.initPtr := this;
        this^.errors := FALSE;
        this^.filename := filename;
        IF Files.Old(this^.filename) # NIL THEN
            Files.Delete(this^.filename,res);
        END;
    END Init;
----
    PROCEDURE (this: Error) IsInit*();
    BEGIN
        RETURN (this^.initPtr = this);
    END IsInit;
----