SUBROUTINE DBGET(POS,DATA,ECODE)
      PARAMETER (IPW=64)
      IMPLICIT INTEGER*4 (A-Z)
C
C     READ DATA AT RECORD POS.
C     (MACHINE DEPENDENT ROUTINE).
C     WATCOM version -- Lahey "record 0" makes all the
C     physical records offset by 1
C
      INTEGER*2 ECODE
      DIMENSION DATA(IPW)
      COMMON /FILINF/ PUNIT
      COMMON /IOCOM/ NOTIO,OUNIT
C
      POS1 = POS+1
      READ(PUNIT,REC=POS1,ERR=900) DATA
      ECODE = 0
      RETURN
C
C....HANDLE ERRORS
C
900   CONTINUE
      WRITE(OUNIT,901) POS
901   FORMAT(' DATABANK READ ERROR AT RECORD:',I12)
      ECODE=1
      RETURN
C
      ENTRY DBPUT(POS,DATA,ECODE)
C
C     WRITE INDX AND DATA AT RECORD POS.
C     (MACHINE DEPENDENT ROUTINE).
C
      POS1 = POS+1
      WRITE(PUNIT,REC=POS1,ERR=950) DATA
      ECODE = 0
      RETURN
C
C....HANDLE ERRORS
C
950   CONTINUE
      WRITE(OUNIT,951) POS
951   FORMAT(' DATABANK WRITE ERROR AT RECORD:',I12)
      ECODE=1
      RETURN
      END