blob: f72a2f1af98d2b1da3e63b914fc571d0e33ff524 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
Program Example1;
uses Crt;
{ Program to demonstrate the AssignCrt function. }
var
F : Text;
begin
AssignCrt(F);
Rewrite(F); { Don't forget to open for output! }
WriteLn(F,'This is written to the Assigned File');
Close(F);
end.
|
