home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Raytracing / Objects / TAI-HFX1.LHA / PAR.lzh / PUT.REXX < prev   
Encoding:
OS/2 REXX Batch file  |  1995-03-31  |  430 b   |  28 lines
  1. /* PAR PUT SCRIPT */
  2.  
  3. ADDRESS DDR
  4. OPTIONS RESULTS
  5.  
  6. PARSE ARG inname ',' outname
  7.  
  8. 'MODE ANIM'
  9. 'EMULATE ON'
  10. 'APPEND OFF'
  11.  
  12. 'FILE' outname
  13. if result ~= '' then 'APPEND ON'
  14.  
  15. ADDRESS COMMAND
  16. 'copy ' ""inname"" ""outname""
  17.  
  18. ADDRESS DDR
  19. filename = GetFileName(outname)
  20. 'DONE' ""filename""
  21. EXIT
  22.  
  23. GetFileName: procedure
  24.   ARG fullfile
  25.   c = lastpos("/", fullfile)
  26.   if c = 0 then c = lastpos(":", fullfile)
  27.   return substr(fullfile, c + 1)
  28.