//    Instruction Example :     objectid event.scene.create (objectid,label)


        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)

        @scene    = Scene.Load("avo\scene.scn")
        Scene.Viewport.Set(@scene, @viewport)

        @event=event.scene.create(@scene,sceneevent)

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

        Screen.Set(FRONT)
          Text.Display("Press a key to exit.", CENTER, 350)
          Keyboard.Wait()
        Screen.End()

        event.free(@event)
        Scene.Kill(@scene)
        Viewport.Kill(@viewport)
        Camera.Kill(@camera)
        Script.Stop()

        procedure  sceneevent(@sequence,%index,%eventvalue)
          screen.set(FRONT)
            Text.display ("eventvalue : "+str(%eventvalue),0,10)
          screen.end()
        end procedure