&severity &error &routine hndlerr
&severity &warning &ignore

&args fdir seggrid xpos ypos nom

&if %:program% ne ARC &then
  &do
    &type Sorry, this should be run in ARC not %:program%
    &return &error
  &end



&setvar program = watershed_pts
&setvar usage = usage: %program% <flow_dir Grid> <seggrid> <x point> <ypoint> <outputname>



&if [null %fdir%] or [null %seggrid%] or [null %xpos%] or [null %ypos%] or [null %nom%] &then
  &do
    &call recover
    &return &error %usage%
  &end

grid

&if [exists ws_%nom% -grid ] &then
 kill ws_%nom% 

ws_%nom% = watershed(%fdir%, selectpoint(%seggrid%,%xpos%,%ypos%, INSIDE))
quit

&return

/* -------------------------------------------------------------
/* recover
/* -------------------------------------------------------------
&routine recover

&if [variable tmpws] &then
    &if [exists %tmpws% -workspace] &then
      &setvar junk = [delete %tmpws% -workspace]

&if [variable oldwin] &then 
  setwindow %oldwin%
&if [variable oldcell] &then 
  setcell %oldcell%
  
&type %usage%

&return


/* -------------------------------------------------------------
/* hndlerr
/* -------------------------------------------------------------
&routine hndlerr
&severity &error &fail
/*&call recover
&type %program%: unrecoverable error 
&return &error Aborting...