home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / general / checkforprinter.amos / checkforprinter.amosSourceCode
Encoding:
AMOS Source Code  |  1993-01-08  |  263 b   |  9 lines
  1. CHKPRINTER
  2. Procedure CHKPRINTER
  3. H=Peek($BFD000)
  4. H$=Hex$(H)
  5. If H$="$FF" or(H$="$FB") Then Print "Paper is out"
  6. If H$="$FC" Then Print "Printer is on line"
  7. If H$="$FD" or(H$="$F9") Then Print "Printer is off line"
  8. If H$="$FE" Then Print "Printer is not on"
  9. End Proc