document.write("<div style='position: absolute; width: 36px; height: 15px; z-index: 1; left: 12px; top: 693px' id='UIghurIME'><select size='1' name='UighurImeUN' style='font-size: 12pt' dir='rtl' title='<p align=justify>تور بىتىمىزدە ئۇيغۇرچە ئېنگىلىسچە كىرگۈزۈش ئوتتۇرسىدا<BR>ئالماشتۇرۇش ئۈچۈن Shift ياكى Ctrl + K ، خەت كىرگۈزۋاتقان<BR>رامكىنىڭ يۆلىنىشىنى ئۆزگەرتىش ئۈچۈن Ctrl + J نى<BR>بېسىپ ئالماشتۇرۇلدۇ.</p>'><option value='1'>ئۇ</option><option value='2'>En</option></select></div>")
dim Ek
dim Uk
dim ShiftB
Ek="`1234567890-=\qwertyuiop[]asdfghjkl;'zxcvbnm,./~!@#$%^&*()_+|QWERTYUIOP{}ASDFGHJKL:ZXCVBNM<>?" & """"
Uk="`1234567890–=\چۋېرتيۇڭوپ»«ھسداەىقكل؛'زشغۈبنم،.ئ" & "~!@#$%^&*)(—+|】【〕〔ء¥‰÷×●}{ـ§ژفگخجۆل:“”℃✓✕№※›‹؟" & """"
call IME()
sub IME()
	window.setTimeout "IME()",100
	UighurIme.style.top=document.body.scrollTop+10
end sub

sub document_onkeypress()
	UUSIME
end sub



sub document_onkeydown()
	if window.event.keyCode=16 then
		ShiftB=True
	end if
end sub

sub document_onkeyup()
	if window.event.keyCode=16 then
		if ShiftB=True then
			ShiftB=false
			if cint(UighurImeUN.value)=1 then
				UighurImeUN.value=2
			else
				UighurImeUN.value=1
			end if
		end if
	end if
end sub


Public Sub UUSIME
ShiftB=false
if window.event.keyCode=11 then
	if cint(UighurImeUN.value)=1 then
		UighurImeUN.value=2
	else
		UighurImeUN.value=1
	end if
end if
if window.event.keyCode=10 then
	if window.event.srcElement.style.direction="rtl" then
		window.event.srcElement.style.direction="ltr"
		UighurImeUN.value=2
	else
		window.event.srcElement.style.direction="rtl"
		UighurImeUN.value=1
	end if
end if
if UighurImeUN.value=1 then
	dim cc:cc=instr(1,Ek,chr(window.event.keyCode),0):if cc>0 then window.event.keyCode =ascw(mid(Uk,cc,1))
end if
End Sub
Public Sub san()
	if instr(1,"1234567890.",chr(window.event.keyCode),0)=0 then window.event.keyCode=0
end sub