Dim words$(9) ; Das Array zum speichern der Strings wird angelegt

Local i ; Die Zählvariable für die Schleife zur Ausgabe

; Die Liste der Wörter
words(0)="Ich"
words(1)="bin"
words(2)="eine"
words(3)="Ansammlung"
words(4)="unsortierter"
words(5)="Wörter"
words(6)="welche"
words(7)="sortiert"
words(8)="werden"
words(9)="müssen"


SortStrings() ; Die Sortierfunkion wird aufegrufen

For i=0 To 9 ; Die Strings werden sortiert ausgegeben
    Print words(i)
Next

WaitKey() ; Damit der Nutzer was zu sehen kriegt
End ; das Programm beenden






Function SortStrings()
    ; Die benötigten Variablen werden lokal in der Function deklariert
    Local i,j,k,tmp$,byte_1,byte_2
    
    ; Die übergeordnete Schleife durchläuft die Sortierung 10 mal
    For i=0 To 9
        ; Die nächste Schleife läuft "rückwärts" und sortiert das aktuelle Wort
        ; bedarfsweise über das darüberliegende ein
        For j=9 To 1 Step -1
            ; Die nächste Schleife dient ausschließlich dem Vergleich der Buchstaben.
            ; Ist der erste gleich dem Vergleichsbuchstaben wird der zweite verglichen. Ist
            ; auch dieser gleich, der dritte usw. bis zum Ende des Strings
            For k=1 To Len(words(j))
                byte_1=Asc(Lower(Mid$(words(j-1),k,1)))
                byte_2=Asc(Lower(Mid$(words(j),k,1)))
                ; Ist das Zeichen nicht gleich springen wir aus der Schleife
                If byte_1<>byte_2 Then Exit
            Next
            ; Wir vergleichen das Zeichen und tauschen ggf. die Position
            If byte_2<byte_1 Then
                tmp=words(j)
                words(j)=words(j-1)
                words(j-1)=tmp
            EndIf
        Next
    Next
End Function

Const MAX_COUNT = 10

Function sortList1( list$[MAX_COUNT], n )
	Local switch, a$, b$, valA#, valB#, tmp$
	
	While True
		switch = False
		
		For i = 0 To n -2
			a = Upper( list[i] )
			b = Upper( list[i+1] )
			
			valA = 0
			For j = 1 To Len( a )
				valA = valA + Asc( Mid(a, j, 1) ) * 100^-j
			Next
			
			valB = 0
			For j = 1 To Len( b )
				valB = valB + Asc( Mid(b, j, 1) ) * 100^-j
			Next
			
			If valA > valB
				tmp = list[i]
				
				list[i] = list[i+1]
				list[i+1] = tmp
				
				switch = True
			EndIf
		Next
		
		If Not switch
			Exit
		EndIf
	Wend
End Function

Function sortList2( list$[MAX_COUNT], n )
	Local switch, tmp$
	
	While True
		switch = False
		
		For i = 0 To n -2
			If sortCompare( list[i], list[i+1] ) > 0
				tmp = list[i]
				
				list[i] = list[i+1]
				list[i+1] = tmp
				
				switch = True
			EndIf
		Next
		
		If Not switch
			Exit
		EndIf
	Wend
End Function

Function sortCompare( a$, b$ )
	a = Upper( a )
	b = Upper( b )
	
	n1 = Len( a )
	n2 = Len( b )
	
	n = n1
	If n2 < n
		n = n2
	EndIf
	
	Local v1, v2
	
	For i = 1 To n
		v1 = Asc( Mid(a, i, 1) )
		v2 = Asc( Mid(b, i, 2) )
		
		If v1 > v2
			Return 1
		EndIf
		
		If v1 < v2
			Return -1
		EndIf
	Next
	
	Return Sgn( n1 - n2 )
End Function