7 findreplace.menu
/*
/*   Called by: editanno.menu
/*  Calls made:	findreplace.aml
/*
/* Description:	Menu for entering find and replace annotation strings.
/*
  Find string: %findstring
 Replace with: %replacestring

        %proceed
%findstring input .ae$findstring 10 required typein yes char
%replacestring input .ae$replacestring 10 required typein yes char
%proceed button 'Proceed' &run findreplace
%forminit &s .ae$findstring; ~
  &s .ae$replacestring