home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / memacs32.zip / utod.cmd < prev    next >
OS/2 REXX Batch file  |  1993-08-07  |  449b  |  31 lines
  1. ;    translate the files from UNIX line termination to DOS
  2.  
  3. *setup
  4.  
  5.     delete-other-windows
  6.     find-file flist
  7.     beginning-of-file
  8.     select-buffer main
  9.  
  10. *next
  11.     set %cfile #flist
  12.     !if &seq %cfile "<end>"
  13.         !goto endit
  14.     !endif
  15.  
  16.     find-file %cfile
  17.     set %b $cbufname
  18.     update-screen
  19.     insert-string "a"
  20.     delete-previous-character
  21.     save-file
  22.  
  23.     select-buffer main
  24.     delete-buffer %b
  25.     !goto next
  26.  
  27. *endit
  28.  
  29.     print "[All Done]~n"
  30.     exit-emacs
  31.