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=CHR(liVal-lii*256)+lcVal
liVal=lii && Zapiš novou hodnotu pro převod
lii=INT(liVal/256) && Vyděl 256
lcVal=CHR(liVal-lii*256)+lcVal
liVal=lii && Zapiš novou hodnotu pro převod
lii=INT(liVal/256) && Vyděl 256
RETURN CHR(liVal-lii*256)+lcVal && Převeď rozdíl na znak a přičti ho