home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 601-625 / apd617 / len_tucker / printerstate.amos / printerstate.amosSourceCode
AMOS Source Code  |  1986-08-03  |  297b  |  11 lines
  1. ' works on classic & easy
  2. _PRINTERSTATE
  3. OK=Param
  4. Print OK
  5. Procedure _PRINTERSTATE
  6. H=Peek($BFD000)
  7. H$=Hex$(H)
  8. If H$="$FF" or(H$="$FB") Then N=1 : Rem "Paper is out or not on" 
  9. If H$="$FC" Then N=2 : Rem "Printer is on line" 
  10. If H$="$FD" or(H$="$F9") Then N=3 : Rem "Printer is off line"
  11. End Proc[N]