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


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

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET