DECLARE INTEGER OpenPrinter IN winspool.drv; STRING @lpname, INTEGER @hPrinter, STRING @pDevMode DECLARE INTEGER DeletePrinter IN winspool.drv; INTEGER hPrinter DECLARE INTEGER ClosePrinter IN winspool.drv; INTEGER hPrinter lcname = "LPT1:" lnhandle = 0 IF OpenPrinter(@lcname, @lnhandle, 0) # 0 = DeletePrinter(lnhandle) = ClosePrinter(lnhandle) ELSE ? "Can't open printer!" ENDIF