/*																				*/
/*																				*/
/*				File:		  	isnear.c	 (formerly near)				*/
/*				Returns:	  	i - int - value to check				*/
/*				Parameters:	bool - true if near i					*/
/*																				*/
/*																				*/


#include "advm.h"
#include "values.h"
#include "eval.h"
#include "bitval.h"
#include "where.h"


int is_near (i)
int i;

	{
	int whre, bts, heah;

	whre = where(i);
	bts = bitval(i);
	heah = eval(here);
	return ((whre == heah) || ((whre == heah -1) && (bts & dual)));
	}