/*Copyright (C) 1992, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* codechar APL2 V1.0.0 ************************************************
* Called by apledps.                                                   *
* Call codechar with an integer ranging from 0 to aplchno, and it will *
* return the address of the character string representing the          *
* corresponding APL character.  This allows using a standard PC        *
* keyboard for entering APL statements.  See also charcode().          *
***********************************************************************/
#define INCLUDES 0
#include "includes.h"
char *codechar(code)
int code;
{
	extern char *aplchar[]; /* APL character set */
	extern int aplchno; /* number of elements in aplchar */

	if (code < 0 || code >= aplchno) return(""); /* null string ptr */
	else return(aplchar[code]);
}