set display mode 800,600,16
sync on
sync rate 0
`load music "uncap.mp3",1
 
 
cls rgb(155,50,50)
get image 1,0,0,16,16,1
cls rgb(50,155,50)
get image 2,0,0,16,16,1
cls rgb(50,50,155)
get image 3,0,0,16,16,1
 
 
BitmapTerrain = 2
create bitmap BitmapTerrain,800+16,600+16
 
 
 
set current bitmap 0
 
 
do
	gosub ScrollHandle
	gosub DisplayTerrain
	text 0,0,str$(screen fps())
	sync
loop
 
	ScrollHandle:
		if ScrollX < 16 then inc ScrollX else ScrollX = 0 : TerrainFlag = 0
	return
 
 
	DisplayTerrain:
		if TerrainFlag = 0
			TerrainFlag = 1
			copy bitmap BitmapTerrain,16,0,815,599, BitmapTerrain,0,0,799,599
			set current bitmap BitmapTerrain
			for lpy = 0 to 37
				paste image rnd(2)+1,800,lpy*16
			next lpy
			set current bitmap 0
		endif
		copy bitmap BitmapTerrain,ScrollX,0,799+ScrollX,599, 0,0,0,799,599
	return