6645 IF KXX=0 THEN PRINT#1,"NumObs" : PRINT#1,"PorcObs"