4.3BSD - /usr/src/usr.lib/libU77/test/seektst.f

   1:         character*20 word1, word2
   2:         integer ftell, fseek
   3:         open(1, file="/usr/dict/words")
   4:         iend = ftell(1)
   5:         iseek1 = fseek(1, iend/2, 0)
   6:         read(1,'(a)') word1
   7:         iword = ftell(1)
   8:         read(1,'(a)') word1
   9:         rewind 1
  10:         ibeg = ftell(1)
  11:         iseek2 = fseek(1, iword, 0)
  12:         read(1,'(a)') word2
  13:         write(*,*) ibeg, iword, ftell(1), iend
  14:         write(*,*) word1(:lnblnk(word1)), word2(:lnblnk(word2))
  15:         write(*,*) "seek status", iseek1, iseek2, fseek(1, -1, 0)
  16:         end