Fungsi Deskripsi

*---------------
Function Deskrip
*---------------
Parameter Desk
Local Hrf, Deskr
Deskr:= ""
For x:= Len(Desk) To 1 Step -1
Hrf:= Asc(SubStr(Desk, x, 1))
If Mod(x, 2)= 0
Hrf-= 1
Else
Hrf+= 12
EndIf
Hrf:= Hrf - x * 2
Deskr:= Chr(Hrf) + Deskr
Next
Return Deskr
*-----------