Příklady - Tiskový kanál

   while _LPEnable = 0 do endwhile
   LPChannel(Lpt2)
   MaxLine := _LPLines
   LPDriver("LQ500_D.DRV")
   LPOpen(False)
   ...
   ...
   LPMake(1)