1 const
2    maxint = 2147483647;
3 
4 type
5    word	    = 0..65535;
6    byte	    = -128..127;
7 
8 var
9    input  : text;
10    output : text;
11 
incnull12 function inc(x :  integer) : integer; external;
13 
decnull14 function dec(x :  integer) : integer; external;
15 
absnull16 function abs(x : real) : real; external;
17 
arctannull18 function arctan(x : real) : real; external;
19 
bitsizenull20 function bitsize(x : integer) : integer; external;
21 
sizenull22 function size(x : integer) : integer; external;
23 
chrnull24 function chr(x : integer) : char; external;
25 
cosnull26 function cos(x : real) : real; external;
27 
eofnull28 function eof(f : text) : boolean; external;
29 
eolnnull30 function eoln(f : text) : boolean; external;
31 
expnull32 function exp(x :  real) : real; external;
33 
ioerrornull34 function ioerror(f : text) : boolean; external;
35 
iostatusnull36 function iostatus(f : text) : integer; external;
37 
lnnull38 function ln(x : real) : real; external;
39 
oddnull40 function odd(x : integer) : boolean; external;
41 
ordnull42 function ord(c : char) : integer; external;
43 
prednull44 function pred(x : integer) : integer; external;
45 
refnull46 function ref(x : integer) : ^integer; external;
47 
roundnull48 function round(x : real) : integer; external;
49 
sinnull50 function sin(x : real) : real; external;
51 
sqrnull52 function sqr(x : real) : real; external;
53 
sqrtnull54 function sqrt(x : real) : real; external;
55 
succnull56 function succ(x : integer) : integer; external;
57 
timenull58 function time : real; external;
59 
60 procedure timestamp(var day, month, year, hour, min, sec : integer); external;
61 
truncnull62 function  trunc(x : real) : integer; external;
63 
64 
65 procedure break(x : text); external;
66 
67 procedure close(x : text); external;
68 
69 procedure delete(x : text); external;
70 
71 procedure get(x : text); external;
72 
73 procedure noioerror; external;
74 
75 procedure pack(a : array [l..h:integer] of integer; i : integer;
76 	       z : integer);
77 external;
78 
79 procedure unpack(z : integer;
80 	         var a : array [l..h:integer] of integer; i : integer);
81 external;
82 
83 procedure page(f : text); external;
84 
85 procedure put(x : text); external;
86 
87 procedure assign(f : text; name : zero_terminated_string );
88 external;
89 
90 procedure rename(f : text; name : zero_terminated_string );
91 external;
92 
93 procedure open(f : text; name, history : zero_terminated_string;
94 	       var error_code : integer );
95 external;
96 
97 procedure reset(f : text; name, options : zero_terminated_string;
98 		var error_code : integer );
99 external;
100 
101 procedure rewrite(f: text; name, options: zero_terminated_string;
102 		  var error_code : integer);
103 external;
104 
105 procedure seek(s : text; offset : integer);
106 external;
107 
108