'For lcd convert utf-8
Declare Sub Remove_utf8(byval Characters As String)
Dim Index As Byte , Len_characters As Byte , Index_1 As Byte
Dim Tmp_str_1 As String * 1 , Tmp_str_2 As Byte , Tmp_str_3 As Byte , Tmp As Byte
Dim My_string As String * 60

' THOR GÖRANS - FREDAG I KÖPENHAMN  <****>  Chr(195) + Chr(150) = hex C3 96    Ã–
My_string = "THOR G" + Chr(195) + Chr(150) + "RANS - FREDAG I K" + Chr(195) + Chr(150) + "PENHAMN"
Do
   Call Remove_utf8(my_string)
   Print My_string
  Loop

Sub Remove_utf8(byval Characters As String)
   Index = 1
   Len_characters = Len(characters)
   While Index <= Len_characters
      If Mid(characters , Index , 1) >= Chr(194) And Mid(characters , Index , 1) <= Chr(195) Then       ' C3 C4
         Index_1 = Index + 1
         Tmp_str_1 = Mid(characters , Index , 1)
         Tmp_str_2 = Asc(tmp_str_1)
         Shift Tmp_str_2 , Left , 6
         Tmp_str_2 = Tmp_str_2 And &HFF
         Tmp_str_1 = Mid(characters , Index_1 , 1)
         Tmp_str_3 = Asc(tmp_str_1)
         Tmp_str_3 = Tmp_str_3 And &H3F
         Tmp = Tmp_str_2 Or Tmp_str_3
         Tmp_str_1 = Chr(tmp)
         Mid(characters , Index , 1) = Tmp_str_1
         Delchar Characters , Index_1
      End If
      Incr Index
   Wend
 My_string = Characters
End Sub

z="" 'clear return string
for j=1 to len(s)
  b=asc(s,J) 'get byte
  if b.7=0 then  'normal ASCII
    z=z+chr(b)  'add to return string
  end if
next
 

Dim S As String * 60
Dim Z As String * 60
Dim J As Byte , B As Byte , A As Byte
' THOR GÖRANS - FREDAG I KÖPENHAMN  <****>  Chr(195) + Chr(150) = hex C3 96    Ã–
S = "THOR G" + Chr(195) + Chr(150) + "RANS - FREDAG I K" + Chr(195) + Chr(150) + "PENHAMN"
Do
   Print S                                                  ' Thor Gã–rans - Fredag I Kã–penhamn

   Z = ""                                                   'clear return string
   For J = 1 To Len(s)
      B = Asc(s , J)                                        'get byte
      If B >= 194 And B <= 195 Then                         'utf-8 ASCII
         J = J + 1                                          'incr j for next char
         A = Asc(s , J)                                     'get next char
         Shift B , Left , 6                                 ' shift it left by 6
        B = B Mod &HFF
        A = A Mod &HFF
         B = B Or A                                         'or  utf-8 with next char
         Z = Z + Chr(b)                                     'add to return string
      Else
         Z = Z + Chr(b)                                     'add to return string
      End If

   Next
    S = Z                                                   'Thor Görans - Fredag I Köpenhamn
Loop