Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!van-bc!resbbs!Russell_Mennie
From: Russell_Mennie@resbbs.UUCP (Russell Mennie)
Message-ID: <Russell_Mennie.3498@resbbs.UUCP>
Newsgroups: comp.lang.pascal
Subject: Help in Printer Status!
Distribution: world
Date: 26 Jun 91 05:30:20 PST
Organization: Resonance - British Columbia, Canada

Ok.. this way should work.. although, you'll have to know how to use
Interupts to do it...  but...

Your going to be accessing Interupt 17h ...  I'll give you the basics..

in pascal:


Uses
    Dos;
 
var
    R      :Registers
    Status :Byte;
 
Begin
    R.Ah:= $02;     { Specifies Function call }
    R.Dx:= 0;       { Printer port 0-3        }
    Intr($17,R);    { Perform Function call   }
    Status:= R.Ah;  { Status Returned in AH   }
        { -- Bits of variable Status are now:
          0 = time out
          1 = unused
          2 = unused
          3 = I/O error
          4 = selected
          5 = out of paper
          6 = acknowledge
          7 = not busy
          -- So you can tell if the printer is on
             or not by this..  This is simply the
             -Get Printer Status- function call..
        }