<<>> <> <> <> <> XMesaProcs: DEFINITIONS = BEGIN <> PrintCR: PUBLIC PROCEDURE; PrintS: PROCEDURE [s: LONG STRING]; PrintD: PROCEDURE [i: INT]; Checkforpos: PROCEDURE [ var1: CHAR, testnum: LONG CARDINAL, testname: LONG STRING]; Isequal: PROCEDURE [ var1: INTEGER, var2: INTEGER, testnum: LONG CARDINAL, testname: LONG STRING]; IsLongCardEqual: PROCEDURE [ var1, var2: LONG CARDINAL, testnum: LONG CARDINAL, testname: LONG STRING]; IsCardequal: PROCEDURE [ var1: CARDINAL, var2: CARDINAL, testnum: LONG CARDINAL, testname: LONG STRING]; Isnotequal: PROCEDURE [ var1: INTEGER, var2: INTEGER, testnum: LONG CARDINAL, testname: LONG STRING]; Isboolequal: PROCEDURE [ var1, var2: BOOLEAN, testnum: LONG CARDINAL, testname: LONG STRING]; Ischarequal: PROCEDURE [ var1, var2: CHAR, testnum: LONG CARDINAL, testname: LONG STRING]; Islongequal: PROC [ var1, var2: LONG INTEGER, testnum: LONG CARDINAL, testname: LONG STRING]; Isrealequal: PROC [ var1, var2: REAL, testnum: LONG CARDINAL, testname: LONG STRING]; Ispointerequal: PROC [ var1, var2: LONG POINTER TO UNSPECIFIED, testnum: LONG CARDINAL, testname: LONG STRING]; Isnotptrequal: PROC [ var1, var2: LONG POINTER TO UNSPECIFIED, testnum: LONG CARDINAL, testname: LONG STRING]; Isnotboolequal: PROC [ var1, var2: BOOLEAN, testnum: LONG CARDINAL, testname: LONG STRING]; Isnotcharequal: PROC [ var1, var2: CHAR, testnum: LONG CARDINAL, testname: LONG STRING]; PutFailMessage: PROC [x: LONG CARDINAL, modname: LONG STRING]; PutPassMessage: PROC [x: LONG CARDINAL, modname: LONG STRING]; GetSystemUZone: PROCEDURE RETURNS [UNCOUNTED ZONE]; END..