MODULE Test; TYPE File* = POINTER TO Handle; Handle = RECORD END; Rider* = RECORD eof* : BOOLEAN; res* : LONGINT; END; PROCEDURE Old*(name : ARRAY OF CHAR) : File; BEGIN RETURN NIL END Old; PROCEDURE New*(name : ARRAY OF CHAR) : File; BEGIN RETURN NIL END New; END Test.