1C 2C Copyright (c) 1980 The Regents of the University of California. 3C All rights reserved. 4C 5C %sccs.include.proprietary.f% 6C 7C @(#)seektst.f 5.2 (Berkeley) 04/12/91 8C 9 10 character*20 word1, word2 11 integer ftell, fseek 12 open(1, file="/usr/dict/words") 13 iend = ftell(1) 14 iseek1 = fseek(1, iend/2, 0) 15 read(1,'(a)') word1 16 iword = ftell(1) 17 read(1,'(a)') word1 18 rewind 1 19 ibeg = ftell(1) 20 iseek2 = fseek(1, iword, 0) 21 read(1,'(a)') word2 22 write(*,*) ibeg, iword, ftell(1), iend 23 write(*,*) word1(:lnblnk(word1)), word2(:lnblnk(word2)) 24 write(*,*) "seek status", iseek1, iseek2, fseek(1, -1, 0) 25 end 26