Program using_Printer;
Uses Printer;
var
   str:string[80];
   Lt:Text;
begin
Assign(Lt,'LPT1');
Rewrite(Lt);
 Repeat
   begin
    Write('PRN:');
    Readln(str);
    Writeln(Lt,str);
   end;
 until str='';
 writeln('Всё...');
Close(LT);
end.

Назад