Graphics 640,480,16,2
SetBuffer BackBuffer()

Global ini_file$, ini_file_nr, ini_befehl$, ini_wert$

While Not KeyHit(1)
 
  While read_ini("c:\test.ini")
   Print ini_befehl$ + " ist gleich = " + ini_wert$
  Wend
 Flip

Wend

Function read_ini(file$)
  If FileType(file$)>0

  If file$<>ini_file$
    ini_file$ = file$
    If ini_file_nr>0 Then CloseFile ini_file_nr
    ini_file_nr = ReadFile(file$)
  End If
  If ini_file_nr>0
  st$ = readl2$(ini_file_nr) : If st$ ="" Then ini_befehl$="" : ini_wert$="" : ini_file_nr=0 : Return 0

  For a=1 To Len(st$)
   If Mid$(st$,a,1)="=" Then ini_befehl$=Left$(st$,a-1) : ini_wert$=Right$(st$,Len(st$)-a) : Exit
  Next

  If Eof(ini_file_nr) Then ini_file_nr=0
  Return 1
  End If
  Else
   Print "INI FILE DOESN'T EXIST"
  End If
End Function

Function readl2$(datei)
 st$ = Trim$(ReadLine$(datei))

 ; Remarks überlesen
 While Mid$(st$,1,1)="*" Or st$="" Or remstart=1 Or Left$(st$,2)="/*"
  If Mid$(st$,1,2)="/*" Then remstart=1
  If remstart=1 And (Left$(st$,2)="*/" Or Right$(st$,2)="*/") Then remstart=0
  If Eof(datei) Then Exit Else st$ = Trim$(ReadLine$(datei))
 Wend

 If Mid$(st$,1,1)="*" Then st$=""
 Return st$
End Function

Wert1=123123
Wert2=123123
* Eine Erinnerungszeile!
      Na was kommt nu?=13
hui=1233

/*
Wenn du viele Remarks hast, dann kannst du dich hier auslassen
*/

  blaaaa = 1342123


* So Ende der Vorstellung