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