time ago i made a script that maybe can help you :tongue:

alias spezza {
if ($1-) {
var %wrap = $wrap($1-,Tahoma,8,195,0), %x = 1
while (%x <= %wrap) {
write %dd.w $wrap($1-,Tahoma,8,195,%x)
inc %x
}
}
}