{
Check if tag editing done.
}
procedure CheckEditTag(tag:integer; minval,maxval:real);
var s,d:string; r:real; b:boolean;
begin
 s:='';
 d:='';
 r:=0;
 if editstate=1 then
 if typetag(tag)>0 then begin
  s:=edit('?ans 0');
  if extractword(1,s)='EDIT_TAG_'+nametag(tag) then begin
   if extractword(2,s)='1' then begin
    s:=edit('?ans 1');
    d:=worddelims('|');
    s:=extractword(2,s);
    d:=worddelims(d);
    if typetag(tag)=1 then begin
     r:=eval(s);
     if (r<minval) or (r>maxval) then r:=_nan;
     if not isnan(r) then b:=isettag(tag,round(r));
    end;
    if typetag(tag)=2 then begin
     r:=eval(s);
     if (r<minval) or (r>maxval) then r:=_nan;
     if not isnan(r) then b:=rsettag(tag,r);
    end;
    if typetag(tag)=3 then b:=ssettag(tag,s);
   end;
   s:=edit('');
  end;
  if isnan(r) then Warning('Invalid input!')
 end;
 s:='';
 d:='';
end;
