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

#include <stdio.h>

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

#include "init.h"
#include "object.h"
#include "var.h"


int eval(id)
int id;

	{
	if (init(id))
		return (id);
	if (object(id))
		{
		array (objval, id-1000);
		return (objval[id-1000]);
		}
	if (var(id))
		{
		array (varval,id-7000);
		return (varval[id-7000]);
		}
	printf ("Glitch!  Bad EVAL - key = %d on record %d.%03d after loc %d\n",
				id, rec2, rec1, bp);
	return (0);
	}