the text will slide acroos the screen and go back to the begining of the screen

the text will slide acroos the screen and go back to the begining of the screen at 500,100

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    x=100
y=100
do
cls
inc x
text x,y,"HI"
if x=500 then x=100
loop