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: