Probably my shortest macro, but it's handy
 
Macpretty 1.0 by J.J. Meddaugh - 10/22/95
 
May be copied with credit give
 
{:start} {input file,macro file to reformat}
{input file2,File to write to}
{rope %file,macpdone} {wope %file2}
{:macpstrt} {read line} {inst line,^(} {ifco ,macpstrt}
{:macpsta1} {comp line} {ifco macpstrt}
{subs temp,1,1,%line} {comp temp, } {ifco ,macpcont}
{subs line,2,255,%line} {goto macpsta1}
{:macpcont} {comp temp,^(} {ifco ,macpstrt}
{subs temp,2,1,%line} {comp temp,:} {ifco macpnewm}
{writ      %line} {goto macpstrt}
{:macpnewm} {writ} {writ %line}
e} {wclo}
{setv line} {setv temp} {}
--- DBSMail V1.28k [FD23A2E6]
---------------