mirror of
https://git.sr.ht/~rabbits/macintosh_cookbook
synced 2024-12-28 01:29:49 +00:00
19 lines
242 B
ObjectPascal
19 lines
242 B
ObjectPascal
|
program ExampleFile;
|
||
|
|
|
||
|
|
const
|
||
|
|
FILENAME = 'data.txt';
|
||
|
|
|
||
|
|
var
|
||
|
|
outfile: Text;
|
||
|
|
|
||
|
|
begin
|
||
|
|
|
||
|
|
ShowText;
|
||
|
|
|
||
|
|
ReWrite(outfile, FILENAME);
|
||
|
|
Writeln(outfile, 'hello world');
|
||
|
|
Writeln(outfile, 'foo bar');
|
||
|
|
|
||
|
|
Writeln('Writing ', FILENAME, ' complete.');
|
||
|
|
|
||
|
|
end.
|