home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FMW.LZH / RTSLASH.PRG < prev    next >
Encoding:
Text File  |  1992-04-09  |  515 b   |  17 lines
  1. *!*********************************************************************
  2. *!
  3. *!      Procedure: RTSLASH
  4. *!
  5. *!      Called by: INITALIZE()        (function  in FMINSTAL.PRG)
  6. *!               : GETFMLOC()         (function  in SMOVER.PRG)
  7. *!
  8. *!*********************************************************************
  9. FUNCTION rtslash
  10.    PARAMETER cpath
  11.    PRIVATE cpath
  12.    cpath = ALLTRIM(cpath)
  13.    IF RIGHT(cpath,1) <> "\"
  14.       cpath = cpath+"\"
  15.    ENDIF (RIGHT(cpath,1) <> "\")
  16.    RETURN ALLTRIM(cpath)
  17.