/* Point arexx test 
	Anim Pulsar*/

	options results
	parse ARG Port x1 y1 b
	ADDRESS value Port

	pp_CountFrames
	nb=result
	IF nb<2 then DO
		pp_Warn 'Make*an*Anim*first.'
		EXIT
	END	

	r=20

	do i=1 to r
		pp_Circle x1 y1 i
		pp_NextFrame
	end