Function Msubstr ($ STR, $ Start, $ LEN) {$ Tmpstr = "; $ Strlen = $ Start $ Len; for ($ I = 0; $ I 0xA0) {$ Tmpstr. = Substr ($ STR, $ I, 2); $ I ;} else $ TMPSTR. = SUBSTR ($ Str, $ I, 1);} Return $ TMPSTR;}