C     PROGRAM MSA                                                       MSA   1 
C      THIS PROGRAM PERFORMS A MULTIPLE SCALOGRAM ANALYSIS USING THE    MSA   2 
C      METHOD OF JAMES LINGOES                                          MSA   3 
C      MODIFIED FOR U. OF M. IBM-360/67 BY YI-GUANG LIN (8/1/67)        MSA   4 
C                                                                               
C     DECK SET-UP FOR MSA                                                       
C                                                                               
C       1.  SYSTEM CARD/S.                                                      
C       2.  MSA BINARY DECK.                                                    
C       3.  PARAMETER CARD A - PUNCH NUMBER OF RUNS IN COLUMNS 1-3.             
C       4.  TITLE CARD - PUNCH A 1 IN COLUMN 1 AND ALPHANUMERIC TITLE IN        
C           COLUMNS 2-72 FOR OUTPUT PURPOSES.                                   
C       5.  PARAMETER CARD B -                                                  
C           A)  NS .LE. 100 (COLS. 1-3),  NUMBER OF SUBJECTS,                   
C           B)  NI .LE. 112 (COLS. 4-6),  NUMBER OF ITEMS,                      
C           C)  ISW = 0 IF RESPONSES ARE CODED 1'S AND 0'S, OTHERWISE =         
C               1 IF RESPONSES NEED TO BE DICHOTOMIZED (COL. 7),                
C           D)  PHI = REPRODUCIBILITY CRITERION NORMALLY = .80 (SEE REF.        
C               BELOW) REPRESENTING A LOWER-BOUND CRITERION (COLS. 8-10)        
C               FORMAT = F3.2,                                                  
C           E)  CHI = CHISQUARE CRITERION NORMALLY = 10.827 (COLS.11-16)        
C               FORMAT = F6.3,                                                  
C           F)  JOBNO = RUN NUMBER FOR ID PURPOSES (COLS. 17-20) WHICH          
C               IS ALPHANUMERIC ACCORDING TO FORMAT A4,                         
C           G)  IPRINT = 1 IF INPUT DATA IS TO BE PRINTED, OTHERWISE = 0        
C               (COL. 21),                                                      
C           H)  IBUG = 1 IF DEBUGGING OF EACH STEP OF ANALYSIS IS TO BE         
C               DONE, OTHERWISE FOR NORMAL CASE SET TO ZERO (COL. 22),          
C           I)  ILB = 1 IF TITLE CARDS FOR ITEMS ARE SUPPLIED (V.I.),           
C               OTHERWISE SET TO ZERO (COL. 23),                                
C           J)  ICOZ = 1 IF CORNELL SCORES ARE TO BE PRINTED FOR ALL            
C               SCALES HAVING 2 OR MORE ITEMS, OTHERWISE SET TO ZERO            
C               (COL. 24).                                                      
C       6.  PARAMETER CARD C - IF ISW = 1 THEN PUNCH IN COLS. 1-3 THE           
C           MAXIMUM NUMBER OF CATEGORIES FOR ANY ITEM.  OMIT CARD IF            
C           ISW = 0.                                                            
C       7.  PARAMETER CARD D - IF MAXIMUM ON PARAMETER CARD C = 2, THEN         
C           IN SUCCESSIVE FIELDS OF THREE COLUMNS PLACE THE CODES OF IN-        
C           PUT DATA FOR RESPONSE A THEN B FOR EACH ITEM IN TURN.  ONE          
C           CARD WILL ACCOMODATE 26 CODES FOR 13 ITEMS. CONTINUE ONTO           
C           AS MANY CARDS AS NECESSARY TO SATISFY NI.  IF MAX.GT.2, OMIT        
C           THIS SET OF CARDS.                                                  
C       8.  FORMAT CARD - PUNCH FORMAT OF INPUT DATA IN COLS. 1-72 IN           
C           STANDARD FORTRAN MANNER, I.E., ( IN COL. 1, THEN I6 FOR SUB-        
C           JECT ID NUMBER, THEN REMAINING FORMAT DESCRIBING HOW ITEM           
C           DATA HAS BEEN PUNCHED IN I-NOTATION, FINALLY CONCLUDING WITH        
C           A ).                                                                
C       9.  IF ILB = 1 THEN PUNCH AN ITEM TITLE CARD FOR EACH ITEM IN           
C           COLS. 1-72 IN ALPHANUMERIC CHARACTERS.  IF ILB = 0, OMIT            
C           THIS SET OF NI CARDS.                                               
C      10.  DATA DECK - PUNCH S ID IN FIRST FIELD FOLLOWED BY ITEM CODES        
C           FOR NI ITEMS IN SUBSEQUENT FIELDS (UP TO COL. 72).  IF ONE          
C           CARD IS INSUFFICIENT CONTINUE ONTO AS MANY CARDS AS NECES-          
C           SARY TO SATISFY NI.                                                 
C      11.  FOR ADDITIONAL ANALYSES REPEAT ITEMS 4-10 UNTIL NUMBER ON           
C           PARAMETER CARD A IS SATISFIED.                                      
C                                                                               
C      *** REFERENCE - LINGOES, J.C.  MULTIPLE SCALOGRAM ANALYSIS - A           
C                        SET-THEORETIC MODEL FOR ANALYZING DICHOTOMOUS          
C                        ITEMS.  EDUC. PSYCHOL. MEASMT., 1963, 23, 501-         
C                        524.                                                   
C                      PARK, P. AND WOODMAN, JUDITH  MSA - A 3600 FOR-          
C                        TRAN LIBRARY PROGRAM FOR MULTIPLE SCALOGRAM            
C                        ANALYSIS.  UNIV. OF MASS., RES. COMPUTING CEN-         
C                        TER LIBRARY PROGRAM G2-UMAS-MSA, 1967, 1-15.           
C                                                                               
      DIMENSION IFMT(18), INDATA(100,112), ISUM(112), TCHI(2,2), NEWCOD(MSA   5 
     12,112), IA(112), IB(112), IC(112), ID(112), IPOOL(112), IPRED(112)MSA   6 
     2, OSUM(112), IHEAD(100), ICOR(100), IDSAVE(112), IREF(112), IRY(11MSA   7 
     32), ILABEL(18,112)                                                MSA   8 
      EQUIVALENCE (ID,ICOR), (IRY,IC), (NEWCOD,OSUM)                    MSA   9 
      DATA IBLANK/'        '/                                           MSA  10 
C     TAPE ASSIGMENTS                                                   MSA  11 
      ITAPE=5                                                           MSA  12 
      JTAPE=6                                                           MSA  13 
      READ (ITAPE,81) NTIMES                                            MSA  14 
      DO 80 IRK=1,NTIMES                                                MSA  15 
      IREFL=0                                                           MSA  16 
      ISCNT=0                                                           MSA  17 
      READ (ITAPE,82) IFMT                                              MSA  18 
      READ (ITAPE,81) NSUB,NITEM,ICODE,PHI,CHI,JOBNO,IPRINT,IBUG,ILB,ICOMSA  19 
     1Z                                                                 MSA  20 
      N2=2*NSUB                                                         MSA  21 
      EN=NSUB                                                           MSA  22 
      NH=NSUB/2                                                         MSA  23 
      DO 1 I=1,NITEM                                                    MSA  24 
      IREF(I)=0                                                         MSA  25 
