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:3APR74
60  REM:Q1=1 FOR >PRTF;=2 FOR >PRTR;=3 FOR>PRTO;=5 FOR >PRTV
62  REM:Q1=6 FOR >FPRF;=7 FOR>FPRR;=8 FOR>FPRO;=10 FOR>FPRV
150  DIM A[22],F$[60],D$[6],G$[1]
200  GOTO Q1 OF 1060,1060,2200,9998,2000,1060,1060,2200,9998,2000
1060  I1=Q4
1070  I2=N9+2
1080  J1=J2=Q1+K9-1
1090  IF Q1=2 OR Q1=7 THEN 1160
1100  PRINT '10"WANT FITTED VALUES ONLY ";
1110  INPUT F$
1120  IF F$[1,1]#"N" THEN 1160
1130  PRINT "TO PRINT ONE COL. OF DATA PLUS"
1132  PRINT "'FITTED' AND 'RESIDUAL' VALUES, GIVE"
1150  GOTO 2010
1160  IF Q1 <= 5 THEN 1190
1170  J1=J2=Q1+K9-6
1190  N0=1
1200  MAT A=ZER[1]
1210  A[1]=J1
1220  GOTO 3770
2000  GOTO Q9 OF 2010,2010,2005
2005  PRINT "COLUMN :";
2006  GOTO 2020
2010  PRINT "* COLUMN OF DATA MATRIX TO BE PRINTED :";
2020  ENTER 30,Q8,J
2021  PRINT 
2030  IF Q8>0 THEN 2060
2040  PRINT  USING 2042;K
2042  IMAGE "DATA IN FIRST",X2DX,"COL(S). ONLY."
2045  PRINT 
2050  GOTO 2010
2060  IF J >= 1 AND J <= K THEN 2100
2062  IF Q1=1 OR Q1=6 THEN 2090
2070  IF J=0 THEN 9996
2080  GOTO 2040
2090  IF J<0 OR J>K THEN 2040
2092  N0=2
2094  MAT A=ZER[2]
2095  A[1]=K9
2096  A[2]=K9+1
2098  GOTO 3770
2100  I1=Q4
2110  I2=N9+2
2112  IF Q1=1 OR Q1=6 THEN 2122
2114  N0=1
2116  J1=J2=J
2118  MAT A=ZER[1]
2119  A[1]=J
2120  GOTO 3770
2122  MAT A=ZER[3]
2124  A[1]=J
2126  A[2]=K9
2128  A[3]=K9+1
2130  N0=3
2134  GOTO 3770
2200  GOTO Q9 OF 2230,2230,2210
2210  PRINT "ROW :";
2220  GOTO 2240
2230  PRINT "* ROW OF DATA MATRIX TO BE PRINTED :";
2240  ENTER 30,Q8,I
2241  PRINT 
2250  IF Q8>0 THEN 2280
2260  GOSUB 4300
2265  PRINT 
2270  GOTO 2230
2280  IF (I>N9) AND (I<N9+4) THEN 2300
2285  IF I>0 AND I <= N THEN 2300
2290  GOTO 2260
2300  I1=I2=I
2310  IF I1 >= Q4 THEN 2331
2315  PRINT "ROW"I1"UNDEFINED BECAUSE OF PRIOR USE OF 'DIFF' OR 'LAGG.'"
2316  GOTO 9996
2331  N0=K
2332  MAT A=ZER[N0]
2333  FOR I=1 TO N0
2334  A[I]=I
2335  NEXT I
2336  GOTO 3770
3000  IF Q1 <= 5 THEN 3150
3005  PRINT 
3010  GOTO Q9 OF 3020,3060,3080
3020  PRINT "* GIVE FORMAT FOR PRINTING AN OBSERVATION (ROW) : ";
3025  GOTO 3090
3030  PRINT 
3032  PRINT "IF YOU WANT:"
3033  PRINT "0 DECIMALS GIVE #,13D "'10'13"1 DECIMAL  GIVE #,11D.D"
3034  PRINT "2 DECIMALS GIVE #,10D.2D "'10'13"3 DECIMALS GIVE #,9D.3D"
3036  PRINT "4 DECIMALS GIVE #,8D.4D "'10'13"5 DECIMALS GIVE #,7D.5D"
3037  PRINT "OR IN EXPONENTIAL FORM,"'10"SOMETHING LIKE"'10"#,XSD.5DE"
3038  PRINT 
3040  PRINT "FORMAT MUST BE PRECEDED BY   #,"
3050  PRINT 
3060  PRINT "* FORMAT = ";
3070  GOTO 3090
3080  PRINT "* FMT = ";
3090  ENTER 60,Q8,F$
3091  PRINT 
3092  IF Q8>0 THEN 3096
3094  GOTO 3030
3096  IF F$[1,1]="?" THEN 3030
3098  IF F$[1,4]="HELP" THEN 3030
3100  IF F$[1,2]#"#," THEN 3040
3110  PRINT 
3150  RETURN 
3770  GOSUB 3000
3780  PRINT 
3790  IF Q1>5 THEN 3812
3800  F$="#,7D.5D"
3812  Z4=INT(N0/5)
3814  IF N0=5*Z4 THEN 3820
3816  Z4=Z4+1
3820  Z2=1
3822  Z3=5
3830  GOSUB 4100
3832  FOR I=I1 TO I2
3838  IF I<N+1 THEN 3880
3840  IF I<N9+1 THEN 3898
3842  GOTO (I-N9) OF 3844,3850,3856
3844  PRINT 
3845  PRINT "MEAN   ";
3846  GOTO 3886
3850  PRINT "S.DEV. ";
3852  GOTO 3886
3856  PRINT "#UNDEF.";
3858  GOTO 3886
3880  IF X[I,K9+2]=0 THEN 3896
3882  PRINT  USING 3884;I
3884  IMAGE #,"* ",DDD," *"
3886  FOR J=Z2 TO Z3 MIN N0
3888  PRINT  USING F$;X[I,A[J]]
3890  NEXT J
3892  PRINT 
3894  GOTO 3898
3896  PRINT "ROW"I"DELETED"
3898  NEXT I
3900  PRINT LIN(2)
3902  Z2=Z3+1
3904  Z3=5+Z3
3906  Z4=Z4-1
3908  IF Z4=0 THEN 9998
3910  GOTO 3830
4100  PRINT "  ROW  ";
4102  FOR J=Z2 TO Z3 MIN N0
4104  Z=A[J]
4112  IF A[J]>K AND A[J]<K9 THEN 4158
4120  IF A[J]#K9+2 THEN 4130
4122  D$="ALIVE?"
4124  GOTO 4152
4130  IF A[J]<K9 THEN 4140
4132  IF Q[2]#0 THEN 4150
4134  GOTO 4158
4140  IF Q3#1 THEN 4158
4150  GOSUB 4200
4152  PRINT  USING 4154;D$
4154  IMAGE #,7X6A
4156  GOTO 4162
4158  PRINT  USING 4160;A[J]
4160  IMAGE #,7X,"COL.",DD
4162  NEXT J
4164  PRINT LIN(1)
4166  RETURN 
4170  FOR J=Z2 TO Z3 MIN N0
4172  Z=Z[J]
4174  GOSUB 4210
4176  PRINT  USING 4154;D$
4178  NEXT J
4180  GOTO 4166
4200  IF Z>K9-1 THEN 4250
4210  IF Z>10 THEN 4240
4220  D$=M$[6*Z-5,6*Z]
4230  GOTO 4290
4240  D$=N$[6*Z-65,6*Z-60]
4245  GOTO 4290
4250  IF Z=K9+1 THEN 4270
4260  D$="FITTED"
4265  GOTO 4290
4270  D$="RESIDU"
4290  RETURN 
4300  PRINT "ACTIVE DATA IN ROWS"Q4"TO"N
4310  PRINT "MEANS OF COL(S). IN ROW"N9+1
4320  PRINT "STD.DEV(S). OF COL(S). IN ROW"N9+2
4325  PRINT "TRY AGAIN!"
4340  RETURN 
9996  PRINT "COMMAND NOT EXECUTED."
9998  CHAIN "$IDA",150
9999  END 
