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