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 |