1     IPOOL(I)=0                                                        MSA  26 
      WRITE (JTAPE,82) IFMT                                             MSA  27 
      IF (ICODE) 3,3,2                                                  MSA  28 
2     READ (ITAPE,83) IMUL                                              MSA  29 
      IF (IMUL.GT.2) GO TO 3                                            MSA  30 
      READ (ITAPE,83) ((NEWCOD(I,J),I=1,2),J=1,NITEM)                   MSA  31 
3     READ (ITAPE,82) IFMT                                              MSA  32 
      IF (ILB.EQ.0) GO TO 5                                             MSA  33 
      DO 4 I=1,NITEM                                                    MSA  34 
4     READ (ITAPE,82) (ILABEL(J,I),J=1,18)                              MSA  35 
      GO TO 5                                                           MSA  36 
5     DO 6 I=1,NSUB                                                     MSA  37 
6     READ (ITAPE,IFMT) IHEAD(I),(INDATA(I,J),J=1,NITEM)                MSA  38 
      IF (IPRINT.EQ.0) GO TO 7                                          MSA  39 
      WRITE (JTAPE,84)                                                  MSA  40 
      CALL DATAPR (NITEM,NSUB,INDATA)                                   MSA  41 
7     IF (IMUL.EQ.2.OR.ICODE.EQ.0) GO TO 19                             MSA  42 
      NIT=IMUL+1                                                        MSA  43 
      DO 18 J=1,NITEM                                                   MSA  44 
      ND=-1                                                             MSA  45 
      IDO=0                                                             MSA  46 
      ITEM=0                                                            MSA  47 
      DO 11 K=1,NIT                                                     MSA  48 
      ND=ND+1                                                           MSA  49 
      DO 9 I=1,NSUB                                                     MSA  50 
      IF (INDATA(I,J)-ND) 9,8,9                                         MSA  51 
8     IDO=IDO+1                                                         MSA  52 
9     CONTINUE                                                          MSA  53 
      IF (IDO-NH) 10,14,12                                              MSA  54 
10    ITEM=IDO                                                          MSA  55 
11    CONTINUE                                                          MSA  56 
12    IF (IDO+ITEM-NSUB) 14,14,13                                       MSA  57 
13    ND=ND-1                                                           MSA  58 
14    DO 17 I=1,NSUB                                                    MSA  59 
      IF (INDATA(I,J)-ND) 15,15,16                                      MSA  60 
15    INDATA(I,J)=0                                                     MSA  61 
      GO TO 17                                                          MSA  62 
16    INDATA(I,J)=1                                                     MSA  63 
17    CONTINUE                                                          MSA  64 
18    CONTINUE                                                          MSA  65 
      GO TO 22                                                          MSA  66 
19    IF (ICODE) 22,22,20                                               MSA  67 
20    DO 21 I=1,NSUB                                                    MSA  68 
      DO 21 J=1,NITEM                                                   MSA  69 
      IF (INDATA(I,J).EQ.NEWCOD(1,J)) INDATA(I,J)=0                     MSA  70 
      IF (INDATA(I,J).EQ.NEWCOD(2,J)) INDATA(I,J)=1                     MSA  71 
21    CONTINUE                                                          MSA  72 
22    DO 23 I=1,NITEM                                                   MSA  73 
      ISUM(I)=0                                                         MSA  74 
      DO 23 J=1,NSUB                                                    MSA  75 
23    ISUM(I)=ISUM(I)+INDATA(J,I)                                       MSA  76 
      NIT=NITEM                                                         MSA  77 
      DO 26 I=1,NITEM                                                   MSA  78 
      IF (ISUM(I).NE.NSUB.AND.ISUM(I).NE.0) GO TO 24                    MSA  79 
      NIT=NIT-1                                                         MSA  80 
      IPOOL(I)=1                                                        MSA  81 
      GO TO 26                                                          MSA  82 
24    IF (ISUM(I).GE.NH) GO TO 26                                       MSA  83 
      IREF(I)=1                                                         MSA  84 
      DO 25 J=1,NSUB                                                    MSA  85 
      INDATA(J,I)=INDATA(J,I)+1                                         MSA  86 
      IF (INDATA(J,I).EQ.2) INDATA(J,I)=0                               MSA  87 
25    CONTINUE                                                          MSA  88 
      ISUM(I)=NSUB-ISUM(I)                                              MSA  89 
26    CONTINUE                                                          MSA  90 
      DO 27 I=1,NITEM                                                   MSA  91 
27    OSUM(I)=ISUM(I)                                                   MSA  92 
      IF (IBUG.EQ.0) GO TO 28                                           MSA  93 
      WRITE (JTAPE,85)                                                  MSA  94 
      WRITE (JTAPE,86) (I,IREF(I),ISUM(I),I=1,NITEM)                    MSA  95 
C     **SCALE INITIALIZATION                                            MSA  96 
28    IF (NIT.LE.0) GO TO 79                                            MSA  97 
      NSCALE=0                                                          MSA  98 
      ND=0                                                              MSA  99 
      DO 31 I=1,NITEM                                                   MSA 100 
      IF (IPOOL(I).EQ.1) GO TO 31                                       MSA 101 
      ISNEXT=ISUM(I)                                                    MSA 102 
      KC=0                                                              MSA 103 
      DO 30 J=1,NITEM                                                   MSA 104 
      IF (IPOOL(J).EQ.1) GO TO 29                                       MSA 105 
      IF (ISNEXT.LT.ISUM(J)) GO TO 31                                   MSA 106 
29    IF (IPOOL(J).EQ.1) KC=KC+1                                        MSA 107 
30    CONTINUE                                                          MSA 108 
      IF (KC.EQ.NITEM) GO TO 79                                         MSA 109 
      NIT=NIT-1                                                         MSA 110 
      ITEM=I                                                            MSA 111 
      GO TO 32                                                          MSA 112 
31    CONTINUE                                                          MSA 113 
      GO TO 79                                                          MSA 114 
32    NSCALE=NSCALE+1                                                   MSA 115 
      IPOOL(ITEM)=1                                                     MSA 116 
      IPRED(NSCALE)=ITEM                                                MSA 117 
      I=ITEM                                                            MSA 118 
      IF (IBUG.EQ.0) GO TO 33                                           MSA 119 
      WRITE (JTAPE,87)                                                  MSA 120 
C     **ITEM CHAINING                                                   MSA 121 
33    DO 36 IRS=1,NITEM                                                 MSA 122 
      IA(IRS)=0                                                         MSA 123 
      IB(IRS)=0                                                         MSA 124 
      IC(IRS)=0                                                         MSA 125 
      ID(IRS)=0                                                         MSA 126 
      IF (IPOOL(IRS).EQ.1) GO TO 36                                     MSA 127 
      DO 35 K=1,NSUB                                                    MSA 128 
      IF (INDATA(K,I).EQ.1) GO TO 34                                    MSA 129 
      IF (INDATA(K,IRS).EQ.1) ID(IRS)=ID(IRS)+1                         MSA 130 
      IF (INDATA(K,IRS).EQ.0) IC(IRS)=IC(IRS)+1                         MSA 131 
      GO TO 35                                                          MSA 132 
34    IF (INDATA(K,IRS).EQ.1) IA(IRS)=IA(IRS)+1                         MSA 133 
      IF (INDATA(K,IRS).EQ.0) IB(IRS)=IB(IRS)+1                         MSA 134 
