7080 IF KB(J)=0 THEN XF=21