CURSOR LOCATION

 BBS: Inland Empire Archive
Date: 02-17-93 (10:12)             Number: 389
From: MICHAEL BULL                 Refer#: NONE
  To: JOHN GALLAS                   Recvd: NO  
Subj: CURSOR LOCATION                Conf: (2) Quik_Bas

Hope this helps.

  '$INCLUDE: 'qb.bi'
  DIM regs AS regtype
  outstring$ = CHR$(27) + "[6n" + CHR$(13) + CHR$(10)
  FOR x% = 1 TO LEN(outstring$)
    regs.ax = &H600
    regs.dx = ASC(MID$(outstring$, x%, 1))
    interrupt &H21, regs, regs
  NEXT x%
  '
  DO
   regs.ax = &H700
   interrupt &H21, regs, regs
   char% = regs.ax AND &HFF
   returnstring$ = returnstring$ + CHR$(char%)
  LOOP UNTIL char% = 82
  '
  PRINT "Return String = "; returnstring$

                                        Michael


--- Maximus 2.01wb
 * Origin: | Spark-5 | Guelph, Ontario, Canada! | (519) 767-
1419 |      (1:221/321)