Path: utzoo!utgpu!jarvis.csri.toronto.edu!clyde.concordia.ca!uunet!cs.dal.ca!dal1!rb
From: rb@ac.dal.ca
Newsgroups: comp.lang.pascal
Subject: Re: Printer status in TP
Summary: How to discover Printer Status in TP
Keywords: TP, printer
Message-ID: <1115@ac.dal.ca>
Date: 16 Jan 90 10:56:54 GMT
References: <50540@bu.edu.bu.edu>
Distribution: na
Lines: 33
Organisation: Dalhousie University, Halifax, Nova Scotia, Canada

In article <50540@bu.edu.bu.edu>, tasos@cs.bu.edu (Anastasios Kotsikonas) writes:
> 
> I was wondering how I could get the printer status (on/off atc.) from within
> TP. I would appreciate any help on this and I thank the repliers in advance.
> 
> Tasos
> 
> Internet: tasos@cs.bu.edu

The following function works for me : 

function printer_online : boolean;                 
  var                                              
    regs : registers;                              
  begin                                            
    with regs do                                   
      begin                                        
        al := $00;                                 
        ah := $02;                                 
        dx := $0000;                               
      end;                                         
    intr ($17,regs); { equipment status interrupt }
    if regs.ah = $90 then                          
      printer_online := true                       
    else                                           
      printer_online := false;                     
  end;                                             

This was written using TP4. The predefined registers type is in the DOS unit.

                             Rick Ballard
                             Dalhousie University
                             Halifax, Nova Scotia