Return to seektst.f CVS log

Up to [CSRG BSD Unix] / 42BSD / usr.lib / libU77 / test

Annotation of 42BSD/usr.lib/libU77/test/seektst.f, revision 1.1

1.1     ! root        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

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.