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:28APR74
52  REM:EXPLANATION FOR CRSP
100  DIM A$[12],C$[12]
110  DEF FNM()=-12*INT((-1)/12)
120  DEF FNY()=INT((-1)/12)+1926
1000  PRINT "YOU CAN CURRENTLY LOAD UP TO"N9"MONTHLY RETURNS ON"K9-1"SECURITIES"
1010  PRINT "FROM THE $CRSP- FILES INTO THE IDA DATA MATRIX BY USING THE IDA"
1020  PRINT "COMMAND 'CRSP.'"
1030  PRINT "YOU CAN THEN PRINT, PLOT, OR ANALYZE THESE DATA IN IDA."
1040  PRINT "YOU CAN ALSO ADD TO OR REPLACE COLUMNS OF DATA WITH CRSP- DATA"
1050  PRINT "BY USING 'CRSP' AGAIN."
1060  PRINT 
1070  PRINT "YOU NEED TO KNOW TWO 'HEADER NUMBERS' FOR EACH STOCK YOU WISH"
1080  PRINT "TO LOAD.  THESE HEADER NUMBERS ARE GIVEN IN THE 'CRSP DIRECTORY',"
1090  PRINT "ON FILE IN THE COMPUTER LAB, FOR EACH OF THE"Q[11]"STOCKS IN THE"
1100  PRINT "CRSP FILES AND FOR THE NYSE ARITHMETIC INDEX."
1110  GOSUB 8900
1120  PRINT "YOU WILL ALSO BE ASKED, IN SEQUENCE, IF YOU WISH TO LOAD $CRSPR"
1130  PRINT "DATA, $CRSPS DATA, AND FINALLY $CRSPP DATA.  YOU CAN ONLY CHOOSE"
1140  PRINT "ONE OF THESE FOR EACH EXECUTION OF 'CRSP.'"
1150  PRINT 
1155  GOTO 1240
1160  PRINT "YOU WILL BE ASKED THE STARTING (AND ENDING) MONTH AND YEAR"
1170  PRINT "YOU WISH TO USE FOR THE STOCK RETURNS OR PRICES YOU ARE ENTERING."
1180  GOSUB 9000
1190  PRINT "THE NYSE ARITH. INDEX AND SOME OF THE STOCKS HAVE PRICE DATA FOR"
1200  PRINT Q[9]"MONTHS FROM 1/1926 THROUGH ";
1202  PRINT  USING 1203;FNM(Q[9]),FNY(Q[9])
1203  IMAGE 2D,"/",4D
1204  PRINT "AND RETURNS DATA FROM 2/1926 FOR"Q[9]-1"MONTHS."
1210  PRINT "OTHER STOCKS HAVE DATA FOR SHORTER PERIODS, AND SOME HAVE"
1220  PRINT "MISSING MONTHLY PRICES IN THOSE PERIODS."
1230  PRINT 
1235  GOTO 1320
1240  PRINT "CRSPR DATA ARE MONTHLY RETURNS WITH DIVIDENDS REINVESTED."
1250  PRINT "CRSPS DATA ARE MONTHLY RETURNS WITHOUT DIVIDEND REINVESTMENT."
1260  PRINT "CRSPP DATA ARE MONTHLY PRICES OF THE"Q[11]"STOCKS PLUS THE"
1270  PRINT "NYSE ARITHMETIC INDEX."
1280  PRINT 
1285  GOTO 1160
1290  PRINT "IF YOU ANSWER 'YES' TO THE  '...CHECK...?'"
1295  PRINT "QUERY IN 'CRSP', YOU WILL BE GIVEN THE STARTING, ENDING,"
1300  PRINT "AND MISSING DATES FOR ANY STOCK IF YOU KNOW ITS"
1310  PRINT "HEADER NUMBERS."
1312  PRINT 
1313  PRINT "TO EXECUTE 'CRSP', REISSUE 'CRSP'."
1315  GOTO 9998
1320  PRINT "THE PROGRAM $LISCRS WILL GIVE YOU SOME INFORMATION ON NUMBERS"
1330  PRINT "IN THE CRSPH--OR CRSP HEADER--FILE."
1335  GOSUB 9000
1340  PRINT "TO GET YOU STARTED,"
1350  PRINT "HERE ARE 4 WITH THEIR HEADER NUMBERS:"
1360  PRINT "  1,1   NYSE ARITHMETIC INDEX"
1370  PRINT " 66,2   AT&T"
1380  PRINT "500,2   IBM"
1390  PRINT "291,2   DETROIT AND MACKINAC RAILWAY"
1392  PRINT 
1400  GOTO 1290
8900  PRINT "*  WANT MORE DETAILS ? ";
8910  GOTO 9010
9000  IF P[64]=0 OR P[64]>10 THEN 9135
9008  PRINT "* MORE ?";
9010  ENTER 255,Q8,C$
9020  PRINT 
9030  IF Q8>0 THEN 9085
9040  PRINT "PLEASE RESPOND:"
9042  PRINT "NO,"'10"FOLLOWED BY A CARRIAGE RETURN,";
9044  PRINT "   IF YOU DON'T WANT ANY MORE EXPLANATION"
9060  PRINT "WITH A CARRIAGE RETURN ONLY IF YOU WANT MORE EXPLANATION"
9070  GOTO 9008
9085  IF C$[1,1]="Y" THEN 9150
9086  IF C$="" THEN 9150
9090  IF C$[1,1]="N" THEN 1313
9110  IF C$[1,1]="?" THEN 9040
9120  PRINT "INVALID RESPONSE."
9130  GOTO 9040
9135  PRINT 
9150  RETURN 
9998  CHAIN "$IDA",150
9999  END 
