ink RGB(0,0,0),RGB(255,0,0)
color backdrop RGB(0,0,120)
set ambient light 50
sync on
sync rate 60

make object plain 1, 100,100
color object 1, RGB(0,128,0)



do
   IF SCANCODE() then PositionCamera()
   sync
loop


Function PositionCamera()
remstart
   used to control camera

   Insert before a sync as follows

   IF SCANCODE() then PositionCamera()

   UpArrow = Forward, DownArrow = Backward
   Left and right arrows turn
   Pageup = Up
   PageDown = Down
   Home = Tilt Camera Down
   End = Tilt Camera Up

   Shift key reduce speed

remend

   IF CONTROLKEY()THEN MyChange = 20 Else MyChange = 5
   IF SHIFTKEY() THEN MyChange = 1 Else MyChange = 5
   IF UPKEY()
      TEMPXANG = CAMERA ANGLE X(0)
      XROTATE CAMERA 0, 0
      MOVE CAMERA 0, 2 * MyChange
      XROTATE CAMERA 0, TEMPXANG
   ENDIF
   IF DOWNKEY()
      TEMPXANG = CAMERA ANGLE X(0)
      XROTATE CAMERA 0, 0
      MOVE CAMERA 0, -2 * MyChange
      XROTATE CAMERA 0, TEMPXANG
   ENDIF

   IF LEFTKEY() then yrotate camera 0, camera angle y (0) -1
   IF RIGHTKEY() then yrotate camera 0, camera angle y (0) +1
   IF KEYSTATE (207) THEN xrotate camera 0, camera angle x (0) -.5
   IF KEYSTATE (199) THEN xrotate camera 0, camera angle x (0) +.5
   IF KEYSTATE (201) THEN POSITION CAMERA 0,Camera position x(0),Camera position y(0)+MyChange, Camera position z(0)
   IF KEYSTATE (209) THEN POSITION CAMERA 0,Camera position x(0),Camera position y(0)-MyChange, Camera position z(0)
   IF KEYSTATE (210) THEN Xrotate camera 0, 0
EndFunction