Directory of image this file is from
This file as a plain text file

5 DIM X1(5,7),X2(5,7)
10 RECORD Z(128)
15 Q1=1\Q2=5
16 C=0
20 OPEN 8,"IGI2"
30 M8=0 
31 FOR I=1TO5 
32 FOR J=0 TO 7 
33 X1(I,J)=0
34 X2(I,J)=0
35 NEXT J 
36 NEXT I 
40 FOR I=1 TO 36
42 GET 8,10,M8
45 GET 8,10,M8
50 FOR J=1 TO Q2-Q1+1 
55 J1=2*(64-Q1-J+2)-1 
59 IF Z(J1)=7 THEN 63 
60 IF Z(J1)=1 THEN 63 
61 IF Z(J1)=0 THEN 64 
62 K1=Z(J1)-1\GO TO 70
63 K1=7\GO TO 70
64 K1=0 
70 IFZ(J1+1)=6 THEN 73
72 K2=Z(J1+1)\GO TO 80
73 K2=7 
75 K1=Z(J1) 
76 K2=Z(J1+1) 
80 X1(J,K1)=X1(J,K1)+1
81 X2(J,K2)=X2(J,K2)+1  
100 NEXT J 
110 NEXT I 
115 IF C<>0 THEN 170 
120 PRINT "               TABULATION OF PAGE 1"
125 PRINT\PRINT "   Q";
128 PRINT TAB(6);"OMIT"; 
130 FOR I = 1 TO 6 
140 PRINT TAB((I+1)*6);I;
150 NEXT I 
155 PRINT "  ERROR  MEAN S.D." 
160 PRINT\PRINT
170 FOR I=1 TO Q2-Q1+1 
172 GO SUB 500 
175 PRINT Q1+I-1;"L";
180 FOR J=0 TO 7 
190 PRINT TAB((J+1)*6);X2(I,J);
191 NEXT J 
192 PRINT TAB(54);M2;TAB(60);D2
193 PRINT Q1+I-1;"R";
194 FOR J=0 TO 7 
195 PRINT TAB((J+1)*6);X1(I,J);
196 NEXT J 
210 PRINT TAB(54);M1;TAB(60);D1
215 PRINT
220 NEXT I 
230 C=1
231 Q1=Q1+5
232 Q2=Q2+5
233 IF Q1>64 THEN 238
234 IF Q2>64 THEN 236
235 GO TO 30 
236 Q2=64
237 GO TO 30 
238 STOP 
500 S1=0\N1=0\D1=0 
501 S2=0\N2=0\D2=0 
505 FOR L=1 TO 6 
510 N1=N1+X1(I,L)
520 S1=S1+L*X1(I,L)
530 N2=N2+X2(I,L)
540 S2=S2+L*X2(I,L)
550 NEXT L 
560 IF N1=0 THEN 590 
570 M1=S1/N1 
580 GO TO 600
590 M1=0 
600 IF N2=0 THEN 630 
610 M2=S2/N2 
620 GO TO 640
630 M2=0 
640 FOR L=1 TO 6 
650 D1=D1+((L-M1)^2*X1(I,L)) 
660 D2=D2+((L-M2)^2*X2(I,L)) 
670 NEXT L 
680 IF N1<=1 THEN 710
690 D1=SQR(D1/(N1-1))
700 GO TO 720
710 D1=0 
720 IF N2<=1 THEN 750
730 D2=SQR(D2/(N2-1))
740 GO TO 751
750 D2=0 
751 M1=INT((M1+.005)*100)/100  
752 M2=INT((M2+.005)*100)/100
753 D1=INT((D1+.0005)*1000)/1000 
754 D2=INT((D2+.0005)*1000)/1000 
760 RETURN 
800 END