1 REM Ins{nt av 2314
10 ; CHR$(12)"CHI-2 TEST"
20 ; 
30 DIM V1(25),V2(5),A(5)
40 ; "ANTALET RADER";
50 INPUT R
60 ; "ANTALET KOLUMNER";
70 INPUT C
80 ; "TABELLEN"
90 FOR I=1 TO R
100 ; "RAD";I
110 FOR J=1 TO C
120 ; "ELEMENT";J;
130 INPUT V1((I-1)*C+J)
140 NEXT J
150 NEXT I
160 ; 
170 L=0
180 M=0
190 FOR I=1 TO R
200 FOR J=1 TO C
210 A(I)=A(I)+V1(M)
220 M=M+1
230 NEXT J
240 L=L+A(I)
250 NEXT I
260 N=R*C
270 FOR I=1 TO C
280 FOR J=I TO N STEP C
290 V2(I)=V2(I)+V1(J)
300 NEXT J
310 NEXT I
320 Z=0
330 ; CHR$(12)"OBS.FREK.","F\RV.FREK.","CHI-2"
340 FOR I=1 TO C
350 ; "KOLUMN";I
360 FOR J=1 TO R
370 P=A(J)*V2(I)/L
380 X=I+(J-1)*C
390 Y=(V1(X)-P)^2%/P
400 Z=Z+Y
410 ; "   ";V1(X),P,Y
420 NEXT J
430 NEXT I
440 ; 
450 ; "CHI-2=";Z
460 ; "FRIHETSGRADER=";(C-1)*(R-1)
470 REM 
480 END