Код
writeln(<Принтер>, 'Текст');
Вместо <Принтер> нужно писать lst, или lpt, сейчас не помню. Но, в общем, это и вся доступная информация. Если кто знает что-нибудь по этому поводу, ответьте, пожалуйста. Заранее спасибо.
Unit Printer;
Interface
Var Lst: Text;
Implementation
Begin
Assign(Lst, 'LPT1');
Rewrite(Lst);
END.
WriteLn(Lst, 'Welcome!');