struct {
	long	rtyp;	/* Same as taskname	*/
	int	year;	/* Year since 1900	*/
	int	month;	/* month	(1-12)	*/
	int	day;	/* Day		(1-31)	*/
	int	hour;	/* hour		(0-23)	*/
	int	minute;	/* minute	(0-59)	*/
	int	second;	/* seconds	(0-59)	*/
	int	tick;	/* partof sec		*/
	int	clock;	/* ticks per second	*/
	int	extsts;	/* Task exit status	*/
	int	filler[2]; /* record filler	*/
}filestat = {0};



struct	{
	long	tsknm;		/* task name in rad50	*/
	unsigned  sts;		/* status		*/
	unsigned  vec;		/* vector		*/
	unsigned  ep;		/* entry point		*/
	long	  seg;		/* segment name		*/
	long	  reg;		/* region name		*/
	int	  dsw;		/* Directive status word*/
	int	  efm[4];	/* event flags		*/
	int	  efn;		/* syncronizing flag	*/
	} recbuf = {0};
