Detecting ANSI

 BBS: Inland Empire Archive
Date: 06-23-92 (09:42)             Number: 1195
From: ARTHUR SHIPKOWSKI            Refer#: NONE
  To: JIM COYLE                     Recvd: NO  
Subj: Detecting ANSI                 Conf: (2) Quik_Bas

Hello Jim!

Sunday June 21 1992, Jim Coyle writes to All:

 JC>        I was wondering if anyone out there knew how to detect ANSI Color
 JC> graphics. The only way I could think of doing this was to send out some
 JC> ANSI codes and wait to see if the remote CPU sends anything back. I tried
 JC> that and it didn't seem to work very good. If anyone out there knows how
 JC> to do this, please tell me... Some sample code would be much appreciated!
 JC>

     Assuming SUBs called Transmit (St$) and ReCieVe (St$), that are buffered
Transmit CHR$(27)+"[6n"
SLEEP 10
DO
   Test$=Test$+St$
   ReCieVe St$
LOOP WHILE LEN(St$)
IF INSTR(St$,CHR$(27)+"[") THEN ANSICode%=-1
Basically (no pun intended), we send a cursor request, and
if we get a code back (I don't recall the exact code, so I
just used the first part of any escape sequence), the
remote has ANSI.

Arthur

--- GoldED 2.40
 * Origin: [The BASIC Point] [North Greece, NY] (1:260/213.2)