2445 IF KS=1 AND (K0": GOSUB 900: GOTO 2425