Click above to get retro games delivered to your door ever month!

                                 L_ISEMM()


Syntax:        L_ISEMM()


Purpose:       To determine if an Expanded Memory Manager (EMM) is
               installed in the system.


Arguments:     None


Returns:       A logical (.T.) indicates that the EMM driver is present.
               A logical (.F.) indicates that the EMM driver is absent.


Usage:         This function should be called before using any of the
               other EMM related functions.

               This function is provided to offer more information
               about the current system or one for which an
               application is being developed.  Clipper uses Expanded
               Memory for index buffering.  The amount of expanded memory
               it uses can be controlled using the SET CLIPPER=Enn DOS
               environment variable.


Examples:      * Check if expanded memory is functional
               * and report amount of memory if it is.
               IF L_ISEMM() .AND. ( L_EMMSTAT()=0)
                  @ 10,10 SAY "Total Expanded memory= "
                  @ 11,10 SAY "Avail.Expanded memory= "
                  @ 10,34 SAY STR( L_EXPANDED() * 16 )
                  @ 11,34 SAY STR( L_EMMFREE() * 16 )
               ENDIF


Language:      Assembler