Type TEntry
  Field Name$
  Field Score%
End Type

SeedRnd MilliSecs()
Dim bla(10)

For a=0 To 10
	bla(a)=Rand(10,1000)
Next

For a=0 To 10
	For b=9 To 0 Step -1
		If bla(b+1)>bla(b)
			temp=bla(b)
			bla(b+1)=bla(b)
			bla(b)=temp
		EndIf
	Next
Next

For a=0 To 9
	Print bla(a)
Next
WaitKey()
End

Type Blubb
	Field Value
End Type

SeedRnd MilliSecs()

For i=0 To 10
	v.Blubb=New Blubb
	v\Value=Rand(10,1000)
Next

Sort()

For v.Blubb=Each Blubb
	Print v\Value
Next

WaitKey()


Function Sort()
Local Wert#,s.Blubb,t.Blubb,u.Blubb

	t.Blubb=First Blubb

	While t<>Null

		Wert#=t\Value

		For s.Blubb=Each Blubb
			If s=t Or s\Value>Wert Then Exit
		Next

		u=After t
		Insert t Before s
		t=u

	Wend

End Function

Graphics 800, 600, 32

Type TEntry
	Field name$
	Field score%
End Type

SeedRnd( MilliSecs() )

For i% = 0 To 10
	num% = Rnd( 0, 10000 )
	
	NewEntry.TEntry = New TEntry
	NewEntry\name = \"name\"+num
	NewEntry\score = num
Next

For Curr.TEntry = Each TEntry
	a.TEntry = Before( Last TEntry )
	b.TEntry = After( a )

	While a <> Null
		b = After( a )
		
		If ( a\score > b\score )
			tmp1$   = a\name
			tmp2%   = a\score
			a\name  = b\name
			a\score = b\score
			b\name  = tmp1
			b\score = tmp2
		End If
		
		a = Before( a )
	Wend
Next

For Curr.TEntry = Each TEntry
	Print Curr\name + \" hat \" + Curr\Score + \" Punkte!\"
Next

WaitKey
End

For b = 9 To 0 Step -1
		If bla(b+1)>bla(b)
			temp=bla(b)
			bla(b+1) = bla(b)
			bla(b) = temp
		EndIf
	Next