//    Instruction Example :     objectid scene.light.get (objectid,long)

    Screen.Resolution.Set(512, 384)

        Screen.Set(BACK)
          Pattern.Display("avo\bubble.gif")
    Screen.End()

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

        @viewport = Viewport.Create()
        Viewport.Camera.Set(@viewport, @camera)

        @scene    = Scene.Create()
        Scene.Viewport.Set(@scene, @viewport)

        Scene.Camera.Assign(@scene, @camera)

        @light    = Light.Omni.Create(0.0, 0.0, -100.0)
        Light.Color.Set(@light, 92, 128, 196)

        Scene.Light.Assign(@scene, @light)

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

        Scene.Display(@scene)
        Viewport.Display(@viewport)

        Screen.Set(FRONT)
          Text.Display("The ObjectID of the scene light with the index 0 is : " + STR(Scene.Light.Get(@scene, 0)), CENTER, 10)
          Text.Display("Press a key to exit.", CENTER, 350)
        Keyboard.Wait()
    Screen.End()

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