Function m($i)

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

			$i = $i/20
			If $i
				$m = " " + $m
			EndIf
		Until $i=0
	Else
		For Each $c in Split($i)
			$=0
			For $b = 1 to Len($c)
				$a=SubStr($c,$b,1)
				$=$+($a=".")+($a=":")*2+($a="|")*5
			Next
			$m=$m*20+$
EndFunction

Function m($)

	Dim $a,$b,$d
	$a=".:__|"
	If $=$+0
		Do
			$d = $ mod 20
			If $d=0
				$m="-"+$m
			Endif
				$b=5
				while $b
					While $d/$b
						$m=substr($a,$b,1)+$m
						$d=$d-$b
					Loop
					$b=$b/2
				loop

			$ = $/20
			If $
				$m = " " + $m
			EndIf
		Until $=0
	Else
		For Each $ in Split($)
			$d=0
			For $b = 1 to Len($)
				$d=$d+instr($a,SubStr($,$b,1))
			Next
			$m=$m*20+$d
EndFunction

Function m($)

	Dim $a,$b,$d
	$a=".:__|"
	If $=$+0
		$d = $ mod 20
		If $d=0
			$m="-"+$m
		Endif
		$b=5
		while $b
			While $d/$b
				$m=substr($a,$b,1)+$m
				$d=$d-$b
			Loop
			$b=$b/2
		loop

		$ = $/20
		If $
			$m = m($) + " " + $m
		EndIf
	Else
		For Each $ in Split($)
			$d=0
			For $b = 1 to Len($)
				$d=$d+instr($a,SubStr($,$b,1))
			Next
			$m=$m*20+$d
EndFunction

Function m($b)

	Dim $a,$,$d
	$a=".:__|"
	If $b=$b+0
			$ = $b mod 20
			If $=0
				$m="-"+$m
			Endif
				$d=5
				while $d
					While $/$d
						$m=substr($a,$d,1)+$m
						$=$-$d
					Loop
					$d=$d/2
				loop
			$ = $b/20
			If $
				$m =m($) + " " + $m
			EndIf
	Else
		For Each $ in Split($b)
			For $b = 0 to 19
				if m($b) = $
					$m=$m*20+$b
EndFunction

Function m($!)
 dim $,$b

 for $ = 1 to 19
  $b = split('- . : .: :: ' + $m)
  $m = $m + '| ' + $b[$]
 next

 for each $! in split($!)
  $m = $*$m + ascan($b,$!)
  if 0>$m
   $m = $b[$! mod $]
   $ = 1*$!/$
   if $
    $m = m($) + ' ' + $m
EndFunction

   if 19<$
    $m = m($b/20) + " " + $m