topicmove {
  var %topicmove $1-
  var %topiclen $len($1-)
  var %topic.use 0
  .timermov2 -m 1 $calc(%topiclen * 60) /topicmove2 %topicmove  
  :start
  inc %topic.use
  if (%topic.use > %topiclen) { halt }
  .timer $+ %topic.use -m 1 $calc(%topic.use * 50) /titlebar $left(%topicmove,%topic.use)
  goto start
}
topicmove2 {
  var %topicmove2 $1-
  var %topiclen2 $len($1-)
  var %topic2.use 0 
  :start
  inc %topic2.use  
  if (%topic2.use > %topiclen2) { halt }
  .timer $+ %topic2.use -m 1 $calc(50 * %topic2.use) /titlebar $right(%topicmove2,%topic2.use)
  goto start
}