204 
01270 
01280 
01310 
21320 
921330 
21340 
01350 
01360 
21370 
21380 
31390 
21400 
21450 
21460 
21470 
21480 
21480 
01500 
01540 
01550! 
01560 
01570 
01580 
01580 
21600 
21610 
01620 
21630 
01640 
01650 
01660 
21670 
01680 
01680 
01700 
01710 
01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 
01830 
01840 
01850 
01860 
01880 
01890 
01800 
01810 
01820 
01930 
01940 
01850 y 
018960- - FOR I = 1 TO (RRN-1) 
01970 
01980 
01980 
02000 
02010 IF SRECALL(RR(I),RR(I+t)) > O THEN GOTO 2060 
02020 IF SRECALL(RR(I+1),RR(I)) > O THEN GOTO 2060 
SRFREQ(IN) = SRFREQ(IN) + 1 
ENDLOGP 
INPUT #4, USING F23%$, LINESTOPPER 
PROCESS RECALL DATA: MAKE SIMILARITY MATRIX OF ADJACENTS & GROUP 
MAT SRECALL = (0) 
MAT SRECALLG = (0) 
IF RRN = O THEN GOTO 2260 
N= 1