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:13JUN74
54  REM:>INDX
150  DIM C$[7],D$[12],E$[4],A[19]
165  Q[6]=49
4500  E$="INDX"
4502  IF Q[1]#0 THEN 4572
4510  PRINT "HOW MANY INDEX NUMBERS DO YOU WANT IN COL.1 ";
4520  INPUT X
4530  IF X <= N9 AND X=INT(X) THEN 4550
4535  PRINT "IDA DIM. ARE";N9;"X";K9-1
4540  GOTO 9996
4550  N=X
4560  J=K=1
4562  Q4=1
4564  FOR I=1 TO N
4566  X[I,K9+2]=1
4568  NEXT I
4570  GOTO 4660
4572  Z4=(K+1) MIN (K9-1)
4574  IF K<K9-1 THEN 4578
4576  PRINT  USING 8008;E$
4578  PRINT 
4580  GOTO Q9 OF 4590,4590,4610
4590  PRINT "COLUMN TO PLACE INDEX VARIABLE = ";
4600  GOTO 4620
4610  PRINT "COLUMN = ";
4620  INPUT J
4622  IF J=0 THEN 9996
4623  IF J>K THEN 4625
4624  PRINT  USING 8008;E$
4625  IF J>.9 AND J<(Z4+.1) THEN 4660
4630  IF J<K+2 THEN 4660
4640  PRINT  USING 8010;Z4
4645  PRINT  USING 8012
4650  GOTO 4610
4660  GOTO Q9 OF 4670,4670,4720
4670  PRINT "VALUE OF 1ST INDEX = ";
4680  INPUT I1
4690  PRINT "INCREMENT = ";
4700  INPUT I2
4710  GOTO 4740
4720  PRINT "INDX(1), DELTA = ";
4730  INPUT I1,I2
4740  J0=-I2
4742  IF Q4=1 THEN 4780
4744  Z=X[N9+3,J]+1
4746  IF Z<Q4 THEN 4750
4747  PRINT "PUTTING INDEX IN COL."J"CHANGES NUMBER OF UNDEFINED ROWS."
4748  PRINT "WARNING ONLY!"
4750  FOR I=1 TO Q4-1
4760  X[I,J]=0
4770  NEXT I
4780  FOR I=Q4 TO N
4790  IF X[I,K9+2]#0 THEN 4820
4800  X[I,J]=0
4810  GOTO 4840
4820  J0=J0+I2
4830  X[I,J]=I1+J0
4840  NEXT I
4860  I3=I4=J
4870  X[N9+3,J]=Q4-1
4880  Q[8]=Q[6]
4890  GOTO 9911
8008  IMAGE "USE OF ",4A," WILL ERASE PART OF CURRENT DATA.  WARNING ONLY!"
8010  IMAGE "NUMBER SHOULD BE ",3D," OR LESS"
8012  IMAGE "BUT NOT LESS THAN ",3D
8020  IMAGE "FIRST NUMBER CANNOT BE LARGER THAN LAST."
9911  REM:GOTO IDA912 FOR UPDATING MEANS AND STD.DEV(S).
9912  CHAIN "$IDA912"
9996  PRINT "'";E$;"' NOT EXECUTED"
9998  CHAIN "$IDA",150
9999  END 
