LPARAMETERS liVal
* liInt - Integer
LOCAL lcVal,lii
lii=INT(liVal/256) && Vyděl 256
lcVal=CHR(liVal-lii*256) && Převeď rozdíl na znak a přičti ho
liVal=lii && Zapiš novou hodnotu pro převod
lii=INT(liVal/256) && Vyděl 256
lcVal=lcVal+CHR(liVal-lii*256)
liVal=lii && Zapiš novou hodnotu pro převod
lii=INT(liVal/256) && Vyděl 256
lcVal=lcVal+CHR(liVal-lii*256)
liVal=lii && Zapiš novou hodnotu pro převod
lii=INT(liVal/256) && Vyděl 256
RETURN lcVal+CHR(liVal-lii*256) && Převeď rozdíl na znak a přičti ho