2695 IF AL=100 THEN KE=5 : B$=">0 y <100" : GOSUB 900: GOTO 2680