home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 14 / CDACTUAL.iso / cdactual / demobin / share / program / Basic / QBXM10.ZIP / XMDEMO3.BAS < prev   
Encoding:
BASIC Source File  |  1991-06-18  |  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.