Rogier,
I liked your code so I just had to play with it, doing away with $a = $ mod 20 saved you 1 stroke, you now have 216.

Code:

Function m($)
 Dim $a
 If $+0=$
   Do
    $m = IIf($ mod 20,Left('.',$ mod 5 mod 2)+Left('::',$ mod 5/2)+Left('|||',$ mod 20/5),'-')+' '+$m
    $  = $ / 20
   Until $ = 0
 Else
   $a = InStr('-.:__|', Left($,1))
   $m = m(IIf($a, $m+$a-1, $m*20))
   $  = Right($,~)
EndFunction


Code:

Mayan Number Converter passed all 60 tests (100% correct)

KiXtart
KiXtart Version  = 4.52
KiXGolf Script   = kixgolf_mnc.kix

Computer
OS               = Windows XP Professional
CPU              =               Intel(R) Pentium(R) D CPU 2.80GHz
Speed            = 2793 MHz
Memory           = 2048 MB

KiXGolf Scoring Engine
Scoring Engine   = 3.0.3

KiXtart Golf Score
Tournament       = KiXtart Golf: Mayan Number Converter
Processing Start = 2006/07/22 17:39:33.831
Processing End   = 2006/07/22 17:39:33.846
Duration         = 0000/00/00 00:00:00.014
KiXGolf Score    = 216

Edited by benny69 (2006-07-23 12:40 AM)