4 more for 376:

Code:

Function m($i)
Dim $a,$b,$c,$d,$,$p

If $i=$i+0
$p=20
$a="|",":","."
$d=5,2,1
Do
$b=$i mod $p
$=$b/($p/20)
If $=0
$m="-"+$m
Else
For $c = 0 to 2
While $/$d[$c]
$m=$a[$c]+$m
$=$-$d[$c]
Loop
Next
EndIf
$p=$p*20
$i=$i-$b
If $i>0
$m=" "+$m
EndIf
Until $i=0
Else
$p=1
$i=Split($i)
For $c = UBound($i) to 0 Step-1
$=0
For $b = 1 to Len($i[$c])
$a=SubStr($i[$c],$b,1)
$=$+($a=".")
$=$+($a=":")*2
$=$+($a="|")*5
Next
$m=$m+$*$p
$p=$p*20
;Next
EndFunction

_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)