An example of a tile scroll:
` make some images
cls rgb(255,0,0)
get image 1,0,0,64,64
cls rgb(0,255,0)
get image 2,0,0,64,64
cls rgb(0,0,255)
get image 3,0,0,64,64
` make a map of them
dim images(50,5)
CurrentImage=1
for x=0 to 49
for y=0 to 4
images(x,y)=CurrentImage
inc CurrentImage : if CurrentImage > 3 then CurrentImage=1
next y
next x
` set up
sync on : sync rate 30 : hide mouse
` set draw coord to the right
xcoord=640
do
cls 0
` draw all the tiles
for x=0 to 49
for y=0 to 4
` Only draw if it is going to actually hit the display
if xcoord+(x*64) > -64 and xcoord+(x*64) < 640
paste image images(x,y), xcoord+(x*64), y*64
endif
next y
next x
` move everything left 1 pixel
dec xcoord
sync
loop