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]
50  REM:14JUN74
60  REM: PART OF >HELP OR >INFO
100  DIM C$[12]
200  GOTO Q[7+Q[18]] OF 1000,1000,2000
1000  PRINT "DATA DEFINITION :"
1010  PRINT 
1020  PRINT "CRSP   TO ENTER DATA, OR APPEND OR REPLACE A COLUMN WITH"
1030  PRINT "       DATA, FROM ONE OF THE $CRSP FILES"
1040  PRINT "ENTE   TO ENTER DATA FROM FILE, TAPE, OR TERMINAL"
1050  PRINT "ENTS   TO ENTER SELECTED DATA FROM A SERIAL DATA FILE"
1060  PRINT "ENRA   TO ENTER SELECTED DATA FROM A RANDOM ACCESS FILE"
1070  PRINT "EOBR   TO ENTER SELECTED DATA FROM A RANDOM ACCESS FILE"
1080  PRINT "       USING A LIST OF OBSERVATION NUMBERS IN AN IDA"
1090  PRINT "       DATA COLUMN"
1100  PRINT "EOBS   TO ENTER SELECTED DATA FROM A SERIAL DATA FILE"
1110  PRINT "       USING A LIST OF OBSERVATION NUMBERS IN AN IDA"
1120  PRINT "       DATA COLUMN"
1130  PRINT "INDX   TO CREATE AN INDEX VECTOR (SUCH AS 1,2,...,N)"
1140  PRINT "       IN A COLUMN OF THE DATA MATRIX. USEFUL FOR KEEP-"
1150  PRINT "       TRACK OF ORIGINAL ORDER IF 'MSOR' IS USED."
1160  PRINT "RAND   TO GENERATE RANDOM DATA FROM SOME MODEL AND ENTER"
1170  PRINT "       IT IN ONE COLUMN OF THE DATA MATRIX"
1180  PRINT "STAR   TO DEFINE AN INITIAL DATA MATRIX OF ZEROES."
1190  GOSUB 9020
1200  PRINT "SAVF   TO SAVE DATA MATRIX ON FILE TO BE USED LATER (NOTE:"
1210  PRINT "       FILE MUST HAVE BEEN OPENED ALREADY)"
1220  PRINT "SAVR   TO SAVE THE RESIDUALS FROM THE CURRENT REGRESSION"
1230  PRINT "       IN A COLUMN OF THE DATA MATRIX"
1500  GOTO 9939
2000  PRINT "DATA EDITING :"
2010  PRINT 
2012  PRINT "APPB   TO APPEND A BLOCK OF ROWS TO THE DATA MATRIX FROM"
2014  PRINT "       A DATA FILE OR DIRECTLY FROM THE TERMINAL"
2020  PRINT "APPO   TO APPEND AN OBSERVATION VECTOR TO THE DATA"
2030  PRINT "       MATRIX.  YOU MAY USE THIS TO ADD A ROW TO THE"
2040  PRINT "       EXISTING DATA MATRIX OR TO CHANGE A ROW IN IT"
2050  PRINT "APPS   TO APPEND A SUBMATRIX TO OR CHANGE A SUBMATRIX IN"
2060  PRINT "       THE DATA MATRIX OR THE SCRATCH PAD, DIRECTLY FROM THE"
2062  PRINT "       TERMINAL OR USING A DATA FILE."
2070  PRINT "APPV   TO APPEND A VARIABLE (COLUMN) TO OR REPLACE A"
2072  PRINT "       COLUMN IN THE DATA MATRIX"
2080  PRINT "CHGO   TO CHANGE THE VALUE OF A SINGLE ENTRY IN THE"
2090  PRINT "       DATA MATRIX"
2092  GOSUB 9020
2100  PRINT "DELB   TO DELETE A BLOCK OF OBSERVATIONS FROM THE"
2110  PRINT "       DATA MATRIX.  YOU CAN RECOVER THE DELETED BLOCK"
2120  PRINT "       BY THE COMMAND 'RETB' OR 'RECO'"
2130  PRINT "DELO   TO DELETE AN OBSERVATION VECTOR FROM THE DATA"
2132  PRINT "       MATRIX.  DELETED VECTOR CAN BE RETRIEVED BY"
2134  PRINT "       'RETO' OR 'RECO'"
2140  PRINT "DELV   TO DELETE A VARIABLE (COL.) VECTOR FROM THE DATA"
2142  PRINT "       MATRIX.  DELETED VECTOR CANNOT BE RETRIEVED. (USE"
2144  PRINT "       'SAVF' OR 'MOVE' IF YOU WISH TO USE IT LATER.)"
2150  PRINT "SELR   TO DELETE ROWS FOR WHICH VALUES IN A SPECIFIED"
2152  PRINT "       COL.J ARE OUTSIDE A SPECIFIED RANGE OF VALUES."
2154  PRINT 
2160  PRINT "RECO   TO RECOUP ALL THE DELETED OBSERVATIONS"
2170  PRINT "RETB   TO RETRIEVE A BLOCK OF DELETED OBSERVATIONS"
2180  PRINT "RETO   TO RETRIEVE A DELETED ROW OF OBSERVATIONS"
2182  GOSUB 9020
2184  PRINT "NOTE: YOU CANNOT RETRIEVE A ROW MADE INACTIVE BY THE"
2186  PRINT "USE OF 'DIFF' OR 'LAGG' UNLESS YOU REPLACE THE COLUMN"
2188  PRINT "WITH ANOTHER VARIABLE WITH NO DIFF. OR LAG."
2190  GOSUB 9020
2200  PRINT "MOVE    TO MOVE A DATA COL. TO THE SCRATCH PAD OR A SCRATCH COL."
2210  PRINT "        TO THE DATA MATRIX"
2220  PRINT "MSOR   SORTS ONE VARIABLE (COLUMN) IN ASCENDING ORDER"
2230  PRINT "       AND ALL OTHER COLUMNS ACCOMPANY IT. RESULTS"
2240  PRINT "       PLACED IN S"'28"AME COLUMNS"
2250  PRINT "PSOR   PAIRED SORT OF ONE VARIABLE (COLUMN) AND"
2260  PRINT "       ACCOMPANYING VARIABLE (COLUMN) INTO TWO"
2270  PRINT "       OTHER COLUMNS"
2280  PRINT "SORT   SORTS THE VALUES OF ONE VARIABLE (COLUMN) INTO"
2290  PRINT "       ASCENDING ORDER AND PLACES RESULTS IN ANOTHER"
2300  PRINT "       COLUMN"
2310  GOTO 9939
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 
9939  CHAIN "$IDAE39",2000
9998  CHAIN "$IDA",150
9999  END 
