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:11JUN74
52  GOTO (.4999+Q2/8) OF 54,56,58,60,62,64,66,98,98,98,98,98,99
53  GOTO ((.4999+Q2/8)-13) OF 99,99
54  GOTO Q2 OF 100,200,300,400,500,600,700,800
56  GOTO (Q2-8) OF 900,1000,1100,1200,1300,1400,1500,1600
58  GOTO (Q2-16) OF 1700,1800,1900,2000,2100,2200,2300,2400
60  GOTO (Q2-24) OF 2500,2600,2700,2800,2900,3000,3100,3200
62  GOTO (Q2-32) OF 3300,3400,3500,3600,3700,3800,3900,4000
64  GOTO (Q2-40) OF 4100,4200,4300,4400,4500,4600,4700,4800
66  GOTO (Q2-48) OF 4900,5000,5100,5200,5300,5400,5500,5600
96  PRINT "NO EXPLANATION YET. SORRY."
97  GOTO 9998
98  CHAIN "$IDAE22"
99  CHAIN "$IDAE23"
100  PRINT "ABSOLUTE VALUE TRANSFORMATION"
105  PRINT "----"
110  GOTO 9998
200  PRINT "ADD CONSTANT TO COLUMN OF DATA MATRIX"
205  PRINT "--- -"
210  PRINT "COLUMN(J) = COLUMN(I) + C ; I, J, C USER SPECIFIED"
215  GOTO 9998
300  PRINT "ADD VECTORS"
305  PRINT "--- -"
310  PRINT "COLUMN(K) = COLUMN(I) + COLUMN(J)"
315  PRINT "I, J, AND K ARE USER SPECIFIED"
320  GOTO 9998
400  PRINT "ALL SUBSETS OF INDEPENDENT VARIABLES WILL BE CONSIDERED"
405  PRINT "--- -"
410  PRINT "IN THE REGRESSION RUN.  THE NUMBER OF INDEPENDENT "
415  PRINT "VARIABLES CONSIDERED MUST BE 6 OR LESS"
420  GOTO 9998
500  PRINT "ANOVA (ANALYSIS OF VARIANCE) TABLE FOR CURRENT REGRESSION"
505  PRINT "----"
510  GOTO 9998
600  PRINT "APPEND AN OBSERVATION (ROW) VECTOR TO THE DATA MATRIX"
605  PRINT "---       -"
610  GOTO 9998
700  PRINT "APPEND A SUBMATRIX TO THE DATA MATRIX"
705  PRINT "---      -"
710  PRINT "THIS COMMAND MAY BE USED TO ADD SEVERAL"
715  PRINT "VARIABLES TO THE DATA MATRIX OR CHANGE A"
720  PRINT "BLOCK OF VALUES IN THE DATA MATRIX"
725  GOTO 9998
800  PRINT "APPEND A VARIABLE (COLUMN) VECTOR TO THE DATA MATRIX"
805  PRINT "---      -"
810  GOTO 9998
900  PRINT "AUTOCORRELATION COEFFICIENTS OF A VARIABLE (COLUMN)"
905  PRINT "----"
910  GOTO 9998
1000  PRINT "BACKWARD PROCEDURE IN STEPWISE REGRESSION"
1005  PRINT "----"
1010  GOTO 9998
1100  PRINT "B-COEFF CORR MATRIX"
1105  PRINT "-       ---"
1110  PRINT "B-COEFF ARE THE CURRENT REGRESSION COEFFICIENTS"
1115  GOTO 9998
1200  PRINT "B-COEFF COVARIANCE MATRIX"
1205  PRINT "-       ---"
1215  GOTO 1110
1300  PRINT "CHANGE A SINGLE OBSERVATION VALUE IN THE DATA MATRIX"
1305  PRINT "--  -           -"
1310  GOTO 9998
1400  PRINT "CHANGE THE LEVEL OF PROMPT"
1405  PRINT "--  -               -"
1410  PRINT "  1  = DETAILED PROMPTS, ELEMENTARY LEVEL"
1415  PRINT "  2  = ABBREVIATED PROMPTS, INTERMEDIATE LEVEL"
1420  PRINT "  3  = CRYPTIC PROMPTS, ADVANCED LEVEL"
1425  GOTO 9998
1500  PRINT "COEFFICIENTS AND THEIR STANDARD ERRORS AND"
1505  PRINT "----"
1510  PRINT "THE T VALUES IN THE CURRENT REGRESSION"
1515  GOTO 9998
1600  PRINT "CORRELATION MATRIX OF A SET OF VARIABLES"
1605  PRINT "----"
1610  PRINT "TO BE SPECIFIED BY THE USER.  WILL BE PROMPTED"
1615  GOTO 9998
1700  PRINT "COVARIANCE MATRIX OF VARIABLES"
1705  PRINT "----"
1710  GOTO 9998
1800  PRINT "DELETE A BLOCK OF ROWS OF DATA FROM THE DATA MATRIX"
1805  PRINT "---      -"
1810  PRINT "THESE CAN LATER BE RETRIEVED BY THE COMMAND 'RECOUP' OR 'RETB.'"
1815  GOTO 9998
1900  PRINT "DELETE AN OBSERVATION (ROW) VECTOR FROM THE DATA MATRIX"
1905  PRINT "---       -"
1910  PRINT "IT CAN LATER BE RETRIEVED BY THE COMMAND 'RETO,' 'RETB'"
1912  PRINT "OR 'RECOUP.'"
1920  GOTO 9998
2000  PRINT "DIFFERENCING TRANSFORMATION"
2005  PRINT "---- "'10"X(L,J) = X(L,I) - X(L-K,I) "'10'13"WHERE:"
2010  PRINT "K IS THE GAP FOR DIFFERENCING,"
2015  PRINT "L = K+1,... OF THE ACTIVE MATRIX,"
2020  PRINT "I IS THE VARIABLE TO BE TRANSFORMED, AND"
2025  PRINT "J IS THE COLUMN TO PLACE THE TRANSFORMED VARIABLE."
2027  PRINT "I,J,K AND L USER SPECIFIED."
2030  PRINT "THE FIRST K ROWS OF THE ACTIVE MATRIX BECOME UNAVAILABLE AND"
2035  PRINT "CANNOT BE RECOVERED FOR ANALYSIS BY 'RETO,' 'RECO' OR 'RETB.'"
2040  GOTO 9998
2100  PRINT "DOT PRODUCT OF TWO COLUMN VECTORS"
2105  PRINT "--- -"
2115  GOTO 4410
2200  PRINT "DURBIN-WATSON STATISTIC ON RESIDUALS"
2205  PRINT "----"
2210  GOTO 9998
2300  PRINT "ENLIGHT"
2305  PRINT "----"
2310  PRINT "WHEN REGRESSION MODEL AND DATA ARE RANDOMLY GENERATED"
2315  PRINT "USER CAN ASK FOR ENLIGHTMENT OF THE TRUE STATE OF"
2320  PRINT "THE PARAMETERS USED AFTER ANALYZING THE DATA"
2325  GOTO 9998
2400  PRINT "ENTER DATA FROM 'FILE' OR 'TERMINAL'"
2405  PRINT "----"
2410  GOTO 9998
2500  PRINT "EXPLAIN ANY OF THE AVAILABLE COMMAND WORDS"
2505  PRINT "----"
2510  GOTO 9998
2600  PRINT "EXPONENTIATION TRANSFORMATION OF VARIABLE (COLUMN)"
2605  PRINT "----"
2610  GOTO 9998
2700  PRINT "TO PRINT ONE OR MORE ROWS OF A DATA MATRIX FROM A"
2705  PRINT "FILE."
2707  PRINT "----  THIS ENABLES THE USER TO TAKE A LOOK AT THE DATA BEFORE"
2710  PRINT "      DECIDING IF THAT'S THE MATRIX HE WANTS TO ENTER."
2720  GOTO 9998
2800  PRINT "FORWARD PROCEDURE IN STEPWISE REGRESSION"
2805  PRINT "----"
2810  GOTO 9998
2900  PRINT "FORMATTED PRTF"
2905  PRINT "-         -- -"
2910  GOTO 9998
3000  PRINT "FORMATTED PRTO"
3005  PRINT "-         -- -"
3010  GOTO 9998
3100  PRINT "FORMATTED PRTR"
3105  PRINT "-         -- -"
3110  GOTO 9998
3200  PRINT "FORMATTED PRTS"
3205  PRINT "-         -- -"
3210  GOTO 9998
3300  PRINT "FORMATTED PRTV"
3305  PRINT "-         -- -"
3310  GOTO 9998
3400  PRINT "RELATIVE FREQUENCY TABLE OF A VARIABLE"
3405  PRINT "         ----"
3410  GOTO 9998
3500  PRINT "INFO WILL HELP THE USER TO FIND THE APPROPRIATE"
3505  PRINT "----      COMMAND WORDS FOR HIS TASKS"
3515  GOTO 9998
3600  PRINT "HISTOGRAM OF A VARIABLE (COLUMN OF DATA MATRIX)"
3605  PRINT "----"
3610  GOTO 9998
3700  PRINT "CREATE AN INDEX VECTOR IN DATA MATRIX (COLUMN)"
3705  PRINT "          --- -"
3710  GOTO 9998
3800  PRINT "LAGGING TRANSFORMATION"
3805  PRINT "---- "'10"X(L,J) = X(L-K,I) "'10'13"WHERE:"
3810  PRINT "K IS THE GAP FOR LAGGING,"
3815  GOTO 2015
3900  PRINT "LISTS ALL THE AVAILABLE COMMAND WORDS"
3905  PRINT "----"
3910  GOTO 9998
4000  PRINT "LOG (BASE E) TRANSFORMATION"
4005  PRINT "---       -"
4100  PRINT "LOG (BASE 10) TRANSFORMATION"
4105  PRINT "---       -"
4110  GOTO 9998
4200  PRINT "MEANS AND STANDARD DEVIATIONS OF VARIABLES"
4205  PRINT "----"
4210  GOTO 9998
4300  PRINT "MULTIPLY VARIABLE (COLUMN) BY A CONSTANT"
4305  PRINT "---                             -"
4310  PRINT "COLUMN(J) = COLUMN(I) * C ; I, J, C USER SPECIFIED"
4315  GOTO 9998
4400  PRINT "MULTIPLY VECTORS (COLUMNS OF DATA MATRIX)"
4405  PRINT "---      -"
4410  PRINT "COLUMN(K) = COLUMN(I) * COLUMN(J)"
4415  GOTO 315
4500  PRINT "NAMES OF VARIABLES"
4505  PRINT "----"
4510  GOTO 9998
4600  PRINT "NEWS ABOUT 'IDA', PRINTED IN REVERSE CHRONOLOGICAL"
4605  PRINT "----"
4610  PRINT "ORDER.  YOU MAY TERMINATE THE PRINTING OF OLD NEWS"
4615  PRINT "BY STRIKING THE 'BREAK' KEY, THEN 'RUN-9998' TO GET"
4620  PRINT "BACK TO THE COMMAND LEVEL OF IDA."
4625  GOTO 9998
4700  PRINT "NORMAL PROBABILITY PLOT OF VARIABLE (COLUMN)"
4705  PRINT "----"
4710  GOTO 9998
4800  PRINT "PARTIAL CORRELATION MATRIX OF A SET OF VARIABLES"
4805  PRINT "---     -"
4810  PRINT "GIVEN ANOTHER SET OF VARIABLES"
4815  GOTO 9998
4900  PRINT "PLOT CONFIDENCE BAND OF REGRESSION LINE"
4905  PRINT "-- - -"
4910  GOTO 9998
5000  PRINT "PLOT SEQUENCE, OR SUBSEQUENCE,"
5005  PRINT "-- - -"
5007  PRINT "OF RESIDUALS OR OTHER VARIABLE (COLUMN) SPECIFIED BY USER."
5010  GOTO 9998
5100  PRINT "POWER TRANSFORMATION:"
5105  PRINT "----"'10"  X(J) = X(I)^P "'10'13"I,J,P USER SPECIFIED."
5110  PRINT "P=2 SQUARE;  P=0.5 SQUARE ROOT; P=-1 RECIPROCAL;  ETC."
5115  GOTO 9998
5200  PRINT "PRINT FITTED VALUES OF CURRENT REGRESSION"
5205  PRINT "--  - -"
5210  GOTO 9998
5300  PRINT "PRINT OBSERVATION (ROW) VECTOR OF DATA MATRIX"
5305  PRINT "--  - -"
5310  GOTO 9998
5400  PRINT "PRINT RESIDUALS OF CURRENT REGRESSION"
5405  PRINT "--  - -"
5410  GOTO 9998
5500  PRINT "PRINT SUBMATRIX OF DATA MATRIX"
5505  PRINT "--  - -"
5510  PRINT "HAS OPTION TO PRINT NONCONSECUTIVE COLUMNS OF DATA MATRIX."
5515  PRINT "FITTED VALUES AND RESIDUALS OF CURRENT REGRESSION ARE"
5520  PRINT "NORMALLY IN COLUMNS 20 AND 21 RESPECTIVELY. BUT IF 'RDIM'"
5522  PRINT "IS USED TO DECLARE K AS MAXIMUM NO. OF DATA COLUMNS, THEY"
5524  PRINT "ARE COLUMNS K+1 AND K+2."
5525  GOTO 9998
5600  PRINT "PRINT VARIABLE (COLUMN) VECTOR OF DATA MATRIX"
5605  PRINT "--  - -"
5610  GOTO 9998
9998  CHAIN "$IDA",150
9999  END 
