//    Instruction Example :      database.free (objectid)


        screen.resolution.set (512,384)

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

        text.display ("The name of the field 1 of the open database is : "+$name,CENTER,10)

        keyboard.wait ()

        screen.clear ()

        database.free (@data)

        $name=database.field.name.get (@data,1)
        text.display ("The database has been free.",CENTER,10)
        text.display ("The name of the field 1 of the current database is : "+$name,CENTER,20)
        text.display ("Press a key to exit.",CENTER,350)

        keyboard.wait ()
        script.stop ()