k, it's back in.
295
Code:

Function m($i)

Dim $a,$b,$c,$

If $i=$i+0
$a="|",":","."
$b=5,2,1
Do
$ = $i mod 20
If $=0
$m="-"+$m
Endif
For $c = 0 to 2
While $/$b[$c]
$m=$a[$c]+$m
$=$-$b[$c]
Loop
Next

$i = $i/20
If $i
$m = " " + $m
EndIf
Until $i=0
Else
For Each $c in Split($i)
$=0
For $b = 1 to Len($c)
$a=SubStr($c,$b,1)
$=$+($a=".")+($a=":")*2+($a="|")*5
Next
$m=$m*20+$
EndFunction