13 lines
203 B
Plaintext
13 lines
203 B
Plaintext
|
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;}
|