Function m($)
Dim $a
 Do
  If $+0=$
   $m = iif($ mod 20, Split(' . : .: ::')[$ mod 5],'-') + Left('|||',$ mod 20/5)+$a+$m
   $a = ' '
   $ = $ / 20
  Else
   $a = InStr('-.:__|', Left($,1))
   $m = iif($a, $m+$a-1, $m*20)
   $ = Right($,~)
  Endif
 Until $ = 0
EndFunction