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??

'   *   Makes sure that line printer is ready   *
    DEF SEG = &H40
    PrnOK% = 0
    PrnPrt& = PEEK(9) * &H100 + PEEK(8) + 1
        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

    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)
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET