choose case env.cputype
case alpha!
st_cpu_type.text = 'Alpha'
case hppa!
st_cpu_type.text = 'HPPA'
case i286!
st_cpu_type.text = '286'
case i386!
st_cpu_type.text = '386'
case i486!
st_cpu_type.text = '486'
case m68000!
st_cpu_type.text = '68000'
case m68020!
st_cpu_type.text = '68020'
case m68030!
st_cpu_type.text = '68030'
case m68040!
st_cpu_type.text = '68040'
case mips!
st_cpu_type.text = 'MIPS'
case pentium!
st_cpu_type.text = 'Pentium'
case powerpc!
st_cpu_type.text = 'PowerPC'
case sparc!
st_cpu_type.text = 'Sparc'
end choose
choose case env.ostype
case aix!
temp = 'AIX'
case hpux!
temp = 'HPUX'
case osf1!
temp = 'OSF1'
case sol2!
temp = 'Solaris 2'
case Windows!
temp = 'Windows'
case Windowsnt!
temp = 'Windows NT'
end choose
st_ostype.text = temp + ' '+string(env.osmajorrevision)+'.'+string(env.osminorrevision)+'.'+string(env.osfixesrevision)