*COMDECK FDRDT1 
          CONTROL EJECT;
          COMMON FDRDTCOMM; 
  # #     BASED ARRAY FDRDT[0:0]  S(1); 
  # #       BEGIN 
  # #       ITEM FR$ENTRY         U(0, 0,60); 
  # #       ITEM FR$FILENAME      U(0, 0,15); 
  # #       ITEM FR$REPTNAME      U(0,15,15); 
  # #       ITEM FR$FNATPTR       U(0,30,15); 
  # #       ITEM FR$FILEMSEC      U(0,45,12); 
  # #       ITEM FR$CHECKBIT      U(0,57, 1); 
  # #       ITEM FR$CODEBIT       U(0,58, 1); 
  # #       ITEM FR$FILEERR       U(0,59, 1); 
  # #       END 
