;
set ss = $scolor

@find_att

if ($returned != 0) then
set pic = $returned
dialogbox ("Peak";$pic) \
  "Ok to remove" message *

scolor 8
show_att $pic
scolor $ss
unset ("att[" // $pic // "]")
endif
