'&とか;は使えないけどとりあえずWStringを最後まで表示するWPrint関数をでっちあげ
'ちなみに自動で改行しないので注意

sub WPrint(s As WString)
dim buf as WString Ptr
dim i as integer

buf = Allocate((Len(s) + 2) * Len(WString))
*buf = s + " " 'これをしないと最後の文字列が2バイト文字の場合にうまく表示されない

for i = 1 to Len(*buf) - 1
if asc(mid(*buf, i, 2)) < 256 then
print mid(*buf, i, 1);
else
print mid(*buf, i, 2);
end if
next
end sub

Dim Japanese As WString * 200
Japanese = "今日は、世界！"
print Japanese
WPrint Japanese