home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / qbfaqr01 / comm / ansidet.bas next >
Encoding:
BASIC Source File  |  1992-08-09  |  514 b   |  25 lines
  1. DEFINT A-Z
  2. DECLARE SUB ansi.det (ansi%)
  3.  
  4. ' ===============================================
  5. ' Auto-ANSI Sensor by John Sneeringer, HPS 1992
  6. ' ===============================================
  7.  
  8. SUB ansi.det (ansi%)
  9.  
  10. PRINT #1, CHR$(27) + "[6n";   ' send code
  11.  
  12. FOR X = 1 TO 2                ' pause for like 2 seconds
  13.   A$ = TIME$
  14.   DO: LOOP UNTIL A$ <> TIME$
  15. NEXT X
  16.  
  17. IF LOC(1) > 1 THEN
  18.   IF LEFT$(INPUT$(1, 2), 2) = CHR$(27) + "[" THEN
  19.     ansi% = 1
  20.   ELSE
  21.     ansi% = 0
  22.   END IF
  23. END IF
  24. END SUB
  25.