/*-=-=-=-=-=-=-=-=-=-=-=- RCCL/RCI Notice of Copyright -=-=-=-=-=-=-=-=-=-=-*
 *									    *
 *	Copyright (C) 1991 by John E. Lloyd.				    *
 *									    *
 *	Information on copyright permissions, as well as a complete	    *
 *	disclaimer of warranty, is given in the file COPYRIGHT.		    *
 *									    *
 *-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=*/
/* 
   Control level code for any program called 'test' (the Makefile
   contains instructions to build 'test' from 'test.o' and 'testCtrl.o')
 */

#include "../h/rci.h"
#include "../h/cdefs.h"

int inCtrl;

cfxn(td, arg)
RCI_DESC *td;
int arg;
{
	volatile int j;
	static int k = 0;

	inCtrl = 1;
#if 1
	if (k++ > 30)
	 { rciPrintf ("**\n");
	   rciPrintf ("hey");
	   rciPrintf (" %g there\n", 31.23);
	   k = 0;
	 }
#endif
	for (j=0; j<10000; j++)
	   ;
/*	nap(0.01); */
	inCtrl = 0;
}
