Function a($)
	Dim $c,$d,$e
	For $c = 0 to UBound($)
		For $d = $c + 1 to UBound($)
			If b($[$d]) < b($[$c])
				$e = $[$d]
				$[$d] = $[$c]
				$[$c] = $e
;			EndIf
;		Next
;	Next
	$a=$
EndFunction
Function b($)
	Dim $f,$g
	For $g = Len($) to 99
		For $f = 0 to 9
			$=Join(Split($,$f),#+$f)
;		Next
;	Next
	$b=$
EndFunction

Function a($)
	Dim $c,$d,$e,$f
	$f=Len(Join($))
	For $c = 0 to UBound($)
		For $d = $c + 1 to UBound($)
			If b($[$d],$f) < b($[$c],$f)
				$e = $[$d]
				$[$d] = $[$c]
				$[$c] = $e
			EndIf
;		Next
;	Next
	$a=$
EndFunction
Function b($,$i)
	Dim $g,$h
	For $h = Len($) to $i
		For $g = 0 to 9
			$=Join(Split($,$g),#+$g)
;		Next
;	Next
	$b=$
EndFunction

Function a($)
dim $e,$k,$b,$l,$x
  $a=$
  $l = len(join($))
  for $e=1 to ubound($)
   $x=$a[$e-1]
   for $k=1 to $l
    $ = substr($x,$k)
    $b = substr($a[$e],$k)
    if 0+$+$b and $ and $b
     $=1.1*(0=$)*$b+$
     $b=1.1*$*(0=$b)+$b
    else
     $ = left($,1)
     $b = left($b,1)
    endif
    if $<>$b
     $k = $l
     if $>$b
      $a[$e-1] = $a[$e]
      $a[$e] = $x
      $e = 0
EndFunction

Function a($)
dim $e,$k,$b,$l,$z
 $a=$
 for $e=1 to ubound($)
  $l = len(join($a))
  for $k=1 to $l
   $z=$a[$e-1]
   $b=c($a[$e],$k)
   $=c($z,$k)
   if $<>$b
    $k = $l
    $l = len($) - len($b)
    if ($ and 0.<$b & 0<$l | 0=$) | !>$b | $>$b & $l=0
     $a[$e-1] = $a[$e]
     $a[$e] = $z
     $e = 0
EndFunction
function c($z,$k)
dim $
 do
  $c=substr($z,$k+$,1)
  $=$+1
  until !>$c | $c>9
  $c=substr($z,$k,$-($>1))
endfunction

Function a($)
	Dim $c,$d
	For $c = 0 to UBound($)
		For $d = $c + 1 to UBound($)
			If b($[$d],$) < b($[$c],$)
				$a = $[$d]
				$[$d] = $[$c]
				$[$c] = $a
			EndIf
			$a=$
EndFunction
Function b($,$i)
	Dim $g,$h
	For $h = Len($) to Len(Join($i))
		For $g = 0 to 9
			$=Join(Split($,$g),#+$g)
			$b=$
EndFunction

Function a($)
	Dim $c
	For $c = 1 to UBound($)
			$a = $[$c-1]
			If b($a,$) > b($[$c],$)
				$[$c-1] = $[$c]
				$[$c] = $a
				$c = 0
			EndIf
			$a=$
EndFunction
Function b($,$i)
	Dim $g,$h
	For $h = Len($) to Len(Join($i))
		For $g = 0 to 9
			$=Join(Split($,$g),#+$g)
			$b=$
EndFunction

Function a($)
	Dim $c,$d
	For $c = 0 to UBound($)
		For $d = $c + 1 to UBound($)
			$a = $[$d]
			If b($a,$) < b($[$c],$)
				$[$d] = $[$c]
				$[$c] = $a
			EndIf
			$a=$
EndFunction
Function b($,$i)
	Dim $g,$h
	For $h = Len($) to Len(Join($i))
		For $g = 0 to 9
			$=Join(Split($,$g),#+$g)
			$b=$
EndFunction

Function a($)
	Dim $c
	For $c = 1 to UBound($)
			$a = $[$c-1]
			If b($a,$) > b($[$c],$)
				$[$c-1] = $[$c]
				$[$c] = $a
				$c = 0
			EndIf
			$a=$
EndFunction
Function b($,$e)
	Dim $c,$d
	While $
		$d=Left($,1)
		If Int($d) > 0
			For $c = Len($) to Len(Join($e))
				$d=#+$d
			Next
		EndIf
		$=Right($,~)
		$b=$b+$d
EndFunction

1. Benny69 .. 240 (6+1 points)
2. Jooel .... 315 (5+1 points)

1. Jooel .... 209 (5 points)
2. Benny69 .. 240 (4 points)

 1. Jooel ........... 33
 2. Benny69 ......... 18
 3. DrillSergeant ... 15
 4. Maciep .......... 14
 5. Shawn ........... 12
 6. RemcovC ......... 10
 7. Richard H .......  3
 8. Jochen ..........  2
 9. Allen ...........  1
10. Glenn Barnas ....  1
11. Howard Bullock ..  1
12. It_took_my_meds .  1
13. Krabourn ........  1
14. Witto ...........  1