Try This:
Sync on
Sync rate 50
Hide mouse
Load image "twigs02.bmp", 5
Make matrix 9, 10000,10000,20,20
Position matrix 9, 0,0,0
Prepare matrix texture 9, 5,1,1
Randomize matrix 9, 250
Make object sphere 300, 20
Position object 300, 1000,10,1000
Color object 300, rgb(255,0,0)
Position camera 1000,20,900
Do
Yang# = object angle y(300)
If upkey()=1 then move object 300, 5
If downkey()=1 then move object 300, -5
If rightkey()=1 then yrotate object 300, wrapvalue(Yang#+5)
If leftkey()=1 then yrotate object 300, wrapvalue(Yang#-5)
x# = object position x(300)
z# = object position z(300)
y# = get ground height(9,x#,z#)+10
Position object 300, x#,y#,z#
cz# = Newzvalue(z#,Yang#-180,100)
cx# = Newxvalue(x#,Yang#-180,100)
cy# = get ground height(9,cx#,cz#)
Position Camera cx#,cy#+25,cz#
Point Camera x#,y#+12.5,z#
Sync
Loop
Hope that helps you.