8800 INPUT"HAVE YOU ENTERED YOUR DATA";A$
8810 IF A$="YES"THEN 9003
8900 PRINT"ENTER YOUR POINTS IN DATA STATEMENTS STARTING"
8910 PRINT"WITH LINE NUMBER 9900"
8915 PRINT"THEN TYPE RUNNH"
8920 GOTO 9999
9000 REM ******* CHISQS ******* STATISTICS *******
9001 REM ***** VERSION 1 ***** 7/31/69 *****
9002 REM CHI:SQUARE STATISITCS
9003 INPUT"# ROWS, # COLUMNS IN SYSTEM";M,N
9004 FOR I=1 TO M
9005 LET S=0
9006 FOR J=1 TO N
9007 READ O(I,J)
9008 LET S=S+O(I,J)
9009 NEXT J
9010 LET R(I)=S
9011 NEXT I
9012 LET S1=0
9013 FOR J=1 TO N
9014 LET S=0
9015 FOR I=1 TO M
9016 LET S=S+O(I,J)
9017 NEXT I
9018 LET C(J)=S
9019 LET S1=S1+S
9020 NEXT J
9021 LET C=0
9022 PRINT
9023 FOR I=1 TO M
9024 FOR J=1 TO N
9025 LET E=R(I)*C(J)/S1
9026 LET O=O(I,J)
9027 LET C=C+(O-E)*(O-E)/E
9028 PRINT O,
9029 NEXT J
9030 PRINT
9031 NEXT I
9032 PRINT "CHI-SQUARE EQUALS";C;"ON";(M-1)*(N-1);"DEGREES OF FREEDOM."
9900 DATA 15,21,76,51,21,9
9999 END