Detecting ansi

 BBS: Inland Empire Archive
Date: 06-25-92 (03:00)             Number: 1335
From: JOHN SNEERINGER              Refer#: NONE
  To: JIM COYLE                     Recvd: NO  
Subj: Detecting ansi                 Conf: (2) Quik_Bas

->        I was wondering if anyone out there knew how to detect ANSI Co
-> graphics. The only way I could think of doing this was to send out so
-> ANSI  codes and wait to see if the remote CPU sends anything back. I

DEFINT A-Z
DECLARE SUB Ansi.Det (Ansi%)

SUB Ansi.Det (Ansi%)

PRINT #1, CHR$(27) + "[6n";

FOR X = 1 TO 2                 ' Pause for
  A$ = TIME$                   ' A Couple
  DO: LOOP UNTIL A$ <> TIME$   ' Seconds NEXT X

IF LOC(1) > 1 THEN
  IF LEFT$(INPUT$(1, 2), 2) = CHR$(27) + "[" THEN
    Ansi% = 1
  ELSE
    Ansi% = 0
  END IF
END IF
END SUB


--- TosScan 1.00
 * Origin: Colossus - The Columbus Computer Society - Columbus, OH (1:226/120)