% function strcut(intostr,n) strn=0 outstr="" for r=1 to len(intostr) pp=mid(intostr,r,1) if (asc(pp)>128) or (asc(pp)<0) then strn=strn+2 else strn=strn+1 end if if strn>n then outstr=outstr&"…" exit for else outstr=outstr&pp end if next strcut=outstr end function %>