Click above to get retro games delivered to your door ever month!

 LST                       Predefined Standard File                   pp 105


 Define:  LST is the predefined text file for the LST: device.

 Purpose: Output only to the standard operating system list device,
          usually LPT1: with IBM and compatibles.

 Notes:   Use of Assign, Reset, ReWrite, and Close is illegal here.

          Characters are not interpreted by Turbo Pascal.



 Usage:
       CONST
          LQ      : Char = '1' ;       { Chr(49) for Okidata printers      }
          Draft   : Char = '0' ;       { Chr(48)                           }
       VAR
          StrVar  : String [8 ];       { Allow only 8 bytes of output      }
          Control : String [10];       { Declare printer control string    }
          Quality : Char       ;

       BEGIN
          WriteLn (LST,StrVar) ;       { Write to standard LST output file }
          WriteLn (StrVar)     ;       { Write to assumed CON file         }
          Quality := LQ        ;       { Assign LQ to quality mode         }
          Control := Chr(27) + Quality + Chr(13);
          Write   (LST,Control);       { Write control codes to printer    }
       END.