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