ok thats slightly wrong
try this:
sync on
sync rate 95
autocam off
rem make player
make object box 1,2,4,2
position object 1,0,2,0
rem make terrain
make matrix 1,50,50,5,5
position matrix 1,-25,0,-25
rem camera
position camera 0,10,-15
point camera 0,5,0
rotate$="Clickmouse to view front of player"
angle#=180
do
if mouseclick()=1
for x=1 to 180
position camera cos(angle#)*15,10,sin(angle#)*15
point camera 0,5,0
sync
dec angle#,1
next x
if mid$(rotate$,20)="f"
rotate$="Clickmouse to view back of player"
else
rotate$="Clickmouse to view front of player"
endif
endif
text 0,0,rotate$
sync
loop