OPTION EXPLICIT
dim counter
cls
'landscape
line 0,0,20,8
line 20,8,32,16
line 32,16,42,4
line 42,4,48,30
line 48,30,68,31
line 68,31,80,24
line 80,24,92,26
line 92,26,120,31
line 120,31,144,8
line 144,8,176,0
line 176,0,198,12
line 198,12,240,12
line 240,12,280,24
line 280,24,316,12
line 316,12,319,0



'
do
 for counter = 1 to 100
   scroll_left
 next counter
 
 for counter = 1 to 100
   scroll_right
 next counter
loop
'------
sub scroll_left
 blit read 1,0,0,2,32
 blit read 2,2,0,318,32
 blit write 2,0,0,318,32
 blit write 1,318,0,2,32
 blit close 2
 blit close 1
end sub

sub scroll_right
 blit read 1,318,0,2,32
 blit read 2,0,0,318,32
 blit write 2,2,0,318,32
 blit write 1,0,0,2,32
 blit close 2
 blit close 1  
end sub