Listing of file='9A ' on disk='vmedia/glbr_22.wvd.zip'
# Sector 413, program filename = '9A' 0005 DIM X(4),T(99) 0010 PRINT "NO. OF ROWS, NO. OF COLUMNS?" : INPUT R,C 0015 PRINT "INPUT TABLE OF DATA" 0020 FOR I=1 TO R : S5=0 0025 FOR J=1 TO C STEP 4 : INPUT X(1),X(2),X(3),X(4) 0030 FOR K=1 TO 4 0035 T(J+K-1)=T(J+K-1)+X(K) : S5=S5+X(K) : S2=S2+X(K)^2 0040 NEXT K : NEXT J 0045 S3=S3+S5^2 : S1=S1+S5 0050 NEXT I 0055 FOR J=1 TO C : S4=S4+T(J)^2 : NEXT J 0060 S1=S1^2/R/C : S=S2-S1 : I=R*C-1 0065 S4=S4/R-S1 : J=C-1 : V1=S4/J 0070 S3=S3/C-S1 : K=R-1 : V2=S3/K 0075 S5=S-S3-S4 : L=I-J-K : V=S5/L 0080 PRINT : PRINT "SOURCE","SUM OF SQ.","DEG. FREEDOM","MEAN SQ." 0085 PRINT "TOTAL",S,I 0090 PRINT "COLUMN",S4,J,V1 0095 PRINT "ROW",S3,K,V2 0100 PRINT "RESIDUAL",S5,L,V 0110 PRINT : PRINT "F(COL)=";V1/V : PRINT "F(ROW)=";V2/V 0999 END