/*																				*/
/*																				*/
/*				File:		  	var.c											*/
/*				Returns:	  	logical - true if i is a variable	*/
/*				Parameters:	i - int										*/
/*																				*/
/*																				*/


#include "advm.h"

char var (i)
int i;

	{
	return ((i>=7000) && (i<8000));
	}