home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / ARCADEA / DEMO30 / MACROS.Z / multsave.d3m < prev    next >
Text File  |  1997-04-15  |  485b  |  27 lines
  1. 'Multsave.d3m -- demonstrates string concatenation and saving files
  2. 'The macro allows you to open a file of your choice. The macro then
  3. 'saves 10 copies of the file as "test1.dc" through "test10.dc"
  4.  
  5. Message "Pick a file to be saved 10 times"
  6. >open
  7. {
  8. }
  9.  
  10. if sys(9) < 1 then
  11.     message "This drawing file is empty! Multsave terminated."
  12.     end
  13. end if
  14.  
  15. Precision 0
  16.  
  17.  
  18. for i = 1 to 10
  19. t$=i
  20. name$ = "*\test"+t$+".dc"
  21. >SaveAs
  22. {
  23.     <Filename [name$]
  24.     }
  25. next i
  26.  
  27.