lol - NICE !

I was just going to post this variation on Rogier's theme - a 207 - got to see this other one though cripes ...

Code:

Function m($)

dim $a,$t[19]

if $=$+0
$m = iif($ mod 20,split(' . : .: ::')[$ mod 5],'-') + left('|||',$ mod 20/5)
$=$/20
if $
$m = m($) + ' ' + $m
endif
else
for $a = 0 to 19
$t[$a] = m($a)
next
for each $a in split($)
$m = $m * 20 + ascan($t,$a)
; next
;endif

EndFunction