Fungsi Pudar

*---------------
Function Pudar
*---------------
* Fungsi untuk mengubah karakter di layar menjadi berwarna hitam+/hitam
* Revisi terakhir : 03/02/1992

ParameterS thestring
Private n, yourstring
yourstring = ''

For n = 1 To Len(thestring) STEP 2
yourstring = yourstring +SUBSTR(thestring, n, 1) + Chr(8)
Next

Return yourstring
*----------------