/*																				*/
/*																				*/
/*				File:		  	rdtext.c										*/
/*				Returns:	  	True if record read						*/
/*				Parameters:	key [2] - int - key to read			*/
/*																				*/
/*																				*/


#include "advm.h"
#include "string.h"
#include "values.h"
#include "keys.h"

#include "keytxt.h"
#include "txtget.h"


int rdtext(key)
int key [2];

	{
	int rsize;

	if (keytxt(key,&dbtkey)) return (1);
	for (rsize=0; rsize<140; rsize++)
		{
		array(ztext,rsize);
		if ((ztext[rsize]=txtget()) == 0)
			return (0);
		trace2("RDTEXT: char = '%c' %02.2X\n",ztext[rsize],ztext[rsize]);
		}
	array(ztext, 140);
	ztext[140] = 0;
	return (0);
	}