1. Jooel --------- 182
 2. Shawn --------- 213
 3. DrillSergeant - 217
 4. Jooel --------- 219
 5. Maciep -------- 225
 6. Richard H ----- 252
 7. Allen --------- 256
 8. Howard bullock  285
 9. Glenn Barnas -- 337
10. It_took_my_meds 343
11. Jochen -------- 352
12. Benny69-------- 448
13. Krabourn ------ 651

Function m($a)
 
     $l=0,5,2,1,0
     $v="|",":",".","-"
     $n = 1
     If AScan($v,Left($a,1))=-1
          Do $ = $a Mod ($n*20)
               $a = $a - $
               $ = $ / $n
               $n = $n * 20
               If $
                    For $q = 1 to 3
                         While $ / $l[$q]
                              $m=$v[$q-1]+$m
                              $=$-$l[$q]
                         Loop
                    Next
               Else
                    $m="-"+$m
               EndIf
               $m=" "+$m
          Until $a=0
          $m=Trim($m)
     Else
          $a = " "+$a
          While $a
               $c=Right($a,1)
               $=IIf($c=" ",-$,$+$l[AScan($v,$c)+1])
               $a=Left($a,~)
               If $<0 Or $c="-"
                    $m = $m - $n * $
                    $n = $n * 20
                    $=0
               ;EndIf
          ;Next
     ;EndIf
 
EndFunction

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

function m($)
    dim $a, $b, $c, $p
    $a = split('- . : .: :: | .| :| .:| ::| || .|| :|| .:|| ::|| ||| .||| :||| .:||| ::|||')
    $p = 64000000, 3200000, 160000, 8000, 400, 20, 1
    if vartype($) = 3
        for $b = 0 to 6
            $c = $p[$b]
            $m = iif($ >= $c, trim($m + ' ' + $a[$/$c]), iif($m, $m + " -", $m))
            $ = $ - $/$c * $c
        next
        $m = iif($m, $m, '-')
    else
        $c = split($)
        $ = ubound($c)
        for $b = 0 to $
            $m = $p[6-$+$b] * ascan($a,$c[$b]) + $m
        ;next
    ;endif
endfunction

 1. Jooel --------- 182
 2. Shawn --------- 213
 3. DrillSergeant - 217
 4. Jooel --------- 219
 5. Maciep -------- 225
 6. Richard H ----- 252
 7. Allen --------- 256
 8. Howard bullock  285
 9. Glenn Barnas -- 337
    It_took_my_meds 343 (does not pass validation due to not DIMming variables inside the UDF)
10. Jochen -------- 352 (confirmed)
11. Benny69-------- 448
12. Krabourn ------ 651 (confirmed)

Function m($i)
	Dim $a,$b,$c,$,$p
	
	If VarType($i)=8
		$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+$*x($p)
			$p=$p+1
		Next
	Else
		$p=1
		Do
			$b=$i-$i/x($p)*x($p)
			$=$b/x($p-1)
			If $=0
				$m="-"+$m
			Else
				For $c=1 to $/5
					$m="|"+$m
					$=$-5
				Next
				For $c=1 to $/2
					$m=":"+$m
					$=$-2
				Next
				If $=1
					$m="."+$m
					$=$-1
				EndIf
			EndIf
			$i=$i-$b
			$p=$p+1
			If $i>0
				$m=" "+$m
			EndIf
		Until $i=0
EndFunction

Function x($)
	Dim $y
	$x=1
	For $y = 1 to $
		$x=$x*20
EndFunction

Function m($)
   dim $c,$d,$f
   $f = '- . : .: :: |  '
   $f = split($f+$f+$f)
   for $c=6 to 19
      $f[$c]=$f[$c-5]+'|'
   next
   if $+-$=0
      do
         $m = trim($f[$ mod 20] + ' ' + $m)
         $ = $/20
      until $=0
   else
      $ = split($)
      for $d = -ubound($) to 0
         $m = $m + $c/20 * ascan($f,$[-$d])
         $c=$c*20
      ;next
   ;endif
