You can do this with images too if you like. You just need two images if it to scroll in a single direction and three images if it has to scroll both directions.
Paste Image will work with negative numbers so you paste the first image at -1 and the second image at 799. The next time you position image 1 at -2 and image 2 at 798.
After this has been done 800 times (or the number of pixels your screen is wide) then you go back to the beginning.
This is a single pixel scroll (fine scrolling) and will be slowish. You can scroll faster by moving the image in steps of 2, 4 8 or even larger amounts, but stick to even numbers of it will stutter at the end of each screen width.
Very rough example:
Set Display Mode 800,600,32
Sync On
Sync Rate 60
Sync
Center Text 400,0,"Draw A Few Squiggles With The Mouse For A Background - Press Space To Finish"
Sync
Wait 3000
CLS
While SpaceKey()=0
Mx=MouseX(): My=MouseY(): Mc=MouseClick()
If Mc=1 Then Gosub Draw
Sync
EndWhile
CLS
Paste Image 100,0,0
Get Image 1,0,0,800,600,1
Get Image 2,0,0,800,600,1
Delete Image 100
Screen1XPos = 0: Screen2XPos = 800: AmountToScroll=4
Center Text 400,0,"Scroll Screen With Left Cursor Key"
Do
If LeftKey()=1
Dec Screen1XPos,AmountToScroll
Dec Screen2XPos,AmountToScroll
If Screen1XPos = -800 Then Screen1XPos = 0: Screen2XPos = 800
Paste Image 1,Screen1XPos,0
Paste Image 2,Screen2XPos,0
Endif
Sync
Loop
End
Draw:
StartX=Mx: StartY=My
Repeat
Mx=MouseX(): My=MouseY(): Mc=MouseClick()
Line StartX,StartY,Mx,My
StartX=Mx: StartY=My
Sync
Until Mc = 0
Get Image 100,0,0,800,600
Return
If you need to scroll the other way too, position the first screen at -800, the second at 0 and the third at 800 and scroll them all by equal amounts in the same way you do with two screens.
TDK_Man
