F
PL_
PL_
PL_CRLFTOAM({%})
*
*$*      {R} = ''
*$*      S$$$ = {%1}
*$*      CRLF$$$ = CHAR(13) : CHAR(10)
*$*      LOOP
*$*         T$$$ = INDEX(S$$$,CRLF$$$,1)
*$*      WHILE T$$$ DO
*$*         IF T$$$ > 1 THEN
*$*            {R} = {R} : S$$$[1,T$$$-1] : AM
*$*         END ELSE
*$*            {R} = {R} : AM
*$*         END
*$*         S$$$ = S$$$[T$$$+2,999999]
*$*      REPEAT
*$*      {R} = {R} : S$$$
*$*      S$$$ = ''
*
*$*      {R} = SWAP({%1},CRLF,AM)
*$*      LOOP WHILE INDEX({R},CRLF,1) DO
*$*         {R} = SWAP({R},CRLF,AM)
*$*      REPEAT
*
      {R} = CHANGE({%1},CRLF,AM)
