2895 IF JJ(M,K)=0 THEN PRINT "Valor ingresado no define grupo" : GOTO 2845