3315 IF IC200 THEN KE=5 : B$=">=1 y <=200" : GOSUB 900: GOTO 3305