/*																				*/
/*																				*/
/*				File:		  	keyins.c										*/
/*				Returns:	  	TRUE if error								*/
/*				Parameters:	xkey [2] - key to get					*/
/*								unit **FILE pointer to the file		*/
/*																				*/

#include "advm.h"
#include "keyi.h"
#include "ptri.h"

#include "gkey.h"

int keyins(xkey,unit)
int xkey [2];
FILE **unit;


	{
	static int	k1 [18];
	static int	k2 [19];
	static int irec = 0;
	static int rptr [18];
	static int oldkey = -1;
	static char bptr [18];

	return (gkey (xkey, unit, &irec, k1, k2, rptr, bptr, &knum, &kbase, 
						&rpt, &oldkey, &bpt));
	}