'===========================================================================
' Subject: DETECT ANSI.SYS                    Date: 12-30-95 (21:43)       
'  Author: Thomas Gohel                       Code: PB                     
'  Origin: Rolf@ice.prima.ruhr.de           Packet: PB.ABC
'===========================================================================

'****************************************************************************
'
'   abfragen ob ANSI.SYS installiert in PowerBASIC 2.10, 3.0 & 3.1
'
'   von Thomas Gohel
'
'****************************************************************************

'--- PowerBasic 3.0c ----
! mov ax, &h1a00
! int &h2F
! mov AnsiCheck%, al
IF AnsiCheck% = &hff THEN
    PRINT "ANSI.SYS found"
ELSE
    PRINT "ANSI.SYS not found"
END IF


'--- PowerBasic 2.10f ---

REG 1, &h1a00
CALL INTERRUPT &H2F
AnsiCheck% = REG(1) AND 255
IF AnsiCheck% = &hff THEN
    PRINT "ANSI.SYS found"
ELSE
    PRINT "ANSI.SYS not found"
END IF