blob: b2e49f4b7ccb9a5ae553f2f3e0e14414b1902cf8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
(* 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 *)
|