#include "../h/rccl.h"


pumatask()
{
	TRSF_PTR t, e , b;
	POS_PTR  p0;

	t = gentr_trsl("T",  0.,  0., 864.);
	b = gentr_rot("B", 600. , 100., 800., yunit, 180.);

	p0 = makeposition("P0", t, t6, EQ, b, TL, t6);

	setmod('c');
	move(p0);
	move(park);
}
