>Bigstring = 'cattttccv'
>NonDupeString = NonDupe(BigString)
>
>* Result = 'catv'
>

*NonDupe.prg
Lparameters tcString
Local lcReturn As String, ;
   lnX As Number
Create Cursor curDummy (myChar Char(1))
For m.lnX = 1 To Len(m.tcString)
   Insert Into curDummy Values (Substr(m.tcString, m.lnX, 1))
Endfor
Select Distinct myChar From curDummy Into Cursor curDummy
m.lcReturn = []
Scan
   m.lcReturn = m.lcReturn + myChar
endscan
use in CurDummy
Return m.lcReturn