//    Instruction Example :     long database.record.number.get (objectid)


        screen.resolution.set (512,384)

        @data = database.load ("dbase.dbf")
        %num=database.record.number.get (@data)

        text.display ("The number of records in the database is : " + str(%num),CENTER,10)
        text.display ("Press a key to exit.",CENTER,350)

        keyboard.wait ()

        script.stop ()