home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / disk / directory / megad / rexx / makelikefiles.rexx < prev    next >
OS/2 REXX Batch file  |  1995-02-27  |  539b  |  20 lines
  1. /* simply create like files in T: directory to test RenameOther.rexx */
  2.  
  3. /* if run from MegaD change address to REXX to prevent return values 
  4.     from being used as ARexx commands to MegaD
  5. */
  6. ADDRESS REXX
  7. name  = 'T:likeFile'
  8. number = 1
  9. do 20
  10.     filename = name || RIGHT(number,2,'0')
  11.     SAY filename
  12.     OPEN('file',filename,'w');
  13.     WRITELN('file',number)
  14.     CLOSE('file')
  15. /* un-comment if you want to test with a phony .info file for each file */
  16. /*     ADDRESS COMMAND COPY 'sys:system/shell.info' to filename || '.info' */
  17.     number = number + 1
  18.     end
  19.  
  20.