home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Programmierung / SOURCE.mdf / programm / msdos / c / ue312d / utod.cmd < prev   
Encoding:
Text File  |  1990-11-16  |  449 b   |  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.