2058 
02030 
02040 
02050 
02060 
02070 
02080 
02090 
22100 
02110 
02120 
02130 
22140 
92150 
22160 
22170 
22180 
02180 
22200 
52210 
22220 
22230 
72240 
32270 
02280 
02290 
02300 
02310 
22320 
02330 
02340 
22350 
02360 
52370 
32380 
92390 
92400 
72410 
22420 
02430 
02440 
02450 
22470 
02480 
02490 
92500 
02510 
02520 
J2530 
32540 
02550 
22580 
02570 
72580 
22590 
02600 
02610 
02620 
02640 
02650 
02660 
02670 
02680 
02690 
RECALL(L,RR(I),RR(I+1)) = RECALL(L,RR(I),RR(I+1))+1 
RECALL(L,RR(I+1),RR(I)) = RECALL(L,RR(I+1),RR(I))+1 
SRECALL(RR(I),RR(I+1)) = SRECALL(RR(I),RR(I+1)) + 1 
SRECALL(RR(I+1),RR(I)) = SRECALL(RR(I+1),RR(I)}) + 1 
N=N+ 1 
FOR J = N TO RRN 
[F RR(I) > 25 THEN GOTO 2240 
IF RR(J) > 25 THEN GOTO 2230 
IF SRECALLG(RR(I),RR(J)) > O THEN GOTO 2230 
IF SRECALLG(RR(J),RR(I)) > O THEN GOTO 2230 
RECALLG(L,RR(I),RR(J)) = RECALLG(L,RR(I),RR(J)) + 1 
RECALLG(L,RR(J),RR(I)) = RECALLG(L,RR(U),RR(I)) + 1 
SRECALLG(RR(I),RR(J)) = SRECALLG(RR(I),RR(J)) + 1 
SRECALLG(RR(J),RR(I)) = SRECALLG(RR(UJ),RR(I)) + 1 
NEXT J 
NEXT I 
PROCESSING CARD SORT DATA 
MAT SCARD = (0) 
NN = 0 
FOR C = 1 TO 25 
NN=NN + 1 
FOR D = NN TO 25 . 
IF RCARD(C) = RCARD(D) THEN GOTO 2380 
GOTO 2440 . 
CARD(L,C,D) = CARD(L,C,D) + 1 
CARD(L,D,C) = CARD(L,D,C) + 1 
IF C = D THEN CARD(L,C,D) = CARD(L,C,D) - 1 
SCARD(C,D) = SCARD(C,D) + 
SCARD(D,C) = SCARD(D,C) + 
IF C = D THEN SCARD(C,D) = 
NEXT D 
NEXT C 
SCARD(C.D) = 
PROCESSING SCALING DATA 
MAKE MATRICES FOR SCALING DATA 
N = 1 
FOR I = 1 TO 23 
N = N+1 
FOR J = N TO 24 
3LK = ABS(RS(I)-RS(J}) 
SCALE(L,I,J) = SCALE(L,I,J) + BLK 
SCALE(L,d,I) = SCALE(L,J,I) + BLK 
NEXT J 
NEXT I 
! PRINT ONE CASES DATA VERTICALLY FOR CALCULATION OF SPEARMANS 
‘OR I = 2 TO 25 
PRINT #19, USING 
PRINT #19, USING 
PRINT #19, USING 
PRINT #19, USING 
>##!, SS; 
>H#, L; 
‘>HH#H’, AGE; 
I> 4HE MSEX: