1920 IF R=1 THEN KE=5 : B$=">-1 y <1" : GOSUB 900 : GOTO 1910