156 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 
01000 
01010 
01020 
LET RLABELS$(10) = 'CT2' 
LET RLABELS(11l) = 'CT3' 
LET LABELS$(1l) = 'FAM' 
LET LABEL$(2) = 'KNO' 
LET LABELS$(3) = 'TER' 
LET LABEL$(4) = 'PUR' 
LET LABEL$(5) = 'CRA' 
LET LABEL$(6) = 'GIF' 
LET LABEL$(7) = ‘UTI’ 
LET LABELS(8) = ‘AES’ 
LET LABELS$(9) = 'POS' 
LET LABEL$(10)= 'HIS' 
LET LABEL$(11)= 'ASS' 
LET LABELS(12)= 'DES‘' 
DATA 1 O—- 1, O- 2', 10- 3, 'O~ 4°', 'O- 5', 10- 6" 
DATA 'O- 7%, 'O- 8‘, 'O- 9', 'O-10' 
DATA 'N- 1', 'N- 2', 'N- 3', 'N- 4', 'N- 5', 'N- 6' 
DATA 'N- 7', 'N- 8', 'N- 9', 'N-10', 'RANK' 
READ MAT LS 
! READ IN THE DATA FOR ONE SUBJECT AT A TIME 
FOR A =1 TO SS 
INPUT #4 USING Fl$, MAT ID 
FOR I = 1 TO 21 
FOR J = 1 TO 12 
INPUT #4 USING F2$, WORK(I,J); 
NEXT J 
INPUT #4 USING F4$, EXS(I) 
NEXT I 
INPUT #4 USING F3$, MAT TAG 
INPUT #4 USING F4S$S, CRITS 
| UNRANDOMIZE ONE SUBJECT'S DATA 
GOSUB 1390 : 
FOR C = 1 TO 20 
GOosuB 1470 
EX2$ (RORD(C)) = EXS$(C) 
FOR D = 1 TO 12 
~ WORK2(RORD(C), CORD(D)) = WORK (C,D) 
NEXT D 
NEXT C 
GOSUB 1470 
FOR D = 1 TO 12 
WORK2(21, CORD(D)) = WORK (21,D) 
NEXT D