%begin; !Wrap a file in STX and ETX

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

%onevent 9 %start
  printsymbol(etx); %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)
%repeat

%endofprogram
