1C 2C Copyright (c) 1980 The Regents of the University of California. 3C All rights reserved. 4C 5C %sccs.include.proprietary.f% 6C 7C @(#)trunctst.f 5.2 (Berkeley) 04/12/91 8C 9 10 program trutst 11 integer ftell 12 external ftell 13 14 rewind 1 15 write(1,*) "This is line A." 16 write(1,*) "This is line B." 17 write(1,*) "This is line C." 18 write(1,*) "This is line D." 19 backspace 1 20 endfile 1 21 call system ("cat fort.1") 22 write(*,*) "---" 23 rewind 1 24 write(1,*) "This is line E." 25 write(1,*) "This is line F." 26 close(1) 27 call system ("cat fort.1") 28 end 29