C     FROM CTSDR.COM
C     SECTION CTSDIR:
      COMMON/SCRTCH/DSNO,SECURE,FREC,LREC,FPNT,BPNT
      INTEGER       DSNO,SECURE,FREC,LREC,FPNT,BPNT
C
      REAL TDREC(6)
      INTEGER   TDRECI(6)
      EQUIVALENCE (DSNO,TDREC(1)),(DSNO,TDRECI(1))
C    END: BYTE 88