EndFunction

Function m($)

 dim $a,$b,$c

 for $b = 1 to 15
  $c = split("- . : .: :: | " + $a)
  $a = $a + $c[$b] + "| "
 next

 if $+0=$
  $m = $c[$ mod 20]
  if $/20
   $m = m($/20) + " " + $m
  endif
 else
  $ = split($)
  $b = 1
  for $a = -ubound($) to 0
   $m = $m + $b * ascan($c,$[-$a])
   $b = $b * 20
  ;next
 ;endif

EndFunction

Function m($)

 dim $a,$b,$c

 for $b = 1 to 15
  $c = split("- . : .: :: | " + $a)
  $a = $a + $c[$b] + "| "
 next

 if $+0=$
  $m = $c[$ mod 20]
  if $/20
   $m = m($/20) + " " + $m
  endif
 else
  for each $ in split($)
   $m = $m * 20 + ascan($c,$)
 ;next
;endif

EndFunction

 ; begin Mayan Number Converter
;
;!
Function m($)
    dim $a,$b,$c,$p
    if $=$+0
        do
            $b = $ mod 20
            $=($-$b)/20

            if $b
                $a=5,2,1
                for each $p in $a
                    while $b/$p>0
                        $m=substr(".:zz|",$p,1)+$m
                        $b=$b-$p
                    loop
                next
            else
                $m="-"+$m
            endif
            $m=" "+$m
        until $=0
        $m=ltrim($m)
    else
        $c=1
        for $a=len($) to 1 step -1
            $b=substr($,$a,1)

            if $b=" "
                $c=$c*20
            endif
            $m=$c*instr(".:zz|",$b)+$m

EndFunction
;!
;!
; end Mayan Number Converter 

; begin Mayan Number Converter
;
;!
Function m($n)
	Dim $,$c
	If $n=Val($n)
		Do
			$=$n mod 20
			$n=$n/20
			Do
				$c=($>4)*3+IIf($>1,2,$)
				$=$-$c
				$m=SubStr("-.:xx|",$c+1,1)+$m
			Until $=0
			$m=" "+$m
		Until $n=0
	Else
		For Each $ in Split($n)
			$m=$m*20
			While $
				$m=$m+InStr(".:xx|",Left($,1))
				$=SubStr($,2)
			Loop
		Next
	EndIf
	$m=Trim($m)
EndFunction
;!
;!
; end Mayan Number Converter
; vim600:filetype=kix ai sw=4 ts=4

Function m($)
  dim $y,$r,$c
  $y=split("- . : .: :: | .| :| .:| ::| || .|| :|| .:|| ::|| ||| .||| :||| .:||| ::|||")
  if $+0=$
    do
      $r=$ mod 20
      $m=" "+$y[$r]+$m
      $=$/20
    until $=0
    $m=trim($m)
  else
    $c=split($)
    $=ubound($c)
    $r=1
    while $>=0
      $m=$m+ascan($y,$c[$])*$r
      $=$-1
      $r=$r*20
;    loop
;  endif
EndFunction

  for $b = 1 to 15
  $c = split("- . : .: :: | " + $a)
  $a = $a + $c[$b] + "| "
 next
 

 for $b = 1 to 15
  $c = split("- . : .: :: | " + $a)
  $a = $a + $c[$b] + "| "
 next

 if $+0=$

   $m = m($/20) + " " + $m

 for $b = 1 to 15
  $c = split("- . : .: :: | " + $a)
  $a = $a + $c[$b] + "| "
 next

Quote:

---

Richard, I see we think alike.

---

You're not fooling me, I know that you are just another voice in my head and I am the real Howie

Shhhhh! Hush my brother, they are ever listening...

 for each $ in split($) 

$="1 2 3 4 5"
? Vartypename($)
? $
for each $ in split($)
	? $
	? Vartypename($)
next
? Vartypename($)
? "$$="+$