 
**************************
* 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