9
writeln ('Test of printer unit');
10
writeln ('Writing to lst...');
11
for i:=1 to 80 do writeln (lst,'This is line ',i,'.'#13);
15
writeln ('Writing to pipe...');
16
assignlst (f,'|/usr/bin/lpr -m');
18
for i:=1 to 80 do writeln (f,'This is line ',i,'.'#13);