Write Bfield program