4800 IF XK0" : GOSUB 900: GOTO 4785