home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / pushd21.zip / _beaut.cmd next >
OS/2 REXX Batch file  |  1993-05-30  |  464b  |  18 lines
  1. /* _beaut */
  2. /* Ken Neighbors  30 May 1993 */
  3.  
  4. uc='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
  5. lc='abcdefghijklmnopqrstuvwxyz'
  6.  
  7. parse arg Directory
  8. if ( Directory <> '' ) then do
  9.     /* Lowercasize the drive letter */
  10.     DriveLetter = substr(Directory,1,1)
  11.     DriveLetter = translate(DriveLetter,lc,uc)
  12.     Directory = overlay(DriveLetter,Directory,1)
  13.  
  14.     /* Lowercasize the whole thing */
  15.     /* Directory = translate(Directory,lc,uc) */
  16. end
  17. return Directory
  18.