$CPU 8086          ' make compatible with XT systems
$LIB ALL OFF       ' turn off all PowerBASIC libraries
$ERROR ALL OFF     ' turn off all PowerBASIC error checking
$OPTIMIZE SIZE     ' optimize for smaller code
 $COMPILE UNIT      ' compile to a UNIT (.PBU)
'$COMPILE EXE       ' compile to a UNIT (.PBU)

DEFINT A-Z         ' Required for all numeric functions, forces PB to not
                   ' include floating point in UNIT (makes it smaller)
'/*------------------------------------------------------------------*/
$CODE SEG "MLIB5"
'/*------------------------------------------------------------------*/
' ISANSI()
'     Determines if the ANSI.SYS device driver is loaded.
'     Returns:  0 = ANSI.SYS NOT loaded.
'               1 = ANSI.SYS is loaded.
'/*------------------------------------------------------------------*/
FUNCTION ISANSI() PUBLIC AS INTEGER
  ! mov ax, &h1a00
  ! int &h2F
  ! mov AnsiCheck%, al
  IF AnsiCheck% = &hff THEN
    FUNCTION = 1
  ELSE
    FUNCTION = 0
  END IF
END FUNCTION
'/*------------------------------------------------------------------*/
'  $INCLUDE "C:\CODE\MLIB\MLIB.INC"
'  PRINT ISANSI
'  Y$ = GETKEY