F
PL_
PL_
PL_REPL({%},{%},{%})
*
*$*      {R} = ''
*$*      S$$$ = {%1}
*$*      LOOP
*$*         T$$$ = INDEX(S$$$,{%2},1)
*$*      WHILE T$$$ DO
*$*         IF T$$$ > 1 THEN
*$*            {R} = {R} : S$$$[1,T$$$-1] : {%3}
*$*         END ELSE
*$*            {R} = {R} : {%3}
*$*         END
*$*         S$$$ = S$$$[T$$$+LEN({%2}),999999]
*$*      REPEAT
*$*      {R} = {R} : S$$$
*$*      S$$$ = ''
*
*$*      {R} = SWAP({%1},{%2},{%3})
*$*      LOOP WHILE INDEX({R},{%2},1) DO
*$*         {R} = SWAP({R},{%2},{%3})
*$*      REPEAT
*
      {R} = CHANGE({%1},{%2},{%3})
