;Verbessert

;ganz normaler Standart
Graphics 1024,768,32,2;Bildschirmeinstellungen
SetBuffer BackBuffer();Für das Doublebuffering
Local timer=CreateTimer(60);damit das Programm mit 60 FPS laufen wird

;Öffnet deine Datei
Local SpeicherDatei = OpenFile("name.ini")

;Startet die Funktion LadeVar , als File setzte ich "SpeicherDatei" und als Position "0" ein.
Global Level%=LadeVar(SpeicherDatei, 0)


Repeat
	;Malt den Wert von Level auf den Bildschirm
	Text 0,0,Level
	
	;Wenn die Pfeiltaste grdückt wird...
	If KeyHit(200)
		Level=Level+1;...wird levevel um eine natürliche Zahl erhöht
		SpeicherVar(SpeicherDatei, 0, Level);& der neue Wert von Level wird gespeicher 
	EndIf
	
	
	;Standart Grafik Zeugs
	WaitTimer(timer)
	Flip(0):Cls
Until KeyHit(1)

;Speichervar soll Informationen in eine Datei speichern.
;dazu muss sie wissen, in welche Datei, sie wo, was hinschreiben soll
Function SpeicherVar(File, Position, Wert)
	SeekFile File,Position;Springt in der gewünschten Datei an den gewünschten Ort
	WriteInt File,Wert    ;Speichert in der gewünschten Datei den gewünschten Wert abb
End Function

;LadeVar soll Informationen aus einer Datei einlesen können,
;dazu braucht die Funktion die Information darüber , in welcher Datei sie WO was suchen soll
Function LadeVar(File, Position)
	SeekFile File,Position;springt in der Datei an die gewollte Position -> Speicherdatei,0
	Return ReadInt(File)  ;liest einen Integer aus
End Function

Global Name$, Alter%, Geld#,Datei$

Datei="Test.txt"
AlleDatenLesen()

Print "Name: "+ Name
Print "Alter: " + Alter
Print "Vermögen: " + Geld + " EUR"
WaitKey()
End


Function AlleDatenLesen()
    If FileExists(Datei$) Then
        Local DateiHandle%
        DateiHandle=ReadFile(Datei)
            Name=ReadLine(DateiHandle)
            Alter=ReadLine(DateiHandle)
            Geld=ReadLine(DateiHandle)
        CloseFile DateiHandle
     EndIf
End Function

Function AlleDatenSchreiben()
    If FileExists(Datei$) Then
        Local DateiHandle%
        DateiHandle=WriteFile(Datei)
            WriteLine DateiHandle,Name
            WriteLine DateiHandle,Alter
            WriteLine DateiHandle,Geld
        CloseFile DateiHandle
     EndIf
End Function