cd /d %~dp0
	tclkitsh-win32.upx.exe sdx.kit unwrap MeLex.exe
	xcopy /y /i /s MeLex.vfs\lib\macaddr MeLex.isp.vfs\lib\macaddr 
	xcopy /y /i /s MeLex.vfs\lib\tbcload MeLex.isp.vfs\lib\tbcload 
	xcopy /y /i /s MeLex.vfs\lib\tcl8.5\encoding MeLex.isp.vfs\lib\tcl8.5\encoding

	copy /y ver6.53.4.isp.tbc MeLex.isp.vfs\ver6.53.4.isp.tbc 

	cd .\MeLex.isp.vfs
	type nul >main.tcl
	echo. >>main.tcl
	echo  	set sourc_program "ver6.53.4.isp.tbc">>main.tcl
	echo 	package require starkit ;  starkit::startup>>main.tcl
	echo 	package require tbcload >>main.tcl
	echo 	source [file join $starkit::topdir $sourc_program]>>main.tcl
	echo. >>main.tcl

	cd ..
	rmdir /s /q MeLex.vfs

	 tclkitsh-win32.upx.exe sdx.kit wrap MeLex.isp.exe -writable -runtime tclkit-win32.upx.exe

	rmdir /s /q MeLex.isp.vfs


more