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 incnull12function inc(x : integer) : integer; external; 13 decnull14function dec(x : integer) : integer; external; 15 absnull16function abs(x : real) : real; external; 17 arctannull18function arctan(x : real) : real; external; 19 bitsizenull20function bitsize(x : integer) : integer; external; 21 sizenull22function size(x : integer) : integer; external; 23 chrnull24function chr(x : integer) : char; external; 25 cosnull26function cos(x : real) : real; external; 27 eofnull28function eof(f : text) : boolean; external; 29 eolnnull30function eoln(f : text) : boolean; external; 31 expnull32function exp(x : real) : real; external; 33 ioerrornull34function ioerror(f : text) : boolean; external; 35 iostatusnull36function iostatus(f : text) : integer; external; 37 lnnull38function ln(x : real) : real; external; 39 oddnull40function odd(x : integer) : boolean; external; 41 ordnull42function ord(c : char) : integer; external; 43 prednull44function pred(x : integer) : integer; external; 45 refnull46function ref(x : integer) : ^integer; external; 47 roundnull48function round(x : real) : integer; external; 49 sinnull50function sin(x : real) : real; external; 51 sqrnull52function sqr(x : real) : real; external; 53 sqrtnull54function sqrt(x : real) : real; external; 55 succnull56function succ(x : integer) : integer; external; 57 timenull58function time : real; external; 59 60 procedure timestamp(var day, month, year, hour, min, sec : integer); external; 61 truncnull62function 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