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