home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Programmieren / Kurztests / ACE / Prgs / ShellUtils / nocaps.b < prev    next >
Text File  |  1994-10-29  |  477b  |  20 lines
  1. ' Program: nocaps.b
  2. ' Written by: Dan Oberlin
  3. '
  4. ' Takes multiple filenames as CLI arguments and renames the files to
  5. ' their lowercase equivalents.  Nice for easily renaming those IBM
  6. ' files you may download.
  7.  
  8. FOR i% = 1 TO ARGCOUNT
  9.     newname$ = ""
  10.     FOR j% = 1 TO LEN(ARG$(i%))
  11.     k% = ASC(MID$(ARG$(i%),j%,1))
  12.     IF k% >= &H41 AND k% <= &H5a THEN
  13.         newname$ = newname$+chr$(k%+&H20)
  14.     ELSE
  15.         newname$ = newname$+chr$(k%)
  16.     END IF
  17.     NEXT
  18.     SYSTEM "rename "+ARG$(i%)+" "+newname$
  19. NEXT
  20.