C language and Xbase

[skiman]

Hi,

I think this is the same code.

Code: Select all

* cyklus pre nacítavanie znakov z retazca
** velkostsuboru = size of file
i:=0
DO WHILE i<velkostsuboru
i++
pomznak := iif(znak:=asc(cSourcestring[i])<128,zNak,zNak-127)-1
for j=0 to pomznak
i++
cTargetString+=cSourceString[i]
next
ENDDO