FUNCTION m($)
  DIM $a[6], $b, $i, $j, $t, $s, $u
  IF InStr(".:|-", SubStr($, 1, 1))
    $a = Split($)
    $u = UBound($a)
    FOR $i = 0 TO $u
      $t = 0
      FOR $j = 1 TO Len($a[$i])
        $b = SubStr($a[$i], $j, 1)
        $t = $t + IIf($b = ".", 1, IIf($b = ":", 2, IIf($b = "|", 5, 0)))
      NEXT
      $s = 1
      IF $u - $i
        $s = 20
        FOR $j = 1 TO $u - $i - 1
          $s = $s * 20
        NEXT
      ENDIF
      $m = $m + $s * $t
    NEXT
  ELSE
    DO
      IF $ > 19
        $s = 1
        FOR $i = 1 TO 6
          $s = $s * 20
          IF $s < $
            $j = $i
            $t = $s
          ENDIF
        NEXT
        IF $ > 19
          FOR $i = 1 TO 20
            $s = $t
            $s = $s * $i
            IF $s <= $
              $a[$j] = $i
            ENDIF
          NEXT
        ELSE
          $t = $
        ENDIF
        $ = $ - ($t * $a[$j])
      ELSE
        $a[0] = $
        $ = $ - $
      ENDIF
    UNTIL $ < 1
    FOR $i = 6 TO 0 STEP -1
      IF $a[$i] = "" AND $i
        REDIM PRESERVE $a[$i - 1]
      ELSE
        $i = -1
      ENDIF
    NEXT
    FOR EACH $ IN $a
      DO
        $m = IIf($ > 4, "|", IIf($ > 1, ":", IIf($, ".", "-"))) + $m
        $ = $ - IIf($ > 4, 5, IIf($ > 1, 2, IIf($, 1, 0)))
      UNTIL $ < 1
      $m = " " + $m
    NEXT
    $m = Trim($m)
  ENDIF
ENDFUNCTION