2585 IF X=32767 THEN KE=5 : B$=">-32768 y <32767" :