@set REGION PARENT=_msgmacs/wrap:{parse:line,{:1},{linewrap:{&line},{:2}, }}

@set REGION PARENT=_msgmacs/wrap2:{if:{:3},{parse:line,{:1},{linewrap:{&line},{:2},{:3}}},{tell:\{WRAP2\}: No wrap character specified.}

@set REGION PARENT=_msgmacs/rinstr:{subt:{add:{subt:{strlen:{:1}},{instr:{midstr:{:1},{strlen:{:1}},1},{midstr:{:2},-1,1}}},1},{subt:{strlen:{:2}},1}}

@set REGION PARENT=_msgmacs/linewrap:{with:d,{:1},{with:w,{:2},{with:nl,1,{with:cl,{midstr:{&d},1,{&w}},{with:ft,,{if:{ne:{midstr:{&d},{add:{&w},1}},{:3}},{null:{set:cl,{if:{lt:{strlen:{&cl}},{&w}},{&cl},{midstr:{&cl},1,{rinstr:{&cl},{:3}}}}}}}{while:{le:{&nl},{strlen:{&d}}},{null:{set:nl,{if:{gt:{strlen:{&cl}},{&w}},{add:{rinstr:{&cl},{:3}},{&nl}},{add:{strlen:{&cl}},{&nl}}}}{if:{gt:{strlen:{&cl}},{&w}},{set:cl,{midstr:{&cl},1,{rinstr:{&cl},{:3}}}}}{set:ft,{&ft}{strip:{&cl}}\\r}{set:cl,{midstr:{&d},{&nl},{add:{&nl},{&w}}}}}}{eval:{&ft}}}}}}}