/*																				*/
/*																				*/
/*				File:		  	ref.c											*/
/*				Returns:	  	int											*/
/*				Parameters:	id - int										*/
/*																				*/
/*																				*/


#include "advm.h"
#include "values.h"

#include "var.h"


int ref (id)
int id;

	{
	if (var(id))
		{
		array (varval, id-7000);
		return (varval[id-7000]);
		}
	return (id);
	}