DEFINT A-Z

'$INCLUDE: 'QBXM.BI'

PRINT
PRINT "********* Now in XMDEMO3....."
PRINT "Just a check now that we're done, that the eXtraMem is freed up."

CALL GetXM(major, minor, flag)

SELECT CASE flag
    CASE 0
        PRINT "No extra memory is installed."
        END
    CASE 1
        ems = -1
        PRINT "Expanded memory is in use, version:";
        PRINT USING "##.##"; major + minor / 10
    CASE 2
        PRINT "Extended memory is in use, version:";
        PRINT USING "##.##"; major + minor / 10
    CASE ELSE
        e$ = RIGHT$("00" + HEX$(flag), 2)
        PRINT "An error was returned.  Code: "; e$
        END
END SELECT

'Call find out how many pages there are.

CALL GetPagesXM(total, pages)

SELECT CASE flag
    CASE 1
        PRINT "Expanded memory total:";
        PRINT USING " ###,###,###"; CLNG(total) * 16384&
        PRINT "Expanded memory free: ";
        PRINT USING " ###,###,###"; CLNG(pages) * 16384&
    CASE 2
        PRINT "Extended memory total: ";
        PRINT USING " ###,###,###"; CLNG(total) * 16384&
        PRINT "Extended memory free:  ";
        PRINT USING " ###,###,###"; CLNG(pages) * 16384&
END SELECT

END