%include "inc:util.imp"
%begin

%string (255) infile, outfile, param, in

%routine do file(%string (255) infile)
   %integer a,b,c,n
   %on 9 %start
      close input
      %return
   %finish
   openinput(1, infile); selectinput(1)
   n=0
   %cycle
      readsymbol(a)
      b=(a>>4)&15; c=a&15
      b=b+7 %if b>9; b=b+'0'
      c=c+7 %if c>9; c=c+'0'
      printsymbol(b); printsymbol(c); n=n+1
      %if n=40 %then n=0 %and newline
   %repeat
%end

param = cli param

outfile = "" %and infile = param %unless param -> infile.("/").outfile

openoutput(2, outfile); selectoutput(2)

infile=infile.","
do file(in) %while infile -> in.(",").infile
close output; selectoutput(0)

%endofprogram