227 then.
Code:

Function m($b)

Dim $a,$,$d
$a=".:__|"
If $b=$b+0
$ = $b mod 20
If $=0
$m="-"+$m
Endif
$d=5
while $d
While $/$d
$m=substr($a,$d,1)+$m
$=$-$d
Loop
$d=$d/2
loop
$ = $b/20
If $
$m =m($) + " " + $m
EndIf
Else
For Each $ in Split($b)
For $b = 0 to 19
if m($b) = $
$m=$m*20+$b
EndFunction