function getatcode(byval widechar as string * 2) as string dim byt(1 to 2) as byte static bytptr as dword bytptr = varptr(byt(1)) ! push esi ! push edi ! lea esi, offset widechar ! mov edi, bytptr ! cld ! mov ecx, 1 ! rep movsw ! pop edi ! pop esi fu