[FUNCTION BolukAyir]

// Kullanım: <BolukAyir 10000>

IF (<EVAL STRLEN(<ARGS>)> > 3)

   LOCAL.STRLEN=<EVAL STRLEN(<ARGS>)>

   LOCAL.CURRENTDIGIT=<EVAL STRLEN(<ARGS>)>

   WHILE (<LOCAL.CURRENTDIGIT> > 3)

      ARGS=<STRSUB 0 <EVAL (<LOCAL.CURRENTDIGIT> - 3)> <ARGS>>.<STRSUB <EVAL (<LOCAL.CURRENTDIGIT> - 3)> 50 <ARGS>>

      LOCAL.CURRENTDIGIT -= 3

   ENDWHILE

ENDIF

RETURN <ARGS>