PROGRAM SHATST
C
	CALL PLTRON
C
	CALL GRID('SHADE TEST', 920., 0., 0., ' ', 720., 0., 0., -1)
	CALL SHADE( 1,  2,   0., 100., 0., 200., 920., 720.)
	CALL SHADE( 3,  3, 100., 200., 0., 200., 920., 720.)
	CALL SHADE( 2, -1, 200., 300., 0., 200., 920., 720.)
	CALL SHADE( 4, -2, 300., 400., 0., 200., 920., 720.)
	CALL ALPHA
	CALL PLTROF
	CALL EXIT
	END