.key mypath/a
;
;   $VER: AddSlash 1.0 (23.09.93)
;
;   Written 20. September 1993 by J.Matern
;   This file is part of the 'UpTime'-package © by Jürgen Matern.
;   The package may be redistributed under limitations discribed
;   in the file 'UpTime.doc' which should have come with this
;   distribution. Read this file for more information!
;
;   Last changed: 23. September 1993
;
set mypath "<mypath>"
set lastchar `echo "$mypath" len 1`
if not $lastchar eq /
   if not $lastchar eq :
      set mypath `echo "$mypath/"`
   endif
endif
echo $mypath noline
unset lastchar
unset mypath