Dim As ZString*5  iBuf0 ,iBuf1 , ibuf2, ibuf3

For i As Integer = &h80000002 To &h80000004
        Asm
            pushad
            mov eax, [i]
            cpuid
            mov [iBuf0] , Eax
            mov [iBuf1] , Ebx
            mov [iBuf2] , Ecx
            mov [iBuf3] , Edx
            popad
        End Asm
        ? iBuf0;iBuf1;iBuf2;iBuf3;
Next
Sleep