home *** CD-ROM | disk | FTP | other *** search
/ The California Collection / TheCaliforniaCollection.cdr / his038 / qbints.lzh / PRINTOUT.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-04-23  |  737 b   |  28 lines
  1. 'Sun  Apr 23, 1989   2:20:23 pm
  2. '*****************************************************************************
  3. 'This routine sends an ASCII code to the printer buffer. The buffer does not
  4. 'print until a 10 (line feed) is received.
  5. '*****************************************************************************
  6.  
  7. TYPE RegType
  8.      ax    AS INTEGER
  9.      bx    AS INTEGER
  10.      cx    AS INTEGER
  11.      dx    AS INTEGER
  12.      bp    AS INTEGER
  13.      si    AS INTEGER
  14.      di    AS INTEGER
  15.      flags AS INTEGER
  16. END TYPE
  17. DIM SHARED inregs AS RegType, outregs AS RegType
  18. DECLARE SUB printout (code)
  19.  
  20. printout 10
  21.  
  22.  
  23. SUB printout (code)
  24.      inregs.ax = code: inregs.dx = 0
  25.      CALL interrupt(&H17, inregs, outregs)
  26. END SUB
  27.  
  28.