Agenradbo.111
net.games.pacman
utzoo!decvax!genradbo!john
Tue Apr  6 14:08:22 1982
Pacman nap call
   At our installation, our system manager refuses to alter
the system in any way, including adding the nap() call.
Therefor I was forced to write a nap subroutine which does
not need to alter the system in any way (4.1BSD)  I am
including the source for anyone who might be interested. (it is
short.)  Actually, our pacman uses a modified version of this
subroutine which begins the sleep BEFORE flushing the output,
and waits for the time to be up after flushing (refresh). This
involves changing the source however.
   Pacman runs just fine using this code, however it really
drags down the system.

#include <sys/types.h>
#include <sys/timeb.h>

struct timeb gtime;
time_t matchtime;
unsigned short matchmilli;
struct timeb *tp = & gtime;


/* napms - sleep for time milliseconds */
napms(time)
int time;
	{
	ftime(tp);
	matchmilli = tp->millitm + time;
	matchtime  = tp->time;
	if(matchmilli >= 1000)
		{
		++matchtime;
		matchmilli -= 1000;
		}

	while(1)
		{
		ftime(tp);
		if ((tp->time > matchtime) ||
			((tp->time == matchtime) && (tp->millitm >= matchmilli)))
			break;
		}
	}