(* Global data and routines *)

CONST
   maxstring  = 80;
   maxstringm = maxstring - 1;

TYPE
   string = ARRAY [0..maxstringm] OF CHAR;

VAR
   warncount : INTEGER;   (* used to determine exit status *)

PROCEDURE exit (status : integer);        EXTERNAL;
(* SYSDEP: 0 = success, 1 = error, 2 = warning *)