Nekem tök mindegy hogy magyarul vagy angolul, csak érthetően/értelmezhetően legyenek a változónevek.
Annak idején sok örökölt clipper kóddal kellett dolgoznom amik így néztek ki. Még az ellenségemnek sem kívánom...
for jj = 1 to x+1
if jj = x + 1
pp = pp + 1
endif
qq = 21
gy = 0
for ii=i1 to i2
q = alltrim(str(ii))
gy = gy + x&q[jj] + ix&q[jj]
next
select 3
if gy <> 0
pp = pp+1
if jj<=x
seek kk[jj]
@ pp,1 say left(mn,20)
else
@ pp,1 say Összesen :'
endif
o = 0
f = 0
for ii=i1 to i2
q = alltrim(str(ii))
o = o + ix&q[jj]
f = f + x&q[jj]
@ pp,qq say x&q[jj] picture'9999999999.99'
qq = qq + 15
next
@ pp,qq say f picture'9999999999.99'
qq = qq + 15
endif
next