Here's my code for a score of 225

Code:

Function m($)
   dim $c,$d,$f
   $f = '- . : .: :: |  '
   $f = split($f+$f+$f)
   for $c=6 to 19
      $f[$c]=$f[$c-5]+'|'
   next
   if $+-$=0
      do
         $m = trim($f[$ mod 20] + ' ' + $m)
         $ = $/20
      until $=0
   else
      $ = split($)
      for $d = -ubound($) to 0
         $m = $m + $c/20 * ascan($f,$[-$d])
         $c=$c*20
      ;next
   ;endif
EndFunction