Benny-313

Code:

Function m($i)

Dim $a,$b,$c,$d,$

If $i=$i+0
$a="|",":","."
$d=5,2,1
Do
$b = $i mod 20
If $b=0
$m="-"+$m
Else
For $c = 0 to 2
While $b/$d[$c]
$m=$a[$c]+$m
$b=$b-$d[$c]
Loop
Next
EndIf
$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+$
;Next
EndFunction