forgot to add code:
sync rate 60
sync on
backdrop off
ScreenW = screen width()
ScreenH = screen height()
load bitmap "grass1.bmp",1
load bitmap "grass2.bmp",2
load bitmap "grass3.bmp",3
load bitmap "grass4.bmp",4
load bitmap "grass5.bmp",5
get image 1,0,0,32,32,0
get image 2,0,0,32,32,0
get image 3,0,0,32,32,0
get image 4,0,0,32,32,0
get image 5,0,0,32,32,0
maxdispw = ScreenW/32
maxdisph = ScreenH/32
worldheight = 50
worldwidth = 50
randomize 4
DIM disp(50,50)
for t=1 to t=50
for r=1 to r=50
disp(t,r)=rnd(5)
next r
next t
repeat
for ti=0 to ti=maxdisph-1
for ri=0 to ri=maxdispw-1
if disp(ri+1,ti+1) = 1 then sprite ti+ri,ti*32,ri*32,1
if disp(ri+1,ti+1) = 2 then sprite ti+ri,ti*32,ri*32,2
if disp(ri+1,ti+1) = 3 then sprite ti+ri,ti*32,ri*32,3
if disp(ri+1,ti+1) = 4 then sprite ti+ri,ti*32,ri*32,4
if disp(ri+1,ti+1) = 5 then sprite ti+ri,ti*32,ri*32,5
next ri
next ti
sync
until spacekey()=1