update:
Benny pm-ed me a beauty of a 211, and with the trick above it's a 210. So this is a Benny/Sarge score
Code:
Function m($)
Dim $a
	If $+0=$
		Do
			$m = Split(" . : .: :: -")[IIf($ mod 20=0,5,$ mod 20 mod 5)] + Left('|||',$ mod 20/5)+$a+$m
			$a = ' '
			$ = $ / 20
		Until $ = 0
	Else
		While $
			$a = InStr('-.:__|', Left($,1))
			$m = IIf($a, $m+$a-1, $m*20)
			$ = Right($,~)
EndFunction