1(* 2 * Copyright (c) 1980 The Regents of the University of California. 3 * All rights reserved. 4 * 5 * %sccs.include.redist.c% 6 * 7 * @(#)file.p 5.1 (Berkeley) 04/16/91 8 *) 9 10program filetest(input, output, testfile); 11var testfile : text; 12begin 13 writeln('opening testfile'); 14 rewrite(testfile); 15 writeln(testfile, 'all done'); 16end. 17