/* Copyright (C) 1994 by Thomas Glen Smith.  All Rights Reserved. */
/* ceqp APL2 V1.0.0 ****************************************************
* Returns integer 1 or 0 depending on whether *left equals *rite.        *
***********************************************************************/
#define INCLUDES 0
#include "includes.h"
void ceqp(left,rite,ret)
char *left,*rite;
int *ret;
{
	*ret = (*left == *rite);
}