%FOREIGN

DEFINITION MODULE SystemConstants;

(* Author:         Niel Kempson
   Implementation: Logitech v3.5 Modula 2 compiler under VAX/VMS v4.6
   Date Started:   July 1988

   Description:
   Provide some useful system constants, since the built in function MAX is
   not available under this system.

   Revised:
*)

  EXPORT QUALIFIED
         	MaxInteger, MinInteger,
         	MaxCardinal, MinCardinal;

  CONST
    	MaxInteger = 7FFFFFFFH;
    	MinInteger = -MaxInteger - 1;
    	MaxCardinal = 0FFFFFFFFH;
    	MinCardinal = 0H;

END SystemConstants.
