1000 COM T$[30],B,B$[42],M,P[6],C[3],D$[9],N,T[7,141] 1001 COM C$[6],O$[6],K,W[6],F,N$[9] 7500 REM 7505 DIM A[7],D[7] 7507 REM 7508 DEF FNA(J)=SQR((D[J]-A[J]*A[J]/C[3])/(C[3]-1)) 7509 REM 7510 PRINT '10'10"-"'10'10,T$," ";D$ 7580 PRINT '10" S.N."," "; 7590 GOSUB 9720 7600 PRINT 7603 FOR J=1 TO 7 7604 LET A[J]=D[J]=0 7605 NEXT J 7606 LET I1=0 7607 LET L=6 7610 FOR I=1 TO C[2] 7620 IF T[1,I]=-1 THEN 7800 7630 PRINT I+C[1], 7640 FOR J=1 TO B 7645 LET Z=T[J,I] 7650 LET A[J]=A[J]+Z 7652 LET D[J]=D[J]+Z*Z 7655 GOSUB 9910 7660 NEXT J 7665 LET Z=T[7,I] 7667 LET A[7]=A[7]+Z 7668 LET D[7]=D[7]+Z*Z 7670 GOSUB 9920 7675 PRINT 7680 LET L=L+1 7683 LET I1=I1+1 7685 IF L<56 OR C[3]