#!/bin/rc
# fromdos - remove carriage-returns from files in place
# usage: fromdos file

for(i){
echo ',s/
//g
w
q' | ed $i >/dev/null
}