{
    Read the system command line.
    This MUST be the first read in the entire program
    RETURNS:
      length = 0 if buffer is empty
		ELSE the length of the line.
      line = operating system command line. **in uppercase**
}
PROCEDURE GCML( VAR line : MSTRING );
CONST	input = 0;{+++	 Pascal/Z  +++}
BEGIN
  IF NOT EOLN(input) THEN { read the system buffer }
    READLN(line)
  else
    setlength(line,0)
END; {of GCML}

BEGIN
  IF NOT EOLN(input) THEN { read the system buffer }
    R