Parm NewFile

##  StripCr.Xeq - will copy from the old file containing
##  the CR/LF and write to a new temporary file.  Note: A
##  record containing a double quote (") will screw it up.
##
##  John Zoltak - North American Mfg Co
##
##    Execute it like this:
##    StripCR NewFile < OldFile

Continue
Purge !NewFile,Temp > $Null
While True
   ErrClear
   Continue
   Input Name=Buffer > $Null
   if CIError<>0 Then
      Return
   Endif
   SetVar n Pos(Chr(13),"!Buffer")
   If n>0 Then
      SetVar n n - 1
      SetVar Buffer Str("!Buffer",1,n)
   EndIf
   Echo !Buffer >> !NewFile
EndWhile