/* Copyright (C) 1996 by Thomas Glen Smith.  All Rights Reserved. */
/* quadnami APL2 V1.0.0 ************************************************
* Called by execgetq to obtain the pointer to the internal name for a  *
* quad variable, given its code.                                       *
***********************************************************************/
#define INCLUDES APLTOKEN
#include "includes.h"
char *quadnami(code)
int code;
{
#include "quadext.h"
	char *c;

	switch (code) { /* determine default */
		case QUAD_AV: c = quadav; break;
		case QUAD_CT: c = quadct; break;
		case QUAD_FC: c = quadfc; break;
		case QUAD_IO: c = quadio; break;
		case QUAD_LX: c = quadlx; break;
		case QUAD_PP: c = quadpp; break;
		case QUAD_RL: c = quadrl; break;
		case QUAD_TS: c = quadts; break;
		case QUAD_TT: c = quadtt; break;
		case QUAD_TZ: c = quadtz; break;
		default: c = NULL; break;
	} /* end switch */
	return(c);
}