203 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00780 
00760 | OPEN INPUT AND OUTPUT PORTS 
00770 OPEN #4, ‘CREE-ENG’, INPUT 
00780 OPEN #10, ’‘RECFREQ‘, OUTPUT 
00790 OPEN #11, ‘RECALLG’, OUTPUT 
D0800 OPEN #12, ‘RECALL’, OUTPUT 
00810 OPEN #14, ‘SORT’, OUTPUT 
00820 OPEN #16, ‘SCALE’, OUTPUT 
00830 OPEN #17, ‘QFREQ‘’, OUTPUT 
00840 OPEN #19, ‘CASES-V’, OUTPUT 
00850 OPEN #20, ‘CASES-H’, OUTPUT 
00860 
00870 ! DEFINE FORMATS 
00880 Fig = ‘#’ 
00890 F223 = />H#H/ 
00800 
00910 ! DO CASES ONE AT A TIME, READ, PROCESS AND PRINT 
00920 i 
00930 FOR SS = 1 TO CASES 
00940 : 
00950 PRINT ‘SUBJ # /; 
00960 PRINT SS 
00870 
00980 
00980 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
01110 
01120 
01130 
01140 
01150 
01160 
01170 
01180 
01180 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
| PUT ALL OF ONE SUBJECT’S DATA INTO READ ‘R’‘ MATRICES 
L IS FOR LANGUAGE (1=CREE, 2=ENGLISH) 
LINPUT #4, SKIPLINES 
INPUT #4, USING '#’/, L; 
INPUT #4, USING ’'>###', AGE; 
INPUT #4, USING ’‘>##’', MSEX; 
INPUT #4, USING '>###A####’, JUNKS; 
INPUT #4, USING '>#’, ENGED 
RECALL DATA INPUT