>>439
WPrint関数のアイデア、すばらしいです。有難うございます。
ただ、Sub だと、引数がうまく取れないので、Function に書き換えてみました。
後ろに & が来ると、何故かうまく行きませんが、それ以外は、それなりに動いているようです。

マニュアルのサイトにも、借用させていただきました。ご了解ください。
http://makoto-watanabe.main.jp/freebasic/PgMidfunction.html#Expand

Dim Japanese As WString * 100
Dim mojisu As Integer
Declare Function Expand(s As WString) as WString Ptr

Japanese="今日は、世界！ hello world!"
Print *Expand(Japanese);Len(Japanese)
Print *Expand(Japanese) & *Expand(Japanese)
Print Len(Japanese) & *Expand(Japanese) & Len(Japanese)
Sleep

Function Expand(s As WString) as WString Ptr
Dim buf As WString Ptr
Dim i As Integer

buf = Allocate((Len(s) * 2) * Len(WString))
*buf = s
For i = 1 To Len(s)
If Asc(Mid(s, i, 1)) > 256 Then
*buf = *buf & Space(1)
End If
Next
Expand = buf
End Function