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