Thomas Gohel (Rolf@ice.prima.ruhr.de)
DETECT ANSI.SYS
------------------------------------------------------------------------------


'****************************************************************************
'
'   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