ok here is my 218 code:

 Code:
; begin A-to-Z
;
;!
Function a($b,$c)
	Dim $,$d,$e
	$a=0
	For Each $ in $b
		Dim $f
		For Each $d in $b
			If $<$d
				For $e = $d^0 to 2 Step -1
					If $=$c[0]+Left(Right($,~),~)+$c[1] & ($^)-$f<$a | ~$a
						$a=($^)-$f
						$a=''+$a+' '+$
					Else
						If Right($,$e)=Left($d,$e)
							$=$+' '+$d
							$f=$f+$e+1
;						EndIf
;					EndIf
;				Next
;			EndIf
;		Next
;	Next
EndFunction
;!
;!
; end A-to-Z
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)