auto-decting ansi...

 BBS: Inland Empire Archive
Date: 10-31-92 (00:00)             Number: 362
From: JOHN WHITE                   Refer#: NONE
  To: JEFF FREEMAN                  Recvd: NO  
Subj: auto-decting ansi...           Conf: (2) Quik_Bas

 > ...missed my mail and now it's gone... ...remote user has ANSI? ...

Here's the message:
-
(10053) Mon 19 Oct 92  2:28p
By: Dick Dennison
To: Jeff Freeman
Re: Re: detect remote ansi and local errorlevels
St:                                                              9966<>12328
-
@EID:17de 19537380
JF>     I want to be able to detect remote ansi... I assume this would be
JF> accomplished by sending an ansi sequence and waiting for some kind of
JF> response, right?

FUNCTION detect%
'Dick Dennison 10/92 1:272/34

'  send out a <ESC>[6n and then look for a reply..
'<ESC>#r;#cR
'r = row, c = column
'Assume that the port is opened as #4
a$ = CHR$(27) + "[6n"
IF online% THEN
    PRINT #4, a$
    SLEEP 1           'important to wait here at least 1 second
    IF online% AND LOC(4) THEN ba$ = INPUT$(LOC(4), 4)
    IF INSTR(ba$, CHR$(27)) > 0 THEN
        PRINT #1, "Ansi detected"  'log file
        a$ = CHR$(27) + "[2J"      'clear screen
        showmsg a$, black%
        detect% = -1
     ELSE
        PRINT #1, "Ansi not detected"
        detect% = 0
    END IF
END IF

END FUNCTION

--- GEcho 1.00/beta
 * Origin: The MailMan  (914)374-3903 NY Quick Share Pt #7 *HST (1:272/34)