'===========================================================================
' Subject: ANSI.SYS DETECTION                 Date: Unknown Date (00:00)   
'  Author: Quinn Tyler Jackson                Code: QB, PDS                
'  Origin: ANSI.SYS,DETECTION               Packet: ANSI.ABC
'===========================================================================
DECLARE FUNCTION ChkANSI% ()
'$INCLUDE: 'qb.bi'
 
DEFINT A-Z
 
CONST FALSE = 0
CONST TRUE = NOT FALSE
 
 
DIM SHARED InReg AS RegType
DIM SHARED OutReg AS RegType
 
SELECT CASE ChkANSI
        CASE TRUE
                PRINT "ANSI.SYS installed!"
        CASE FALSE
                PRINT "ANSI.SYS not installed!"
END SELECT
 
FUNCTION ChkANSI
 
InReg.AX = &H1A00
Interrupt &H2F, InReg, OutReg
 
SELECT CASE OutReg.AX MOD 256
        CASE 0
                temp = FALSE
        CASE 255
                temp = TRUE
END SELECT
 
ChkANSI = temp
 
END FUNCTION