207 
03420 
03430 
03440 
03450 
03460 
03470 
03480 
03490 
03500 
03510 
03520 CCARD(I,J) = CARD(1,I,J) 
03530 ECARD(I,J) = CARD(2,I,dJ) 
03540 NEXT J 
23550 NEXT I 
23570 
03580 FOR I = 1 TO 24 
03590 FOR J = 1 TO 24 . 
23600 ESCALE(I,J) = SCALE(2,I,J) 
03610 IF I=J THEN ESCALE(I,J) = 15%(CASES/2) 
03620 CSCALE(I,J) = SCALE(1,I,4) 
03630 IF 1=J THEN CSCALE(1,J) = 15%(CASES/2) 
03640 NEXT J 
03650 NEXT I 
03660 
03670 ! PRINTING INSTRUCTIONS 
03680 
03690 FF3$ = />###*135/ 
03700 FF4$ = ‘>###x257 
03710 FFB$ = />###+24/ 
03720 FF6$ = '>H###*+24/ 
03730 
03740 PRINT #10, USING FF3$, MAT CRFREQ 
03750 PRINT #10 
03760 PRINT #10 
03770 ARINT #10, USING FF3$, MAT ERFREQ 
03780 
03790 RINT #17, USING FF33%, MAT CQFREQ 
03800 RINT #17 
03810 PRINT #17 
03820 PRINT #17, USING FF3$, MAT EQFREQ 
03830 
03870 RINT #11, USING FF4$, MAT CRECALLG 
03880 PRINT #11 
03880 PRINT #11 
23900 PRINT #11, USING FF4$, MAT ERECALLG 
23910 
53920 PRINT #12, USING FF4$, MAT CRECALL 
23830 PRINT #12 
03940 PRINT #12 
03950 PRINT #12, USING FF4$, MAT ERECALL 
03890 
D4000 PRINT #14, USING FF4$, MAT CCARD 
04010 °2RINT #14 
D4020 PRINT #14 
04030 PRINT #14, USING FF43, MAT ECARD 
04050 - 
04060 PRINT #18, USING FF6$, MAT CSCALE 
04070 PRINT #16 
04080 PRINT #16 
04090 PRINT #16, USING FF6$, MAT ESCALE 
04140 
04150 CLOSE #4 
04160 CLOSE #10 
CRECALL(I,J) = RECALL(1,I,J) 
IF I=J THEN CRECALL(I,J) = (CASES/2) 
ERECALL(I,J) = RECALL(2,I,J) 
IF I=J THEN ERECALL(I,J) = (CASES/2)