C THIS GENERATES A SAMPLE GRAPH USING GRAF.
C IT IS SIMILAR TO SAMPLE1, BUT ADDS SYMBOLS ALONG THE CURVE.
C
	REAL X(100), Y(100)
	DO 10 J=1,100
		X(J) = J-1
		Y(J) = SIN(X(J)/5.0) * EXP(-X(J)/30.0)
10	CONTINUE
C
C DRAW THE CURVE USING THE DEFAULT BLACK LINE
C
	CALL GRAF1 (X, Y, 100)
	CALL GRTITL ('Sample 2', 100, 'X axis label', 100,
	1	'Y axis label', 100)
C
C NOW OVERPLOT WITH SYMBOLS
C
	CALL GRNOGR	!DON'T REDRAW GRID
	CALL GRLSCA	!USE LAST SET OF SCALE VALUES (DON'T AUTOSCALE NEW)
	CALL GRSYM (-65)!USE SYMBOLS AT EACH DATA POINT
	CALL GRAF1 (X, Y, 100)	!REPLOT POINTS
	CALL GRDATE
	CALL EXIT
	END