procedure exit(x : integer);

procedure exit(x : integer);
external;

procedure closea(var f:text);
external;

procedure closeb(var f:bytefile);
external;

procedure closew(var f:wordfile);
external;

procedure dateandtime(var minutes, day, month, year : integer);
external;

procedure setpaths;
external;

function testaccess(accessmode:integer; filepath:integer): boolean;
external;

function testeof(var f: text): boolean;
external;

procedure lineread(var f: text; lastlim: integer);
external;

procedure writedvi(a,b:integer);
external;

procedure calledit(var filename: packedASCIIcode; fnlength, linenumber: integer);
external;