SUB put ( Color AS Integer , Style AS Integer )  

Not documented.