%begin  {modify all the custom files}

%include "inc:fs.imp"
%include "inc:util.imp"
%include "inc:fsutil.imp"
%include "inc:wild.imp"

%record(cellfm)%name f

%routine do file(%string(255)f)
%string(255)s,t,a,b
%integer changed=0,i,k
  %on 3,9 %start
    %if event_event=9 %start
      resetoutput %if changed=0
      closeoutput
    %finish
    %unless event_event=9 %start
      selectoutput(0); printstring(event_message); newline
    %finish
    closeinput; %return
  %finish
  selectoutput(0); printstring("File: ".f); newline
  openinput(1,f); openoutput(1,f."_")
  selectinput(1); selectoutput(1)
  %cycle
    readline(s); t = ""
    %for i = 1,1,length(s) %cycle
      k = charno(s,i); k = k!32 %if 'A'<=k<='Z'
      t = t.tostring(k) %unless k=' '
    %repeat
{start of mod}
    %if t->("fmac:framemap") %then t = "!".s %else t = s
{end of mod}
    %if t#s %start
      selectoutput(0)
      printstring("In:   ".s); newline; printstring("Out:  ".t); newline
      changed = 1
    %finish
    selectoutput(1); printstring(t) %and newline %unless t="" %and s#""
  %repeat
%end

f == fileslist("custom:*.com")
%while f##nil %cycle
  do file(f_datum)
  f == f_link
%repeat

%end