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

#include <stdio.h>

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

#include "object.h"


int where (id)
int id;

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