Here is my 448, the additional UDF 'x($)'is the power calculator and both UDF's were placed between ;!,... ;! so that it was included in the count calc:

Code:

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

If VarType($i)=8
$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+$*x($p)
$p=$p+1
Next
Else
$p=1
Do
$b=$i-$i/x($p)*x($p)
$=$b/x($p-1)
If $=0
$m="-"+$m
Else
For $c=1 to $/5
$m="|"+$m
$=$-5
Next
For $c=1 to $/2
$m=":"+$m
$=$-2
Next
If $=1
$m="."+$m
$=$-1
EndIf
EndIf
$i=$i-$b
$p=$p+1
If $i>0
$m=" "+$m
EndIf
Until $i=0
EndFunction

Function x($)
Dim $y
$x=1
For $y = 1 to $
$x=$x*20
EndFunction

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