1*47949SbosticC 2*47949SbosticC Copyright (c) 1980 The Regents of the University of California. 3*47949SbosticC All rights reserved. 4*47949SbosticC 5*47949SbosticC %sccs.include.proprietary.f% 6*47949SbosticC 7*47949SbosticC @(#)trunctst.f 5.2 (Berkeley) 04/12/91 8*47949SbosticC 9*47949Sbostic 1043978Sbostic program trutst 1143978Sbostic integer ftell 1243978Sbostic external ftell 1343978Sbostic 1443978Sbostic rewind 1 1543978Sbostic write(1,*) "This is line A." 1643978Sbostic write(1,*) "This is line B." 1743978Sbostic write(1,*) "This is line C." 1843978Sbostic write(1,*) "This is line D." 1943978Sbostic backspace 1 2043978Sbostic endfile 1 2143978Sbostic call system ("cat fort.1") 2243978Sbostic write(*,*) "---" 2343978Sbostic rewind 1 2443978Sbostic write(1,*) "This is line E." 2543978Sbostic write(1,*) "This is line F." 2643978Sbostic close(1) 2743978Sbostic call system ("cat fort.1") 2843978Sbostic end 29