Printer Routine??

 BBS: Inland Empire Archive
Date: 01-11-93 (22:33)             Number: 395
From: RON SHARRAD                  Refer#: NONE
  To: BRIAN RUTH                    Recvd: NO  
Subj: Printer Routine??              Conf: (2) Quik_Bas

On 01-03-93  16:34, Brian Ruth wrote to All about Printer Routine??...

 BR> Does anyone have a printer routine that will tell if the printer is
 BR> out of  paper, off line, not on, etc??

SUB CheckPRN
'   *   Makes sure that line printer is ready   *
    DEF SEG = &H40
    PrnOK% = 0
    PrnPrt& = PEEK(9) * &H100 + PEEK(8) + 1
    DO
        LOCATE 24, 12
        SELECT CASE INP(PrnPrt&)
            CASE 71
                PRINT "     Printer is OFFLINE!         ";
            CASE 103
                PRINT "     Printer is OUT OF PAPER!    ";
            CASE 135
                PRINT "     Printer is NOT SWITCHED ON! ";
            CASE 223, 222
                PRINT "     Printer is READY!           ";
                PrnOK% = -1
            CASE ELSE
        END SELECT
    LOOP UNTIL PrnOK%
    DEF SEG
END SUB

    Good Luck!...
    <:-) Ron Sharrad (-:>
       *=-----------=*

___ Blue Wave/QWK v2.12


--- Maximus 2.01wb
 * Origin: Biz-Nice! S.Oz Business BBS! 4 Lines 08-269 7029/7809 (3:800/851)