unit system;
interface
type
	str255 = string[255];

function max(a, b : integer) : integer;
function min(a, b : integer) : integer;
function bitshift(a, b : integer) : integer;
function random(a : integer) : integer;
function upcase(ch : char) : char;
function copy(st : str255; from, to_ : integer) : str255;
function cpos(ch : char; st : str255) : integer;
function pos(st1, st2 : str255) : integer;
function inttostr(n : integer) : str255;
function paramcount : integer;
function paramstr(n : integer) : str255;
function eof(f : text) : boolean;
function ln(x : real) : real;
function sqrt(x : real) : real;
function round(x : real) : integer;
function trunc(x : real) : integer;
function ioresult : integer;

procedure assign(f : text; name : str255);
procedure halt(n : integer);
procedure str(n : integer; str : str255);
procedure randomize;
procedure getdate(var year, month, day, dayofweek: integer);
procedure gettime(var hour, min, sec, sec100: integer);

implementation
end.
