and here is 176 code.
Code:

Function m($_)

dim $,$b,$c

for $b = 1 to 15
$c = split("- . : .: :: | " + $)
$ = $ + $c[$b] + "| "
next

for each $ in split($_)
$m = $m * 20 + ascan($c,$)
if $m<0
$m = $c[$_ mod 20]
if $_/20
$m = m($_/20) + " " + $m

EndFunction