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]
50  REM:13JUN74
52  REM:EXPLANATIONS FOR ENTE,STAR,CRFI,ENRA,EOBR
100  DIM C$[12]
190  IF Q[6]=8 THEN 1000
210  IF Q[6]=23 THEN 3000
220  IF Q[6]=9 THEN 5000
1000  GOTO Q1 OF 1010,2000
1010  PRINT "'ENRA' WILL ENTER A SUBSAMPLE OF DATA FROM A RANDOM ACCESS DATA"
1020  PRINT "FILE IN THE IDA DATA MATRIX IF THE FILE CONTAINS"
1030  PRINT "  A DATA MATRIX OF N1 X K1 (A 'TABLE' OF N1 ROWS AND K1 COLUMNS),"
1040  PRINT "  WITH THE DATA FOR:"
1050  PRINT "    ROW 1 STARTING AT THE BEGINNING OF REC.# R1, AND"
1060  PRINT "    ROW I STARTING AT THE BEGINNING OF REC.# (R1+M X [I-1])."
1070  PRINT "        R1 = 1 OR 2  (PREFERABLY 2, WITH VALUES FOR N1 AND K1"
1080  PRINT "                      IN RECORD # 1)"
1090  PRINT "        M = THE # OF RECORDS REQUIRED TO STORE ONE ROW"
1100  GOSUB 9020
1110  PRINT "'ENRA' ALLOWS YOU TO DESIGNATE A SET OF COLUMNS (VARIABLES) K OF K1"
1120  PRINT "TO ENTER IN THE IDA DATA MATRIX."
1130  PRINT 
1140  PRINT "GIVEN THE CONSTRAINTS OF THE CURRENT IDA DIMENSIONS, YOU MAY:"
1150  PRINT "(1)  ENTER ALL N1 ROWS (OBSERVATIONS, INTERVIEWS, CASES, ETC.);"
1160  PRINT "(2)  ENTER A BLOCK OF ROWS DESIGNATED BY YOU; OR,"
1170  PRINT "(3)  ENTER THE FINAL SUBSAMPLE OF N ROWS (OBS.,...) RESULTING FROM"
1180  PRINT "     TAKING SUCCESSIVE SUBSAMPLES SELECTED;"
1190  PRINT "       PURPOSIVELY, ON THE BASIS OF THE VALUES OF A DESIGNATED COL."
1200  PRINT "       AND/OR RANDOMLY."
1210  GOSUB 9020
1220  PRINT "THE N ROW #'S (OBS.#'S) OF THE SUBSAMPLE ARE AUTOMATICALLY"
1230  PRINT "ENTERED IN COL.#(K+1) OF THE IDA DATA MATRIX IF THERE IS ROOM SO"
1240  PRINT "THAT YOU CAN USE THEM WITH 'EOBR' TO SELECT THE SAME OBS.#'S WITH"
1250  PRINT "OTHER SETS OF VARIABLES FROM THAT FILE.  (YOU COULD SAVE THEM AS"
1260  PRINT "A FILE CALLED, SAY, 'SAMP#1' WITH 'SAVF' FOR FUTURE USE WITH 'EOBR'."
1270  PRINT 
1280  PRINT "'ENRA' ALSO ALLOWS YOU TO CHECK THE CONTENTS OF YOUR FILE WITHOUT"
1290  PRINT "ENTERING IN THE IDA DATA MATRIX."
1300  GOSUB 9000
1305  PRINT 
1310  PRINT "   M=INT(.9999 + K1/128)"
1320  PRINT 
1330  PRINT "'ENRA' WILL ALSO AUTOMATICALLY ENTER THE NAMES OF THE VARIABLES"
1340  PRINT "(COLUMNS) AND THE # REPRESENTING MISSING VALUES, IF ANY, IF THESE"
1350  PRINT "ARE STORED IN THE FILE SUCH THAT:"
1360  PRINT 
1370  PRINT "(1)  THE RECORDS IMMEDIATELY FOLLOWING THE DATA EACH CONTAIN "
1380  PRINT "     SEVEN 60-CHARACTER-LONG STRINGS, EACH CONTAINING NAMES FOR"
1390  PRINT "     10 VARIABLES.  THE FIRST NAME RECORD, R2 = (R1+M X N1),"
1400  PRINT "     MUST CONTAIN 'NAMES:', FOLLOWED BY NAMES FOR THE FIRST 70"
1410  PRINT "     COLUMNS (VARIABLES)."
1420  PRINT "(2)  THE RECORD FOLLOWING THE NAME RECORD(S) CONTAINS TEXT "
1430  PRINT "     DESCRIBING THE FILE."
1440  PRINT "(3)  RECORD R3 = R2 + INT(1.9999 + K1/70) CONTAINS THE VALUES OF"
1450  PRINT "     P(61) AND P(62), WHERE:"
1460  PRINT "        P(61) = P(62) = 0 IF THERE ARE NO MISSING VALUES IN THE DATA"
1470  PRINT "        P(61)=1 AND P(62) = # REPRESENTING MISSING VALUES IF"
1475  PRINT "          THERE ARE ANY"
1480  PRINT 
1490  PRINT "IF YOU HAVE INITIALIZED AND FILLED IN YOUR RANDOM ACCESS FILE WITH"
1500  PRINT "THE IDA COMMAND 'CRFI', YOUR FILE WILL CONTAIN NAMES, TEXT, AND"
1510  PRINT "MISSING VALUE INFORMATION IN ADDITION TO N1,K1 AND THE DATA"
1520  PRINT "MATRIX."
1530  PRINT 
1540  GOTO 9990
2000  PRINT "'EOBR'--ENTER SELECTED OBSERVATIONS FROM A RANDOM ACCESS FILE--"
2010  PRINT "WILL ALLOW YOU TO ENTER DIFFERENT SETS OF VARIABLES FROM A"
2020  PRINT "SUBSAMPLE N OF N1 ROWS (OBSERVATIONS, INTERVIEWS, CASES,...) FROM"
2030  PRINT "A RANDOM ACCESS FILE, USING N OBSERVATION #'S LISTED IN AN IDA"
2040  PRINT "DATA COLUMN. THESE #'S MAY HAVE BEEN ENTERED IN THE COL. BY"
2050  PRINT "USE OF 'ENTE', 'INDX', OR 'ENRA' (WITH THAT SAME FILE.)"
2060  PRINT 
2070  GOTO 9990
3000  GOTO Q1 OF 4000,3010
3010  PRINT 
3030  PRINT "'STAR', OR START WITH ZEROS, IS USED FOR TIME-SERIES ANALYSIS"
3040  PRINT "WHEN IT IS REASONABLE TO SPECIFY ZERO MEAN OR WHEN THE SAMPLE"
3050  PRINT "MEAN HAS BEEN SUBTRACTED OFF FROM THE INDIVIDUAL VALUES."
3060  PRINT 
3070  PRINT "'STAR' WILL DEFINE A DATA MATRIX OF ZEROS IN THE FIRST N ROWS,"
3080  PRINT "THE FIRST K COLUMNS.  YOU WILL BE ASKED TO SPECIFY N AND K AND"
3090  PRINT "TO SUPPLY K NAMES."
3100  PRINT 
3110  PRINT "AFTER COMPLETION OF 'STAR', YOU MAY USE 'APPS' OR 'APPB' TO"
3120  PRINT "ADD A DATA MATRIX IN ROWS N+1 TO N1.  (N1 MAY NOT BE LARGER)"
3130  PRINT "THAN THE CURRENT MAXIMUM ROW DIMENSION FOR THE IDA DATA MATRIX.)"
3140  PRINT 
3150  PRINT "THEN YOU MAY USE 'LAGG' TO CREATE LAGGED VARIABLES WITH ZEROS"
3160  PRINT "FOR STARTING VALUES IN AN AUTOREGRESSION."
3170  PRINT 
3180  PRINT "REFERENCE: CH.12--CONVERSATIONAL STATISTICS--BY HARRY ROBERTS"
3185  PRINT 
3190  GOTO 9990
4000  PRINT 
4020  PRINT "'ENTE', OR ENTER, CAN BE USED TO ENTER DATA IN THE IDA DATA"
4030  PRINT "MATRIX DIRECTLY, BY KEYBOARD OR TAPE AT THE TERMINAL YOU ARE"
4040  PRINT "USING, OR FROM A FILE DESIGNATED BY YOU, IF THE DATA MATRIX FITS"
4045  PRINT "WITHIN THE DIMENSIONS OF THE IDA DATA MATRIX."
4047  PRINT "IF IT DOESN'T, USE 'ENTS' OR 'ENRA' FOR FILES."
4050  PRINT "AFTER THE NUMBER OF ROWS (OR OBSERVATIONS) AND THE NUMBER OF"
4060  PRINT "COLUMNS (OR VARIABLES) ARE READ FROM THE FILE OR DESIGNATED BY"
4070  PRINT "YOU, THE DATA IS ENTERED BY ROWS, STARTING WITH ROW 1 WITH"
4080  PRINT "K VARIABLES AND ENDING WITH ROW N WITH K VARIABLES."
4090  PRINT "ANY FILE CREATED IN IDA WITH THE 'SAVF' COMMAND WILL HAVE N AND"
4100  PRINT "K AS THE FIRST TWO ELEMENTS, FOLLOWED BY N X K VALUES AND,"
4110  PRINT "SOMETIMES, 'NAMES:', FOLLOWED BY K NAMES, AND  'TEXT:',"
4120  PRINT "FOLLOWED BY A DESCRIPTIVE TEXT."
4130  PRINT "'ENTE' WILL ENTER THESE NAMES AUTOMATICALLY, PRINT THEM OUT"
4140  PRINT "FOR YOU, AND ASK IF YOU WANT TO SUPPLY NEW ONES."
4150  PRINT "IF THERE ARE NO NAMES, 'ENTE' WILL ASK IF YOU WISH TO SUPPLY"
4160  PRINT "NAMES.  IT IS WISE TO USE NAMES FOR YOUR VARIABLES."
4165  PRINT 
4170  GOTO 9990
5000  E$="CRFI"
5010  PRINT 
5020  PRINT "'CRFI' WILL ALLOW YOU TO CREATE A LARGE RANDOM ACCESS FILE TO USE"
5030  PRINT "WITH 'ENRA'."
5040  PRINT "THE NUMBER OF VARIABLES CANNOT BE MORE THAN 128."
5050  GOSUB 9030
5060  PRINT "YOU MUST FIRST OPEN A FILE WITH 4 OR 5 MORE RECORDS THAN THE"
5070  PRINT "TOTAL NUMBER OF OBSERVATIONS YOU EXPECT TO HAVE."
5090  PRINT "AFTER YOU HAVE OPENED YOUR FILE, EXECUTE 'CRFI' AT PROMPT LEVEL"
5100  PRINT "1 TO OBTAIN ADDITIONAL HELP.  'CRFI' WILL FIRST INITIALIZE YOUR"
5115  PRINT "FILE TO CONTAIN TEMPORARY NAMES AND TEXT."
5120  PRINT "YOU THEN USE 'CRFI' SUBCOMMANDS TO PRINTOUT OR MODIFY"
5130  PRINT "OBSERVATIONS, NAMES, OR TEXT."
5135  PRINT 
5140  PRINT "AFTER YOU HAVE INITIALIZED YOUR FILE, TRY THE SUBCOMMANDS"
5145  PRINT "'SUBCOMMAND', 'PTEXT', AND 'PNAME' FIRST."
5150  PRINT 
5160  GOTO 9998
9000  PRINT "*  WANT MORE DETAILS ? ";
9010  GOTO 9040
9020  IF P[64]=0 OR P[64]>10 THEN 9180
9030  PRINT "* MORE ?";
9040  ENTER 255,Q8,C$
9050  PRINT 
9070  IF Q8>0 THEN 9130
9080  PRINT "PLEASE RESPOND:"
9090  PRINT "NO,"'10"FOLLOWED BY A CARRIAGE RETURN, ";
9100  PRINT "IF YOU DON'T WANT ANY MORE EXPLANATION"
9110  PRINT "WITH A CARRIAGE RETURN ONLY,"'10"IF YOU WANT MORE EXPLANATION"
9120  GOTO 9030
9130  IF C$="" THEN 9190
9132  IF C$[1,1]="Y" THEN 9190
9140  IF C$[1,1]="N" THEN 9998
9150  IF C$[1,1]="?" THEN 9080
9160  PRINT "INVALID RESPONSE."
9170  GOTO 9080
9180  PRINT 
9190  RETURN 
9990  PRINT "TO USE '";E$;"', REISSUE '";E$;"'."
9998  CHAIN "$IDA",150
9999  END 
