210
00660 N=N+1
00670 FOR B = N TO 24
00680 IF (VERBS(1,A)-VERBS(1,B))<0 THEN GOTO 700
00680 GOTO 750
00700 FOR C = 1:TO 2
00710 XX=VERBS{(C,A)
00720 VERBS(C,A) = VERBS(C,B)
00730 VERBS(C,B) = XX
00740 NEXT C
00780. NEXT B
00760 NEXT A
00770
00800 ! CALCULATE RANKS
00830
00840 FOR A = 1 TO 23
00850 C=0
00860 B=A+1
00870 N=0
00880
00880 LOOP
20900 IF (VERBS(1,A)-VERBS(1,B))>0 THEN QUIT
20910 N=N+1
20820 8=B+1
20930 IF B=25 THEN QUIT
09840 ENDLOOP
20860
20970 C=0
00980 FOR X = A TO (A+N)
00880 C=C+VERBS(3,X)
01000 NEXT X
01010
01020 FOR X = A TO (A+N)
01030 VERBS(3,X) = C/(N+1)
01040 NEXT X
01050 A=A4+N
01070 NEXT A
01090
01100 PRINTING ONE CASES DATA ON ONE VARIABLE
01110
01120 P=0
01140 Loop
01150 P=P+1
01160 Q=0
21170 LOOP
21180 Q=Q+1
21180 IF VERBS(2,Q)=P THEN GOTO 1210
21200 GOTO 1220
31210 PRINT #10, USING FF$, (25 - VERBS(3,Q));
21220 IF Q = 24 THEN QUIT
01230 ENDLOOP
31240 IF P = 24 THEN QUIT
01250 ENDLOOP
01260 PRINT #10, USING FF$, * /
01280
01280 NEXT Z
01300 NEXT SS
01320 co
01330 CLOSE #4
01340 CLOSE #10
01350 END