Function UTF8:String(Unicode:String)
   Local RESULT$=""
   
   For Local i:Int = 1 To Len(Unicode:String)
      Local Char$=Mid$(Unicode$,i,1)
      If Asc(Char$)<128
         result$=result$+char$
      ElseIf Asc(Char$)>127 And Asc(Char$)<2048
         Local Bytes$=Right$(Bin$(Asc(Char$)),11)

         Local Byte1$="110"+Left$(Bytes$,5)
         RESULT:String = RESULT:String + Chr(Bin2Int(Byte1:String))

         Local Byte2$="10"+Right$(Bytes$, 6)
         Result$=Result$+Chr(Bin2Int(Byte2$))
      Else
         Local Bytes$=Right$(Bin$(Asc(Char$)),16)

         Local Byte1$="1110"+Left$(Bytes$,4)
         Result$=Result$+Chr(Bin2Int(Byte1$))

         Local Byte2$="10"+Mid$(Bytes$, 5, 6)
         Result$=Result$+Chr(Bin2Int(Byte2$))

         Local Byte3$="10"+Right$(Bytes$, 6)
         Result$=Result$+Chr(Bin2Int(Byte3$))      
      EndIf
   Next
   Return Result$
EndFunction
Function Bin2Int:Int(Binary:String)
   Local result:Int = 0
   Local D:Int = 1
   For Local i:Int = Len(Binary:String) To 1 Step - 1
      If Mid:String(Binary:String, i, 1) = "1" Then result = result + d
      D = D + D
   Next
   Return result
EndFunction

WriteByte($EF)
WriteByte($BB)
WriteByte($BF)

Function UTF8:String(Unicode:String)
   Local text:String = unicode
   Local array:Byte[text.length]

   For Local i:Int = 0 Until text.length
      array[i] = text[i]
   Next

   Local dec_text:String = TUTF8.utf8ToString(array)

   Local utf8_text:String
   For Local i:Int = 0 Until dec_text.length
      Local res:Byte[] = TUTF8.fromInt(dec_text[i])
      For Local b:Int = EachIn res
         utf8_text:+Chr(b)
      Next
   Next
   
   Return dec_text
EndFunction

Type TUTF8
   Function getlength:Int(i:Int)
      Select True
         Case i<$7f                  Return 1
         Case i=>$7f And i<$7ff         Return 2
         Case i >= $7ff And i < $ffff Return 3
         Case i=>$ffff And i<$1fffff      Return 4
         Case i=>$1fffff And i<$3ffffff   Return 5
         Case i=>$3ffffff And i<$7ffffff   Return 6
      End Select
   End Function
   
   Function fromInt:Byte[](code:Int)
      Local value:Byte[]
      Local length:Int = getlength(code)
      value = New Byte[length]
      Select length
         Case 1
            value[0] = code
         Case 2
            value[0] = 192+(code/64)
            value[1] = 128+(code Mod 64)
         Case 3
            value[0] = 224+(code/4096)
            value[1] = 128+((code/64) Mod 64)
            value[2] = 128+(code Mod 64)
         Case 4
            value[0] = 240+(code/262144)
            value[1] = 128+((code/4096) Mod 64)
            value[2] = 128+((code/64) Mod 64)
            value[3] = 128+(code Mod 64)
         Case 5
            value[0] = 248+(code/16777216)
            value[1] = 128+((code/262144) Mod 64)
            value[2] = 128+((code/4096) Mod 64)
            value[3] = 128+((code/64) Mod 64)
            value[4] = 128+(code Mod 64)
         Case 6
            value[0] = 252+(code/1073741824)
            value[1] = 128+((code/16777216) Mod 64)
            value[2] = 128+((code/262144) Mod 64)
            value[3] = 128+((code/4096) Mod 64)
            value[4] = 128+((code/64) Mod 64)
            value[5] = 128+(code Mod 64)
      End Select
      Return value
   End Function 
   
   Function utf8ToString:String(_data:Byte[])
      Local length:Int,str:String,b:Int,x:Int
      For Local i:Int = 0 Until _data.length
         b=_data[i]
         length = getlength(b)
         If (i+length-1)>_data.length Exit
         Select length
            Case 1
               x=b
            Case 2
               x=( ((b-192)*64) + (_data[i+1]-128) )
            Case 3
               x=( ((b-224)*4096) + ((_data[i+1]-128)*64) + (_data[i+2]-128) )
            Case 4
               x=( ((b-240)*262144) + ((_data[i+1]-128)*4096) + ((_data[i+2]-128)*64) + (_data[i+3]-128))
            Case 5
               x=( ((b-248)*16777216) + ((_data[i+1]-128)*262144) + ((_data[i+2]-128)*4096) + ((_data[i+3]-128)*64) + (_data[i+4]-128))
            Case 6
               x=( ((b-252)*1073741824) + ((_data[i+1]-128)*16777216) + ((_data[i+2]-128)*262144) + ((_data[i+3]-128)*4096) + ((_data[i+4]-128)*64) + (_data[i+5]-128))
         End Select
         str:+Chr(x)
         i:+(length-1)
      Next
      Return str
   End Function 
   
End Type