157 
01030 ! PRINT UNRANDOMIZED DATA FILE 
01040 
01050 GOsuUB 1390 
01060 PRINT #10 USING F6$%, MAT RLABELS 
01070 PRINT #10 USING F5$, A; 
01080 PRINT #10 USING F7$, MAT ID; 
01090 PRINT #10 USING F8%, MAT TAG 
01100 PRINT #10, CRITS 
01110 PRINT #10 USING ‘####', 'ITEM '; 
01120 PRINT #10 USING F9$, MAT LABELS 
01130 FOR J = 1 TO 10 
01140 PRINT #10 USING '####4', LS(J); 
01150 FOR K = 1 TO 12 
01160 PRINT #10 USING F5$, WORK2(J,K); 
01170 NEXT K 
01180 PRINT #10 USING F4S, EX2$(J) 
01190 NEXT J 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
01330 
01340 
01350 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 MAT CORD = AIDX (CRAND) 
01520 RETURN 
01530 
01540 END 
FOR J = 11 TO 21 
PRINT #10 USING ‘####', L$(J); 
FOR K =1 TO 12 
PRINT #10 USING F5S$, WORK2(J,K); 
NEXT K 
PRINT $10 USING F4$, EX2$(J) 
NEXT J 
PRINT #10 
NEXT A 
CLOSE #4 
CLOSE #10 
30TO 1530 
! MAKING A RANDOM ORDERING FOR EACH SUBJECT 
START = RND(ID(1)*ID(2)*.001) 
FOR P = 1 TO 20 
RRAND(P) = RND 
NEXT P 
MAT RORD = AIDX(RRAND) 
RETURN 
FOR X = 1 TO 12 
CRAND(X) = RND 
NEXT X