Jednotka Printer

Chceme-li tisknout.

Dnes to bude poněkud kratší. Však uvidíte sami.
Tato jednotka definuje výstupní soubor Lst a provede jeho inicializaci. Jakýkoliv zápis do tohoto souboru znamená tisk. Bohužel Pascal zvládá jen LPT tiskárny.

DCV: Vyzkoušejte si tento program (nevíte-li, co dělá).

  program Tisk;
  uses Printer;
  var I:Integer;
  begin
   for I:=1 to MaxInt do
    Writeln(Lst,'To je ale papíru');
  end.

Zdroj: http://programar.webpark.cz