      PROGRAM TESTIT
      CHARACTER POSITN(128)*1
      CHARACTER DATA(300)*1,KEYBUF*25
      ISTAT = ITRV(0,POSITN,DATA,IDLEN,'DATA',0)
      WRITE(*,*)'ISTAT = ',ISTAT
  100 CONTINUE
      WRITE(*,*)'ENTER DATA'
      READ(*,*)IOP,KEY,KEYBUF
      IDLEN = 300
      ISTAT = ITRV(IOP,POSITN,DATA,IDLEN,KEYBUF,KEY)
      WRITE(*,*)'ISTAT=',ISTAT
      WRITE(*,*)'IDLEN=',IDLEN
      WRITE(*,*)(DATA(I),I=1,IDLEN)
      GO TO 100
      ISTAT = ITRV(1,POSITN,DATA,IDLEN,KEYBUF,0)
      END
