Create BC1B.BAS