/* Param:ch,the name string
return the first character of the name
if the first character of the name is not in A-Z,then return '['.
*/
}
//---------------------------------------------------------------------------
/* Param:ch,the name string
return the first character of the name
if the first character of the name is not in A-Z,then return '['.
*/
char GB2PY(char *ch)
{
char Result;
UCHAR GB_Code;
GB_Code=ch[0]*256+ch[1];