Graphics 800,600,32,0
SetBuffer BackBuffer()

If FileType("mydata.dat") = 0 Then
  fileout = WriteFile ("mydata.dat")
  WriteByte fileout,123
  WriteFloat fileout,123.456
  WriteInt fileout,12345678
  WriteLine fileout,"Hallo"
  WriteShort fileout,12345
  WriteString fileout,"Super"
  CloseFile(fileout)
Else
  file=ReadFile("mydata.dat")
  tester=ReadByte(file)
  wert1 = ReadByte (file)
  wert2# = ReadFloat (file)
  wert3 = ReadInt (file)
  wert4$ = ReadLine$ (file)
  wert5 = ReadShort (file)
  wert6$ = ReadString$ (file)
  CloseFile(file)
EndIf

Repeat
If KeyHit (200) Then
   tester = tester +1
  filein=OpenFile("mydata.dat")
  WriteByte filein,tester
  wert2# = ReadFloat (filein)
  wert3 = ReadInt (filein)
  wert4$ = ReadLine$ (filein)
  wert5 = ReadShort (filein)
  wert6$ = ReadString$ (filein)
  CloseFile(filein)
  Cls
  Text 400,300, "Byte: " +wert1
  Text 400,325, "Float: " +wert2
  Text 400,350, "Int: " +wert3
  Text 400,375, "Line: " +wert4
  Text 400,400, "Short: " +wert5
  Text 400,425, "String: " +wert6
  Text(400,475,"Maustaste drücken zum weitermachen!"
  Flip
  MouseWait()
  FlushMouse()
End If
Until KeyHit(1)
End

Const filename$="test.txt"
Local datei%
Global Level=1

If FileType(filename)=1 Then
	datei=ReadFile(filename)
	Print ReadInt(datei)
	CloseFile datei
EndIf
datei=WriteFile(filename)
WriteInt datei,Level
CloseFile datei
End

If FileType("mydata.dat") = 0 Then ;wenn die datei nicht existiert, schreibe eine mit den standart werten
	file=WriteFile("mydata.dat") ;datei schrieben (nur schreiben, gleiche daten werden gelöscht)
	WriteLine(file,"1") ;den Wert 1 abspeichern, mit writeline (writeline find ich immernoch am besten)
	CloseFile(file) ;datei abschließen (Wichtig: ab hier werden von Windows erst die daten in die datei geschrieben)
	wert=1 ;die variable wert manuel einen wert geben, da hier nur geschrieben und nicht gelesen wurde
Else ;wenn die datei bereit existiert
	file=ReadFile("mydata.dat") ;datei lesen (nur lesen, damit kann man keine write befehle ausführen)
	wert=ReadLine(file) ;den wert auslesen (wichtig: wir wissen, das der wert eine zahl ist, ist das nicht bewusst muss man Readline$(file) nutzen)
	CloseFile(file) ;datei wieder schließen (Wichtig: muss man einfach machen, wenn man es nicht macht ist es so, als ob man sich nicht die hände wäscht, irrgendwann kommt es auf einen zurück)
EndIf

Graphics(640,480,16,2) ;grafik zeichnen
SetBuffer(BackBuffer())

Text(0,0,wert) ;den ausgelesen wert malen
Flip ;bild aktualisieren
WaitKey ;warten, bis eine taste gedrückt wird
End ;beenden

;Verbessert

Graphics 1024,768,32,2
SetBuffer BackBuffer()
Local timer=CreateTimer(60)


Local SpeicherDatei = OpenFile("name.ini")
Global Level%=LadeVar(SpeicherDatei, 0)


Repeat
	Text 0,0,Level
	
	If KeyHit(200)
		Level=Level+1
		SpeicherVar(SpeicherDatei, 0, Level)
	EndIf
	
	WaitTimer(timer)
	Flip(0):Cls
Until KeyHit(1)

Function SpeicherVar(File, Position, Wert)
	SeekFile File,Position
	WriteInt File,Wert
End Function

Function LadeVar(File, Position)
	SeekFile File,Position
	Return ReadInt(File)
End Function