F
PL_
PL_
PL_AMTOCRLF({%})
*
*$*      S$$$ = {%1}
*$*      {R} = ''
*$*      FOR I$$$ = 1 TO LEN(S$$$) STEP 4000
*$*         SS$$$ = S$$$[I$$$,4000]
*$*         LOOP
*$*            T$$$ = INDEX(SS$$$,AM,1)
*$*         WHILE T$$$ DO
*$*            IF T$$$ = 1 THEN
*$*               SS$$$ = CRLF : SS$$$[2,4000]
*$*            END ELSE
*$*               SS$$$ = SS$$$[1,T$$$-1] : CRLF : SS$$$[T$$$+1,4000]
*$*            END
*$*         REPEAT
*$*         {R} = {R} : SS$$$
*$*      NEXT I$$$
*
*$*      {R} = SWAP({%1},AM,CRLF)
*$*      LOOP WHILE INDEX({R},AM,1) DO
*$*         {R} = SWAP({R},AM,CRLF)
*$*      REPEAT
*
      {R} = CHANGE({%1},AM,CRLF)
