Dunno y the code didnt work. Here it is
sync
loop
Set display mode 800,600,32
Sync on
Sync rate 40
`Create Objects--------------------------
Make object Box 1,1,1,7
Make Object Sphere 2,1
`-----------------------------------------
Color Object 1, RGB(40,155,70)
Color object 2, RGB(246,238,7)
Turn object left 1,88
`----------------------------------------
Do
Position Object 1,0,-20, Playerpos#
Position Camera 1,20,20
Point Camera 0,0,0
if rightkey()=1 then playerpos#=playerpos#+1
Sync
Loop
`----------------------------------------