15 lines
246 B
Text
15 lines
246 B
Text
|
program Project1;
|
||
|
|
|
||
|
|
{$APPTYPE CONSOLE}
|
||
|
|
|
||
|
|
uses Printers;
|
||
|
|
|
||
|
|
var
|
||
|
|
lPrinterAsTextFile: TextFile;
|
||
|
|
begin
|
||
|
|
AssignPrn(lPrinterAsTextFile);
|
||
|
|
Rewrite(lPrinterAsTextFile);
|
||
|
|
Writeln(lPrinterAsTextFile, 'Hello World!');
|
||
|
|
CloseFile(lPrinterAsTextFile);
|
||
|
|
end.
|