function rus_cyr,x

b=(a=byte(x))

index_in=[bindgen(48)+128b,bindgen(16)+224b]

index_out=192b+bindgen(64)

	for j=0,63 do begin
index=where(a eq index_in(j))
if index(0) ne (-1) then b(index)=index_out(j)
	endfor

return,string(b)

end