**************************
* kontrola existence ICO *
**************************
FUNCTION ICAK
PARAMETERS S_ICO
PRIVATE sumaX,iX,nX
nX = ABS(S_ICO)
sumaX = 0
nX = INT(nX / 10)
iX = 2
DO WHILE nX > 0
sumaX = sumaX + ((nX - (INT(nX / 10) * 10)) * iX)
iX = iX + 1
nX = INT(nX / 10)
ENDDO
IF .NOT.(MOD(11 - MOD(sumaX,11),10) = MOD(S_ICO,10))
RETURN .F.
Vypadá to, že se Malého kydů, které neustále bezostyšně rozesílá, bojí stále míň lidí. A pravděpodobně jich i míň platí - viz http://www.spolecna-obrana.estranky.cz/clanky/aktuality/postup-proti-michalu-malemu-funguje.-topinternetu-rapidne-ubyvaji-zisky-.html