10  COM X[103,22],M[19,19],U[19,19],Q[20],V[20],P[78]
30  COM M$[60],N$[72]
40  COM N,K,N8,K8,N9,K9,Q9,Q7,Q5,Q4,Q3,Q2,Q1
45  COM I3,I4,U9,X$[20]
46  COM E$[4],C$[7],N1,K1,M,R1,R2,V2,C2
50  REM:12JUN74
60  REM: CHECKING CONTENTS OF C$, A RANDOM ACCESS FILE WITH:
62  REM    DATA MATRIX OF N1 ROWS AND K1 COLUMNS BEGINNING IN REC. # R1
64  REM    NAMES, IF ANY, BEGINNING IN REC. # R2
66  REM    EACH OBS. TAKING M RECORDS:
67  REM       OBS. 1 STARTING AT BEGGINNING OF R1, OBS.2 STARTING R1+M, ETC.
69  REM:  MISSING VALUES REPLACED BY P(62) IF P(61) = 1
150  DIM D$[60],A$[60],A[20]
155  DIM L[384]
160  FILES *
170  ASSIGN C$,1,Q8
175  IF  END #1 THEN 9994
180  GOSUB 8047
190  GOTO 9909
3559  REM****
3560  READ #1;D$
3565  FOR J=1 TO Y
3570  READ #1;D$
3580  NEXT J
3590  RETURN 
3599  REM****
8047  MAT L=ZER[K1]
8050  PRINT LIN(1);"NUMBER OF VAR(S). TO BE LISTED ";
8055  INPUT K3
8060  IF K3<21 THEN 8075
8065  PRINT "MUST GIVE NUMBER LESS THAN 21. TRY AGAIN."
8070  GOTO 8050
8075  MAT A=ZER[K3]
8080  PRINT 
8082  PRINT "GIVE";K3;"NUMBERS OF '";C$;"' VAR(S)., SEPARATED BY COMMAS,"
8085  PRINT "IN THE ORDER YOU WANT THEM LISTED."
8087  MAT  INPUT A
8090  IF R2#0 THEN 8100
8095  GOTO 8118
8100  PRINT 
8102  PRINT "THEY ARE:"
8103  PRINT "  '";C$;"'"
8104  PRINT "NUMBER NAME"
8105  PRINT 
8106  GOSUB 8280
8110  PRINT LIN(1);"WANT VALUES";
8112  INPUT D$
8114  IF D$[1,1]#"N" THEN 8118
8116  GOTO 8255
8118  PRINT 
8120  IF Q9<3 THEN 8124
8122  PRINT "FIRST ROW, LAST ROW = ";
8123  GOTO 8128
8124  PRINT "GIVE LOWEST AND HIGHEST NUMBERS OF ROWS YOU WANT"
8126  PRINT "LISTED, SEPARATED BY COMMAS:";
8128  INPUT L,U
8145  PRINT 
8147  PRINT "ROW"
8150  PRINT "NUMBER   VALUES OF '";C$"' COLUMNS"
8152  PRINT 
8155  FOR I=L TO U
8160  R=R1+M*(I-1)
8165  READ #1,R
8170  MAT  READ #1;L
8175  PRINT I;
8180  FOR J=1 TO K3
8185  Z=A[J]
8190  IF P[61]=0 THEN 8200
8195  IF L[Z]=P[62] THEN 8210
8200  PRINT L[Z];
8205  GOTO 8215
8210  PRINT " M    ";
8215  NEXT J
8220  PRINT 
8225  NEXT I
8230  IF P[61]=0 THEN 8240
8235  PRINT "VALUES OF";P[62];"REPLACED BY 'M' IN LISTING."
8240  PRINT LIN(1);"MORE ROWS OF THE SAME";K3;"COLUMNS";
8245  INPUT D$
8250  IF D$[1,1]="Y" THEN 8124
8255  PRINT LIN(1);"LIST OF DIFFERENT COLUMNS";
8260  INPUT D$
8265  IF D$[1,1]="N" THEN 8275
8270  GOTO 8050
8275  RETURN 
8276  REM: ****
8280  FOR I=1 TO K3
8285  Z=A[I]
8290  Y=INT(.9999+Z/10)
8295  X=Z-10*(Y-1)
8300  READ #1,R2
8305  GOSUB 3560
8310  A$=D$[6*X-5,6*X]
8315  PRINT  USING 8320;Z,A$
8320  IMAGE 2X3D,2X6A
8325  NEXT I
8330  RETURN 
9900  PRINT LIN(1);"'ENRA' CAN ONLY BE USED TO ENTER DATA IN THE IDA"
9902  PRINT "DATA MATRIX FROM OBSERVATIONS AND VARIABLES SELECTED"
9904  PRINT "FROM A RANDOM ACCESS FILE."
9907  GOTO 9996
9909  CHAIN "$IDA08A"
9994  PRINT "CHECK FILE CONTENTS."
9996  PRINT "'";E$;"' ABORTED."
9998  CHAIN "$IDA",150
9999  END 