35    CONTINUE                                                          MSA 135 
      IF (IBUG.EQ.0) GO TO 36                                           MSA 136 
      IAC=IA(IRS)*IC(IRS)                                               MSA 137 
      IBD=IB(IRS)*ID(IRS)                                               MSA 138 
      WRITE (JTAPE,88) I,IRS,IA(IRS),IB(IRS),IC(IRS),ID(IRS),IAC,IBD    MSA 139 
36    CONTINUE                                                          MSA 140 
      ICAN=IBLANK                                                       MSA 141 
      ITEM=0                                                            MSA 142 
      IDO=0                                                             MSA 143 
      DO 41 IRS=1,NITEM                                                 MSA 144 
      IF (IPOOL(IRS).EQ.1) GO TO 41                                     MSA 145 
      IF (IA(IRS)*IC(IRS).GE.IB(IRS)*ID(IRS)) GO TO 37                  MSA 146 
      IF (IA(IRS).LT.IC(IRS)) GO TO 41                                  MSA 147 
      ICAN1=IA(IRS)+IC(IRS)                                             MSA 148 
      IDO1=IC(IRS)                                                      MSA 149 
      GO TO 38                                                          MSA 150 
37    IF (IB(IRS).LT.ID(IRS)) GO TO 41                                  MSA 151 
      ICAN1=IB(IRS)+ID(IRS)                                             MSA 152 
      IDO1=ID(IRS)                                                      MSA 153 
38    IF (ICAN.NE.IBLANK) GO TO 40                                      MSA 154 
39    ICAN=ICAN1                                                        MSA 155 
      IDO=IDO1                                                          MSA 156 
      ITEM=IRS                                                          MSA 157 
      GO TO 41                                                          MSA 158 
40    IF (ICAN.LT.ICAN1) GO TO 41                                       MSA 159 
      IF (ICAN.GT.ICAN1) GO TO 39                                       MSA 160 
      IF (IDO.GT.IDO1) GO TO 39                                         MSA 161 
41    CONTINUE                                                          MSA 162 
      IF (ICAN.EQ.IBLANK) GO TO 59                                      MSA 163 
      IF (IBUG.EQ.0) GO TO 42                                           MSA 164 
      WRITE (JTAPE,89) ITEM                                             MSA 165 
42    DO 50 MI=1,NSCALE                                                 MSA 166 
      I=NSCALE+1-MI                                                     MSA 167 
      IA(I)=0                                                           MSA 168 
      IB(I)=0                                                           MSA 169 
      IC(I)=0                                                           MSA 170 
      ID(I)=0                                                           MSA 171 
      DO 44 K=1,NSUB                                                    MSA 172 
      IF (INDATA(K,IPRED(I)).EQ.1) GO TO 43                             MSA 173 
      IF (INDATA(K,ITEM).EQ.0) IC(I)=IC(I)+1                            MSA 174 
      IF (INDATA(K,ITEM).EQ.1) ID(I)=ID(I)+1                            MSA 175 
      GO TO 44                                                          MSA 176 
43    IF (INDATA(K,ITEM).EQ.0) IB(I)=IB(I)+1                            MSA 177 
      IF (INDATA(K,ITEM).EQ.1) IA(I)=IA(I)+1                            MSA 178 
44    CONTINUE                                                          MSA 179 
      IF (IREL.EQ.1) GO TO 46                                           MSA 180 
      IF (IBUG.EQ.0) GO TO 45                                           MSA 181 
      WRITE (JTAPE,90)                                                  MSA 182 
      WRITE (JTAPE,88) I,IPRED(I),ITEM,IA(I),IB(I),IC(I),ID(I)          MSA 183 
45    IF (IA(I)*IC(I).GE.IB(I)*ID(I)) GO TO 48                          MSA 184 
46    CONTINUE                                                          MSA 185 
      ITEMP=IA(I)                                                       MSA 186 
      IA(I)=IB(I)                                                       MSA 187 
      IB(I)=ITEMP                                                       MSA 188 
      ITEMP=IC(I)                                                       MSA 189 
      IC(I)=ID(I)                                                       MSA 190 
      ID(I)=ITEMP                                                       MSA 191 
      IF (IBUG.EQ.0) GO TO 47                                           MSA 192 
      WRITE (JTAPE,91) IPRED(I),ITEM                                    MSA 193 
      WRITE (JTAPE,88) IA(I),IB(I),IC(I),ID(I)                          MSA 194 
47    CONTINUE                                                          MSA 195 
      IF (I.EQ.NSCALE) IREFL=1                                          MSA 196 
48    RPHI=((2*IA(I)+IB(I)+ID(I))*(2*IC(I)+IB(I)+ID(I)))/N2             MSA 197 
      RPHI=RPHI*(1.-PHI)                                                MSA 198 
      IF (IBUG.EQ.0) GO TO 49                                           MSA 199 
      WRITE (JTAPE,92) RPHI                                             MSA 200 
49    D=ID(I)                                                           MSA 201 
      IF (D.GT.RPHI) GO TO 51                                           MSA 202 
50    CONTINUE                                                          MSA 203 
      GO TO 52                                                          MSA 204 
51    IREFL=0                                                           MSA 205 
      GO TO 59                                                          MSA 206 
C     **CHI SQUARE CALCULATIONS                                         MSA 207 
52    TCHI(1,1)=IB(NSCALE)                                              MSA 208 
      TCHI(1,2)=IA(NSCALE)                                              MSA 209 
      TCHI(2,1)=IC(NSCALE)                                              MSA 210 
      TCHI(2,2)=ID(NSCALE)                                              MSA 211 
      RCHI=0                                                            MSA 212 
      DO 53 I=1,2                                                       MSA 213 
      DO 53 J=1,2                                                       MSA 214 
53    RCHI=RCHI+((TCHI(I,J)-((TCHI(1,J)+TCHI(2,J))*(TCHI(I,1)+TCHI(I,2))MSA 215 
     1)/EN)**2)/(((TCHI(1,J)+TCHI(2,J))*(TCHI(I,1)+TCHI(I,2)))/EN)      MSA 216 
      IF (IBUG.EQ.0) GO TO 54                                           MSA 217 
      WRITE (JTAPE,93) RCHI                                             MSA 218 
54    IF (RCHI.GE.CHI) GO TO 55                                         MSA 219 
      IREFL=0                                                           MSA 220 
      GO TO 59                                                          MSA 221 
55    CONTINUE                                                          MSA 222 
      IF (IREFL.EQ.0) GO TO 32                                          MSA 223 
      IREFL=0                                                           MSA 224 
      DO 56 K=1,NSUB                                                    MSA 225 
      INDATA(K,ITEM)=INDATA(K,ITEM)+1                                   MSA 226 
      IF (INDATA(K,ITEM).EQ.2) INDATA(K,ITEM)=0                         MSA 227 
56    CONTINUE                                                          MSA 228 
      ISUM(ITEM)=NSUB-ISUM(ITEM)                                        MSA 229 
      IF (IREF(ITEM).EQ.1) GO TO 58                                     MSA 230 
      IREF(ITEM)=1                                                      MSA 231 
      IF (IPRINT.EQ.0.OR.IPRINT.EQ.1) GO TO 32                          MSA 232 
