home *** CD-ROM | disk | FTP | other *** search
/ The California Collection / TheCaliforniaCollection.cdr / his038 / qbints.lzh / READPOS.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-04-23  |  947 b   |  31 lines
  1. 'Sun  Apr 23, 1989   2:19:48 pm 
  2. '****************************************************************************
  3. 'This routine reads the current position of the cursor--row and column.
  4. '****************************************************************************
  5. TYPE RegType
  6.      ax    AS INTEGER
  7.      bx    AS INTEGER
  8.      cx    AS INTEGER
  9.      dx    AS INTEGER
  10.      bp    AS INTEGER
  11.      si    AS INTEGER
  12.      di    AS INTEGER
  13.      flags AS INTEGER
  14. END TYPE
  15. DIM SHARED inregs AS RegType, outregs AS RegType
  16. DECLARE SUB readpos (row, col)
  17. CLS
  18. LOCATE 9, 14
  19. readpos row, col
  20. PRINT row, col
  21.  
  22. SUB readpos (row, col)
  23.      t1 = &H300: t2 = 0: t3 = 0: t4 = 0
  24.      inregs.ax = t1: inregs.bx = t2: inregs.cx = t3: inregs.dx = t4
  25.      CALL interrupt(&H10, inregs, outregs)
  26.      t1 = outregs.ax: t2 = outregs.bx: t3 = outregs.cx: t4 = outregs.dx
  27.      row = 1 + FIX(t4 / 256)
  28.      col = 1 + t4 - ((FIX(t4 / 256)) * 256)
  29. END SUB
  30.  
  31.