1331 IF LCKM THEN KE=5 : B$=">=1 y <="+STR$(KM) : GOSUB 900 :