GKSERR get_chc( status, choice )
	CHOICESTAT *status;
	CHOICEVAL *choice;
	{
	Gchoice choicer;
    Gint errno;
	errno = ggetchoice(&choicer);
    switch(choicer.status)
	{
	case GC_OK:
	   *status = OK;
	   break;
    case GC_NOCHOICE:
	   *status = NOCHOICE;
	   break;
    case GC_NONE:
	   *status = NONE;
	   break;
    default:
	  printf("get_chc parameter out ot range\n");
    }    
	*choice = choicer.choice;
	return errno;
    }

