%begin; !Wrap a file in STX and (ETX+checksum)

%include "inc:util.imp"
%string(31)infile,outfile=""
%constinteger stx=2,etx=3
%integer sum=stx+etx,sym

%onevent 9 %start
  printsymbol(etx); phex4(sum); %stop
%finish

defineparam("Input file",infile,pammajor!pamnodefault)
defineparam("Output file",outfile,pamnewgroup!pammajor)
processparameters(cliparam)
outfile = infile %if outfile=""

openinput(1,infile); selectinput(1)
openoutput(1,outfile); selectoutput(1)
printsymbol(stx)
%cycle
  readsymbol(sym); printsymbol(sym)
  sum = sym&127+sum; sum = sum+13 %if sym=nl
%repeat

%endofprogram
