foxpro - pojasnilo kode

Imam en foxpro program in imam težave z razumevanjem dela kode:

const2 = 0
FOR x = 1 TO LEN(const1)
const2 = const2+x*ASC(LOWER(SUBSTR(const1, x)))
ENDFOR
RETURN ALLTRIM(TRANSFORM(2+ASC(SUBSTR(const1, 2)))+TRANSFORM(const2)+TRANSFORM(1+ASC(SUBSTR(const1, 3))))
ENDFUNC
**
FUNCTION fw_hdsr3
LPARAMETERS adeh
LOCAL adeh2, i, x, y
x = ""
y = ""
adeh = ALLTRIM(adeh)
FOR i = 1 TO LEN(adeh)
IF MOD(i, 2)=1
x = x+SUBSTR(adeh, i, 1)
ELSE
y = y+SUBSTR(adeh, i, 1)
ENDIF
ENDFOR
RETURN TRANSFORM(VAL(x)*LEN(adeh)+VAL(y)*3+LEN(adeh)*LEN(adeh))
ENDFUNC