Re: Removing ASCII 13 from DOS files

[davidy]

An alternative to Robin's procedure, not using "let" which I think isn't
in standard Pop-11, but using the repeater looping construct which is,
and which makes it a bit more concise, is:

define clean_DOS(file);
    lvars c,
        repin  = discin(file),
        repout = discout(file);
    for c from_repeater repin do
        unless c==13 then repout(c) endunless
    endfor;
    repout(termin)
enddefine;

David