/*)LIBRARY
*/

#include	<rsts.h>

peek(loc)
char	*loc;
/*
 * Rsts peek command
 */
{
	xrb.xrlen = loc;
	rstsys(_PEEK);
	return(xrb.xrlen);
}