/*																				*/
/*																				*/
/*				File:		  	text.c										*/
/*				Returns:	  	logical - true if i is a text block	*/
/*				Parameters:	i - int										*/
/*																				*/
/*																				*/


#include "advm.h"

char text (i)
int (i);

	{
	return ((i>=4000) && (i<5000));
	}