dow %subst(Text:1:1)='0';
Text = %subst(Text:2);
enddo;