Jonathan de Boyne Pollard wrote in a message to Lionel Widdifield:


JdBP>   Blimey!  You non-4OS2 users don't half like to jump
JdBP> through some hoops. 

  I stuffed it into a directory on the path about 15months ago, intending
to "clean" it up a bit. At the time it served a purpose.


JdBP>   What's _beaut() when it's at home, anyway ?

 Ooops.

>>>>>>>>>>>----------------- _beaut.cmd
/* _beaut */
/* Ken Neighbors  30 May 1993 */

uc='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
lc='abcdefghijklmnopqrstuvwxyz'

parse arg Directory
if ( Directory  '' ) then do
    /* Lowercasize the drive letter */
    DriveLetter = substr(Directory,1,1)
    DriveLetter = translate(DriveLetter,lc,uc)
    Directory = overlay(DriveLetter,Directory,1)

    /* Lowercasize the whole thing */
    /* Directory = translate(Directory,lc,uc) */
end
return Directory

>>>>>>>>>>>-----------------


  Lionel.
--- timEd/2-B11