!
!  hp 20.11.1996
!  hp 01.08.2000 adaptiert für APS beamline 6ID-B
!
  say " "
  say " "
  say " Program plot.gra      hp 20.11.1996"
  say " "
!
!
!
  if (memory_total()-memory_free())>(0.5*memory_total()) then compress
  if n_arg()
    if arg(1)>0 then scan_number = arg(1)
  endif
  spec_filename = store_zone""spec_file
  read_file     = store_zone""filename""scan_number
  say " plotting file "filename""scan_number
  say " "
  if !search_file(read_file".fio")
    s1 = "dcl scp "get_zone""filename""scan_number".fio "path(store_zone)
    say ""
    say ""
    say " copying scan via scp "
    say s1
    s1
    s1=
    say ""
    say ""
  endif
  wait 0.2
  if !search_file(read_file".fio") then goto finish
  after
  scan_number = scan_number+1
finish:
  end