; begin Mayan Number Converter
;
;!
Function m($)
    dim $a,$b,$c,$p
    if $=$+0
        do
            $b = $ mod 20
            $=($-$b)/20

            if $b
                $a=5,2,1
                for each $p in $a
                    while $b/$p>0
                        $m=substr(".:zz|",$p,1)+$m
                        $b=$b-$p
                    loop
                next
            else
                $m="-"+$m
            endif
            $m=" "+$m
        until $=0
        $m=ltrim($m)
    else
        $c=1
        for $a=len($) to 1 step -1
            $b=substr($,$a,1)

            if $b=" "
                $c=$c*20
            endif
            $m=$c*instr(".:zz|",$b)+$m

EndFunction
;!
;!
; end Mayan Number Converter