*--*  11/25/92  -  16:28:14  *--*




[39/39]
From   : Task Master
To: Viper
Subject: Re: TP6.0
Date   : 21 Nov 92  14:12:15
Thread : 38 <-

V> How would I send that to the printer?

    This is the way I do it...

program printit;

var
  p:text;

begin
  assign(p,'PRN');
  {$I-}
  writeln(p,'');
  {$I+}
  if ioresult=0 then
    begin
[WAITING]               writeln(p,'this is text that will be printed...');
      writeln(p,'and you can print all kinds of lines of text...');
      writeln(p,'just keep going and going...');
    end
  else
    begin
      writeln('Something is wrong with the printer.');
      writeln('Please make sure that the power is on and that it is 
               online.');
    end;
end.

    DOES THAT HELP?  Talk later...

--- Renegade v8-27 Beta
 * Origin: The Programmer's Coalition v.32bis (416)648-9951 (223:500/102)

[Pascal SIG #32]
[39/39] Reading Messages: 