home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 164.lha / ARexx / Example_ARexx / copy.rexx < prev    next >
OS/2 REXX Batch file  |  1988-04-28  |  202b  |  10 lines
  1. /* copy -- adds * wildcard to copy command */
  2. parse arg x
  3. asterisk = pos('*',x)
  4. do while asterisk > 0
  5.   x = delstr(x,asterisk,1)
  6.   x = insert('#?',x,asterisk-1,2)
  7.   asterisk = pos('*',x)
  8.   end
  9. c:copy x
  10.