Procedure AssignLst ( Var F : text; ToFile : string[255]) ;
LINUX only.
Assigns to F a printing device. ToFile is a string with the following form:
Errors are reported in Linuxerror.
lpr (1)
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 linux}
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.