home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / fwinsa.lzx / Save_ASCII.macro < prev   
Encoding:
Text File  |  1995-09-18  |  592 b   |  23 lines
  1. /* Save_ASCII */
  2.  
  3.  options results
  4. 'Status pathname';path=RESULT
  5.  if path="" then do
  6.     'ShowMessage 1 1 "  Sorry, no document name.  " "" "" "  OK  " "" ""'
  7.     exit
  8.     end
  9.  else if upper(right(path,4))~='.TXT' then path=path'.txt'
  10. 'Status filename'
  11.  file=RESULT
  12.  if upper(right(file,4))~='.TXT' then file=file'.txt'
  13. 'Save ASCII "'path'"'
  14.  if RC>0 then do
  15.     msg='Could not save file:'
  16.     if length(file)<26 then do
  17.         file=center(file,26,'20'x)
  18.         msg='   Could not save file:   '
  19.         end
  20.     else msg=center('Could not save file:',length(file),'20'x)
  21.     'ShowMessage 1 1 "'msg'" " " "'file'" "OK" "" ""'
  22.     end
  23.