1(* 2 * Copyright (c) 1980, 1993 3 * The Regents of the University of California. All rights reserved. 4 * 5 * %sccs.include.redist.c% 6 * 7 * @(#)file.p 8.1 (Berkeley) 06/06/93 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