#module mod_split_str
#deffunc split_str var p_s,int p_size,local loc_s,local loc_l,local loc_ll
        loc_s=p_s
        sdim p_s,p_size
        loc_l=strlen(p_s)
        loc_ll=strlen(loc_s)
        if loc_ll > p_size{
                loc_ll=p_size
                p_s=strmid(loc_s,0,loc_ll)
        }
        return
#global

s="abcdefg"
split_str s,3
mes s
stop