22 lines
484 B
ObjectPascal
22 lines
484 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.
|