KiXGolf Score = 177

Code:

Function m($)

dim $a,$b,$c

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

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

EndFunction