const
MaxRLen = 32;

type
{irec stores an individual record.}
irec = record
	  Addr	   : Integer;
	  Data	   : array[1...MaxRLen] of Byte;
	  MaxCount :  Byte;

{procedure RdDumpLn;}
{procedure wrirec;}