3295 IF IP5 THEN KE=5 : B$=">=1 y <=5" : GOSUB 900 : GOTO 3280