Return to file.p CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / pascal / pdx / test

Initial revision

program filetest(input, output, testfile);
var testfile : text;
begin
    writeln('opening testfile');
    rewrite(testfile);
    writeln(testfile, 'all done');
end.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.