#include "batch.h"
main()
{
	char bufar[1000];
	int num;
	register n;
	register char *cbuff;
	register struct quelt *pq;

	if( local ) exit();	/* daveh */
	if(fstat(3,cbuf) < 0) exit();
	cbuff = bufar;
	for(;;)	
	{
  readit:
		n = read(0,cbuff,sizeof bufar);
    /* 'l' 'j' 'r' are capital letters the cyber is not low enough */
		if((cbuff[1]=='L')&&(cbuff[6]=='J')&&(cbuff[10]=='R'))
		{
			pp(qlock);
			if( (pq = qhdr[atcyber].qptr) ) 
			do 
			{
				if( (!pq->cjobn[0]) &&
				     (pq->jobn[0]==cbuff[16]) &&
				      (pq->jobn[1]==cbuff[17]) )
				{
					pq->cjobn[0]=cbuff[20];
					pq->cjobn[1]=cbuff[21];
					pq->cjobn[2]=cbuff[22];
					vv(qlock);
					goto readit;
				}
			}
			while( pq = pq->qlink );
			vv(qlock);
		} 
		cbuff[n]='\n';
		num = n;
		n = 49;
		while( n < num )
		{
			cbuff[n] = '\n';
			n =+ 50;
		}
		write(2,cbuff,num + 1);
	}
}
