blob: cd75a50bc313e8fe64b96cbee32285c55f6158df (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
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.
|
