;Zahlenratspiel 4.2
Repeat
SeedRnd (Milisecs())
 zahl_x=Rand(1,100)
 zaehler=0
Repeat zahl=zahl_b(zahl_x)
 zaehler = zaehler+1
Until zahl=zahl_x
  Print zaehler+" Versuche hast du gebraucht"

 If zaehler < highscore Then
 highscore = alte_highscore

 highscore=zaehler
EndIf
  Print"Highscore:"
  Print"1."+highscore
  Print"ESC zum verlassen,andere Taste zum weiterspielen"
WaitKey
 Until KeyHit(1)

WaitKey
End

Function zahl_b(zahl_x)
  Print"Wähle eine Zahl von 1-100"
  zahl = Input()
  If zahl<zahl_x Then
    Print"Zahl ist zu klein"
  EndIf
  If zahl=zahl_x Then
    Print"Gewonnen"
  EndIf
  If zahl>zahl_x Then
    Print"Zahl ist zu groß"
  EndIf

  Return zahl
End Function