1 unit printer;
2 interface
3 var
4     LST : text;
5 implementation
6 begin
7    assign(LST, 'prn');
8    rewrite(LST);
9 end.
10