!
! hp 01.08.2000 adaptiert für 6ID-B
!
  say " "
  say " "
  say " Program auto_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
  let=
  scan_number = scan_number-1
start_loop:
    scan_number = scan_number+1
    read_file   = store_zone""filename""scan_number
    if search_file(read_file".fio") then goto start_loop
loop:
    read_file   = store_zone""filename""scan_number
    say " "
    say "Ready for scan "filename""scan_number
wait_loop:
    wait 1
    inquire/key let
    if search_symbol(let) then goto finish
    wait 1
    inquire/key let
    if search_symbol(let) then goto finish
    wait 1
    inquire/key let
    if search_symbol(let) then goto finish
    wait 1
    inquire/key let
    if search_symbol(let) then goto finish
    wait 1
    inquire/key let
    if search_symbol(let) then goto finish
    wait 1
    inquire/key let
    if search_symbol(let) then goto finish
    wait 1
    inquire/key let
    if search_symbol(let) then goto finish
    wait 1
    inquire/key let
    if search_symbol(let) then goto finish
    wait 1
    inquire/key let
    if search_symbol(let) then goto finish
    wait 1
    inquire/key let
    if search_symbol(let) then goto finish
    if !search_file(read_file".fio") then goto wait_loop
    wait 2
    after
    scan_number = scan_number+1
    compress
  goto loop
finish:
  end