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,>HELP OR > INFO
100  PRINT "* HOW MANY CATEGORIES ? ";
110  ENTER 5,Q8,N1
120  PRINT LIN(1)
130  IF Q8<0 THEN 200
140  IF N1>10 THEN 200
150  GOTO 345
200  PRINT "YOU CAN HAVE HELP ON ANY OR ALL OF THE FOLLOWING :"
210  PRINT 
220  PRINT " 1. GENERAL COMMENTS ABOUT IDA"
230  PRINT " 2. DATA DEFINITION"
240  PRINT " 3. DATA EDITING"
250  PRINT " 4. DATA DISPLAY (PRINT)"
260  PRINT " 5. DATA DISPLAY (PLOT)"
270  PRINT " 6. TRANSFORMATIONS"
280  PRINT " 7. SUMMARY STATISTICS"
290  PRINT " 8. ONE SAMPLE STATISTICS"
300  PRINT " 9. REGRESSION OR TIME-SERIES ANALYSIS"
310  PRINT "10. MISCELLANEOUS COMMANDS"
320  PRINT 
330  PRINT "HOW MANY OF THE ABOVE CATEGORIES DO YOU NEED HELP ";
340  INPUT N1
345  IF N1=0 THEN 9998
350  IF N1#10 THEN 410
360  FOR I=1 TO 10
370  Q[7+I]=I
380  NEXT I
390  GOTO 450
410  PRINT  USING 420;N1
420  IMAGE #,"WHICH ",DD," ?  GIVE NUMBERS, SEPARATED BY COMMAS : "
430  MAT  INPUT A[N1]
435  FOR I=1 TO N1
440  Q[7+I]=A[I]
445  NEXT I
450  Q[18]=1
455  Q[19]=N1
500  PRINT LIN(1)
510  I=Q[7+Q[18]]
520  GOTO I OF 1000,530,530,540,540,550,550,550,560,560
530  CHAIN "$IDAE40"
540  CHAIN "$IDAE41"
550  CHAIN "$IDAE42"
560  CHAIN "$IDAE43"
1000  PRINT "GENERAL COMMENTS :"
1005  PRINT 
1010  PRINT "1.  MAXIMUM SIZE OF DATA MATRIX IS NORMALLY 100 BY 19."
1012  PRINT "    COLUMNS OF THE DATA MATRIX ARE REFERRED TO AS"
1014  PRINT "    VARIABLES;  ROWS, OBSERVATIONS.  UNIVARIATE DATA"
1016  PRINT "    SHOULD BE STORED AS A COLUMN VECTOR."
1017  PRINT "    IF YOU HAVE MORE THAN 100 ROWS IN YOUR"
1018  PRINT "    MATRIX, YOU MAY RE-DIMEMSION THE SIZE"
1019  PRINT "    BY EXECUTING THE COMMAND 'RDIM'."
1020  PRINT "2.  COMMAND STRUCTURE :  THE SYSTEM PRINTS THE SYMBOL"
1030  PRINT "    '>' WHEN IT WAITS FOR THE USER TO TYPE A COMMAND"
1040  PRINT "    WORD FOR A TASK.  ONLY THE FIRST 4 CHARACTERS OF"
1050  PRINT "    A COMMAND WORD ARE CHECKED BY THE SYSTEM.  FOR"
1060  PRINT "    EXAMPLE, ONE OF THE COMMANDS AVAILABLE IS 'EXPLAIN'."
1070  PRINT "    THIS TASK WILL BE EXECUTED WHETHER THE USER TYPES"
1080  PRINT "    'EXPLAIN' OR ANY WORD THAT BEGINS WITH 'EXPL'."
1090  PRINT "    SOME COMMAND WORDS ARE CONTRACTIONS, SUCH AS 'PARC'"
1100  PRINT "    FOR THE COMPUTATION OF 'PARTIAL CORRELATIONS'.  TO"
1110  PRINT "    OBTAIN THE ENTIRE LIST OF VALID COMMAND WORDS, YOU"
1120  PRINT "    MAY ISSUE THE COMMAND 'LIST'."
1150  PRINT "3.  PROMPTS :  IN ALMOST ALL CASES, ONCE A COMMAND IS"
1160  PRINT "    ISSUED BY THE USER, IDA WILL NEED ADDITIONAL INFOR-"
1170  PRINT "    MATION BEFORE THE TASK CAN BE EXECUTED.  THE USER"
1180  PRINT "    WILL BE PROMPTED FOR THE INFORMATION.  IDA HAS THREE"
1190  PRINT "    LEVELS OF PROMPTS WHICH THE USER CAN CHOOSE DEPENDING"
1200  PRINT "    ON HIS FAMILIARITY WITH THE SYSTEM.  UNLESS OTHERWISE"
1210  PRINT "    INSTRUCTED BY THE COMMAND 'CHGP' (FOR CHANGING THE"
1220  PRINT "    LEVEL OF PROMPTS), IDA WILL GIVE 1ST LEVEL PROMPTS"
1230  PRINT "    WHICH ARE MEANT TO BE USED BY THE NOVICE -- THESE"
1240  PRINT "    PROMPTS ARE GENERALLY DETAILED AND LENGTHY.  2ND"
1250  PRINT "    LEVEL PROMPTS ARE MORE CONCISE AND ABBREVIATED, AND"
1260  PRINT "    3RD LEVEL PROMPTS ARE VERY BRIEF, POSSIBLY CRYPTIC."
1270  PRINT "    WHEN A PROMPT IS PRECEDED BY THE SYMBOL '*', THE USER"
1280  PRINT "    WILL AUTOMATICALLY OBTAIN FURTHER EXPLANATION IF HE"
1290  PRINT "    WAITS A CERTAIN AMOUNT OF TIME (USUALLY 30 SECONDS)"
1300  PRINT "    WITHOUT RESPONDING, OR IF HE TYPES ' ? ' OR ANY"
1310  PRINT "    ALPHAMERIC CHARACTERS WHEN NUMERIC INPUT IS CALLED"
1320  PRINT "    FOR."
1330  PRINT "4.  IDA HAS A NUMBER OF BUILT IN CHECKS FOR ERRORS IN"
1340  PRINT "    THE USER'S INPUT.  HOWEVER, ERRORS WILL OCCASIONALLY"
1350  PRINT "    CAUSE YOU TO BE KICKED OUT OF THE SYSTEM IDA.  ALSO"
1360  PRINT "    HITTING THE 'BREAK' KEY DURING EXECUTION WILL SURELY"
1370  PRINT "    GET YOU OUT OF IDA.  IN EITHER CASE, YOU CAN GET BACK"
1380  PRINT "    TO IDA (WITHOUT LOSING YOUR ACTIVE DATA) BY TYPING :"
1390  PRINT "    RUN-9998"
1400  PRINT "    AND YOU'LL BE BACK AT THE IDA COMMAND LEVEL AND CAN"
1410  PRINT "    PROCEED FROM WHERE YOU LEFT OFF."
1420  PRINT "5.  ACTIVE DATA :  WHEN YOU ENTER YOUR DATA MATRIX, IT"
1430  PRINT "    BECOMES ACTIVE.  ALL COMMANDS WILL REFER TO THIS"
1440  PRINT "    MATRIX.  WHEN YOU DELETE A ROW (BY 'DELO') OR A"
1450  PRINT "    BLOCK OF ROWS (BY 'DELB'), THE ROWS ARE NOT PHYSICALLY"
1460  PRINT "    DELETED.  THEY ONLY BECOME INACTIVE IN SUBSEQUENT"
1470  PRINT "    COMPUTATIONS UNLESS YOU RETRIEVE THEM LATER VIA"
1480  PRINT "    COMMANDS SUCH AS 'RECOUP' OR 'RETO' (RETRIEVE OBSER-"
1490  PRINT "    VATION).  IF YOU CHANGE A COLUMN OF YOUR ORIGINAL"
1500  PRINT "    DATA MATRIX BY TRANSFORMATION, YOU CANNOT RECOVER"
1510  PRINT "    THE ORIGINAL BY THE COMMAND 'RECOUP'.  YOU CAN DO"
1520  PRINT "    SO ONLY BY AN INVERSE TRANSFORMATION (IF ONE IS"
1530  PRINT "    AVAILABLE) OR BY RE-ENTERING THE ORIGINAL DATA MATRIX"
1540  PRINT "    FROM FILE.  IF YOU WANT TO RETAIN THE ORIGINAL COLUMN"
1541  PRINT "    IN THE FIRST PLACE, AT THE TIME OF TRANSFORMATION YOU"
1542  PRINT "    MUST PLACE THE TRANSFORMED COLUMN IN A DIFFERENT (FREE)"
1543  PRINT "    COLUMN OF THE DATA MATRIX."
1550  PRINT "6.  UPDATING :  AS SOON AS THE USER ENTERS HIS DATA,"
1560  PRINT "    IDA COMPUTES THE MEANS AND STANDARD DEVIATIONS OF"
1570  PRINT "    ALL THE VARIABLES.  AS THE USER EDITS HIS DATA MATRIX"
1580  PRINT "    OR MAKES TRANSFORMATIONS, THE MEANS AND STANDARD DEVI-"
1590  PRINT "    ATIONS ARE AUTOMATICALLY UPDATED.  TO SAVE COMPUTING"
1592  PRINT "    TIME THE CORRELATION MATRIX AND REGRESSION ARE NOT"
1594  PRINT "    UPDATED UNTIL NEEDED.  UPDATING OCCURS AUTOMATICALLY"
1596  PRINT "    IF 'FITTED' OR 'RESIDU' VALUES ARE CALLED FOR."
1610  PRINT "    THUS IF THE USER EXECUTES IN SUCCESSION THE FOLLOWING"
1620  PRINT "    COMMANDS : REGR, COEF, DELO, COEF, ..., THE FIRST"
1630  PRINT "    COMMAND DEFINES THE REGRESSION EQUATION, THE SECOND"
1640  PRINT "    COMPUTES AND PRINTS THE REGRESSION COEFFICIENTS, THE"
1650  PRINT "    THIRD DELETES A ROW (OBSERVATION VECTOR) TO BE SPECIFIED"
1660  PRINT "    BY THE USER, AND THE FOURTH WILL COMPUTE AND PRINT"
1670  PRINT "    THE NEW REGRESSION COEFFICIENTS, AND SO ON."
1680  PRINT "7.  FORMAT OF DATA FILES:  WHEN YOU USE THE COMMANDS"
1690  PRINT "         'FILE'  OR  'SAVF'"
1700  PRINT "    THE FOLLOWING FORMAT IS IMPLICITLY ASSUMED :"
1710  PRINT "    ELEMENTS OF THE DATA MATRIX ARE SEQUENTIALLY STORED"
1720  PRINT "    BY ROWS.  THE FIRST TWO ELEMENTS OF THE FILE"
1730  PRINT "    SPECIFIES THE SIZE OF THE DATA MATRIX.  THUS, IF"
1740  PRINT "    THE MATRIX CONSISTS OF"
1750  PRINT "    1.2   3.1"
1760  PRINT "    2.5   4.1"
1770  PRINT "    1.1   2.9"
1780  PRINT "    IT WILL BE SAVED (WHEN YOU EXECUTE 'SAVF') AS"
1790  PRINT "    3  2  1.2  3.1  2.5  4.1  1.1  2.9"
1800  PRINT "    BUT WHEN YOU ENTER DATA VIA 'ENTER', 'APPV', OR"
1810  PRINT "    'APPS', YOU MAY USE A FILE WITHOUT THE TWO LEADING"
1820  PRINT "    ELEMENTS DESCRIBED ABOVE;  THAT IS, THE FILE MAY"
1830  PRINT "    CONSIST OF DATA ALONE, STORED BY ROWS.  YOU WILL"
1840  PRINT "    BE PROMPTED FOR THE VALUES OF N AND K IN THAT CASE."
2000  Q[18]=Q[18]+1
2010  IF Q[18] <= Q[19] THEN 500
9998  CHAIN "$IDA",150
9999  END 
