real   x(20),Y(20)
  call opngks
  do i=1,20
  	x(i) = float(i-1)*.314
  	y(i) = x(i) + cos(x(i))*2.0
  enddo
  call ezxy (x,y,20,'Example (EZXY)$')
  call clsgks
  end