<
函数unicode（STR）
朦胧的我，J，C，I1，I2，U，FS，F，P
unicode
p
对于i = 1到莱恩（STR）
c =中（STR，I，1）
J = ascw（C）
如果J＜0
j = j + 65536
最后如果
如果j＝0，j＝128
如果，那么
Unicodeunicode
e
最后如果
Unicode = unicodec
其他的
如果e 然后
Unicode =
p
最后如果
Unicode Unicode =# ，；
最后如果
下一个
端功能

功能图例（STR，linelen）
昏暗的我，J，C，K
图例=
J = 0
对于i = 1到莱恩（STR）
c =中（STR，I，1）
如果ASC（c）127，那么
K = 2
其他的
如果ASC（c）＜32
K = 0
如果ASC（c）＝13
J = 0
图例，图例++ C

最后如果
其他的
K = 1
最后如果
最后如果
j = j + K
如果J > linelen * 2
图例，图例++ vbcrlf + C
J = K
其他的
图例图例+ C =
最后如果
下一个
端功能

功能convertsymbol（SSTR）
朦胧的我
convertsymbol =
我= 1 len（SSTR）
C =中（SSTR，I，1）
如果则
convertsymbol = convertsymbol>
C =<然后
convertsymbol = convertsymbol <）
C = 那
convertsymbol = convertsymbol ；
C =
convertsymbol = convertsymbol
C = 然后
convertsymbol = convertsymbol
C =
美元convertsymbol = convertsymbol
其他的
convertsymbol = convertsymbol C
最后如果
下一个
端功能

功能convertstring（SSTR）
昏暗的strtemp，asctemp，C
strtemp =
我= 1 len（SSTR）
C =中（SSTR，I，1）
asctemp = ascw（C）
如果（asctemp > 47和asctemp64和asctemp96和asctemp＜123）然后
strtemp = strtemp C
最后如果
下一个
convertstring = Lcase（strtemp）
端功能
{ { 1 }