;*************************************************
; gsn_xy_1.ncl
;*************************************************
load          "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl"
;*************************************************
begin
  data  = asciiread("./data.asc",(/500,6/),"float")
  x     = data(:,1)
  y     = data(:,4)
;**************************************************
; create plot
;**************************************************
  wks = gsn_open_wks("ps","gsn_xy")        ; Open an ps workstation.
  plot = gsn_xy(wks,x,y,False)               ; Draw an XY plot with 1 curve.
  
end