string Sub Iso2Utf(string inString)

   int tKonw(54) = 0xb9 , 0xc4,0x85, 0xa5 , 0xc4,0x84,0xe6 , 0xc4,0x87, 0xc6 , 0xc4,0x86,0xea , 0xc4,0x99, 0xca , 0xc4,0x98,0xb3 , 0xc5,0x82, 0xa3 , 0xc5,0x81,0xf3 , 0xc3,0xb3, 0xd3 , 0xc3,0x93,0x9c , 0xc5,0x9b, 0x8c , 0xc5,0x9a,0xbf , 0xc5,0xbc, 0x8f , 0xc5,0xbb,0x9f , 0xc5,0xba, 0xaf , 0xc5,0xb9,0xf1 , 0xc5,0x84, 0xd1 , 0xc5,0x83
   int i,k, bKonw
       
   for i = 1 to i > len(inString)
      bKonw = 0
      for k = 1 to k > 54 step 3
         if mid(inString, i, 1) == (using "%c", tKonw(k)) then
            Iso2Utf += (using "%c%c", tKonw(k+1),tKonw(k+2))
            bKonw = 1
         endif
      next k

      if bKonw == 0 then Iso2Utf += mid(inString, i, 1)

   next i

endsub