1: program filetest(input, output, testfile); 2: var testfile : text; 3: begin 4: writeln('opening testfile'); 5: rewrite(testfile); 6: writeln(testfile, 'all done'); 7: end.
|
Last modified: 1984-04-01
Generated: 2016-12-26 |
Generated by src2html V0.67
page hit count: 1405 |
|