2790 IF X=1 THEN KE=5 : B$=">0 y <1" : GOSUB 900 : GOTO 2775