A$="Hello Petitcom!" WHILE 1 　WAIT 15 　LOCATE 15,15:PRINT A$ 　A$=RIGHT$(A$,14)+LEFT$(A$,1) WEND