57    WRITE (JTAPE,94) ITEM                                             MSA 233 
      CALL DATAPR (NITEM,NSUB,INDATA)                                   MSA 234 
      GO TO 32                                                          MSA 235 
58    IREF(ITEM)=0                                                      MSA 236 
      IF (IPRINT.EQ.2) GO TO 57                                         MSA 237 
      GO TO 32                                                          MSA 238 
C     **PRINT OUT SCALE                                                 MSA 239 
59    ISCNT=ISCNT+1                                                     MSA 240 
      IF (NSCALE.GT.0) GO TO 60                                         MSA 241 
      IPOOL(IPRED(1))=0                                                 MSA 242 
      ISCNT=ISCNT-1                                                     MSA 243 
      GO TO 78                                                          MSA 244 
60    WRITE (JTAPE,95) ISCNT                                            MSA 245 
      DO 62 I=1,NSCALE                                                  MSA 246 
      IPR=IPRED(I)                                                      MSA 247 
      IF (ILB.EQ.0) GO TO 61                                            MSA 248 
      WRITE (JTAPE,96) IPRED(I),IREF(IPR),ISUM(IPR),(ILABEL(J,IPR),J=1,1MSA 249 
     18)                                                                MSA 250 
      GO TO 62                                                          MSA 251 
61    WRITE (JTAPE,97) IPRED(I),IREF(IPR),ISUM(IPR)                     MSA 252 
62    CONTINUE                                                          MSA 253 
      IF (NSCALE.EQ.1) GO TO 78                                         MSA 254 
      WRITE (JTAPE,98) CHI                                              MSA 255 
      ORGY=0                                                            MSA 256 
      DO 63 I=1,NSUB                                                    MSA 257 
      ICOR(I)=0                                                         MSA 258 
      DO 63 J=1,NSCALE                                                  MSA 259 
      IF (INDATA(I,IPRED(J)).EQ.1) ICOR(I)=ICOR(I)+1                    MSA 260 
63    CONTINUE                                                          MSA 261 
      DO 67 I=1,NSUB                                                    MSA 262 
      IA(I)=0                                                           MSA 263 
      L=ICOR(I)                                                         MSA 264 
      DO 64 J=1,L                                                       MSA 265 
64    IB(J)=1                                                           MSA 266 
      L=L+1                                                             MSA 267 
      DO 65 J=L,NSCALE                                                  MSA 268 
65    IB(J)=0                                                           MSA 269 
      DO 66 J=1,NSCALE                                                  MSA 270 
66    IA(I)=IA(I)+IABS(IB(J)-INDATA(I,IPRED(J)))                        MSA 271 
67    ND=ND+IA(I)                                                       MSA 272 
      ZD=ND                                                             MSA 273 
      EM=NSCALE                                                         MSA 274 
      DEN=EN*EM                                                         MSA 275 
      ALPHA=1.0-(ZD/DEN)                                                MSA 276 
      DO 68 I=1,NSCALE                                                  MSA 277 
68    ORGY=ORGY+OSUM(IPRED(I))                                          MSA 278 
      BETA=ORGY/DEN                                                     MSA 279 
      WRITE (JTAPE,99) PHI,ALPHA,BETA,NSCALE                            MSA 280 
      IF (ICOZ.EQ.0) GO TO 78                                           MSA 281 
      WRITE (JTAPE,100) ISCNT                                           MSA 282 
      DO 69 I=1,NSUB                                                    MSA 283 
      ICOR(I)=0                                                         MSA 284 
      DO 69 J=1,NSCALE                                                  MSA 285 
69    ICOR(I)=ICOR(I)+INDATA(I,IPRED(J))                                MSA 286 
      WRITE (JTAPE,101)                                                 MSA 287 
      WRITE (JTAPE,102) (IPRED(J),J=1,NSCALE)                           MSA 288 
      DO 71 I=2,NSUB                                                    MSA 289 
      JR=I-1                                                            MSA 290 
      DO 71 K=1,JR                                                      MSA 291 
      IF (IHEAD(K).LE.IHEAD(I)) GO TO 71                                MSA 292 
      ITEMP=IHEAD(I)                                                    MSA 293 
      IHEAD(I)=IHEAD(K)                                                 MSA 294 
      IHEAD(K)=ITEMP                                                    MSA 295 
      ITEMP=ICOR(I)                                                     MSA 296 
      ICOR(I)=ICOR(K)                                                   MSA 297 
      ICOR(K)=ITEMP                                                     MSA 298 
      DO 70 J=1,NSCALE                                                  MSA 299 
      ITEMP=INDATA(I,IPRED(J))                                          MSA 300 
      INDATA(I,IPRED(J))=INDATA(K,IPRED(J))                             MSA 301 
      INDATA(K,IPRED(J))=ITEMP                                          MSA 302 
70    CONTINUE                                                          MSA 303 
71    CONTINUE                                                          MSA 304 
      DO 73 I=1,NSUB                                                    MSA 305 
      DO 72 J=1,NSCALE                                                  MSA 306 
72    IRY(J)=INDATA(I,IPRED(J))                                         MSA 307 
73    WRITE (JTAPE,103) IHEAD(I),ICOR(I),(IRY(J),J=1,NSCALE)            MSA 308 
      DO 74 I=1,NSCALE                                                  MSA 309 
74    IRY(I)=ISUM(IPRED(I))                                             MSA 310 
      WRITE (JTAPE,104) (IRY(I),I=1,NSCALE)                             MSA 311 
      WRITE (JTAPE,105) ISCNT                                           MSA 312 
      WRITE (JTAPE,106)                                                 MSA 313 
      DO 76 I=2,NSUB                                                    MSA 314 
      JR=I-1                                                            MSA 315 
      DO 76 K=1,JR                                                      MSA 316 
      IF (ICOR(K).LE.ICOR(I)) GO TO 76                                  MSA 317 
      ITEMP=ICOR(I)                                                     MSA 318 
      ICOR(I)=ICOR(K)                                                   MSA 319 
      ICOR(K)=ITEMP                                                     MSA 320 
      ITEMP=IHEAD(I)                                                    MSA 321 
      IHEAD(I)=IHEAD(K)                                                 MSA 322 
      IHEAD(K)=ITEMP                                                    MSA 323 
      DO 75 J=1,NSCALE                                                  MSA 324 
      ITEMP=INDATA(I,IPRED(J))                                          MSA 325 
      INDATA(I,IPRED(J))=INDATA(K,IPRED(J))                             MSA 326 
      INDATA(K,IPRED(J))=ITEMP                                          MSA 327 
75    CONTINUE                                                          MSA 328 
76    CONTINUE                                                          MSA 329 
      DO 77 I=1,NSUB                                                    MSA 330 
77    WRITE (JTAPE,107) ICOR(I),IHEAD(I)                                MSA 331 
78    NIT=NIT-NSCALE+1                                                  MSA 332 
      GO TO 28                                                          MSA 333 
79    WRITE (JTAPE,108) JOBNO                                           MSA 334 
80    CONTINUE                                                          MSA 335 
      STOP                                                              MSA 336 
