If (argument eq "lanz")
	Glopuslinkswert = IniRead(  "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "LinkeAnzeige", "Glopuslinkswert")
	Glopuslinks[1] = "Höhe"
	Glopuslinks[2] = "Durchschnittsgeschwindigkeit"
	Glopuslinks[3] = "Trip Strecke"
	Glopuslinks[4] = "Trip Zeit"
	Glopuslinks[5] = "Steigung in Prozent"
	Glopuslinks[6] = "Fahrtrichtung"
	Glopuslinks[7] = "Maximale Geschwindigkeit"
	Glopuslinks[8] = "Vergangene Zeit, bei der eine Geschwindigkeit > 3 km/h gemessen wurde"
	Glopuslinks[9] = "Maximale Höhe"
	Glopuslinks[10] = "Aktuelle Geschwindigkeit"
	Glopuslinks[11] = "Pausenzeit"
	ChoiceDefault("Einblendung links", "Was soll links angezeigt werden?" & "^NL^" & "Bitte etwas Geduld nach OK !"  & "^NL^" , 1,  15, Glopuslinks )
		case(1)
			Glopuslinkswert = ("%Altitude% m")
			RegWriteString( "HKCU", "Software\Glopusathos", "Glopuslinkswert",Glopuslinkswert)
		case(2)
			Glopuslinkswert = ("%Average% km/h")
			RegWriteString( "HKCU", "Software\Glopusathos", "Glopuslinkswert",Glopuslinkswert)
		case(3)
			Glopuslinkswert = ("%Distance% km")
			RegWriteString( "HKCU", "Software\Glopusathos", "Glopuslinkswert",Glopuslinkswert)
		case(4)
			Glopuslinkswert = ("%TripTime%")
			RegWriteString( "HKCU", "Software\Glopusathos", "Glopuslinkswert",Glopuslinkswert)
		case(5)
			Glopuslinkswert = ("%Slope% %%")
			RegWriteString( "HKCU", "Software\Glopusathos", "Glopuslinkswert",Glopuslinkswert)
		case(6)
			Glopuslinkswert = ("%Direction% ° ")
			RegWriteString( "HKCU", "Software\Glopusathos", "Glopuslinkswert",Glopuslinkswert)
		case(7)
			Glopuslinkswert = ("%MaxSpeed% km/h")
			RegWriteString( "HKCU", "Software\Glopusathos", "Glopuslinkswert",Glopuslinkswert)
		case(8)
			Glopuslinkswert = ("%DriveTime%")
			RegWriteString( "HKCU", "Software\Glopusathos", "Glopuslinkswert",Glopuslinkswert)
		case(9)
			Glopuslinkswert = ("%MaxAltitude% m")
			RegWriteString( "HKCU", "Software\Glopusathos", "Glopuslinkswert",Glopuslinkswert)
		case(10)
			Glopuslinkswert = ("%Speed% km/h")
			RegWriteString( "HKCU", "Software\Glopusathos", "Glopuslinkswert",Glopuslinkswert)
		case(11)
			Glopuslinkswert = ("%Break%")
			RegWriteString( "HKCU", "Software\Glopusathos", "Glopuslinkswert",Glopuslinkswert)
		case(0)
	EndChoice
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Links=1","Text",Glopuslinkswert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Links=2","Text",Glopuslinkswert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Links=3","Text",Glopuslinkswert)

	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Links=1","Text",Glopuslinkswert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Links=2","Text",Glopuslinkswert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Links=3","Text",Glopuslinkswert)
endif

If (argument eq "lr")
	ErrorLevel ("syntax")
	Glopuslinksfarbwert = ("Color(250,0,0)")
	RegWriteString( "HKCU", "Software\Glopusathos", "Glopuslinksfarbwert",Glopuslinksfarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Links=1","Color_1",Glopuslinksfarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Links=2","Color_1",Glopuslinksfarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Links=3","Color_1",Glopuslinksfarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Links=1","Color_1",Glopuslinksfarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Links=2","Color_1",Glopuslinksfarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Links=3","Color_1",Glopuslinksfarbwert)
endif

If (argument eq "lg")
	ErrorLevel ("syntax")
	Glopuslinksfarbwert = ("Color(0,250,0)")
	RegWriteString( "HKCU", "Software\Glopusathos", "Glopuslinksfarbwert",Glopuslinksfarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Links=1","Color_1",Glopuslinksfarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Links=2","Color_1",Glopuslinksfarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Links=3","Color_1",Glopuslinksfarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Links=1","Color_1",Glopuslinksfarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Links=2","Color_1",Glopuslinksfarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Links=3","Color_1",Glopuslinksfarbwert)
endif

If (argument eq "lb")
	ErrorLevel ("syntax")
	Glopuslinksfarbwert = ("Color(0,0,250)")
	RegWriteString( "HKCU", "Software\Glopusathos", "Glopuslinksfarbwert",Glopuslinksfarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Links=1","Color_1",Glopuslinksfarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Links=2","Color_1",Glopuslinksfarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Links=3","Color_1",Glopuslinksfarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Links=1","Color_1",Glopuslinksfarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Links=2","Color_1",Glopuslinksfarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Links=3","Color_1",Glopuslinksfarbwert)
endif

If (argument eq "lfausw")
	ErrorLevel ("syntax")
	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=1")
	RGBR= Input( "Rotwert" , "Rotwert" , 1 )
	If ((RGBR >= 0) AND (RGBR <= 255))
	#
	Else
		Message ("Wert ausserhalb des zulässigen Bereiches")
		Exit
	EndIf
	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=1")
	RGBG= Input( "Grünwert" , "Grünwert" , 1 )
	If ((RGBG >= 0) AND (RGBG <= 255))
	#
	Else
		Message ("Wert ausserhalb des zulässigen Bereiches")
		Exit
	EndIf
	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=1")
	RGBB= Input( "Blauwert" , "Blauwert" , 1 )
	If ((RGBB >= 0) AND (RGBB <= 255))
	#
	Else
		Message ("Wert ausserhalb des zulässigen Bereiches")
		Exit
	EndIf
	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=0")
	Glopuslinksfarbwert = "Color(" & ( RGBR & "," & RGBG &"," & RGBB ) & ")"
	RegWriteString( "HKCU", "Software\Glopusathos", "Glopuslinksfarbwert",Glopuslinksfarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Links=1","Color_1",Glopuslinksfarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Links=2","Color_1",Glopuslinksfarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Links=3","Color_1",Glopuslinksfarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Links=1","Color_1",Glopuslinksfarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Links=2","Color_1",Glopuslinksfarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Links=3","Color_1",Glopuslinksfarbwert)
endif

If (argument eq "lgr")
	ErrorLevel ("syntax")
	LinkeAnzeigeWert = 1
	RegWriteString( "HKCU", "Software\Glopusathos", "LinkeAnzeigeWert",LinkeAnzeigeWert)
	IniWrite( "\My Flash Disk\Navigation\MNInfo.ini", "Top", "Links",LinkeAnzeigeWert)
	IniWrite( "\My Flash Disk\Programme\Glopus\GloGoSet.ini", "Buttons", "Links",LinkeAnzeigeWert)
endif

If (argument eq "lmi")
	ErrorLevel ("syntax")
	LinkeAnzeigeWert = 2
	RegWriteString( "HKCU", "Software\Glopusathos", "LinkeAnzeigeWert",LinkeAnzeigeWert)
	IniWrite( "\My Flash Disk\Navigation\MNInfo.ini", "Top", "Links",LinkeAnzeigeWert)
	IniWrite( "\My Flash Disk\Programme\Glopus\GloGoSet.ini", "Buttons", "Links",LinkeAnzeigeWert)
endif

If (argument eq "lkl")
	ErrorLevel ("syntax")
	LinkeAnzeigeWert = 3
	RegWriteString( "HKCU", "Software\Glopusathos", "LinkeAnzeigeWert",LinkeAnzeigeWert)
	IniWrite( "\My Flash Disk\Navigation\MNInfo.ini", "Top", "Links",LinkeAnzeigeWert)
	IniWrite( "\My Flash Disk\Programme\Glopus\GloGoSet.ini", "Buttons", "Links",LinkeAnzeigeWert)
endif

If (argument eq "laus")
	ErrorLevel ("syntax")
	LinkeAnzeigeWert = 4
	RegWriteString( "HKCU", "Software\Glopusathos", "LinkeAnzeigeWert",LinkeAnzeigeWert)
	IniWrite( "\My Flash Disk\Navigation\MNInfo.ini", "Top", "Links",LinkeAnzeigeWert)
	IniWrite( "\My Flash Disk\Programme\Glopus\GloGoSet.ini", "Buttons", "Links",LinkeAnzeigeWert)
endif

If (argument eq "lmanz")
	GlopusLinksmittewert = IniRead(  "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "LinkeAnzeige", "GlopusLinksmittewert")
	GlopusLinksmitte[1] = "Höhe"
	GlopusLinksmitte[2] = "Durchschnittsgeschwindigkeit"
	GlopusLinksmitte[3] = "Trip Strecke"
	GlopusLinksmitte[4] = "Trip Zeit"
	GlopusLinksmitte[5] = "Steigung in Prozent"
	GlopusLinksmitte[6] = "Fahrtrichtung"
	GlopusLinksmitte[7] = "Maximale Geschwindigkeit"
	GlopusLinksmitte[8] = "Vergangene Zeit, bei der eine Geschwindigkeit > 3 km/h gemessen wurde"
	GlopusLinksmitte[9] = "Maximale Höhe"
	GlopusLinksmitte[10] = "Aktuelle Geschwindigkeit"
	GlopusLinksmitte[11] = "Pausenzeit"

	ChoiceDefault("Einblendung Linksmitte", "Was soll mittleren linken Anzeige angezeigt werden?" & "^NL^" & "Bitte etwas Geduld nach OK !"  & "^NL^" , 2,  15, GlopusLinksmitte )
		case(1)
			GlopusLinksmittewert = ("%Altitude% m")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusLinksmittewert",GlopusLinksmittewert)
		case(2)
			GlopusLinksmittewert = ("%Average% km/h")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusLinksmittewert",GlopusLinksmittewert)
		case(3)
			GlopusLinksmittewert = ("%Distance% km")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusLinksmittewert",GlopusLinksmittewert)
		case(4)
			GlopusLinksmittewert = ("%TripTime%")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusLinksmittewert",GlopusLinksmittewert)
		case(5)
			GlopusLinksmittewert = ("%Slope% %%")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusLinksmittewert",GlopusLinksmittewert)
		case(6)
			GlopusLinksmittewert = ("%Direction% ")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusLinksmittewert",GlopusLinksmittewert)
		case(7)
			GlopusLinksmittewert = ("%MaxSpeed% km/h")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusLinksmittewert",GlopusLinksmittewert)
		case(8)
			GlopusLinksmittewert = ("%DriveTime%")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusLinksmittewert",GlopusLinksmittewert)
		case(9)
			GlopusLinksmittewert = ("%MaxAltitude% m")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusLinksmittewert",GlopusLinksmittewert)
		case(10)
			GlopusLinksmittewert = ("%Speed% km/h")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusLinksmittewert",GlopusLinksmittewert)
		case(11)
			GlopusLinksmittewert = ("%Break%")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusLinksmittewert",GlopusLinksmittewert)
		case(0)
	EndChoice
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Linksmitte=1","Text",GlopusLinksmittewert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Linksmitte=2","Text",GlopusLinksmittewert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Linksmitte=3","Text",GlopusLinksmittewert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Linksmitte=1","Text",GlopusLinksmittewert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Linksmitte=2","Text",GlopusLinksmittewert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Linksmitte=3","Text",GlopusLinksmittewert)
endif

If (argument eq "lmr")
	ErrorLevel ("syntax")
	GlopusLinksmittefarbwert = ("Color(250,0,0)")
	RegWriteString( "HKCU", "Software\Glopusathos", "GlopusLinksmittefarbwert",GlopusLinksmittefarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Linksmitte=1","Color_1",GlopusLinksmittefarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Linksmitte=2","Color_1",GlopusLinksmittefarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Linksmitte=3","Color_1",GlopusLinksmittefarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Linksmitte=1","Color_1",GlopusLinksmittefarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Linksmitte=2","Color_1",GlopusLinksmittefarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Linksmitte=3","Color_1",GlopusLinksmittefarbwert)
endif

If (argument eq "lmg")
	ErrorLevel ("syntax")
	GlopusLinksmittefarbwert = ("Color(0,250,0)")
	RegWriteString( "HKCU", "Software\Glopusathos", "GlopusLinksmittefarbwert",GlopusLinksmittefarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Linksmitte=1","Color_1",GlopusLinksmittefarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Linksmitte=2","Color_1",GlopusLinksmittefarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Linksmitte=3","Color_1",GlopusLinksmittefarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Linksmitte=1","Color_1",GlopusLinksmittefarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Linksmitte=2","Color_1",GlopusLinksmittefarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Linksmitte=3","Color_1",GlopusLinksmittefarbwert)
endif

If (argument eq "lmb")
	ErrorLevel ("syntax")
	GlopusLinksmittefarbwert = ("Color(0,0,250)")
	RegWriteString( "HKCU", "Software\Glopusathos", "GlopusLinksmittefarbwert",GlopusLinksmittefarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Linksmitte=1","Color_1",GlopusLinksmittefarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Linksmitte=2","Color_1",GlopusLinksmittefarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Linksmitte=3","Color_1",GlopusLinksmittefarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Linksmitte=1","Color_1",GlopusLinksmittefarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Linksmitte=2","Color_1",GlopusLinksmittefarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Linksmitte=3","Color_1",GlopusLinksmittefarbwert)
endif

If (argument eq "lmfausw")
	ErrorLevel ("syntax")
	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=1")
	RGBR= Input( "Rotwert" , "Rotwert" , 1 )
	If ((RGBR >= 0) AND (RGBR <= 255))
		#
	Else
		Message ("Wert ausserhalb des zulässigen Bereiches")
		Exit
	EndIf
	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=1")
	RGBG= Input( "Grünwert" , "Grünwert" , 1 )
	If ((RGBG >= 0) AND (RGBG <= 255))
		#
	Else
		Message ("Wert ausserhalb des zulässigen Bereiches")
		Exit
	EndIf
	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=1")
	RGBB= Input( "Blauwert" , "Blauwert" , 1 )
	If ((RGBB >= 0) AND (RGBB <= 255))
		#
	Else
		Message ("Wert ausserhalb des zulässigen Bereiches")
		Exit
	EndIf
	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=0")
	GlopusLinksmittefarbwert = "Color(" & ( RGBR & "," & RGBG &"," & RGBB ) & ")"
	RegWriteString( "HKCU", "Software\Glopusathos", "GlopusLinksmittefarbwert",GlopusLinksmittefarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Linksmitte=1","Color_1",GlopusLinksmittefarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Linksmitte=2","Color_1",GlopusLinksmittefarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Linksmitte=3","Color_1",GlopusLinksmittefarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Linksmitte=1","Color_1",GlopusLinksmittefarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Linksmitte=2","Color_1",GlopusLinksmittefarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Linksmitte=3","Color_1",GlopusLinksmittefarbwert)
endif

If (argument eq "lmgr")
	ErrorLevel ("syntax")
	LinkemittlereAnzeigeWert = 1
	RegWriteString( "HKCU", "Software\Glopusathos", "LinkemittlereAnzeigeWert",LinkemittlereAnzeigeWert)
	IniWrite( "\My Flash Disk\Navigation\MNInfo.ini", "Top", "Linksmitte",LinkemittlereAnzeigeWert)
	IniWrite( "\My Flash Disk\Programme\Glopus\GloGoSet.ini", "Buttons", "Linksmitte",LinkemittlereAnzeigeWert)
endif

If (argument eq "lmmi")
	ErrorLevel ("syntax")
	LinkemittlereAnzeigeWert = 2
	RegWriteString( "HKCU", "Software\Glopusathos", "LinkemittlereAnzeigeWert",LinkemittlereAnzeigeWert)
	IniWrite( "\My Flash Disk\Navigation\MNInfo.ini", "Top", "Linksmitte",LinkemittlereAnzeigeWert)
	IniWrite( "\My Flash Disk\Programme\Glopus\GloGoSet.ini", "Buttons", "Linksmitte",LinkemittlereAnzeigeWert)
endif

If (argument eq "lmkl")
	ErrorLevel ("syntax")
	LinkemittlereAnzeigeWert = 3
	RegWriteString( "HKCU", "Software\Glopusathos", "LinkemittlereAnzeigeWert",LinkemittlereAnzeigeWert)
	IniWrite( "\My Flash Disk\Navigation\MNInfo.ini", "Top", "Linksmitte",LinkemittlereAnzeigeWert)
	IniWrite( "\My Flash Disk\Programme\Glopus\GloGoSet.ini", "Buttons", "Linksmitte",LinkemittlereAnzeigeWert)

endif

If (argument eq "lmaus")
	ErrorLevel ("syntax")
	LinkemittlereAnzeigeWert = 4
	RegWriteString( "HKCU", "Software\Glopusathos", "LinkemittlereAnzeigeWert",LinkemittlereAnzeigeWert)
	IniWrite( "\My Flash Disk\Navigation\MNInfo.ini", "Top", "Linksmitte",LinkemittlereAnzeigeWert)
	IniWrite( "\My Flash Disk\Programme\Glopus\GloGoSet.ini", "Buttons", "Linksmitte",LinkemittlereAnzeigeWert)
endif

If (argument eq "rmanz")
	GlopusRechtsmittewert = IniRead(  "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "RechteAnzeige", "GlopusRechtsmittewert")
	GlopusRechtsmitte[1] = "Höhe"
	GlopusRechtsmitte[2] = "Durchschnittsgeschwindigkeit"
	GlopusRechtsmitte[3] = "Trip Strecke"
	GlopusRechtsmitte[4] = "Trip Zeit"
	GlopusRechtsmitte[5] = "Steigung in Prozent"
	GlopusRechtsmitte[6] = "Fahrtrichtung"
	GlopusRechtsmitte[7] = "Maximale Geschwindigkeit"
	GlopusRechtsmitte[8] = "Vergangene Zeit, bei der eine Geschwindigkeit > 3 km/h gemessen wurde"
	GlopusRechtsmitte[9] = "Maximale Höhe"
	GlopusRechtsmitte[10] = "Aktuelle Geschwindigkeit"
	GlopusRechtsmitte[11] = "Pausenzeit"
	ChoiceDefault("Einblendung Rechtsmitte", "Was soll mittleren rechten Anzeige angezeigt werden?" & "^NL^" & "Bitte etwas Geduld nach OK !"  & "^NL^" , 2,  15, GlopusRechtsmitte )
		case(1)
			GlopusRechtsmittewert = ("%Altitude% m")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusRechtsmittewert",GlopusRechtsmittewert)	
		case(2)
			GlopusRechtsmittewert = ("%Average% km/h")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusRechtsmittewert",GlopusRechtsmittewert)		
		case(3)					
			GlopusRechtsmittewert = ("%Distance% km")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusRechtsmittewert",GlopusRechtsmittewert)
		case(4)					
			GlopusRechtsmittewert = ("%TripTime%")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusRechtsmittewert",GlopusRechtsmittewert)
		case(5)					
			GlopusRechtsmittewert = ("%Slope% %%")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusRechtsmittewert",GlopusRechtsmittewert)
		case(6)					
			GlopusRechtsmittewert = ("%Direction% ")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusRechtsmittewert",GlopusRechtsmittewert)
		case(7)					
			GlopusRechtsmittewert = ("%MaxSpeed% km/h")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusRechtsmittewert",GlopusRechtsmittewert)
		case(8)					
			GlopusRechtsmittewert = ("%DriveTime%")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusRechtsmittewert",GlopusRechtsmittewert)
		case(9)					
			GlopusRechtsmittewert = ("%MaxAltitude% m")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusRechtsmittewert",GlopusRechtsmittewert)
		case(10)					
			GlopusRechtsmittewert = ("%Speed% km/h")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusRechtsmittewert",GlopusRechtsmittewert)
		case(11)					
			GlopusRechtsmittewert = ("%Break%")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusRechtsmittewert",GlopusRechtsmittewert)
		case(0)
		EndChoice
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Rechtsmitte=1","Text",GlopusRechtsmittewert)		
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Rechtsmitte=2","Text",GlopusRechtsmittewert)		
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Rechtsmitte=3","Text",GlopusRechtsmittewert)

	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Rechtsmitte=1","Text",GlopusRechtsmittewert)		
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Rechtsmitte=2","Text",GlopusRechtsmittewert)		
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Rechtsmitte=3","Text",GlopusRechtsmittewert)
endif

If (argument eq "rmr")
	ErrorLevel ("syntax")
	GlopusRechtsmittefarbwert = ("Color(250,0,0)")
	RegWriteString( "HKCU", "Software\Glopusathos", "GlopusRechtsmittefarbwert",GlopusRechtsmittefarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Rechtsmitte=1","Color_1",GlopusRechtsmittefarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Rechtsmitte=2","Color_1",GlopusRechtsmittefarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Rechtsmitte=3","Color_1",GlopusRechtsmittefarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Rechtsmitte=1","Color_1",GlopusRechtsmittefarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Rechtsmitte=2","Color_1",GlopusRechtsmittefarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Rechtsmitte=3","Color_1",GlopusRechtsmittefarbwert)
endif

If (argument eq "rmg")
	ErrorLevel ("syntax")
	GlopusRechtsmittefarbwert = ("Color(0,250,0)")
	RegWriteString( "HKCU", "Software\Glopusathos", "GlopusRechtsmittefarbwert",GlopusRechtsmittefarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Rechtsmitte=1","Color_1",GlopusRechtsmittefarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Rechtsmitte=2","Color_1",GlopusRechtsmittefarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Rechtsmitte=3","Color_1",GlopusRechtsmittefarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Rechtsmitte=1","Color_1",GlopusRechtsmittefarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Rechtsmitte=2","Color_1",GlopusRechtsmittefarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Rechtsmitte=3","Color_1",GlopusRechtsmittefarbwert)
endif

If (argument eq "rmb")
	ErrorLevel ("syntax")
	GlopusRechtsmittefarbwert = ("Color(0,0,250)")
	RegWriteString( "HKCU", "Software\Glopusathos", "GlopusRechtsmittefarbwert",GlopusRechtsmittefarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Rechtsmitte=1","Color_1",GlopusRechtsmittefarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Rechtsmitte=2","Color_1",GlopusRechtsmittefarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Rechtsmitte=3","Color_1",GlopusRechtsmittefarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Rechtsmitte=1","Color_1",GlopusRechtsmittefarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Rechtsmitte=2","Color_1",GlopusRechtsmittefarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Rechtsmitte=3","Color_1",GlopusRechtsmittefarbwert)
endif

If (argument eq "rmfausw")
	ErrorLevel ("syntax")
	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=1")
	RGBR= Input( "Rotwert" , "Rotwert" , 1 )

	If ((RGBR >= 0) AND (RGBR <= 255))
	 #
	Else
		Message ("Wert ausserhalb des zulässigen Bereiches")
		Exit
	EndIf
	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=1")
	RGBG= Input( "Grünwert" , "Grünwert" , 1 )
	If ((RGBG >= 0) AND (RGBG <= 255))
		#
	Else
		Message ("Wert ausserhalb des zulässigen Bereiches")
		Exit
	EndIf
	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=1")
	RGBB= Input( "Blauwert" , "Blauwert" , 1 )
	If ((RGBB >= 0) AND (RGBB <= 255))
		#
	Else
		Message ("Wert ausserhalb des zulässigen Bereiches")
		Exit
	EndIf
	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=0")
	GlopusRechtsmittefarbwert = "Color(" & ( RGBR & "," & RGBG &"," & RGBB ) & ")"
	RegWriteString( "HKCU", "Software\Glopusathos", "GlopusRechtsmittefarbwert",GlopusRechtsmittefarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Rechtsmitte=1","Color_1",GlopusRechtsmittefarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Rechtsmitte=2","Color_1",GlopusRechtsmittefarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Rechtsmitte=3","Color_1",GlopusRechtsmittefarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Rechtsmitte=1","Color_1",GlopusRechtsmittefarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Rechtsmitte=2","Color_1",GlopusRechtsmittefarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Rechtsmitte=3","Color_1",GlopusRechtsmittefarbwert)	
endif

If (argument eq "rmgr")
	ErrorLevel ("syntax")
	RechtsmittlereAnzeigeWert = 1
	RegWriteString( "HKCU", "Software\Glopusathos", "RechtemittlereAnzeigeWert",RechtsmittlereAnzeigeWert)
	IniWrite( "\My Flash Disk\Navigation\MNInfo.ini", "Top", "Rechtsmitte",RechtsmittlereAnzeigeWert)
	IniWrite( "\My Flash Disk\Programme\Glopus\GloGoSet.ini", "Buttons", "Rechtsmitte",RechtsmittlereAnzeigeWert)	
endif

If (argument eq "rmmi")
	ErrorLevel ("syntax")
	RechtemittlereAnzeigeWert = 2
	RegWriteString( "HKCU", "Software\Glopusathos", "RechtemittlereAnzeigeWert",RechtemittlereAnzeigeWert)
	IniWrite( "\My Flash Disk\Navigation\MNInfo.ini", "Top", "Rechtsmitte",RechtemittlereAnzeigeWert)
	IniWrite( "\My Flash Disk\Programme\Glopus\GloGoSet.ini", "Buttons", "Rechtsmitte",RechtemittlereAnzeigeWert)
endif

If (argument eq "rmkl")
	ErrorLevel ("syntax")
	RechtemittlereAnzeigeWert = 3
	RegWriteString( "HKCU", "Software\Glopusathos", "RechtemittlereAnzeigeWert",RechtemittlereAnzeigeWert)
	IniWrite( "\My Flash Disk\Navigation\MNInfo.ini", "Top", "Rechtsmitte",RechtemittlereAnzeigeWert)
	IniWrite( "\My Flash Disk\Programme\Glopus\GloGoSet.ini", "Buttons", "Rechtsmitte",RechtemittlereAnzeigeWert)
endif

If (argument eq "rmaus")
	ErrorLevel ("syntax")
	RechtemittlereAnzeigeWert = 4
	RegWriteString( "HKCU", "Software\Glopusathos", "RechtemittlereAnzeigeWert",RechtemittlereAnzeigeWert)
	IniWrite( "\My Flash Disk\Navigation\MNInfo.ini", "Top", "Rechtsmitte",RechtemittlereAnzeigeWert)
	IniWrite( "\My Flash Disk\Programme\Glopus\GloGoSet.ini", "Buttons", "Rechtsmitte",RechtemittlereAnzeigeWert)
endif

If (argument eq "ranz")
	GlopusRechtswert = IniRead(  "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "RechteAnzeige", "GlopusRechtswert")
	GlopusRechts[1] = "Höhe"
	GlopusRechts[2] = "Durchschnittsgeschwindigkeit"
	GlopusRechts[3] = "Trip Strecke"
	GlopusRechts[4] = "Trip Zeit"
	GlopusRechts[5] = "Steigung in Prozent"
	GlopusRechts[6] = "Fahrtrichtung"
	GlopusRechts[7] = "Maximale Geschwindigkeit"
	GlopusRechts[8] = "Vergangene Zeit, bei der eine Geschwindigkeit > 3 km/h gemessen wurde"
	GlopusRechts[9] = "Maximale Höhe"
	GlopusRechts[10] = "Aktuelle Geschwindigkeit"
	GlopusRechts[11] = "Pausenzeit"
	ChoiceDefault("Einblendung Rechts", "Was soll Rechts angezeigt werden?" & "^NL^" & "Bitte etwas Geduld nach OK !"  & "^NL^" , 1,  15, GlopusRechts )
		case(1)
			GlopusRechtswert = ("%Altitude% m")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusRechtswert",GlopusRechtswert)	
		case(2)
			GlopusRechtswert = ("%Average% km/h")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusRechtswert",GlopusRechtswert)		
		case(3)					
			GlopusRechtswert = ("%Distance% km")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusRechtswert",GlopusRechtswert)
		case(4)					
			GlopusRechtswert = ("%TripTime%")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusRechtswert",GlopusRechtswert)
		case(5)					
			GlopusRechtswert = ("%Slope% %%")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusRechtswert",GlopusRechtswert)
		case(6)					
			GlopusRechtswert = ("%Direction% ° ")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusRechtswert",GlopusRechtswert)
		case(7)					
			GlopusRechtswert = ("%MaxSpeed% km/h")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusRechtswert",GlopusRechtswert)
		case(8)					
			GlopusRechtswert = ("%DriveTime%")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusRechtswert",GlopusRechtswert)
		case(9)					
			GlopusRechtswert = ("%MaxAltitude% m")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusRechtswert",GlopusRechtswert)
		case(10)					
			GlopusRechtswert = ("%Speed% km/h")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusRechtswert",GlopusRechtswert)
		case(11)					
			GlopusRechtswert = ("%Break%")
			RegWriteString( "HKCU", "Software\Glopusathos", "GlopusRechtswert",GlopusRechtswert)
		case(0)
	EndChoice
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Rechts=1","Text",GlopusRechtswert)		
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Rechts=2","Text",GlopusRechtswert)		
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Rechts=3","Text",GlopusRechtswert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Rechts=1","Text",GlopusRechtswert)		
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Rechts=2","Text",GlopusRechtswert)		
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Rechts=3","Text",GlopusRechtswert)
endif

If (argument eq "rr")
	ErrorLevel ("syntax")
	Glopusrechtsfarbwert = ("Color(250,0,0)")
	RegWriteString( "HKCU", "Software\Glopusathos", "Glopusrechtsfarbwert",Glopusrechtsfarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Rechts=1","Color_1",Glopusrechtsfarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Rechts=2","Color_1",Glopusrechtsfarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Rechts=3","Color_1",Glopusrechtsfarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Rechts=1","Color_1",Glopusrechtsfarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Rechts=2","Color_1",Glopusrechtsfarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Rechts=3","Color_1",Glopusrechtsfarbwert)
endif

If (argument eq "rg")
	ErrorLevel ("syntax")
	Glopusrechtsfarbwert = ("Color(0,250,0)")
	RegWriteString( "HKCU", "Software\Glopusathos", "Glopusrechtsfarbwert",Glopusrechtsfarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Rechts=1","Color_1",Glopusrechtsfarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Rechts=2","Color_1",Glopusrechtsfarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Rechts=3","Color_1",Glopusrechtsfarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Rechts=1","Color_1",Glopusrechtsfarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Rechts=2","Color_1",Glopusrechtsfarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Rechts=3","Color_1",Glopusrechtsfarbwert)
endif

If (argument eq "rb")
	ErrorLevel ("syntax")
	Glopusrechtsfarbwert = ("Color(0,0,250)")
	RegWriteString( "HKCU", "Software\Glopusathos", "Glopusrechtsfarbwert",Glopusrechtsfarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","rechts=1","Color_1",Glopusrechtsfarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","rechts=2","Color_1",Glopusrechtsfarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","rechts=3","Color_1",Glopusrechtsfarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","rechts=1","Color_1",Glopusrechtsfarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","rechts=2","Color_1",Glopusrechtsfarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","rechts=3","Color_1",Glopuslinksfarbwert)
endif

If (argument eq "rfausw")
	ErrorLevel ("syntax")
	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=1")
	RGBR= Input( "Rotwert" , "Rotwert" , 1 )
	If ((RGBR >= 0) AND (RGBR <= 255))
		#
	Else
		Message ("Wert ausserhalb des zulässigen Bereiches")
		Exit
	EndIf
	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=1")
	RGBG= Input( "Grünwert" , "Grünwert" , 1 )
	If ((RGBG >= 0) AND (RGBG <= 255))
		#
	Else
		Message ("Wert ausserhalb des zulässigen Bereiches")
		Exit
	EndIf
	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=1")
	RGBB= Input( "Blauwert" , "Blauwert" , 1 )
	If ((RGBB >= 0) AND (RGBB <= 255))
		#
	Else
		Message ("Wert ausserhalb des zulässigen Bereiches")
		Exit
	EndIf
	Run ("\My Flash Disk\Sokobana\Koord\koord465.exe", "window=0 sip=0")
	Glopusrechtsfarbwert = "Color(" & ( RGBR & "," & RGBG &"," & RGBB ) & ")"
	RegWriteString( "HKCU", "Software\Glopusathos", "Glopusrechtsfarbwert",Glopusrechtsfarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","rechts=1","Color_1",Glopusrechtsfarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","rechts=2","Color_1",Glopusrechtsfarbwert)
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","rechts=3","Color_1",Glopusrechtsfarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","rechts=1","Color_1",Glopusrechtsfarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","rechts=2","Color_1",Glopusrechtsfarbwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","rechts=3","Color_1",Glopusrechtsfarbwert)
endif

If (argument eq "rgr")
	ErrorLevel ("syntax")
	RechteAnzeigeWert = 1
	RegWriteString( "HKCU", "Software\Glopusathos", "RechteAnzeigeWert",RechteAnzeigeWert)
	IniWrite( "\My Flash Disk\Navigation\MNInfo.ini", "Top", "Rechts",RechteAnzeigeWert)
	IniWrite( "\My Flash Disk\Programme\Glopus\GloGoSet.ini", "Buttons", "Rechts",RechteAnzeigeWert)
endif

If (argument eq "rmi")
	ErrorLevel ("syntax")
	RechteAnzeigeWert = 2
	RegWriteString( "HKCU", "Software\Glopusathos", "RechteAnzeigeWert",RechteAnzeigeWert)
	IniWrite( "\My Flash Disk\Navigation\MNInfo.ini", "Top", "Rechts",RechteAnzeigeWert)
	IniWrite( "\My Flash Disk\Programme\Glopus\GloGoSet.ini", "Buttons", "Rechts",RechteAnzeigeWert)
endif

If (argument eq "rkl")
	ErrorLevel ("syntax")
	RechteAnzeigeWert = 3
	RegWriteString( "HKCU", "Software\Glopusathos", "RechteAnzeigeWert",RechteAnzeigeWert)
	IniWrite( "\My Flash Disk\Navigation\MNInfo.ini", "Top", "Rechts",RechteAnzeigeWert)
	IniWrite( "\My Flash Disk\Programme\Glopus\GloGoSet.ini", "Buttons", "Rechts",RechteAnzeigeWert)
endif

If (argument eq "raus")
	ErrorLevel ("syntax")
	RechteAnzeigeWert = 4
	RegWriteString( "HKCU", "Software\Glopusathos", "RechteAnzeigeWert",RechteAnzeigeWert)
	IniWrite( "\My Flash Disk\Navigation\MNInfo.ini", "Top", "Rechts",RechteAnzeigeWert)
	IniWrite( "\My Flash Disk\Programme\Glopus\GloGoSet.ini", "Buttons", "Rechts",RechteAnzeigeWert)
endif

If (argument eq "kleine")
	Glopusklwert = IniRead(  "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "Wert", "Glopusklwert")
	Glopuskl[1] = "Arbeitsspeicher in MB"
	Glopuskl[2] = "Batterieladestand in Prozent"
	Glopuskl[3] = "Anzahl der Satelliten"
	Glopuskl[4] = "Horizontal dilution of percision "
	Glopuskl[5] = "Fahrtrichtung in Grad"
	Glopuskl[6] = "Winkel zu Sonne"
	Glopuskl[7] = "Höhenwinkel zur Sonne"
	Glopuskl[8] = "keine Anzeige"
	ChoiceDefault("Einblendung rechts klein", "kleine  Einblendung rechts unter Anzeigemodus" & "^NL^" & "Bitte etwas Geduld nach OK !"  & "^NL^" , 1,  15, Glopuskl )
		case(1)
			Glopusklwert = ("%FreeMem%")
			RegWriteString( "HKCU", "Software\Glopusathos", "Glopusklwert",Glopusklwert)
			IniWrite( "\My Flash Disk\Navigation\MNInfo.ini", "Top", "Kleine", 1)
			IniWrite( "\My Flash Disk\Programme\Glopus\GloGoSet.ini", "Buttons", "Kleine", 1)		
		case(2)
			Glopusklwert = ("%BatPerc%%%")
			RegWriteString( "HKCU", "Software\Glopusathos", "Glopusklwert",Glopusklwert)
			IniWrite( "\My Flash Disk\Navigation\MNInfo.ini", "Top", "Kleine", 1)
			IniWrite( "\My Flash Disk\Programme\Glopus\GloGoSet.ini", "Buttons", "Kleine", 1)		
		case(3)					
			Glopusklwert = ("%Sats%")
			RegWriteString( "HKCU", "Software\Glopusathos", "Glopusklwert",Glopusklwert)
			IniWrite( "\My Flash Disk\Navigation\MNInfo.ini", "Top", "Kleine", 1)
			IniWrite( "\My Flash Disk\Programme\Glopus\GloGoSet.ini", "Buttons", "Kleine", 1)
		case(4)					
			Glopusklwert = ("%HDOP%")
			RegWriteString( "HKCU", "Software\Glopusathos", "Glopusklwert",Glopusklwert)
			IniWrite( "\My Flash Disk\Navigation\MNInfo.ini", "Top", "Kleine", 1)
			IniWrite( "\My Flash Disk\Programme\Glopus\GloGoSet.ini", "Buttons", "Kleine", 1)
		case(5)					
			Glopusklwert = ("%Direction%°")
			RegWriteString( "HKCU", "Software\Glopusathos", "Glopusklwert",Glopusklwert)
			IniWrite( "\My Flash Disk\Navigation\MNInfo.ini", "Top", "Kleine", 1)
			IniWrite( "\My Flash Disk\Programme\Glopus\GloGoSet.ini", "Buttons", "Kleine", 1)
		case(6)					
			Glopusklwert = ("%SunAzimut%°")
			RegWriteString( "HKCU", "Software\Glopusathos", "Glopusklwert",Glopusklwert)
			IniWrite( "\My Flash Disk\Navigation\MNInfo.ini", "Top", "Kleine", 1)
			IniWrite( "\My Flash Disk\Programme\Glopus\GloGoSet.ini", "Buttons", "Kleine", 1)
		case(7)					
			Glopusklwert = ("%SunAltitude%°")
			RegWriteString( "HKCU", "Software\Glopusathos", "Glopusklwert",Glopusklwert)
			IniWrite( "\My Flash Disk\Navigation\MNInfo.ini", "Top", "Kleine", 1)
			IniWrite( "\My Flash Disk\Programme\Glopus\GloGoSet.ini", "Buttons", "Kleine", 1)
		case(8)					
			Glopusklwert = ("")
			RegWriteString( "HKCU", "Software\Glopusathos", "Glopusklwert",Glopusklwert)
			IniWrite( "\My Flash Disk\Navigation\MNInfo.ini", "Top", "Kleine", 0)
			IniWrite( "\My Flash Disk\Programme\Glopus\GloGoSet.ini", "Buttons", "Kleine", 0)
		case(0)
			Exit		
	EndChoice
	IniWrite("\My Flash Disk\Navigation\MNInfo.ini","Kleine=1","Text", Glopusklwert)
	IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Kleine=1","Text", Glopusklwert)
endif

If (argument eq "Bat")
	BatterieSatwert = IniRead(  "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "Wert", "BatterieSatwert")
	BatterieSat[1] = "Satelliten und Batterieladestand anzeigen"
	BatterieSat[2] = "Batterieladestand in Prozent"
	BatterieSat[3] = "Anzahl der Satelliten"
	BatterieSat[4] = "keine Anzeige"
	ChoiceDefault("Einblendung rechts klein", "kleine  Einblendung rechts unter Anzeigemodus" & "^NL^" & "Bitte etwas Geduld nach OK !"  & "^NL^" , BatterieSatwert,  15, BatterieSat )
		case(1)
			BatterieSatwert = 1
			RegWriteString( "HKCU", "Software\Glopusathos", "BatterieSatwert",BatterieSatwert)
			IniWrite( "\My Flash Disk\Navigation\MNInfo.ini", "Top", "UnterBatterie", 1)
			IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Buttons", "UnterBatterie", 1)
			IniWrite( "\My Flash Disk\Navigation\MNInfo.ini", "Top", "Sats", 1)
			IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Buttons", "Sats", 1)
			
		case(2)
			BatterieSatwert = 2
			RegWriteString( "HKCU", "Software\Glopusathos", "BatterieSatwert",BatterieSatwert)
			IniWrite( "\My Flash Disk\Navigation\MNInfo.ini", "Top", "UnterBatterie", 1)
			IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Buttons", "UnterBatterie", 1)
			IniWrite( "\My Flash Disk\Navigation\MNInfo.ini", "Top", "Sats", 0)
			IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Buttons", "Sats", 0)			
		case(3)					
			BatterieSatwert = 3
			RegWriteString( "HKCU", "Software\Glopusathos", "BatterieSatwert",BatterieSatwert)
			IniWrite( "\My Flash Disk\Navigation\MNInfo.ini", "Top", "UnterBatterie", 0)
			IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Buttons", "UnterBatterie", 0)
			IniWrite( "\My Flash Disk\Navigation\MNInfo.ini", "Top", "Sats", 1)
			IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Buttons", "Sats", 1)
		case(4)					
			BatterieSatwert = 4
			RegWriteString( "HKCU", "Software\Glopusathos", "BatterieSatwert",BatterieSatwert)
			IniWrite( "\My Flash Disk\Navigation\MNInfo.ini", "Top", "UnterBatterie", 0)
			IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Buttons", "UnterBatterie", 0)
			IniWrite( "\My Flash Disk\Navigation\MNInfo.ini", "Top", "Sats", 0)
			IniWrite("\My Flash Disk\Programme\Glopus\GloGoSet.ini","Buttons", "Sats", 0)
		case(0)
			Exit		
	EndChoice
endif

If (argument eq "glostart")
	Glopusstartwert = IniRead( "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "Standart", "Glopusstartwert" )
	Glopusstart[1] = "GoPal sowie Glopus jeweils getrennt starten"
	Glopusstart[2] = "Mit Gopal starten und beenden"
	Glopusstart[3] = "Mit Gopal starten aber nicht beenden"
	ChoiceDefault("Glopus Start", "Glopus Startverhalten" & "^NL^" & "Bitte wählen sie aus." & "^NL^" & "Bitte etwas Geduld nach OK !" & "^NL^" , Glopusstartwert,  15, Glopusstart )
		case(1)
			Glopusstartwert = 1
			RegWriteString( "HKCU", "Software\Glopusathos", "Glopusstartwert",Glopusstartwert)
			Copy( "\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_rot.png", "\My Flash Disk\Navigation\Skin480x272\PPSkin\glopus_autostart.png", 1 )
		case(2)
			Glopusstartwert = 2
			RegWriteString( "HKCU", "Software\Glopusathos", "Glopusstartwert",Glopusstartwert)
			Copy( "\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_gruen.png", "\My Flash Disk\Navigation\Skin480x272\PPSkin\glopus_autostart.png", 1 )							
		case(3)					
			Glopusstartwert = 3
			RegWriteString( "HKCU", "Software\Glopusathos", "Glopusstartwert",Glopusstartwert)
			Copy( "\My Flash Disk\Navigation\Skin480x272\PPSkin\punkt_gruen.png", "\My Flash Disk\Navigation\Skin480x272\PPSkin\glopus_autostart.png", 1 )	
		case(0)
			Exit		
	EndChoice
endif


If (argument eq "sicherung")
			ProgPath = RegRead( "HKCU", "Software\PkSoft\GpsLog", "ProgPath")
			IniWrite( "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "Standart", "ProgPath" ,ProgPath)

		AltitudeOffset = RegRead( "HKCU", "Software\PkSoft\GpsLog", "AltitudeOffset")
			IniWrite( "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "Standart", "AltitudeOffset",AltitudeOffset )

		AutoAltitudeOffset = RegRead( "HKCU", "Software\PkSoft\GpsLog", "AutoAltitudeOffset")
			IniWrite( "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "Standart", "AutoAltitudeOffset",AutoAltitudeOffset )

		Source = RegRead( "HKCU", "Software\PkSoft\GpsLog", "Source")
			IniWrite( "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "Standart", "Source" ,Source)

		Speed = RegRead( "HKCU", "Software\PkSoft\GpsLog", "Speed")
			IniWrite( "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "Standart", "Speed",Speed )

		LogDelay = RegRead( "HKCU", "Software\PkSoft\GpsLog", "LogDelay")
			IniWrite( "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "Standart", "LogDelay",LogDelay )
	
		LogDirectory = RegRead( "HKCU", "Software\PkSoft\GpsLog", "LogDirectory")
			IniWrite( "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "Standart", "LogDirectory",LogDirectory )

		LicenceAgreed = RegRead( "HKCU", "Software\PkSoft\GpsLog", "LicenceAgreed")
			IniWrite( "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "Standart", "LicenceAgreed",LicenceAgreed )

		
			IniWrite( "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "Standart", "CurrentView","Analog")

		Glopusstartwert = RegRead( "HKCU", "Software\Glopusathos", "Glopusstartwert")
			IniWrite( "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "Standart", "Glopusstartwert",Glopusstartwert)

		WriteLog = RegRead ( "HKCU", "Software\PkSoft\GpsLog", "WriteLog")
			IniWrite( "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "Wert", "WriteLog",WriteLog)


		LinkeAnzeigeWert = RegRead( "HKCU", "Software\Glopusathos", "LinkeAnzeigeWert")
			IniWrite( "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "LinkeAnzeige", "LinkeAnzeigeWert",LinkeAnzeigeWert)

		Glopuslinkswert = RegRead( "HKCU", "Software\Glopusathos", "Glopuslinkswert")
			IniWrite( "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "LinkeAnzeige", "Glopuslinkswert",Glopuslinkswert)

		Glopuslinksfarbwert = RegRead( "HKCU", "Software\Glopusathos", "Glopuslinksfarbwert")
			IniWrite( "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "LinkeAnzeige", "Glopuslinksfarbwert",Glopuslinksfarbwert)



		LinkemittlereAnzeigeWert = RegRead( "HKCU", "Software\Glopusathos", "LinkemittlereAnzeigeWert")
			IniWrite( "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "LinkeAnzeige", "LinkemittlereAnzeigeWert",LinkemittlereAnzeigeWert)

		GlopusLinksmittewert = RegRead( "HKCU", "Software\Glopusathos", "GlopusLinksmittewert")
			IniWrite( "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "LinkeAnzeige", "GlopusLinksmittewert",GlopusLinksmittewert)

		GlopusLinksmittefarbwert = RegRead( "HKCU", "Software\Glopusathos", "GlopusLinksmittefarbwert")
			IniWrite( "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "LinkeAnzeige", "GlopusLinksmittefarbwert",GlopusLinksmittefarbwert)



		RechtemittlereAnzeigeWert = RegRead( "HKCU", "Software\Glopusathos", "RechtemittlereAnzeigeWert")
			IniWrite( "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "RechteAnzeige", "RechtemittlereAnzeigeWert",RechtemittlereAnzeigeWert)

		GlopusRechtsmittewert = RegRead( "HKCU", "Software\Glopusathos", "GlopusRechtsmittewert")
			IniWrite( "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "RechteAnzeige", "GlopusRechtsmittewert",GlopusRechtsmittewert)

		GlopusRechtsmittefarbwert = RegRead( "HKCU", "Software\Glopusathos", "GlopusRechtsmittefarbwert")
			IniWrite( "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "RechteAnzeige", "GlopusRechtsmittefarbwert",GlopusRechtsmittefarbwert)



		RechteAnzeigeWert = RegRead( "HKCU", "Software\Glopusathos", "RechteAnzeigeWert")
			IniWrite( "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "RechteAnzeige", "RechteAnzeigeWert",RechteAnzeigeWert)

		GlopusRechtswert = RegRead( "HKCU", "Software\Glopusathos", "GlopusRechtswert")
			IniWrite( "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "RechteAnzeige", "GlopusRechtswert",GlopusRechtswert)

		GlopusRechtsfarbwert = RegRead( "HKCU", "Software\Glopusathos", "GlopusRechtsfarbwert")
			IniWrite( "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "RechteAnzeige", "GlopusRechtsfarbwert",GlopusRechtsfarbwert)


		Glopusklwert = RegRead ( "HKCU", "Software\Glopusathos", "Glopusklwert")
			IniWrite( "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "Wert", "Glopusklwert",Glopusklwert)


		BatterieSatwert = RegRead ( "HKCU", "Software\Glopusathos", "BatterieSatwert")
			IniWrite( "\My Flash Disk\Programme\Glopus\Glopusathos.ini", "Wert", "BatterieSatwert",BatterieSatwert)

endif