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()=SQR((D[]-A[]*A[]/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]<I1+4 THEN 7800
7690  PRINT '10'10'10'10'10'10'10'10'10'10"-"'10'10,T$,"     CONT"
7698  PRINT '10" S.N.","  ";
7700  GOSUB 9720
7705  PRINT 
7710  LET L=6
7800  NEXT I
7810  PRINT '10"POSSIBLE",
7820  FOR J=1 TO B
7825  LET Z=T[J,N]
7830  GOSUB 9910
7835  NEXT J
7840  PRINT 
7850  PRINT "AVERAGE",
7855  FOR J=1 TO B
7860  LET Z=A[J]/C[3]
7865  GOSUB 9920
7870  NEXT J
7875  LET Z=A[7]/C[3]
7880  GOSUB 9920
7881  PRINT 
7882  PRINT "DEVIATION",
7883  FOR J=1 TO B
7884  LET Z=FNA(J)
7885  GOSUB 9920
7886  NEXT J
7887  LET Z=FNA(7)
7888  GOSUB 9920
7889  PRINT 
7890  FOR I2=1 TO 62-L
7895  PRINT '10;
7900  NEXT I2
7905  PRINT "-"
7910  CHAIN "$GPACC"
9700  REM
9720  LET Z9=1
9725  FOR Z1=1 TO B
9726  FOR Z2=1 TO 8-B
9727  PRINT " ";
9728  NEXT Z2
9729  PRINT B$[6*Z1-5,6*Z1];
9730  NEXT Z1
9731  IF Z9=0 THEN 9740
9732  FOR Z2=1 TO 8-B
9733  PRINT " ";
9734  NEXT Z2
9735  PRINT "SCORE"
9740  RETURN 
9900  REM
9905  DIM Z$[10]
9907  REM
9910  LET Z9=INT(Z+.5)
9911  LET Z7=0
9912  GOTO 9925
9915  REM
9920  LET Z9=INT(ABS(Z)*10+.5)/10
9921  LET Z7=-2
9922  LET Z8=-1
9923  IF Z<0 THEN 9926
9925  LET Z8=0
9926  LET Z$="0123456789"
9928  LET Z1=1
9929  IF Z9<10 THEN 9940
9930  LET Z1=2
9931  IF Z9<100 THEN 9940
9932  LET Z1=3
9933  IF Z9<1000 THEN 9940
9934  LET Z1=4
9940  FOR Z2=1 TO 14-B+Z8+Z7-Z1
9941  PRINT " ";
9942  NEXT Z2
9943  IF Z8=0 THEN 9950
9944  PRINT "-";
9950  FOR Z2=Z1-1 TO 0 STEP -1
9951  LET Z4=10^Z2
9952  LET Z3=INT(Z9/Z4)+1
9953  PRINT Z$[Z3,Z3];
9955  LET Z9=Z9-Z3*Z4+Z4
9956  NEXT Z2
9960  IF Z7=0 THEN 9970
9961  PRINT ".";
9962  LET Z3=INT(Z9*10+.5)+1
9963  PRINT Z$[Z3,Z3];
9970  RETURN 
9999  END 
