[Date Prev] [Date Next] [Thread Prev] [Thread Next] Date Index Thread Index Search archive:
Date:Mon Mar 9 16:46:02 2000 
Subject:news-relay 
From:pop 
Volume-ID:1000309.04 

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;