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