6100 IF DIXB-X THEN KE=5 : B$=">0 y <="+STR$(XB-X) :