systems/knuth/local/mf/ext.h


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

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 writegf(a,b:integer);
    external;

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

function makefraction(p,q:integer):fraction;
    external;

function takefraction(q:integer;f:fraction):integer;
    external;