#Variables_Language sets variables used for menu and message languages
Sub Variables_Language
	Call("Variables_Common")

      Local(LCID, LangArray, Language, found, i, test)
	Language = IniRead(MioPocketINI, "Language", "Language")
	If(Language eq "")



#for testing purposes only
RegWriteDword("HKCU","MUI","CurLang", 4103)
Sleep 1000

		#Set the language according to the locale currently in use
		Local(LCID, LangArray, LanguageFile, found, i, test, Language)
		If(RegValueExists("HKCU", "MUI", "Curlang"))
			LangArray = array("Catalan,1027", "Czech,1029", "Dutch,1043", ...

			LCID = "" & RegRead("HKCU","MUI","Curlang")
			#Translate
			i = 1
			found = FALSE 
			While((not found) AND (i < ElementCount(LangArray)))
				test = Split(LangArray[i], "," , FALSE)
				If(test[2] eq LCID)
					Language = test[1]
					found = TRUE
				EndIf
				i += 1
			EndWhile
			If(not found OR not FileExists("MioPocketLanguage-" & Language & ".mscr"))
				Language = "English"
			EndIf
		EndIf

		IniWrite(MioPocketINI, "Language", "Language", Language)
	EndIf

	#Load the English variables first, in case the definitions for the chosen language are incomplete
	CallScript("MioPocketLanguage-English.mscr")

	#If the chosen language is not English, load its variables
	If(Language ne "English")
		CallScript("MioPocketLanguage-" & Language & ".mscr")
	EndIf
EndSub

How to Dramatically Speed Up Your Storage Card?

quote:

---

1) AClock you introduced here, is a very, very memory consuming application: TaskManager reports 483 KB. And it's always running in the foreground.

---

quote:

---

WindowMove.exe is most useful when expanding the window (ex. to fullscreen).

---

#UnloadBTAG.mscr
Include("Variables.mscr")
Call "Variables_Common"
##############################
Local(success)
success=TRUE
If(RegValueExists("HKLM","Services\BTAGSVC","IsEnabled"))
	If(RegRead("HKLM","Services\BTAGSVC","IsEnabled"))
		If(FileExists(SystemFolder\"regservce.exe"))
			Try
				Run("regservce.exe",""""/u BTAGSVC.dll"""")
			Catch
				success=FALSE
			EndTry
		EndIf
		If(success)
			RegWriteDword("HKLM","Services\BTAGSVC","IsEnabled",0)
		EndIf
	EndIf
EndIf

#LoadBTAG.mscr
Include("Variables.mscr")
Call "Variables_Common"
#############################
Local(success)
success=TRUE
If(RegValueExists("HKLM","Services\BTAGSVC","IsEnabled"))
	If(not RegRead("HKLM","Services\BTAGSVC","IsEnabled"))
		If(FileExists(SystemFolder\"regservce.exe"))
			Try
				Run("regservce.exe","BTAGSVC.dll")
			Catch
				success=FALSE
			EndTry
		EndIf
		If(success)
			RegWriteDword("HKLM","Services\BTAGSVC","IsEnabled",1)
		EndIf
	EndIf
EndIf

Include("Variables.mscr")
Call("Variables_Common")
########################

Local(newValue, parameter, success)
success = TRUE

If(RegValueExists("HKLM", "Services\BTAGSVC", "IsEnabled"))
	If(RegRead("HKLM", "Services\BTAGSVC", "IsEnabled"))
		newValue = 0
		parameter = """"/u BTAGSVC.dll""""
	Else
		newValue = 1
		parameter = "BTAGSVC.dll"
	EndIf

	If(FileExists(SystemFolder\"regservce.exe"))
		Try
			Run("regservce.exe", parameter)
		Catch
			success = FALSE
		EndTry
	EndIf

	If(success)
		RegWriteDword("HKLM", "Services\BTAGSVC", "IsEnabled", newValue)
	EndIf
Else
	SleepMessage(3, "Bluetooth Audio Gateway Service is not supported on this device.", "", TRUE)
EndIf

"DMAIrq"=dword:00000035
"SDIOIrq"=dword:00000015

"DMAIrq"=dword:00000024
"SDIOIrq"=dword:0000001E

#Test-SDHC.mscr
ErrorLevel("off")

#define scratch vars used in local namespace
Local(cpyFile, rdFile, logFile, writeLog, startTime, endTime, cpyTime, rdTime, cpyOK, readOK, cnt, fs, i, j, rd)
cpyFile = "\My Flash Disk\dummy1MB.txt"
rdFile = "\Storage Card\dummy1MB.txt"
logFile = "\StorageCard\test-sdhc.txt"

#display a test status window
StatusType(ST_MESSAGE, TRUE, TRUE)
StatusInfo("Testing SD-card [Please be patient, this takes some seconds ...]")

#prepare
If(not FileExists(cpyFile))
	StatusMessageAppend("^CR^Creating the dummy 1MB file for the first time...")
	Sleep 50
	#create it
	WriteFile(cpyFile, "X", 0)
	Repeat(1024 * 1024 - 1)
		WriteFile(cpyFile, "X",1)
	EndRepeat
EndIf
writeLog=FALSE
cnt=100
SetFileAttribs(cpyFile, FALSE, FALSE, FALSE)
fs=FileSize(cpyFile, KB)

#write operation
StatusMessageAppend("^CR^Started " & cnt & " write operations ...")
Sleep 50
cpyOK = TRUE
i = 0
j = 0
startTime = TimeStamp()
While(cpyOK AND (i < cnt))
	Try
		Copy(cpyFile, rdFile, TRUE)
		j += 1
	Catch
		cpyOK = FALSE
		i = cnt
	EndTry
	i += 1
EndWhile
endTime = TimeStamp()
cpyTime = (endTime - startTime) + 1
If(not cpyOK)
	StatusMessageAppend("^CR^^CR^Write test failed! Exiting ...")
	Sleep 10000
	StatusType(ST_HIDDEN)
	Exit
EndIf
StatusMessageAppend("^CR^" & fs * j & " KB written in " & cpyTime & " msecs")
Sleep 50

#read operation
StatusMessageAppend("^CR^^CR^Performing " & cnt & " read operations ...")
Sleep 50
readOK = TRUE
i = 0
j = 0
startTime = TimeStamp()
While(readOK AND (i < cnt))
	Try
		rd = ReadFile(rdFile, fs)
		j += 1
	Catch
		readOK = FALSE
		i = cnt
	EndTry
	i += 1
EndWhile
endTime = TimeStamp()
readTime = (endTime - startTime) + 1
If(not readOK)
	StatusMessageAppend("^CR^^CR^Read test failed! Exiting ...")
	Sleep 10000
	StatusType(ST_HIDDEN)
	Exit
EndIf
StatusMessageAppend("^CR^" & fs * j & " KB read in " & readTime & " msecs")
Sleep 50
StatusMessageAppend("^CR^^CR^Test done.")
Sleep 50

#log result
If(writeLog)
	StatusMessageAppend("^CR^^CR^Writing log file ...")
	Sleep 50


EndIf

#end
StatusMessageAppend("^CR^^CR^All finished.")
Sleep 10000
StatusType(ST_HIDDEN)