home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / qbxm10 / xmdemo3.bas < prev   
Encoding:
BASIC Source File  |  1991-06-17  |  1.2 KB  |  47 lines
  1. DEFINT A-Z
  2.  
  3. '$INCLUDE: 'QBXM.BI'
  4.  
  5. PRINT
  6. PRINT "********* Now in XMDEMO3....."
  7. PRINT "Just a check now that we're done, that the eXtraMem is freed up."
  8.  
  9. CALL GetXM(major, minor, flag)
  10.  
  11. SELECT CASE flag
  12.     CASE 0
  13.         PRINT "No extra memory is installed."
  14.         END
  15.     CASE 1
  16.         ems = -1
  17.         PRINT "Expanded memory is in use, version:";
  18.         PRINT USING "##.##"; major + minor / 10
  19.     CASE 2
  20.         PRINT "Extended memory is in use, version:";
  21.         PRINT USING "##.##"; major + minor / 10
  22.     CASE ELSE
  23.         e$ = RIGHT$("00" + HEX$(flag), 2)
  24.         PRINT "An error was returned.  Code: "; e$
  25.         END
  26. END SELECT
  27.  
  28. 'Call find out how many pages there are.
  29.  
  30. CALL GetPagesXM(total, pages)
  31.  
  32. SELECT CASE flag
  33.     CASE 1
  34.         PRINT "Expanded memory total:";
  35.         PRINT USING " ###,###,###"; CLNG(total) * 16384&
  36.         PRINT "Expanded memory free: ";
  37.         PRINT USING " ###,###,###"; CLNG(pages) * 16384&
  38.     CASE 2
  39.         PRINT "Extended memory total: ";
  40.         PRINT USING " ###,###,###"; CLNG(total) * 16384&
  41.         PRINT "Extended memory free:  ";
  42.         PRINT USING " ###,###,###"; CLNG(pages) * 16384&
  43. END SELECT
  44.  
  45. END
  46.  
  47.