.sp 1
.lt
   tokentype        = PACKED ARRAY [1..100] OF CHAR;
   stringptrtype    = ^tokentype ;
   TPARSEBLOCKTYPE  =  RECORD
            BLOCKLENGTH        :  [LONG, pos(0) ]   INTEGER ; 
            BLANKS             :  [BIT,  pos(32)]   BOOLEAN ;
            ABBREV             :  [BIT,  pos(33)]   BOOLEAN ;
            ABBRFM             :  [BIT,  pos(34)]   BOOLEAN ;
            AMBIG              :  [BIT,  pos(48)]   BOOLEAN ;
            MCOUNT             :  [BYTE, pos(56)]   1..255  ;
            STRINGCNT          :  [LONG, POS(64)]   INTEGER ;
            STRINGPTR          :  [LONG, POS(96),VOLATILE,UNSAFE] UNSIGNED;
            TOKENCNT           :  [LONG, POS(128)]  INTEGER ;
            TOKENPTR           :  [LONG, POS(160)]  stringptrtype ;
            CHAR               :  [BYTE, POS(192)]  1..255  ;
            NUMBER             :  [LONG, POS(224)]  INTEGER ; 
            PARAM              :  [LONG, POS(256)]  INTEGER ;
        END      ;

.el
.sp 1