Commit BlackJack procedural program