while (%textpos < %textlen + 1) {
    var %text = %text $+ 4 $+ $left($gettok($1-,%textpos,32),1) $+ 12 $+ $right($gettok($1-,%textpos,32), -1) $+ $chr(32)
    inc %textpos
  }