|
|
1.1 ! root 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.
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.