//    Instruction Example :      database.record.set (objectid,long,long)


        screen.resolution.set (512,384)

        @data = database.load ("dbase.dbf")

        database.record.set (@data,-3,SEEK_FROM_END)

        $name=database.field.get (@data,1)

        text.display ("In current record, field 1 : "+ ($name)  ,CENTER,10)
        text.display ("Press a key to exit.",CENTER,350)

        keyboard.wait ()

        script.stop ()