Print Chr$(27) "[999;999H" Chr$(27) "[6n"
Dim rows% = 0
Dim cols% = 0
Dim ic$
Dim v%
Dim rc% = 0
Do
 ic$ = Inkey$
Loop Until Len(ic$) > 0

Do
 ic$ = Inkey$
 If Len(ic$) = 0 Then
   Exit
 EndIf
 If ic$ = ";" Then
   rc% = 1
 Else
   v% = Asc(ic$) - 48
   If v% < 10 Then
     If rc% Then
       cols% = cols% * 10 + v%
     Else
       rows% = rows% * 10 + v%
     EndIf
   EndIf
 EndIf
Loop

Dim Integer rows,cols
Dim a$,l$
Print Chr$(27)"[999;999H"Chr$(27)"[6n"
'response looks something like ESC[28;1R   - rows;cols and no CRLF

Do While a$<>"R"' grab the response up to the "R"
a$=Inkey$
If a$<>"" Then l$=l$+a$
Loop

If Left$(l$,2)=Chr$(27)+"[" Then
rows=Val(mid$(l$,3))
cols=Val(Mid$(l$,Instr(l$,";")+1))
Print rows,cols
End if

 '
 PRINT "we are here"
 PRINT CHR$(27)+"[6n";
 DIM locate$ = ""
 DIM n
 DO
   k$ = INKEY$
   INC n
   'print asc(k$);" ";
   IF k$<>CHR$(0) AND k$<>CHR$(27) AND k$ <>"" THEN locate$ = locate$ + k$
 LOOP UNTIL k$ = "R" OR LEN(locate$) > 10 OR n > 1000000
 
 IF LEFT$(locate$,1) = "[" THEN
   col = VAL(MID$(locate$,2))
   row = VAL(FIELD$(locate$,2,";"))
 ENDIF
 PRINT "Terminal says "+locate$, row,col, n