Create bclogin.prgm