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:29APR74: >HELP
200  GOTO Q[7+Q[18]]-3 OF 1000,2000
1000  PRINT "DATA DISPLAY (PRINT) :"
1010  PRINT 
1020  PRINT "FILE   TO PRINTOUT ONE OR MORE ROWS OF A DATA MATRIX"
1030  PRINT "       STORED IN A FILE.  THIS ALLOWS YOU TO TAKE A"
1040  PRINT "       LOOK AT THE DATA BEFORE DECIDING WHETHER THAT'S"
1050  PRINT "       THE MATRIX YOU WANT TO ENTER"
1060  PRINT "FPRF   FORMATTED PRINT OF FITTED VALUES (IN REGRESSION)"
1070  PRINT "FPRO   FORMATTED PRINT OF AN OBSERVATION (VECTOR)"
1080  PRINT "FPRR   FORMATTED PRINT OF RESIDUALS (IN REGRESSION)"
1090  PRINT "FPRS   FORMATTED PRINT OF A SUBMATRIX"
1100  PRINT "FPRV   FORMATTED PRINT OF A VARIABLE (COLUMN)"
1110  PRINT "       IN THE ABOVE FIVE COMMANDS, THE USER WILL BE"
1120  PRINT "       ASKED TO SUPPLY THE FORMAT FOR PRINTING"
1130  PRINT "NAME   TO LIST THE NAMES OF THE VARIABLES (IF THE"
1140  PRINT "       USER SUPPLIED THEM).  TO BE USED WHEN YOU"
1150  PRINT "       HAVE FORGOTTEN WHICH VARIABLE IS IN WHICH "
1160  PRINT "       COLUMN OF THE DATA MATRIX.  IF NO NAME HAS"
1170  PRINT "       BEEN GIVEN TO THE VARIABLES, THE COMMAND WILL"
1180  PRINT "       CAUSE THE FIRST ACTIVE ROW OF THE DATA MATRIX"
1190  PRINT "       TO BE PRINTED"
1200  PRINT "PRTF   PRINT FITTED VALUES"
1210  PRINT "PRTO   PRINT OBSERVATION"
1220  PRINT "PRTR   PRINT RESIDUALS"
1230  PRINT "PRTS   PRINT SUBMATRIX"
1240  PRINT "PRTV   PRINT VARIABLE"
1250  PRINT 
1260  PRINT "THE COMMANDS BEGINNING WITH 'PRT' WILL AUTOMATICALLY"
1270  PRINT "GIVE VALUES IN THE FORM  DDDDD.DDDDD, UP TO FIVE"
1280  PRINT "VALUES PER LINE.  IF ANY OF YOUR DATA VALUES IS"
1290  PRINT "GREATER THAN 99999, YOU SHOULD USE THE CORRESPONDING"
1300  PRINT "'FPR' COMMANDS, SUPPLYING THE FORMAT YOU CHOOSE."
1310  PRINT "BECAUSE OF FLOATING POINT CONVERSION OF NUMBERS,"
1320  PRINT "YOU MAY GET GARBAGE FOR CERTAIN TRAILING DIGITS"
1330  PRINT "WHEN 'PRT' COMMANDS ARE USED.  FOR EXAMPLE, THE"
1340  PRINT "NUMBER 12345 IS PRINTED AS 12344.99989 BECAUSE THE"
1350  PRINT "MACHINE DOES NOT CARRY AN EXACT REPRESENTATION OF 12345."
1360  PRINT 
1370  PRINT "WHEN YOU GIVE A FORMAT FOR PRINT, THE SAME FORMAT MUST"
1380  PRINT "BE APPLIED TO ALL OF THE VARIABLES;  THAT IS, YOU DO"
1390  PRINT "NOT HAVE THE OPTION OF SPECIFYING DIFFERENT FORMATS"
1400  PRINT "FOR DIFFERENT VARIABLES AS CAN BE DONE IN 'FORTRAN'."
1410  PRINT "FOR EXAMPLE, IF A ROW OF DATA CONSISTS OF"
1420  PRINT "1.2, 2.3456, 3500"
1430  PRINT "THE 'FPR' COMMANDS WILL NOT ENABLE YOU TO PRINT IT AS"
1440  PRINT "  1.2    2.3456   3500."
1450  PRINT "IF YOU USE THE FORMAT  #,4D.4D,2X    YOU WILL GET:"
1460  PRINT "   1.2000     2.3456  3500.0000"
1470  PRINT "WHICH IS NOT MUCH DIFFERENT FROM THE FORMAT YOU WOULD"
1480  PRINT "HAVE OBTAINED BY 'PRT'.  THE 'FPR' COMMANDS ARE USEFUL"
1490  PRINT "WHEN ALL THE VARIABLES ARE ROUGHLY COMPARABLE IN"
1500  PRINT "MAGNITUDE, OR WHEN ALL THE DATA VALUES ARE INTEGERS."
1510  GOTO 9939
2000  PRINT "DATA DISPLAY (PLOT) :"
2010  PRINT 
2020  PRINT "FREQ   TABLE OF RELATIVE FREQUENCIES"
2030  PRINT "HIST   HISTOGRAM OF ABSOLUTE FREQUENCIES"
2040  PRINT "NORM   NORMAL PROBABILITY PLOT"
2050  PRINT "PLTS   TO PLOT A VARIABLE IN SEQUENCE"
2060  PRINT "RVSF   A TINY PLOT OF RESIDUALS VERSUS FITTED VALUES"
2070  PRINT "       FOR A QUICK LOOK.  FOR DETAILS, USE"
2080  PRINT "SCAT   TO SCATTER PLOT ANY VARIABLE VERSUS ANY OTHER."
2090  PRINT "       VARIABLES 'FITTED' AND 'RESIDU' ARE ALWAYS"
2100  PRINT "       AVAILABLE AFTER A REGRESSION"
9939  CHAIN "$IDAE39",2000
9998  CHAIN "$IDA",150
9999  END 
