{ Computer Systems Research Group
  University of Toronto

  File:   IO1 ConEuc Standard IO Level 1  V1.04
  Author: James R. Cordy
  Date:   31 March 1980	(Revised 18 June 1981)			}

{ Copyright (C) 1980, The University of Toronto }

{ Global character constants }
pervasive const newLine := $$N;
pervasive const endOfFile := $$E;

{ String length limit }
pervasive const maxStringLength := 128;

var IO:
    external module
	exports (PutChar, PutInt, PutString, PutLong,
		GetChar, GetInt, GetString, GetLong);
	procedure PutChar (c: Char) = external;
	procedure PutInt (i: SignedInt, w: SignedInt) = external;
	procedure PutString (s: packed array 1..parameter of Char) = external;
	procedure PutLong (l: LongInt, w: SignedInt) = external;
	procedure GetChar (var c: Char) = external;
	procedure GetInt (var i: SignedInt) = external;
	procedure GetString (var s: packed array 1..parameter of Char) = external;
	procedure GetLong (var l: LongInt) = external;
    end module;
