'****************************************************************************
'
'   abfragen ob ANSI.SYS installiert in PowerBASIC 2.10, 3.0, 3.1 & 3.2
'
'   entwickelt von / developed by   :  Thomas Gohel
'
'                           Fido    :  Thomas Gohel@2:2410/330.1
'                           InterNet:  author@pbsound.snafu.de
'                           Homepage:  http://www.snafu.de/~pbsound/
'
'****************************************************************************

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