B PROGRAM