C     *** FORMAT STATEMENTS ***                                                 
C                                                                       MSA 337 
81    FORMAT(2I3,I1,F3.2,F6.3,A4,4I1)                                   MSA 338 
82    FORMAT(18A4)                                                      MSA 339 
83    FORMAT(26I3)                                                      MSA 340 
84    FORMAT('1'40X'ORIGINAL DATA')                                     MSA 341 
85    FORMAT('1 MARGINALS AFTER REFLECTION')                            MSA 342 
86    FORMAT(1XI5,A4,10XI8)                                             MSA 343 
87    FORMAT(1X'ITEM CHAINING'/7X'MEMBER'1X'CANDIDATE'7X'A'9X'B'9X'C'   MSA 344 
     19X'D'8X'AC'8X'BD'/)                                               MSA 345 
88    FORMAT(1X9I10)                                                    MSA 346 
89    FORMAT(1X'ITEM NUMBER'I5' CHOSEN AS A CANDIDATE')                 MSA 347 
90    FORMAT(1X'TABLE BEFORE AC-BD TEST'/9X'MEMBER NUMBER'4X'CANDIDATE' MSA 348 
     15X'A'9X'B'9X'C'9X'D')                                             MSA 349 
91    FORMAT(1X'TABLE FOR'I5'-'I5' WAS IMPLICITLY REFLECTED AND BECAME'/MSA 350 
     110X'A'9X'B'9X'C'9X'D')                                            MSA 351 
