
!**********************************************************************
!*                                                                    *
!*    CONVERT: Routine for masking top bit and CR <-> LF              *
!*                                                                    *
!*                   JHB:  Version 1.1 22 Apr 1988                    *
!*                                                                    *
!**********************************************************************

%include "inc:util.imp"
%begin

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

%routine do crtolf(%string (255) file)
   %integer a
   %on 3, 9 %start; ->eof; %finish
   openinput(1, file); selectinput(1)
   %cycle
      readsymbol(a); a=a&127
      a=10 %if a=13
      printsymbol(a)
   %repeat

eof:newline
   close input
%end

%routine do file(%string (255) file)
   selectoutput(2)
   do cr to lf(file)
%end

param = cli param

outfile = infile %and infile = param %unless param -> infile.("/").outfile
printline(infile." not accessible") %unless exists(infile)

openoutput(2, outfile) %if charno(outfile,1) # ':'

infile=infile.","
do file(in) %while infile -> in.(",").infile
close output %if charno(outfile, 1) # ':'

%endofprogram
