[Date Prev] [Date Next] [Thread Prev] [Thread Next] Date Index Thread Index Search archive:
Date:Mon Mar 9 17:00:58 2000 
Subject:Re: Removing ASCII 13 from DOS files 
From:davidy 
Volume-ID:1000309.06 

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