Function WriteHighScore()
   
   Local rank:Int                'lokale Variable = position des Spielers in der Highscore-Liste
   
   If score<highscore_score[9] Then rank=10                'nicht unter den ersten zehn (=0-9)

   If rank<10                                                         'Neuer Highscoreeintrag
   
      For Local counter:Int = 9 To 0 Step -1             'Rang des Spielers ermitteln (0=Erster, 9=Letzter)
         If score=>highscore_score[counter] Then rank=counter
      Next
   

   
      If rank=9 Then                                  'wenn Platzierung = 10 letzten Eintrag austauschen
         highscore_name[9]=playername
         highscore_score[9]=score
      
   
      ElseIf rank<9                                     'wenn Platzierung 1-9: SORTIERUNG! FEHLERHAFT?
   
         For Local counter:Int = 9 To rank+1 Step -1   
            highscore_name[counter]=highscore_name[counter-1]
            highscore_score[counter]=highscore_score[counter-1]
         Next
   
      highscore_name[rank]=playername
      highscore_score[rank]=score
         
      EndIf

   
   'Arrays in Datei schreiben   
   
   Local file:TStream=OpenFile("highscore.dat")
     
   For Local counter:Int = 0 To 9 Step 1
         WriteLine file,highscore_name[counter]
   Next
      
   For Local counter:Int = 0 To 9 Step 1
         WriteLine file,highscore_score[counter]
   Next