news-relay

[pop]

See Aaron's note... but here's a utility

define clean_DOS(file);
    let repin  = discin(file),
        repout = discout(file),
        c
    in
        repeat
           repin()->c;
           unless c==13 then repout(c)
           endunless;
           quitif(c=termin)
        endrepeat
    endlet
enddefine;