🚀 go-pugleaf

JM>I'm using a PC and writing under DOS, using QuickBasic 4.5 I've got a question:

JM>I am trying to write a piece of code that will test a remote system to see if
JM>that system has ANSI screen codes enabled.  Does anyone have an idea of how to
JM>do such a thing?  Actual code would be great or just an explaination would do.

        Use the following, it should work. If you have any questions,
just yell.

ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄCut HereÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
FUNCTION detect%

'  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
        PRINT a$, black%
        detect% = -1
     ELSE
        PRINT #1, "Ansi not detected"
        detect% = 0
    END IF
END IF

END FUNCTION
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄCut HereÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ


                   Happy Holidays, Geoff.
---
 þ DeLuxeý 1.26b #11507 þ Objects in taglines are closer than they appear.
--
Canada Remote Systems  - Toronto, Ontario
World's Largest PCBOARD System - 416-629-7000/629-7044