Dim HighScore$(11,1)
If FileType(\"highscore.hsc\")=0 Then CreateHighScore
LoadHighscore



Function ShowHighScore(zk=0,selsek$=\"\",selnam$=\"\")
 For f=1 To 10
  Color 255,255,255
  If selsek=HighScore(f,1) And selnam=HighScore(f,0) Then Color 255,0,0
  Text 0,zk+f*20,f+\": \"+HighScore(f,0)+\"  brauchte \"+ HIghScore(f,1)+ \" Millisekunden\"
  Text f*20,350,f
 Next
End Function


Function CreateHighScore()
 file=WriteFile(\"highscore.hsc\")
 For i=1 To 10
  WriteLine file,\"noname\"
  WriteLine file,\"2000\"
 Next
 CloseFile file
End Function


Function LoadHighScore()
 file=ReadFile(\"highscore.hsc\")
 For i=1 To 10
  HighScore(i,0)=ReadLine(file)
  HighScore(i,1)=ReadLine(file)
 Next
 CloseFile file
End Function


Function SaveHighScore()
 file=WriteFile(\"highscore.hsc\")
 For i=1 To 10
  WriteLine file,HighScore(i,0)
  WriteLine file,HighScore(i,1)
 Next
 End Function


Function InsertHighScore(name$,score$)
 HighScore(0,0)=name$
 HighScore(0,1)=score$
 For i=1 To 10
  If Int(HighScore(0,1))<Int(HighScore(i,1)) Then
   For j=10 To i
    HighScore(j+1,0)=HighScore(j,0)
    HighScore(j+1,1)=HighScore(j,1)
   Next
  HighScore(i,0)=HighScore(0,0)
  HighScore(i,1)=HighScore(0,1)
   Exit
  End If
 Next 
End Function

If entf = 1 Then
	ClearWorld
	Delay 1000
	FlushKeys
	Cls
	Print \"Deine Highscore ist \"+P
	name$=Input$(\"Dein Name:\")
	InsertHighscore name$,p
	SaveHighScore()
	FlushKeys
    Repeat
     Cls
	 Text 0,20, \" Nochmal spielen dann drücken Sie enter, beenden mit ESC\"
	 Text 0,40, \"Highscore-Tabelle:\"
	 ShowHighscore 60,p,name$
     If KeyHit(28) Then
	  Gosub anfang
	 End If
    Until KeyHit(1)
    End
End If