{++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
{+							+}
{+	    COMMONLY USED DEFINITIONS			+}
{+							+}
{++++++++++++++++++++++++++++++++++++++++++++++++++++++++}


CONST
  BACKSPVAL = 8;
  DEFAULT   = 80 ;  { The default length such that all strings	 }
		    { do not have to be 255 chars in length	 }
  fid_length = 14;   {max file name length}
  line_len  = DEFAULT;
  maxargc   = 5;
  null	    = 0;
  space     = ' ';
  SMAX	    = 255;    { MAXIMUM ALLOWED STRING LENGTH }

TYPE
  ALFA	  = packed array [1..10] of char;
  BYTE	  = 0..255;
  int	  = INTEGER;
  DSTRING = STRING DEFAULT;
  MSTRING = STRING SMAX;{ Max string }
  fid	  = STRING FID_LENGTH;
  str1	  = STRING 1;
  S$0	= string  0 ;
  S$40	= string 40 ;
  S$79	= string 79 ;
  S$80	= string 80 ;
  S$255 = string SMAX ;{ Max string }


VAR
  argc : byte;
  argv : ARRAY [1..maxargc] OF DSTRING;

  infile,
  outfile,
  params : byte;

  ioresult,
  con_wanted,
  printer_wanted : boolean;

  STDIN,	{ standard input file  }
  STDOUT: TEXT; { standard output file }

  inbuf,	  { input buffer  }
  outbuf: MSTRING;{ output buffer }

  xeof, 	{ end of file flag }
  xeoln:BOOLEAN;{ end of line flag }


   {++++++++++++++++++++++++++++++++++++++++++}
   {+ COMPILER OPTIONS FOR PASCAL/Z COMPILER +}
   {++++++++++++++++++++++++++++++++++++++++++}
{$C-}{ * control-c checking OFF 		* }
{$F-}{ * floating point error checking OFF	* }
{$M-}{ * integer mult & divd error checking OFF * }


c che