proc main var pos str len set str " This is a test scrolling message." set pos 1 set len [strlen str] while 1 print [midstr str pos len] if pos>1; print [midstr str 1 [math pos-1]]; endif print [format "\r"] if [inc pos]>len; set pos 1; endif usleep 200000 wend endproc