10  COM X[103,22],M[20,20],U[20,20]
20  COM Q[20],V[20]
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  REM HEWLETT-PACKARD 36755B, 6/74
50  REM: VERSION 31MAY73
200  GOTO Q[7+Q[18]]-5 OF 1000,2000,3000
1000  PRINT "TRANSFORMATIONS :"
1010  PRINT 
1020  PRINT "ABSO   ABSOLUTE VALUE"
1030  PRINT "ADDC   ADD A CONSTANT TO A COLUMN"
1040  PRINT "ADDV   ADD TWO COLUMNS OF DATA MATRIX"
1050  PRINT "       NOTE THE DIFFERENCE OF TWO COLUMNS CAN"
1060  PRINT "       BE OBTAINED BY FIRST MULTIPLYING A COLUMN"
1070  PRINT "       BY -1 AND THEN ADDING TO ANOTHER COLUMN"
1080  PRINT "DIFF   DIFFERENCING TRANSFORMATION"
1090  PRINT "       LET J BE THE COLUMN TO PLACE THE TRANSFORMED"
1100  PRINT "       VARIABLE, I BE THE VARIABLE TO BE TRANSFORMED,"
1110  PRINT "       AND K BE THE GAP FOR DIFFERENCING.  THEN"
1120  PRINT "       X(L,J) = X(L,I) - X(L-K,I), L=K+1,..."
1122  PRINT "       THE FIRST K ROWS OF THE ACTIVE DATA MATRIX BECOME"
1123  PRINT "       INACTIVE IN THE PROCESS"
1130  PRINT "DOTP   DIRECT PRODUCT OF TWO COLUMNS"
1140  PRINT "EXPO   EXPONENTIAL TRANSFORMATION"
1150  PRINT "LAGG   LAG TRANSFORMATION X(L,J) = X(L-K,I), L=K+1,..."
1155  PRINT "       THE FIRST K ROWS OF THE ACTIVE DATA MATRIX BECOME"
1156  PRINT "       INACTIVE IN THE PROCESS"
1160  PRINT "LOGE   NATURAL LOG (LN) TRANSFORMATION"
1170  PRINT "LOG1   COMMON LOG (BASE 10) TRANSFORMATION"
1180  PRINT "MULC   MULTIPLY A COLUMN OF DATA MATRIX BY A CONSTANT"
1190  PRINT "MULV   MULTIPLY TWO COLUMNS OF DATA MATRIX"
1200  PRINT "POWE   POWER TRANSFORMATION.  NOTE VALUE OF POWER ="
1202  PRINT "       -1   FOR RECIPROCAL TRANSFORMATION"
1204  PRINT "       .5   FOR SQUARE ROOT TRANSFORMATION, ETC."
1210  PRINT "MSOR   SORTS ONE VARIABLE (COLUMN) IN ASCENDING ORDER"
1212  PRINT "       AND ALL OTHER COLUMNS ACCOMPANY IT. RESULTS"
1214  PRINT "       PLACED IN S"'28"AME COLUMNS"
1222  PRINT "PSOR   PAIRED SORT OF ONE VARIABLE (COLUMN) AND"
1223  PRINT "       ACCOMPANYING VARIABLE (COLUMN) INTO TWO"
1224  PRINT "       OTHER COLUMNS"
1225  PRINT "RANK   ASSIGNS RANKS TO THE OBSERVATIONS (ROWS) OF A"
1226  PRINT "       VARIABLE (COLUMN) AND PLACES THE RANKS IN ANOTHER"
1227  PRINT "       COLUMN"
1230  PRINT "SORT   SORTS THE VALUES OF ONE VARIABLE (COLUMN) INTO"
1231  PRINT "       ASCENDING ORDER AND PLACES RESULTS IN ANOTHER"
1232  PRINT "       COLUMN"
1233  PRINT "STAN   STANDARDIZATION TRANSFORMATION--SUBTRACT MEAN"
1240  PRINT "       FROM EACH OBSERVATION, DIVIDE THE DEVIATION BY"
1250  PRINT "       THE STANDARD DEVIATION"
1500  GOTO 9000
2000  PRINT "SUMMARY STATISTICS :"
2010  PRINT 
2020  PRINT "CORR   CORRELATION MATRIX OF VARIABLES"
2030  PRINT "COVA   COVARIANCE MATRIX OF VARIABLES"
2040  PRINT "MEAN   MEANS AND STANDARD DEVIATIONS OF VARIABLES"
2050  PRINT "PARC   PARTIAL CORRELATION MATRIX OF ONE SET OF"
2060  PRINT "       VARIABLES GIVEN ANOTHER SET OF VARIABLES"
2500  GOTO 9000
3000  PRINT "ONE SAMPLE STATISTICS :"
3010  PRINT 
3020  PRINT "AUTO   AUTOCORRELATION (BOX-JENKINS ESTIMATES)"
3025  PRINT "DURB   DURBIN-WATSON STATISTIC (FOR RESIDUALS ONLY)"
3030  PRINT "RUNS   EXPECTED AND OBSERVED NUMBER OF RUNS ABOVE"
3040  PRINT "       AND BELOW THE MEAN.  NORMAL APPROXIMATION"
3050  PRINT "SERC   SERIAL CORRELATION (MAXIMUM LIKELIHOOD"
3060  PRINT "       ESTIMATE OF AUTOCORRELATION)"
9000  CHAIN "$IDA39",2000
9998  CHAIN "$IDA",150
9999  END 
