Rogier and I can play this game, here is Jooel code 149 :

Code:

Function m($)
  If $<$+0
    $m=-1
    Do
      $m=$m+1 
    Until $=m($m)
  Else
    $m = IIf($ mod 20,Split(' . : .: ::')[$ mod 5],'-') + Left('|||',$ mod 20/5)
    $=$/20
    If $
      $m = m($) + ' ' + $m
EndFunction
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)