//    Instruction Example :     float screen.compute.time.get ()


        screen.resolution.set (512,384)

        event.time.create (counter.display,1,EVENT_LOOP)

        screen.set (BACK)
          pattern.display ("avo\bubble.gif")
        screen.end ()

        dim (@spr[40])

        @spr=sprite.load ("avo\logo.spr")

        for (%x=0 to 6)
          for (%y=0 to 4)
            %i+=1
            @spr[%i]=sprite.clone (@spr)
            sprite.display (@spr[%i],%x*64,%y*64)
            time.wait (0.25)
          next ()
        next ()

        screen.set (FRONT)
          text.display ("Press a key to exit.",CENTER,350)
        screen.end ()

        keyboard.wait ()

        script.stop ()

        procedure counter.display ()
          screen.set (FRONT)
            !data=screen.compute.time.get()
            %fps=1/!data
            text.display (" The number of frames per second is : "+STR (%fps)+"   ",CENTER,10)
          screen.end ()
        end procedure