Global Highscorelist:TList = New TList

Type Highscoreeintrag
   Field name$
   Field punkte
   
   Method New()
      Highscorelist.addlast(Self)
   End Method
   
   Function Draw_Highscore(x,y)
   Local i
      For H:Highscoreeintrag = EachIn Highscorelist
         DrawText (i+1)+". "+H.name+" Points: "+H.punkte,x,y+(i*15)
         i:+1
      Next
   End Function
   
   Method Sort()
      Return punkte
   End Method
End Type

stream:TStream = OpenStream("highscore.txt")

While Eof(stream)=0
Local H:Highscoreeintrag = New Highscoreeintrag
   H.name$ = ReadLine(stream)
   H.punkte = Int(ReadLine(stream))
   DebugLog H.name+" "+H.punkte
Wend
CloseStream stream

SortList(Highscorelist,1)

type Highscore
   field score:int

   method compare (other:object)
      if not Highscore (other) then ..
         return 0
      local o:Highscore = Highscore (other)
      if o.score > self.score
         return 1
      elseif o.score < self.score
         return -1
      endif
      return 0
   end method
end type