11030 FOR IP=KI TO N