Program Test_cpuid_unit;

USES _CPUID;

VAR MyCpu : TCpuId;
BEGIN

   Writeln;
   MyCpu.Init;
   Writeln    ( 'CPU type is: ',MyCpu.GetTypeStr );
   If MyCpu.GetType = 5 Then
      Begin
      Writeln;
      Writeln ( '     Family: ',MyCpu.GetFamilyStr );
      Writeln ( '      Model: ',MyCpu.GetModel );
      Writeln ( '    Version: ',MyCpu.GetType );
      Writeln ( '        Tag: "',MyCpu.GetVendor,'"' );
      End;
   MyCpu.Done;
   Writeln;

END.