mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-16 06:42:37 +02:00
24 lines
450 B
ObjectPascal
24 lines
450 B
ObjectPascal
program testprn;
|
|
|
|
uses printer;
|
|
|
|
var i : integer;
|
|
f : text;
|
|
|
|
begin
|
|
writeln ('Test of printer unit');
|
|
writeln ('Writing to lst...');
|
|
for i:=1 to 80 do writeln (lst,'This is line ',i,'.'#13);
|
|
close (lst);
|
|
writeln ('Done.');
|
|
{$ifdef Unix}
|
|
writeln ('Writing to pipe...');
|
|
assignlst (f,'|/usr/bin/lpr -m');
|
|
rewrite (f);
|
|
for i:=1 to 80 do writeln (f,'This is line ',i,'.'#13);
|
|
close (f);
|
|
writeln ('Done.')
|
|
{$endif}
|
|
end.
|
|
|