4802 IF ISP=2 AND XK>=1 THEN KE=5 : B$="<1" : GOSUB 900: GOTO 4785