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


        screen.resolution.set (512,384)

        @data = database.load ("dbase.dbf")
        $dat=database.field.get (@data,1)

        text.display ("in field 1 : "+ ($dat),CENTER,10)
        text.display ("Press a key to set a new value to field 1.",CENTER,20)

        keyboard.wait ()

        database.field.set (@data,1,"Bob")
        $dat=database.field.get (@data,1)

        text.display (" and now in field 1 : "+ ($dat),CENTER,30)
        text.display ("Press a key to exit.",CENTER,350)

        keyboard.wait ()

        script.stop ()