92    FORMAT(1X'REPRODUCIBILITY =' F15.6)                               MSA 352 
93    FORMAT(1X'CHI SQUARE ='F15.6)                                     MSA 353 
94    FORMAT(1H1,30X'ITEM NUMBER'I5' REFLECTED--NOW DATA = ')           MSA 354 
95    FORMAT(1H1,14X'SCALE NO. 'I3' INCLUDES THE FOLLOWING ITEMS'//15X,'MSA 355 
     1ITEM NO.'4X'REFLECTED'10X'MARGINAL SUM'//)                        MSA 356 
96    FORMAT(15XI5,11XI1,13XI8,5X18A4)                                  MSA 357 
97    FORMAT(15XI5,11XI1,13XI8)                                         MSA 358 
98    FORMAT(1H0' CHI-SQUARE CRITERION = 'F6.3)                         MSA 359 
99    FORMAT(2X'PHI'18X'= 'F6.2/2X'REPRODUCIBILITY'6X'= 'F6.3/2X        MSA 360 
     1'MIN. MARGINAL REPR.  = 'F6.3/2X'NUMBER IN SCALE'6X'= 'I6)        MSA 361 
100   FORMAT(///1H025X'CORNELL SCORES AND ANSWER PATTERNS ORDERED BY SUBMSA 362 
     1JECT IDENTIFICATION NUMBER'/50X'FOR SCALE NO.'I3//)               MSA 363 
101   FORMAT(1H010X'ID NUMBER'10X'CORNELL SCORE' 7X'ANSWER PATTERN'/    MSA 364 
     111X'---------'10X'-------------' 7X'--------------')              MSA 365 
102   FORMAT(1H049X20(I3,1X))                                           MSA 366 
103   FORMAT(1H ,10XI6,13XI8,10X20(2XI2)/(48X20(2XI2)))                 MSA 367 
104   FORMAT('0COLUMN SUMS FOR THIS SCALE'21X25I4)                      MSA 368 
105   FORMAT(///1H025X'SUBJECTS ORDERED BY CORNELL SCORES'/35X'FOR SCALEMSA 369 
     1 NO.'I3//)                                                        MSA 370 
106   FORMAT(1H010X'CORNELL SCORE'10X'ID NUMBER'/11X'-------------'10X  MSA 371 
     1'---------'//)                                                    MSA 372 
107   FORMAT(1H ,10XI8,15XI6)                                           MSA 373 
108   FORMAT(1H1'ALL POSSIBLE SCALES HAVE BEEN FORMED--MULTIPLE SCALOGRAMSA 374 
     1M ANALYSIS IS FINISHED FOR JOB NO. 'A4)                           MSA 375 
      END                                                               MSA 376-
      SUBROUTINE DATAPR (NITEM,NSUB,INDATA)                             DPR   1 
      DIMENSION INDATA(100,112)                                         DPR   2 
      JTAPE=6                                                           DPR   3 
      MX=NITEM                                                          DPR   4 
      NO=1                                                              DPR   5 
      IF (MX.LE.56) GO TO 1                                             DPR   6 
      NI=56                                                             DPR   7 
      GO TO 2                                                           DPR   8 
1     NI=MX                                                             DPR   9 
2     WRITE (JTAPE,4) (J,J=NO,NI)                                       DPR  10 
      DO 3 I=1,NSUB                                                     DPR  11 
3     WRITE (JTAPE,5) I,(INDATA(I,J),J=NO,NI)                           DPR  12 
      NO=NO+56                                                          DPR  13 
      IF (NI.NE.MX) GO TO 1                                             DPR  14 
      RETURN                                                            DPR  15 
C                                                                       DPR  16 
4     FORMAT (10X56I2)                                                  DPR  17 
5     FORMAT (' '3XI4,2X56I2/10X56I2)                                   DPR  18 
      END                                                               DPR  19-
  3                                                                             
1 THIS WILL TEST MSA WITH A HYPOTHETICAL 2-DIMENSIONAL CASE                     
0250080.80  3.84THEX0011                                                        
(I2,8(2X,I1))                                                                   
  ITEM NO. 1                                                                    
  ITEM NO. 2                                                                    
  ITEM NO. 3                                                                    
  ITEM NO. 4                                                                    
  ITEM NO. 5                                                                    
  ITEM NO. 6                                                                    
  ITEM NO. 7                                                                    
  ITEM NO. 8                                                                    
01  1  0  0  1  0  0  1  1                                                      
02  0  0  1  1  0  1  0  0                                                      
03  1  0  0  0  1  1  0  0                                                      
04  1  0  1  1  0  1  1  0                                                      
05  1  1  0  0  1  1  0  1                                                      
06  0  0  1  1  0  1  1  0                                                      
07  1  0  0  1  0  1  0  0                                                      
08  1  0  0  0  1  0  0  1                                                      
09  1  0  1  0  1  1  0  0                                                      
10  1  0  0  1  1  1  0  1                                                      
11  1  0  0  1  1  0  0  1                                                      
12  1  0  0  1  1  1  0  0                                                      
13  0  1  1  0  1  1  0  0                                                      
14  1  0  0  1  0  1  0  1                                                      
15  1  1  1  0  1  1  0  0                                                      
16  1  0  0  1  0  1  1  0                                                      
17  1  1  0  0  1  0  0  1                                                      
18  0  0  1  1  1  1  0  0                                                      
19  1  0  0  0  1  1  0  1                                                      
20  1  0  1  1  0  1  0  0                                                      
21  1  0  0  1  0  0  0  1                                                      
22  1  0  0  1  0  1  1  1                                                      
23  1  1  0  0  1  1  0  0                                                      
24  1  0  1  1  1  1  0  0                                                      
25  0  0  1  0  1  1  0  0                                                      
1 TEST RUN OF MSA                                                               
0080041.80 0.000MSA12111                                                        
004                                                                             
(I2,4(1X,I1))                                                                   
  ITEM NO. 1                                                                    
  ITEM NO. 2                                                                    
  ITEM NO. 3                                                                    
  ITEM NO. 4                                                                    
08 0 1 0 1                                                                      
06 0 1 0 1                                                                      
04 2 2 0 0                                                                      
02 1 2 3 0                                                                      
01 1 2 4 1                                                                      
03 2 2 2 0                                                                      
05 0 1 0 0                                                                      
07 0 1 0 1                                                                      
1  112 ITEMS TEST RUN                                                           
0881121.8010.827MSA10011                                                        
002                                                                             
000002000002000002000002000002000002000002000002000002000002000002000002000002  
000002000002000002000002000002000002000002000002000002000002000002000002000002  
000002000002000002000002000002000002000002000002000002000002000002000002000002  
000002000002000002000002000002000002000002000002000002000002000002000002000002  
000002000002000002000002000002000002000002000002000002000002000002000002000002  
000002000002000002000002000002000002000002000002000002000002000002000002000002  
000002000002000002000002000002000002000002000002000002000002000002000002000002  
000002000002000002000002000002000002000002000002000002000002000002000002000002  
000002000002000002000002000002000002000002000002                                
(T75,I2,T1,72I1/40I1)                                                           
DISAPPROVAL OF AGRICULTURE DEPARTMENT REORGANIZATION       *MSA  1              
INCREASE FUNDS FOR AGRICULTURE CONSERVATION                *MSA  2              
WILLIAMS AMENDMENT TO INCREASE FUNDS FOR AGRIC. CONSERV.   *MSA  3              
MAKE AVAILABLE SURPLUS CCC COMMODITIES FOR FAMINE RELIEF   *MSA  4              
SET DAIRY SUPPORTS AT 85 PER CENT OF PARITY                *MSA  5              
WOOL SUPPORTS BILL                                         *MSA  6              
INCREASE REA LOAN AUTHORIZATION FUNDS                      *MSA  7              
INVESTIGATION BY TARIFF COMMISSION OF FARM PRODUCT IMPORTS *MSA  8              
PLAN FOR TAX WRITE-OFF ON FARM EQUIPMENT                   *MSA  9              
SUPPORT BASIC COMMODITIES FROM 82.5 TO 90 PER CENT         *MSA 10              
SUPPORT DAIRY PRICES FROM 80 TO 90 PER CENT                *MSA 11              
SUPPORT OTHER GRAINS                                       *MSA 12              
SUPPORT LIVE BEEF CATTLE PRICES                            *MSA 13              
SET A MAXIMUM SUPPORT FOR WOOL                             *MSA 14              
CONFERENCE FARM BILL                                       *MSA 15              
REDUCE FUNDS FOR AGRICULTURE CONSERVATION PROGRAM          *MSA 16              
CONTINUE 90 PER CENT OF PARITY SUPPORTS                    *MSA 17              
SUPPORT OF DAIRY PRODUCTS                                  *MSA 18              
LIMIT PAYMENTS ON SHORN WOOL TO 100 PER CENT OF PARITY     *MSA 19              
INCREASE FUNDS FOR STATE AGRICULTURAL EXPERIMENT STATIONS  *MSA 20              
TABLE MOTION TO RECONSIDER VOTE ON RURAL ELECTRIF. LOANS   *MSA 21              
INCREASE REA LOAN AUTHORIZATION                            *MSA 22              
AMENDMENT TO ENCOURAGE PURCHASE OF SURPLUSES               *MSA 23              
RAISE BASIC COMMODITIES SUPPORTS TO .90-1.00 OF PARITY     *MSA 24              
RAISE BASIC COMMODITIES SUPPORTS TO FLEXIBLE 82.5 PER CENT *MSA 25              
CONTINUE DAIRY SUPPORT AT 75 TO 90 PER CENT LEVEL          *MSA 26              
DELETE CERTAIN MANDATORY GRAIN SUPPORTS                    *MSA 27              
ENCOURAGE GRAZING LAND IMPROVEMENTS                        *MSA 28              
INSERT HOUSE LANGUAGE ON CERTAIN DAIRY PROVISIONS          *MSA 29              
OMNIBUS FARM BILL                                          *MSA 30              
EXEMPT SMALL CORPORATIONS FROM EXCESS PROFITS TAX          *MSA 31              
REDUCE EXCISE TAXES ON HOUSEHOLD ITEMS                     *MSA 32              
LOWER EXCISE TAXES ON RADIOS,ETC.                          *MSA 33              
EXTEND ALL EXCISE TAXES EXCEPT ON ADMISSIONS               *MSA 34              
CONFERENCE EXCISE BILL                                     *MSA 35              
MODIFY D. C. TAX STRUCTURE                                 *MSA 36              
PROVIDE ADDITIONAL $100 INCOME TAX EXEMPTION               *MSA 37              
DELETE PROVISION ALLOWING FOR TAX CREDIT                   *MSA 38              
DELETE ACCELERATED TAX DEPRECIATION PLAN FOR NEW PLANS     *MSA 39              
DELETE MOST PROVISIONS OF TAX BILL                         *MSA 40              
CONFERENCE TAX BILL                                        *MSA 41              
LOWER EXCISE TAX ON VEHICLES                               *MSA 42              
EARMARK HIGHWAY FUEL TAX REVENUES FOR ROAD BUILDING        *MSA 43              
EXCISE TAX REDUCTION OF $1 BILLION                         *MSA 44              
INCREASE PERSONAL INCOME TAX EXEMPTIONS                    *MSA 45              
GRANT EACH TAXPAYER $20 YEARLY TAX CREDIT                  *MSA 46              
DELETE CERTAIN ESTATE TAX EXEMPTIONS                       *MSA 47              
RECOMMIT TAX BILL                                          *MSA 48              
INTERNAL REVENUE BILL                                      *MSA 49              
REDUCE MUTUAL SECURITY                                     *MSA 50              
REDUCE ECONOMIC AID                                        *MSA 51              
REDUCE MUTUAL SECURITY                                     *MSA 52              
MUTUAL SECURITY BILL                                       *MSA 53              
MAKE MUTUAL SECURITY AVAILABLE FOR ASIA PACIFIC COUNTRIES  *MSA 54              
TABLE MOTION TO RECOMMIT MUTUAL SECURITY BILL              *MSA 55              
MOTION TO RECONSIDER MUTUAL SECURITY BILL                  *MSA 56              
STATUS OF FORCES TREATY                                    *MSA 57              
LIMIT OBLIGATIONS OF MUTUAL SECURITY FUNDS                 *MSA 58              
REDUCE MILITARY ASSISTANCE FUNDS                           *MSA 59              
LIMIT MUTUAL SECURITY EXPENDITURES IN 1954                 *MSA 60              
MUTUAL SECURITY APPROPRIATIONS BILL                        *MSA 61              
INCR. PORTION OF MUTUAL SECURITY FUNDS AVAILABLE AS LOANS  *MSA 62              
AUTHORIZE MUTUAL SECURITY FUNDS FOR AIRCRAFT CONSTRUCTION  *MSA 63              
REDUCE MUTUAL SECURITY FUNDS BY $500,000,000               *MSA 64              
REDUCE MILITARY AID FUNDS                                  *MSA 65              
KNOWLAND MOTION AUTHORIZING AEC TO CONTRACT TVA POWER      *MSA 66              
JOHNSON MOTION AUTHORIZING AEC TO PRODUCE ELECTRICAL POWER *MSA 67              
TABLE AMENDMENT AUTHORIZING PRESIDENT TO SET UP ATOMIC POOL*MSA 68              
SUBSTITUTE STRIKING OUT MANY PROVISIONS OF AE BILL         *MSA 69              
PROVIDE REVENUES TO AEC TO BE USED FOR EDUCATION           *MSA 70              
TABLE MOVE TO LIMIT AEC PAYMENTS FOR NUCLEAR MATERIAL      *MSA 71              
SECOND ATOMIC ENERGY CONFERENCE REPORT                     *MSA 72              
LIMIT AEC AUTHORITY                                        *MSA 73              
PREFERENCE TO PUBLIC BODIES AND COOPS FOR EXCESS AEC POWER *MSA 74              
TABLE AMENDMENT TO ESTABLISH NEW AEC DIVISION              *MSA 75              
TABLE AMENDMENT IN LICENSING PATENTS IN AE FIELD           *MSA 76              
LIMIT AEC DEBATE TO AMENDMENTS ALREADY SUBMITTED           *MSA 77              
USE ALL AEC REVENUES TO PAY OFF NATIONAL DEBT PRINCIPAL    *MSA 78              
ATOMIC ENERGY BILL                                         *MSA 79              
ATOMIC ENERGY CONFERENCE BILL                              *MSA 80              
TABLE ANDERSON AMENDMENT KILLING OFFSHORE OIL BILL         *MSA 81              
LIMIT STATE CONTROL TO THREE MILES                         *MSA 82              
LEHMAN AMENDMENT TO GIVE OFFSHORE RIGHTS TO FEDERAL GOVT.  *MSA 83              
NEELY AMENDMENT TO GIVE OFFSHORE RIGHTS TO FEDERAL GOVT.   *MSA 84              
COMMITTEE AMENDMENT TO OFFSHORE BILL                       *MSA 85              
APPLY OFFSHORE LEASE REVENUE TO NATIONAL DEFENSE           *MSA 86              
LAY ASIDE TIDELANDS BILL                                   *MSA 87              
LIMIT STATE OWNERSHIP TO THREE MILES                       *MSA 88              
DEFINE LIMITS OF OFFSHORE BOUNDARIES                       *MSA 89              
ESTABLISH STUDY COMMISSION ON SUBMERGED LANDS              *MSA 90              
87.5 PER CENT OF OFFSHORE REVENUES TO REDUCE NATIONAL DEBT *MSA 91              
PROVIDE FOR USE OF OUTER SHELF REVENUES FOR DEFENSE AND ED.*MSA 92              
PROVIDE FOR COMMITTEE TO STUDY SUBMERGED LANDS ECONOMICS   *MSA 93              
PROVIDE FOR U.S. JURISDICTION OVER SUBMERGED SHELF LANDS   *MSA 94              
REFER MCCARTHY CENSURE TO SELECT COMMITTEE                 *MSA 95              
MUNDT SUBSTITUTE FOR MCCARTHY CENSURE                      *MSA 96              
COMMITTEE AMENDMENT OF MCCARTHY CENSURE                    *MSA 97              
CENSURE MCCARTHY FOR CHARGES AGAINST CENSURE COMMITTEE     *MSA 98              
MCCARTHY CENSURE                                           *MSA 99              
DISMISS FIRST COUNT ON MCCARTHY CENSURE                    *MSA 100             
MCCARTHY NOT TO BE CONDEMNED FOR FAILURE TO APPEAR         *MSA 101             
TABLE SECOND COUNT ON MCCARTHY CENSURE                     *MSA 102             
AMENDMENT TO MCCARTHY CENSURE                              *MSA 103             
AMENDMENT TO RESTRICT TRADE WITH COMMUNISTS                *MSA 104             
RESOLUTION ON PROTECTING WESTERN HEMISPHERE FROM COMMUNISM *MSA 105             
ESTABLISH PRESUMPTION CERTAIN UNIONS ARE NOT COMMUNISTIC   *MSA 106             
MEMBERSHIP IN COMMUNIST PARTY A FELONY                     *MSA 107             
ADOPTION OF HOUSE AMENDMENTS TO SUBVERSIVES ACTIVITIES BILL*MSA 108             
AMEND SUBVERSIVE ACTIV. BILL TO ESTABLISH SECURITY COMM.   *MSA 109             
RETAIN EXISTING LANGUAGE IN SUBVERSIVE ACTIVITIES BILL     *MSA 110             
CLARIFY CERTAIN DEFINITIONS IN SUBVERSIVE ACTIVITIES BILL  *MSA 111             
TABLE MOTION TO RECONSIDER COMMUNIST PARTY MEMBERSHIP VOTE *MSA 112             
222020200020020022222020002000220200020200222222022220022222220222200022  01    
0220022000002000000220200220002222220222                                201     
022002220020200000002020002202200220020200220000222200022222220220220022  02    
2200222002220022222200200220002022222222                                202     
000000000200002220200000222002000200020200000000222220022222020222220022  03    
0222022220002200000022202220002222220222                                203     
022022220020022022222020002002222220022200222220200222002002220220202002  04    
2200000020002000000222202220022222220202                                204     
222002222220002000022020202202222020022202222202022022020222200202202202  05    
0220020020002000000020220002220220020220                                205     
222022220022000020022020000020020220020020022200200220002000200220202002  06    
2200022020002200000220202220002022220222                                206     
222000200200022000202000222002020022020020022200202220000222200222002022  07    
0020022020002000000220200220002022220202                                207     
222022200022220022022220000020220220022020222200202020002000200020202200  08    
2200020002220022222200202220002022222202                                208     
222022202002220022202022000020022022022220222222200020202000200220202200  09    
2200020002220022222200002220022222222222                                209     
222022200022220022022020000020022020020022222200200220002000200220202200  10    
2200000020002000000200202220002022222222                                210     
222222200022220022222200000000222202020200002222000020002000200020202200  11    
2200000002020022222200002220002022222202                                211     
022002000200002020000200222002020020020000022000200020202000200020202002  12    
2200000002220022222200202220002022222222                                212     
000202000200002200002000222002220222020000022200200022222000200220002202  13    
2000022002220022222200202220002222222202                                213     
222222222022200022022222000020222022022002022222200022202000200000202202  14    
2200020002220022222200002220002022222202                                214     
022222222022200022022220000020222022022202222222000020202000200220202200  15    
2200000002220022222200202220002022222202                                215     
022022200022000022022200000220020022220020020000200020202000200002020022  16    
0022202220002200000002202220002022020220                                216     
000202000200002200020000222202020020220020020000220022222000200002020022  17    
0022202220002200000002222000220022220222                                217     
000002000200002200020000222202020222220020020000200022202000200002020022  18    
0022202220002200000002222220022022020220                                218     
000002020200002200020000222202000020200020020000200202202002220202020022  19    
0022202220002000000002202220002022020220                                219     
000002000200002000020000222202020022200020020000200020202000200202020022  20    
0022202220002000000002002220002022000220                                220     
000002000200002000000000222202020020220020020000200020202000200002020022  21    
0022202220002200000002202002220022020220                                221     
000002020200002200020000222202020220220020020000222202020222022222020022  22    
0022222220002000000002220002220222020220                                222     
022222222022000022022022000222020020220020020000222222222222220222220022  23    
0222222220002000000200220002220222020220                                223     
200002020200002200000000222202020222200020020000222202022222020222020022  24    
0022222220002200000002220002220222020220                                224     
000000020200002200020020222202220222220020220000222202020222022222020022  25    
0022222220002200000202202002220222020220                                225     
000000000200002200000000222202000220200020020000222022222222200002020022  26    
0022202220002000000002200002220222020220                                226     
222000220020220022202020000020220200022200002222022200020222220220200000  27    
2220020020002000000220200220002222220222                                227     
200000000020022200000000202000222020020022222200222200020222220222200202  28    
0000022000002000000200200220022222220222                                228     
000000000200022020200000222002000020020000020020200020222000220002200022  29    
0222022020002200000022202220002022220222                                229     
222000220020022020222020002002200220022200022020222220022222220220202202  30    
2200020020002000000220202220002222220202                                230     
222022200022220022222220000000222020022222222222222200020222020220202200  31    
2200000020002200000220202220002222222222                                231     
222022200022020020022000000002020020020020022200200020002000200020202002  32    
2200022020002000000220200220002022220222                                232     
222022220222000020022000000020000200020020002000202220002202220222200022  33    
2220022020002200000022202220002222220222                                233     
222022200022220022222220000020020022022222022200200020202000200000202200  34    
2200020002220022222200002220002022222202                                234     
222020200022220022222222000000020020020000022200002020002000200220202200  35    
2200000000220220022220202220002022222222                                235     
222222222022200022222222000020222002022002202220222202022222022220202200  36    
2200020002220222222200200002220202222202                                236     
222222200022220022222220000000222202022200002222000020002000200020202200  37    
2200000002220022222200002220002022222202                                237     
000202000200002200002000222002222020020022022200200022202000200022200202  38    
2200002002220022222200202220002222222222                                238     
222022000200002000002000022202022020000022222220200020202000200000202202  39    
2200000002220022222200202220002022222222                                239     
222222222022200022022222000020222022022202222222200022202000200220202200  40    
2200000002220022222200202220002022222202                                240     
022220202022200002222220000020222022022002022222200020202000200000202200  41    
2200020002220022222200002220002022222002                                241     
022022200022000022022200000022020022220020020000200022202000200002020022  42    
0022202202000002222202202220002022020220                                242     
000002000200002200020000222202020020220020020000222022222220200002020022  43    
0022202220002200000200202220002022220222                                243     
000002000200002200000000222202000200220020000000220022020000200002020022  44    
0022202220002200000002202002220022020220                                244     
000002020200002200020000222202020020220020020000220202222002220222020022  45    
0022222220002000000002202220002022020220                                245     
000002000200002200000000222202020020220020020000200020202000200002020022  46    
0022202220002000000002202220022022020220                                246     
000002000200002000020000222202020020220020020000200022202000200002020022  47    
0022222220002200000002222000220022020220                                247     
000002020200002000000000222202020220220020020000222202022020220222020022  48    
0022222220002000000002220002220222020220                                248     
000022020022200022020022000220220220220020220000222202020222222202020022  49    
0022202220002000000002200002220222020220                                249     
000002220200002000020000222202020222220020020000222202020222020222020022  50    
0022222220002200000002222002220222020220                                250     
000002020200002000020000222202220022220020020000222202020222022222020022  51    
0022222220002200000002202002220222020220                                251     
000000020220002000020020222222020222220000220000222202020222020222220022  52    
0222222020002200000202220002020222020220                                252     
200002200200002000002000222202000220020020020000200020202000200222000022  53    
0020222020002000000022200220002022220222                                253     
022020200022022022222020020002000020020020222200222220022222220222200022  54    
0202022020002000000022202220022022220222                                254     
222022200022220022222200000000200020000020222202222220020222220220200002  55    
0200022020002000000022202220002222222202                                255     
222020200022220020222220000000020202022200022220000220202000200220202200  56    
2200020002220022222200002220002022222202                                256     
222000200200020000222220022000020200022200022220000220022200200220202000  57    
2200020002220022222200202220002022222202                                257     
000002220200002200022020222202220220020020022222222220022202200220202202  58    
2200022002200022222200202220002022222202                                258     
000220202022022222222200002022222022020002022222200020222000200000202200  59    
2200200002220022222200000220002022222202                                259     
222222222022200022022222000020222022022202222222000020202000200020202200  60    
2220020002220022222200202220002022222222                                260     
222022222022200022022222000020222022022202022222002022002222200000202200  61    
2220000002220022222200202220002022222202                                261     
022222200022220022222220000020220022022202022222200022202000200220202200  62    
2200000002220022222200202220002022002222                                262     
222222202022202022222220000022222022022002222220200020202000200020202202  63    
2200000002220022222200202220002022222202                                263     
222020200022220022222000000020020022022200222222000020202000200002200202  64    
0200002202220022222200000220002022222202                                264     
222222222020202000222222000022220022002220222222020000002000200020202202  65    
2200220002000022222200200220002022222222                                265     
222222202022200022022220000000222222022002222220000020202000200020202202  66    
2200000002220022222200202220002022222202                                266     
022222222022200022022202000020222022022202222222002020202000220220202200  67    
2200020002220022222200002220002022222202                                267     
022022202022000020022000002022000200200020000000200022202000200000220002  68    
2222200000200000022200002220002022022220                                268     
000022020022002222020200000222000220220020020000220202222002220222220022  69    
0222222200200002200202202220022022020220                                269     
000002000200002200020000222002020020220022220000202222222000220222020022  70    
0022202220002000000002202220002222020220                                270     
000002000200002200000000222202020220220020020000202222202000200002020022  71    
0022202220002200000002202222022222020220                                271     
000002000000002200020000222202000220200020020000200020202000200002020022  72    
0022202220002200000002200220002022020220                                272     
000002000200002200020000222202020020220020020000200020202000200002020022  73    
0022202220002000000002222002020222020220                                273     
000022020200002200020000222222020022220020020000200020202000200002020022  74    
0022202220002002200000002220002022022220                                274     
000002000200002200000000222202020020200020020000220020222000200002020022  75    
0022202220002000000002200002220022020220                                275     
000002000200002000000200202222000222220020220000200022202000200002020022  76    
0022222220002000000002220002220022020220                                276     
000002000200002000020000222202200020200020020000222022222020200002020022  77    
0022222220002200000002202002220222020220                                277     
000002000200002000000000222202000220220020020000200020202000200002020022  78    
0022202220002200000002202220002022020220                                278     
022002000200002000020000222202000220220020020000200020202000200002020022  79    
0022202220002200000002200220002022020220                                279     
000002000200002200020000222002000222220020020000200020222000200002020022  80    
0022202220002000000202002220002022020220                                280     
000002000200002000020000222202000022220020020000200020202000200002020022  81    
0022222200200000022200202220022022020220                                281     
000002000200002000020000222202020020220020020000200022022000200002020022  82    
0022202220002200000202202220002022020220                                282     
000002000200002200020000222202020022220022220000202020202000200002020022  83    
0022202220000200022002202220002022020220                                283     
000000000000002200000000222202200202220200000000202220020222220222020022  84    
0022222220002200000002200020020222020220                                284     
000002000200002200000000222202220220220020020000202220220222220202020022  85    
0022202220002200000002200002220022020220                                285     
000002020220002000020000202202222020220022000000222202022222022222020022  86    
0022222220002200000002202002220222020220                                286     
000222220022000022002022000022022022220020002200222202222222022220020022  87    
2222000000200202202202220002220222020220                                287     
000202020202002000020000222202202020200022020000222202020222022222020002  88    
0022002000000220000022200002220222020220                                288     
