  DIRPtr = ^DIRRec;
  DIRRec = RECORD
             FileName  : String15;
             Attrib    : Byte;
             FileSize  : LongInt;
             TimeStamp : TimeRec;
             DateStamp : DateRec;
             Prior     : DIRPtr;
             Next      : DIRPtr;
           END;
