8#W8 ...[??? IDFWRITE SECT COMM FGN 25 DOC  
 8*62    [THIS MACRO WRITES ALL EXISTING  FILE/FRRB BLOCKS INTO THE IDF,USING
 8*KL    [THEIR RECORD   NUMBERS TO CALCULATE THEIR POSITIONS 9N THE FILE.THE
 8B5=    [FILE READ BLOCKS ARE  ALL FREED BEFORE  EXIT.  
 8BJW    #MAC  IDFWRITE  
 8C4G    M90   HUNT     2,FILE,FRRB         [LOCATE READ BLOCK   
 8CJ6          BNG   2  M99                 [NO MORE READ BLOCKS,JUMP
 8D3Q          NAME     2,FILE,FRWB         [RENAME BLOCK FOR WRITING
 8DHB          ADN   2  A1   
 8F32          LDX   2  BRECNO(2)           [RECORD NO   
 8FGL          ADN   2  1
 8G2=          WRITED   2,4  
 8GFW          BRN      M90  
 8G^G    M99   LDX   2  FX2                 [RELOADX2 WITH FX2   
 8HF6    #NOR