SetChoiceEntryFormat(31, 25)
ChoiceDefault("Menu", "** Menu **", 1, 0, "TotalCommander", "FileManagerCE", "TC as Shell", "Core Player", "Media Player", "iTaskManager", "Resource Info", "Hard Reboot", "USB On/Off")
case 1
	Call("RunTotalCommander")
	Call("ExitScript")
case 2
	Call("RunFileManagerCE")
	Call("ExitScript")
case 3
	Call("RunTCShell")
case 4
	Call("RunCorePlayer")
	Call("ExitScript")
case 5
	Call("RunMediaPlayer")
	Call("ExitScript")
case 6
	Call("RunTaskMgr")
	Call("ExitScript")
case 7
	Call("RunResInfo")
	Call("ExitScript")
case 8
	Call("Hardboot")
	Call("ExitScript")
call 9
	Call("usbonoff")
	Call("ExitScript")
case 0
	Call("ExitScript")
EndChoice


Sub RunTotalCommander
	Run("\My Flash Disk\MioMap\MioMap\Applications\Total Commander\cecmd.exe")
EndSub


Sub RunFileManagerCE
	Run("\My Flash Disk\MioMap\MioMap\Applications\FileManagerCE\FileManCE.exe")
EndSub


Sub RunTCShell
	if ( WndExists( "MainShell" ) )
		Close ("MainShell")
	EndIf
	While (TRUE)
		RunWait("\My Flash Disk\MioMap\MioMap\Applications\Total Commander\cecmd.exe")
	EndWhile
EndSub


Sub RunCorePlayer
	Run("\My Flash Disk\MioMap\MioMap\Applications\CorePlayer\PLAYER.EXE")
EndSub


Sub RunMediaPlayer
	Run("\My Flash Disk\MioMap\MioMap\Applications\Media Player\player.exe")
EndSub


Sub RunTaskMgr
	Run("\My Flash Disk\MioMap\MioMap\Tools\iTaskMgr.exe")
EndSub


Sub RunResInfo
	Run("\My Flash Disk\MioMap\MioMap\Tools\Resinfo.exe")
EndSub


Sub Hardboot
	Run("\My Flash Disk\MioMap\MioMap\Tools\HARDBOOT.EXE")
EndSub


Sub usbonoff
	Run("\My Flash Disk\MioMap\MioMap\usb_on_off.exe")
EndSub


Sub ExitScript
	Exit
EndSub