if ("&1".eq."START") then 
  if ("&2".eq."OUVERTURE") then 
    change directory <aper 
    set box 0 10 0 10 
    plot wipe_hr /scaling lin 0 2 
    draw text 5 9.5 "Experimental aperture" 
  else if ("&2".eq."BEAM") then 
    change directory <beam 
    set box 0 10 0 10 
    define integer nx ny nx1 nx2 ny1 ny2 
    let nx map_size[1] 
    let ny map_size[2] 
    define double toto[nx,ny] 
    let nx1 nx|2 
    let ny1 ny|2 
    let nx2 nx1+nx-1 
    let ny2 ny1+ny-1 
    let toto wipe_dustybeam[nx1:nx2,ny1:ny2] 
    plot toto 
    draw text 5 9.5 "Wipe Dusty Beam" 
  else if ("&2".eq."WIPE") then 
    change directory <sol 
    set box 0 10 0 10 
    plot wipe_neat_map 
    draw text 5 9.5 "Wipe Neat Map" 
  else if ("&2".eq."CLEAN") then 
    change directory <sol 
    set box 0 10 0 10 
    plot wipe_neat_map 
    draw text 5 9.5 "Clean Map" 
  else if ("&2".eq."ERROR") then 
    change directory <error 
    set box 0 10 0 10 
    plot mp0 
    draw text 5 9.5 "Eigenmode 1" 
  else 
    say "E-WIPE (START),  Dont know " &2 
  endif 
                                ! 
else if ("&1".eq."CONTINUE") then 
  define real mmax mmin 
  on error continue 
  if ("&2".eq."OUVERTURE") then 
    change directory <aper 
    set box 10 20 0 10 
    plot wipe_hr /scaling lin 0 2 
    draw text 5 9.5 "Synthetic aperture" 
  else if ("&2".eq."BEAM") then 
    change directory <beam 
    set box 10 20 0 10 
    plot wipe_neat_beam 
    draw text 5 9.5 "Wipe Neat Beam" 
  else if ("&2".eq."WIPE") then 
    change directory <sol 
    set box 10 20 0 10 
    compute mmax max wipe_neat_map 
    compute mmin min wipe_neat_map 
    if (mmax.ne.mmin) then 
      plot wipe_res 
      draw text 5 9.5 "Wipe Residu" 
    endif 
  else if ("&2".eq."CLEAN") then 
    change directory <sol 
    set box 10 20 0 10 
    compute mmax max wipe_neat_map 
    compute mmin min wipe_neat_map 
    if (mmax.ne.mmin) then 
      plot wipe_res 
      draw text 5 9.5 "Clean Residu" 
    endif 
  else if ("&2".eq."ERROR") then 
    change directory <error 
    set box 10 20 0 10 
    compute mmax max mp1 
    compute mmin min mp1 
    if (mmax.ne.mmin) then 
      plot mp1 
      draw text 5 9.5 "Eigenmode 2" 
    endif 
  else 
    say "E-WIPE (CONTINUE),  Dont know " &2 
  endif 
  on error 
                                ! 
else if ("&1".eq."END") then 
  define real mmax mmin 
  on error continue 
  if ("&2".eq."OUVERTURE") then 
    change directory <aper 
    set box 20 30 0 10 
    plot wipe_hr /scaling lin 0 3 
    draw text 5 9.5 "Apertures" 
  else if ("&2".eq."BEAM") then 
    change directory <beam 
    set box 20 30 0 10 
    compute mmax max wipe_dusty_map 
    compute mmin min wipe_dusty_map 
    if (mmax.ne.mmin) then 
      plot wipe_dusty_map 
      draw text 5 9.5 "Dusty Map" 
    endif 
  else if ("&2".eq."WIPE") then 
    change directory <wipe 
    set box 20 30 0 10 
    compute mmax max wipe_res 
    compute mmin min wipe_res 
    if (mmax.ne.mmin) then 
      plot wipe_res 
    endif 
  else if ("&2".eq."CLEAN") then 
    change directory <clean 
    set box 20 30 0 10 
    compute mmax max wipe_res 
    compute mmin min wipe_res 
    if (mmax.ne.mmin) then 
      plot wipe_res 
    endif 
  else if ("&2".eq."ERROR") then 
    change directory <error 
    set box 20 30 0 10 
    compute mmax max mp2 
    compute mmin min mp2 
    if (mmax.ne.mmin) then 
      plot mp2 
      draw text 5 9.5 "Eigenmode 3" 
    endif 
  else 
    say "E-WIPE (END),  Dont know " &2 
  endif 
  on error 
endif