mirror of
https://git.sr.ht/~rabbits/macintosh_cookbook
synced 2024-12-27 10:29:25 +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. |