home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 10_11 / tricks / lptstat.bas < prev    next >
Encoding:
BASIC Source File  |  1988-06-23  |  1.2 KB  |  40 lines
  1. '* ------------------------------------------------------- *
  2. '*                   LPTSTAT.BAS                           *
  3. '*              Druckerstatus-Abfrage                      *
  4. '* ------------------------------------------------------- *
  5. '*   (c) 1988 by HEIMSOETH Software /Technical Support     *
  6. '*          veröffentlicht in TOOLBOX 10/11'88               *
  7. '* ------------------------------------------------------- *
  8. '*            Compiler: Turbo Basic  V1.01e                *
  9. '* ------------------------------------------------------- *
  10. DEF FN Online%
  11.   DEF SEG = 64
  12.   PortAddress& = PEEK(8) + PEEK(9) * 256
  13.   Value%       = (INP(PortAddress& + 1) AND 248) XOR 72
  14.   IF (Value% AND 128) = 128 THEN
  15.     FN Online% = -1  'TRUE
  16.   ELSE
  17.     FN Online% = 0   'FALSE
  18.   END IF
  19.   DEF SEG
  20. END DEF
  21.  
  22. DEF FN PowerOn%
  23.   DEF SEG = 64
  24.   PortAddress& = PEEK(8) + PEEK(9) * 256
  25.   Value%       = (INP(PortAddress& + 1) AND 248) XOR 72
  26.   IF (Value% AND 8) = 8 THEN
  27.     FN PowerOn% = 0  'FALSE
  28.   ELSE
  29.     FN PowerOn% = -1 'TRUE
  30.   END IF
  31.   DEF SEG
  32. END DEF
  33.  
  34. SUB InitPrinter
  35.   OUT &H3BE, 8
  36.   OUT &H3BE,12
  37. END SUB
  38. '* ------------------------------------------------------- *
  39. '*                Ende von LPTSTAT.BAS                     *
  40.