Lengthening prog4B.cpp; modify is done