File% = ReadFile(\"settings.dat\") : If File = 0 End
Repeat
	tmp$ = ReadLine(File)

	command$ = Trim(Str_Explode$(tmp$, \"=\", 0)) ; ALLES WAS LINKS  VOM '=' IST
	params$  = Trim(Str_Explode$(tmp$, \"=\", 1)) ; ALLES WAS RECHTS VOM '=' IST

	Select command$

		Case \"MODEL\" Model\file$  = params$
		Case \"SOUND\" Model\sound$ = params$
		Case \"SPEED\" Model\speed  = params$

		Case \"COLOR\"
			Model\R		= Str_Explode$(params$, \",\", 0)
			Model\G		= Str_Explode$(params$, \",\", 1)
			Model\B		= Str_Explode$(params$, \",\", 2)

		Case \"SCALE\"
			Model\scalex	= Str_Explode$(params$, \",\", 0)
			Model\scaley	= Str_Explode$(params$, \",\", 1)
			Model\scalez	= Str_Explode$(params$, \",\", 2)

	End Select

Until Eof(File) = 1
CloseFile File

;---------------------------------------------------
; SPLITS A STRING INTO FRAGMENTS, USING A SPLIT
; CHARACTER AND RETURNS A SPECIFIED SEGMENT
; SECTION = FRAGMENT TO RETURN (0 - ...) -1 FOR LAST
;---------------------------------------------------
Function Str_Explode$(txt$, divider$, section%)

	Local sec% = 0
	Local tmp$ = \"\"
	Local sections% = 0
	
	; COUNT FRAGMENTS
	For i% = 1 To Len(txt$)
		If Mid(txt$,i,1) = divider$ Then sections = sections + 1
	Next

	; RETURN LAST FRAGMENT?
	If section = -1 Then section = sections
	
	For i% = 1 To Len(txt$)
		char$    = Mid(txt$,i,1)
		If char$ = divider$ Then sec = sec + 1 : i = i + 1 : char$ = Mid(txt$,i,1)
		If sec   = section  Then tmp$ = tmp$ + char$
	Next
	
	Return tmp$

End Function