//    Instruction Example :     long viewport.backcolor.get (objectid)

    Screen.Resolution.Set(512, 384)

        @camera   = Camera.Create(0.0, 0.0, -100.0, 0.0, 0.0, 0.0)

        @viewport = Viewport.Create()
        Viewport.Camera.Set(@viewport, @camera)
        Viewport.Backcolor.Set(@viewport, 96, 128, 192)

    Mesh.Rotation.Stack(-30, 30, 0)
        @cube = Mesh.Cube.Create(40)

        Mesh.Display(@cube)
        Viewport.Display(@viewport)

        %Color  = Viewport.Backcolor.Get(@viewport)

        Screen.Set(FRONT)
          Text.Display("The background color of the viewport is : " + STR(%Color), CENTER, 10)
          Text.Display("Press a key to exit.", CENTER, 350)
        Keyboard.Wait()
    Screen.End()

        Mesh.Kill(@cube)
        Viewport.Kill(@viewport)
        Camera.Kill(@camera)
    Script.Stop()