'===================  Flags for GetSystemInfo  =========================== 

MACRO PROCESSOR_INTEL_386             = 386
MACRO PROCESSOR_INTEL_486             = 486
MACRO PROCESSOR_INTEL_PENTIUM         = 586
MACRO PROCESSOR_MIPS_R4000            = 4000
MACRO PROCESSOR_ALPHA_21064           = 21064
MACRO PROCESSOR_PPC_601               = 601
MACRO PROCESSOR_PPC_603               = 603
MACRO PROCESSOR_PPC_604               = 604
MACRO PROCESSOR_PPC_620               = 620
MACRO PROCESSOR_HITACHI_SH3           = 10003   'Windows CE 
MACRO PROCESSOR_HITACHI_SH3E          = 10004   'Windows CE 
MACRO PROCESSOR_HITACHI_SH4           = 10005   'Windows CE 
MACRO PROCESSOR_MOTOROLA_821          = 821     'Windows CE 
MACRO PROCESSOR_SHx_SH3               = 103     'Windows CE 
MACRO PROCESSOR_SHx_SH4               = 104     'Windows CE 
MACRO PROCESSOR_STRONGARM             = 2577    'Windows CE - 0xA11 
MACRO PROCESSOR_ARM720                = 1824    'Windows CE - 0x720 
MACRO PROCESSOR_ARM820                = 2080    'Windows CE - 0x820 
MACRO PROCESSOR_ARM920                = 2336    'Windows CE - 0x920 
MACRO PROCESSOR_ARM_7TDMI             = 70001   'Windows CE 

MACRO PROCESSOR_ARCHITECTURE_INTEL    = 0
MACRO PROCESSOR_ARCHITECTURE_MIPS     = 1
MACRO PROCESSOR_ARCHITECTURE_ALPHA    = 2
MACRO PROCESSOR_ARCHITECTURE_PPC      = 3
MACRO PROCESSOR_ARCHITECTURE_SHX      = 4
MACRO PROCESSOR_ARCHITECTURE_ARM      = 5
MACRO PROCESSOR_ARCHITECTURE_IA64     = 6
MACRO PROCESSOR_ARCHITECTURE_ALPHA64  = 7
MACRO PROCESSOR_ARCHITECTURE_UNKNOWN  = 0xFFFF

MACRO PROCESSOR_LEVEL_80386           = 3
MACRO PROCESSOR_LEVEL_80486           = 4
MACRO PROCESSOR_LEVEL_PENTIUM         = 5
MACRO PROCESSOR_LEVEL_PENTIUMII       = 6

MACRO nkb = 1024

'================================================================ 

DIM tmp$
DIM a$
DIM kb$

DIM si AS SYSTEM_INFO
DIM ms AS MEMORYSTATUS

'================================================================ 

kb$ = " kbytes"

ms.dwLength = SIZEOF(&ms)

GlobalMemoryStatus(&ms)

GetSystemInfo(&si)

'================================================================ 

PRINT : PRINT "Number Of Processors ", si.dwNumberOfProcessors

SELECT CASE si.dwProcessorType
CASE PROCESSOR_INTEL_386
  tmp$ = " 386 "
CASE PROCESSOR_INTEL_486
  tmp$ = " 486 "
CASE PROCESSOR_INTEL_PENTIUM
  tmp$ = " Pentium "
CASE PROCESSOR_MIPS_R4000
  tmp$ = " MIPS 4000 "
CASE PROCESSOR_ALPHA_21064
  tmp$ = " Alpha "
END SELECT

PRINT "Processor Type ", si.dwProcessorType, tmp$

SELECT CASE si.wProcessorLevel
CASE PROCESSOR_LEVEL_80386
  tmp$ = " Intel 80386 "
CASE PROCESSOR_LEVEL_80486
  tmp$ = " Intel 80486 "
CASE PROCESSOR_LEVEL_PENTIUM
  tmp$ = " Intel Pentium "
CASE PROCESSOR_LEVEL_PENTIUMII
  tmp$ = " Intel Pentium Pro or Pentium II "
END SELECT

PRINT "Processor Level", si.wProcessorLevel, tmp$
PRINT "Processor Revision ";
PRINT si.wProcessorRevision;
PRINT " Model ";
PRINT HIBYTE(si.wProcessorRevision);
PRINT ", Stepping ";
PRINT LOBYTE(si.wProcessorRevision)
PRINT

'================================================================ 

a$ = "Memory Used     " & STR$(ms.dwMemoryLoad)       & " free" : ?  a$
a$ = "Total Memory    " & STR$(ms.dwTotalPhys/nkb)    & kb$      : ?  a$
a$ = "Avail Memory    " & STR$(ms.dwAvailPhys/nkb)    & kb$      : ?  a$
a$ = "Total Page File " & STR$(ms.dwTotalPageFile/nkb) & kb$      : ?  a$
a$ = "Avail PageFile  " & STR$(ms.dwAvailPageFile/nkb) & kb$      : ?  a$
a$ = "Total Virtual   " & STR$(ms.dwTotalVirtual/nkb) & kb$      : ?  a$
a$ = "Avail Virtual   " & STR$(ms.dwAvailVirtual/nkb) & kb$      : ?  a$

Result:

Result not displayed for this example.