;chance color of the mouse

		include	"baselibs.i"
		include	"baselibs1.i"
		include	"basegfx.i"
		include	"baseintuition.i"
		include	"intuition.i"

	variables

	CPTR	_GfxBase
	CPTR	_IntuitionBase


	main()

	CPTR	viewl
	CPTR	viewportl
	CPTR	windowl
	CPTR	rp
	int	count
	short	mousex,mousey
	int	color
	int	flag

	{
	func	_IntuitionBase,=,OpenLibrary,"intuition.library",0
		if	_IntuitionBase,==,0,1
		{
		print	<"no open intuition.library">
		exit	5
		}
		ifend	1

		func	_GfxBase,=,OpenLibrary,"graphics.library",0
		if	_GfxBase,==,0,2		
		{
		print	<"no open graphics.library">
		closelibrary	_IntuitionBase
		exit	5
		}
		ifend	2

		func	viewl,=,ViewAddress
		structput	viewportl,=,viewl,->,v_ViewPort
		structput	windowl,=,_IntuitionBase,->,ib_ActiveWindow
		structput	rp,=,windowl,->,wd_RPort

		calc	count,=,0
		while	count,!=,-1,11		;forever no add count 
			{
			structput	mousex,=,windowl,->,wd_MouseX
			structput	mousey,=,windowl,->,wd_MouseY

			func	count,=,ReadPixel,rp,mousex,mousey
				if	count,!=,-1,3
				{
					calc	color,=,count,*,5
					SetRGB4	viewportl,17,color,color,color
					delay	6
				}	
				ifend	3
			}	11
	}
	end