{ this is the file DIRTYP.PAS which contains type definitions for 
   the directory scanning routines }



     uword16 = 0..maxint;

     segareatype = packed array [1..seglength] of uword16;

     dirsegtype = record
                    totalsegs: uword16;
                    nextsegno: uword16;         { 0 if no more }
                    highestseg: uword16;        { only valid first seg }
                    extrabytes: uword16;
                    blockstart: uword16;
                    segarea: segareatype;
                    end;                       { of record defs }
 
     radfname = packed array [1..rnamelen] of uword16;

     basicentry = record
                   status: uword16;
                   radname: radfname;
                   filelength: uword16;
                   tentword: uword16;
                   created: uword16;
                   end;               { of record definition }

     rtblock = packed array [1..blocklength] of uword16;

     rtdevice = file of rtblock;

     threechars = packed array [1..3] of char;

     nametype = packed array [1..namelength] of char;

     exttype = packed array [1..extlength] of char;