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:13MAY74
52  REM;EXPLANATIONS FOR PRINT AND F-PRINT COMMANDS
100  DIM C$[12],E$[4]
200  IF Q[6]=25 THEN 1000
1000  PRINT "THE PRINT AND FORMAT-PRINT COMMANDS WILL PRINT OUT VALUES OF"
1010  PRINT "ELEMENTS IN THE IDA DATA MATRIX."
1020  PRINT 
1030  PRINT "IF YOU HAVE ENTERED N OBSERVATIONS ON K VARIABLES,"
1040  PRINT "THEIR VALUES ARE STORED"'10"IN THE FIRST N ROWS"'10"AND K COLUMNS"
1050  PRINT "OF THE IDA DATA MATRIX OF (N9+3) ROWS"'10"AND (K9+2) COLUMNS."
1070  PRINT "NORMALLY, IT CAN STORE A MAXIMUM OF N9 = 100 ROWS ";
1075  PRINT "AND (K9-1) = 19"
1080  PRINT "COLUMNS OF DATA.  (USING 'RDIM' YOU CAN INCREASE N9 IF YOU"
1090  PRINT "DECREASE K9.)"
1100  GOSUB 9020
1110  PRINT "THE PRINT COMMANDS--PRTF, PRTR, PRTO, PRTS, AND PRTV--"
1120  PRINT "PRINT ALL VALUES TO 5 DECIMALS.  THUS '5' WILL BE '5.00000',"
1130  PRINT "BUT '12345' WILL BE '12344.99989' BECAUSE THE COMPUTER DOES"
1140  PRINT "NOT CARRY AN EXACT REPRESENTATION OF '12345'."
1150  PRINT 
1160  PRINT "IF YOU USE THE FORMAT PRINT COMMANDS--FPRF, FPRR, FRPO, FPRS,"
1170  PRINT "AND FPRV--YOU MAY DESIGNATE A FORMAT WHICH HAS THE NUMBER OF"
1180  PRINT "DECIMALS YOU WANT.  E.G., A FORMAT OF:"
1190  PRINT " #,13D    WILL PRINT '5' AS '            5'"
1200  PRINT " #,8D.4D  WILL PRINT '5' AS '       5.0000'"
1205  PRINT "YOU SHOULD ALWAYS USE FPR- COMMANDS FOR NUMBERS LARGER THAN 99999."
1210  GOSUB 9020
1211  PRINT "IF YOU TYPE  ?  AFTER THE '* FORMAT = ' PROMPT, YOU WILL BE GIVEN"
1220  PRINT "FORMATS FOR 0, 1, 2, 3, 4, AND 5 DECIMAL PLACES."
1230  PRINT 
1240  PRINT "ALL VALUES ARE PRINTED WITH THE SAME FORMAT."
1250  PRINT "IF YOUR VARIABLES HAVE DIFFERENT NUMBERS OF SIGNIFICANT DECIMALS,"
1260  PRINT "YOU MAY USE DIFFERENT FORMATS WITH DIFFERENT GROUPS OF VARIABLES."
1270  PRINT 
1280  PRINT "ALL PRT- AND FPR-  COMMANDS NOW HAVE COLUMN TITLES TO INDICATE"
1290  PRINT "THE VARIABLE IN EACH COLUMN.  IF YOU HAVE GIVEN NAMES TO YOUR"
1300  PRINT "VARIABLES, THE TITLES WILL BE THOSE NAMES, AND 'FITTED' AND"
1310  PRINT "'RESIDU', IF APPROPRIATE.  OTHERWISE, THEY WILL BE"
1320  PRINT "'COL.1', 'COL.20', ETC."
1330  PRINT 
1340  PRINT "IF YOU DECLARE MORE THAN 5 COLUMNS, THE FIRST 5 WILL BE PRINTED"
1350  PRINT "IN THE FIRST TABLE, THE SECOND 5 IN A SECOND TABLE, ETC."
1360  PRINT 
1370  PRINT "WANT MORE INFORMATION ";
1380  GOSUB 9040
1400  PRINT 
1410  PRINT "'PRTS' AND 'FPRS' ARE THE MOST VERSATILE COMMANDS."
1420  PRINT 
1430  PRINT "THEY WILL PRINT A BLOCK OF CONSECUTIVE ROWS FROM THE FIRST"
1440  PRINT "ROW, I1, TO THE LAST ROW, I2, DESIGNATED BY YOU.  THE BLOCK"
1450  PRINT "MAY BE IN:"'10'13"1.  THE DATA BLOCK--1 TO N--OR"
1460  PRINT "2.  THE ROWS (N9+1) TO (N9+3), NORMALLY 101 TO 103."
1470  PRINT "    (N9+1) IS THE ROW OF 'MEANS' OF THE COLUMNS."
1490  PRINT "    (N9+2) IS THE ROW OF 'STANDARD DEVIATIONS' OF THE COLUMNS."
1500  PRINT "    (N9+3) IS FULL OF ZEROES IF YOU HAVE NOT USED 'DIFF' OR 'LAGG.'"
1510  PRINT "      IT SHOWS HOW MANY OF THE FIRST VALUES OF EACH COLUMN ARE"
1520  PRINT "      'NOT ASCERTAINED' BECAUSE OF THE USE OF 'DIFF' OR 'LAGG'."
1530  GOSUB 9020
1540  PRINT "USING 'PRTS' AND 'FPRS' YOU MAY CHOOSE:"
1550  PRINT "1.  NONCONSECUTIVE COLUMNS:  HAVING EXECUTED A REGRESSION, YOU"
1560  PRINT "    MAY PRINT 'FITTED' AND 'RESIDU', OR COLUMNS K9 AND K9+1,"
1570  PRINT "    (NORMALLY 20 AND 21) IN ADDITION TO DATA COLUMNS 1 TO K."
1580  PRINT "2.  CONSECUTIVE DATA COLUMNS:  TO PRINT ANY GROUP OF COLUMNS"
1590  PRINT "    WITHIN THE FIRST K COLUMNS OF THE DATA MATRIX--DESIGNATING"
1600  PRINT "    THE FIRST COLUMN, J1, AND THE LAST COLUMN, J2, OF THE GROUP."
1610  PRINT LIN(1)
1620  PRINT "'PRTF' AND 'FPRF' HAVE THREE OPTIONS:"
1630  PRINT "1.  PRINT ONLY THE 'FITTED' VALUES"
1640  PRINT "2.  PRINT A COLUMN, J, DESIGNATED BY YOU AND 'FITTED' AND 'RESIDU'."
1650  PRINT "3.  PRINT ONLY 'FITTED' AND 'RESIDU' BY DESIGNATING J AS 0."
1660  PRINT 
1670  PRINT "'PRTR' AND 'FPRR' PRINT THE 'RESIDUAL' VALUES."
1680  GOSUB 9020
1690  PRINT "'PRTV' AND 'FPRV' PRINT THE VALUES IN ANY DATA COLUMN--1 TO K--"
1700  PRINT "DESIGNATED BY YOU."
1710  PRINT 
1720  PRINT "'PRTO' AND 'FPRO' PRINT THE VALUES OF ALL DATA COLUMNS--1 TO K--"
1730  PRINT "FOR A ROW DESIGNATED BY YOU.  YOU CAN DO THE SAME WITH 'PRTS' OR"
1740  PRINT "'FPRS' BY ASSIGNING THAT ROW NUMBER TO I1 AND I2, 1 TO J1 AND THE"
1750  PRINT "VALUE OF K TO J2."
1760  PRINT 
1770  PRINT "'NAME' IS A USEFUL COMMAND TO QUICKLY FIND OUT WHAT COLUMNS"
1780  PRINT "DATA ARE IN AND, IF YOU HAVE EXECUTED A REGRESSION, THE COLUMN"
1790  PRINT "NUMBERS FOR 'FITTED' AND 'RESIDU'."
1800  PRINT 
1810  GOTO 9998
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 
9990  PRINT "TO USE "E$", REISSUE "E$
9998  CHAIN "$IDA",150
9999  END 
