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;}