home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / ronheb.zip / INVERT.PRG < prev    next >
Text File  |  1988-02-29  |  191b  |  12 lines
  1. function inv
  2. param string
  3. private lrevstr,length
  4. length=len(string)
  5. if length=0
  6.    return(string)
  7. endif
  8. lrevstr=string
  9. call lrev with string,lrevstr,word(length)
  10. return(lrevstr)
  11.  
  12.