home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a011 / 2.ddi / SAMPLE.FOR < prev    next >
Encoding:
Text File  |  1986-06-09  |  506 b   |  17 lines
  1.       PROGRAM TESTIT
  2.       CHARACTER POSITN(128)*1
  3.       CHARACTER DATA(300)*1,KEYBUF*25
  4.       ISTAT = ITRV(0,POSITN,DATA,IDLEN,'DATA',0)
  5.       WRITE(*,*)'ISTAT = ',ISTAT
  6.   100 CONTINUE
  7.       WRITE(*,*)'ENTER DATA'
  8.       READ(*,*)IOP,KEY,KEYBUF
  9.       IDLEN = 300
  10.       ISTAT = ITRV(IOP,POSITN,DATA,IDLEN,KEYBUF,KEY)
  11.       WRITE(*,*)'ISTAT=',ISTAT
  12.       WRITE(*,*)'IDLEN=',IDLEN
  13.       WRITE(*,*)(DATA(I),I=1,IDLEN)
  14.       GO TO 100
  15.       ISTAT = ITRV(1,POSITN,DATA,IDLEN,KEYBUF,0)
  16.       END
  17.