Function m($i)

	Dim $b,$c,$d,$
	
	If $i=$i+0
		$d=5,2,1
		Do
			$ = $i mod 20
			If $=0
				$m="-"+$m
			Endif
				For $c = 0 to 2
					While $/$d[$c]
						$m=split("| : .")[$c]+$m
						$=$-$d[$c]
					Loop
				Next

			$i = $i/20
			If $i
				$m = " " + $m
			EndIf
		Until $i=0
	Else
		For Each $c in Split($i)
			$=0
			while $c
				$b=left($c,1)
				$c=right($c,~)
				$=$+($b=".")
				$=$+($b=":")*2
				$=$+($b="|")*5
			loop
			$m=$m*20+$
		;Next
EndFunction