Danny
Whoops! Well I said I couldn't test it.
I used the wrong symbol code - instead of 100 for "switch to subset A" I had 102 which is "function 1".
Put that right and I reckon it will be fine.
Find the lines
%if length is odd, switch to codeA and then put in last character
if(mod(length(&data),2)=1)
% if you prefer CodeB replace 102 by 101
&currsymbol:=102
and replace them by
%if length is odd, switch to codeB and then put in last character
if(mod(length(&data),2)=1)
% if you prefer CodeA replace 100 by 101
&currsymbol:=100
I will edit my main post to correct it.
regards
Stuart