Function m($i)

	Dim $a,$b,$c,$d,$,$p
	
	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
		$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