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)
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