Function m($i)

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