3155 IF NP5 THEN KE=5 : B$=">=1 y <=5" : GOSUB 900 : GOTO 3140