'===========================================================================
' Subject: AUTO-ANSI SENSOR                  Date: Year of 1992 (00:00)   
' Author:  John Sneeringer                   Code: QB, QBasic, PDS        
' Keys:    AUTO,ANSI,SENSOR                Packet: ANSI.ABC
'===========================================================================
DEFINT A-Z
DECLARE SUB ansi.det (ansi%)

' ===============================================
' Auto-ANSI Sensor by John Sneeringer, HPS 1992
' ===============================================

SUB ansi.det (ansi%)

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

FOR X = 1 TO 2                ' pause for like 2 seconds
  A$ = TIME$
  DO: LOOP UNTIL A$ <> TIME$
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