Function Processor()  As String

    Local si As SYSTEM_INFO

    GetSystemInfo si

    Select Case si.dwProcessorType

    Case %PROCESSOR_INTEL_386
        Function = "386"

    Case %PROCESSOR_INTEL_486
        Function = "486"

    Case %PROCESSOR_INTEL_PENTIUM
        Function = "PENTIUM"

        ! mov   eax, 1
        ! CpuID
        ! test  edx, &H00800000
        ! jz    NoMMX

        Function = "MMX PENTIUM"
NoMMX:
    Case Else
        Function = "UNKNOWN"

    End Select

End Function