don't know if mouselook and move is what your looking for but here it is anyway...
`mousemove
`by zach turnlund
`make a reference object
make object cube 1,10
`do loop
do
`backdrop(texture this whatever you want)
color backdrop 0
`mouselook
mx=mousemovex()
my=mousemovey()
rx#=wrapvalue(camera angle x()+my)
ry#=wrapvalue(camera angle y()+mx)
rotate camera rx#,ry#,0
`move camera(up and down)
if upkey()=1 then move camera 1
if downkey()=1 then move camera -1
`loop
loop
"When you were born, you cried and the world rejoiced. Live so when you die, the world cries and you rejoice."