Příklady - Test tiskárny

   while _LPEnable = 0 do endwhile
   LPOpen(True)
   LPDown
   LPrintLn("Test tiskarny")
   if _MSGBox(3, "Mohu tisknout ?", 1) = cmYes then
     LPMake(1)
   else
     LPClose
   endif