1795 IF KFNCM THEN KE=5 : B$=">=1 y <="+STR$(NCM) :