function MBShow takes string str returns nothing
    local integer c
    local integer t = 1
    local string s = ""
    if ( StringLength(str) > 25 ) then
        set c = R2I( StringLength(str) / 25 + 0.5)
        loop
            exitwhen t > c
            set s = s + SubStringBJ( str, 1, 25 ) + "|n"
            set str = SubStringBJ( str, 26, StringLength(str) )
            set t = t + 1
        endloop
    endif
    call CreateTextTagUnitBJ( s, gg_unit_nvlw_0106, 0, 9, 100, 100, 100, 0 )
endfunction