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

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
    Ansi% = 0

--- TosScan 1.00
 * Origin: Colossus - The Columbus Computer Society - Columbus, OH (1:226/120)
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