Local str:Short Ptr = getWString("wünsche")

Function getWString:Short Ptr(text:String)
   Local str:Short[text.length,2],x:Int,p:Int,pp:Int
   For Local i:Int = 0 Until text.length
      If text[i] < 128
         Print Chr(text[i])
         str[p,x] = text[i]
      Else
         str[p,x] = text[i]
         'If Not i+1=text.length str[p,x] = 65'(text[i]+text[i+1])/2
      EndIf
      x=1-x
      pp:+1
      If pp=2
         pp=0
         p:+1
      EndIf
   Next
   Return Short Ptr str
End Function

Print String.fromWString(short ptr(str))

Local str:Short[9,2]
str[0,0] = $57
str[0,1] = $c3
str[1,0] = $bc
str[1,1] = $6e
str[2,0] = $73
str[2,1] = $63
str[3,0] = $68
str[3,1] = $65
str[4,0] = $00

Print String.fromWString(short ptr(str))