C
      BYTE REC_BUF(0:511)
      INTEGER*4 CUR_VBN,
     +		CUR_VA,
     +		INP_FIL_SIZ, CURR_ADR
C
      COMMON/DSK_IO/INP_FIL_SIZ
      COMMON/DSK_BUF/CUR_VBN,REC_BUF,CUR_VA
      COMMON/OUT_LIN/CURR_ADR
C