/* (c) Copyright 1987 Michael Goetz								*/
/*																			*/
/*				File:		 	buffwr 									*/
/*				Returns:	  	void										*/
/*				Parameters:	int len - buffer length in words	*/
/*																			*/
/*																			*/

#include <stdio.h>

#include "advm.h"
#include "units.h"
#include "values.h"
#include "doubls.h"
#include "inskey.h"
#include "insput.h"
#include "snapit.h"


void buffwr(len)
int len;

{
	int i;

	if (len > 500)
		{
		snapit();
		printf("--Maximum buffer size exceeded.\n");
		troubl = TRUE;
		}
	inskey(key.keys);
	insput(len);
	for (i=0; i<len; i++)
		insput(buffer[i]);
	outkey = key2 + (key1++ / 1000.0);
	maxbuf = (len > maxbuf) ? len : maxbuf;
	cachhw += len+1;
	cachdw++;
}