148077Sbostic(* 2*62156Sbostic * Copyright (c) 1980, 1993 3*62156Sbostic * The Regents of the University of California. All rights reserved. 448077Sbostic * 548077Sbostic * %sccs.include.redist.c% 648077Sbostic * 7*62156Sbostic * @(#)file.p 8.1 (Berkeley) 06/06/93 848077Sbostic *) 948077Sbostic 1048077Sbosticprogram filetest(input, output, testfile); 1148077Sbosticvar testfile : text; 1248077Sbosticbegin 1348077Sbostic writeln('opening testfile'); 1448077Sbostic rewrite(testfile); 1548077Sbostic writeln(testfile, 'all done'); 1648077Sbosticend. 17