'Note : Since DOS doesn't support WString, must use uinteger ptr as solution for displaying unicode chars

#Include Once "xfont.bi"

dim as uinteger gujarati(16) => {71, 117, 106, 97, 114, 97, 116, 105, 32, 58, 32, 2693, 2695, 2697, 2703, 2707}
dim as uinteger oriya(13) => {79, 114, 105, 121, 97, 32, 58, 32, 2821, 2823, 2825, 2831, 2835}
dim as uinteger hiragana(16) => {72, 105, 114, 97, 103, 97, 110, 97, 32, 58, 32, 12353, 12355, 12357, 12359, 12361}
dim as uinteger katakana(16) => {75, 97, 116, 97, 107, 97, 110, 97, 32, 58, 32, 12449, 12451, 12453, 12455, 12457}

Dim Shared As xfont.interface font
font.loadfont ("freesans.xf", 1) 'Load to FontIndex 1
font.fontindex = 1'Use the font

ScreenRes 640,480,32

font.drawstring (,"ASCII : aiueo",10,0)
font.drawstring (,@gujarati(0),10,50)
font.drawstring (,@oriya(0),10,100)
font.drawstring (,@hiragana(0),10,150)
font.drawstring (,@katakana(0),10,200)
sleep