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]
46  COM E$[4],C$[7],N1,K1,M,R1,R2,V2,C2
50  REM:9JUN74
52  REM:GETTING RANDOM SUBCAMPLE OF Q(16) OF Q(8) FOR >ENRA
60  DIM W[16],H[1000],C[16],D$[12]
70  MAT H=ZER
80  MAT C=ZER
90  MAT W=ZER
95  H[1]=1
900  X[1,2]=RND(1)
1000  I9=2
1010  I8=1
1080  N0=1
1090  FOR I=2 TO Q[8]
1110  N0=N0+1
1120  H[N0]=I
1122  X[I,2]=RND(I)
1130  NEXT I
1530  GOSUB 6000
1640  N5=0
1650  FOR I=1 TO Q[16]
1670  N5=N5+1
1680  M[I,1]=X[H[N5],1]
1700  NEXT I
1702  MAT X=ZER[N5,2]
1704  FOR I=1 TO Q[16]
1706  X[I,1]=M[I,1]
1708  NEXT I
1710  GOTO 9908
6000  I=1
6001  M1=1
6003  J=N0
6005  IF I >= J THEN 6070
6010  K1=I
6011  I2=(J+I)/2
6012  T=H[I2]
6013  IF X[H[I],I9] <= X[T,I9] THEN 6020
6014  H[I2]=H[I]
6015  H[I]=T
6016  T=H[I2]
6020  L1=J
6021  IF X[H[J],I9] >= X[T,I9] THEN 6040
6022  H[I2]=H[J]
6023  H[J]=T
6024  T=H[I2]
6025  IF X[H[I],I9] <= X[T,I9] THEN 6040
6026  H[I2]=H[I]
6027  H[I]=T
6028  T=H[I2]
6029  GOTO 6040
6030  H[L1]=H[K1]
6031  H[K1]=T1
6040  L1=L1-1
6041  IF X[H[L1],I9]>X[T,I9] THEN 6040
6042  T1=H[L1]
6050  K1=K1+1
6051  IF X[H[K1],I9]<X[T,I9] THEN 6050
6052  IF K1 <= L1 THEN 6030
6053  IF (L1-I) <= (J-K1) THEN 6060
6054  W[M1]=I
6055  C[M1]=L1
6056  I=K1
6057  M1=M1+1
6058  GOTO 6080
6060  W[M1]=K1
6061  C[M1]=J
6062  J=L1
6063  M1=M1+1
6064  GOTO 6080
6070  M1=M1-1
6071  IF M1=0 THEN 6100
6072  I=W[M1]
6073  J=C[M1]
6080  IF (J-I) >= 11 THEN 6010
6082  IF I=1 THEN 6005
6083  I=I-1
6090  I=I+1
6091  IF I=J THEN 6070
6092  T=H[I+1]
6093  IF X[H[I],I9] <= X[T,I9] THEN 6090
6094  K1=I
6095  H[K1+1]=H[K1]
6096  K1=K1-1
6097  IF X[T,I9] <= X[H[K1],I9] THEN 6095
6098  H[K1+1]=T
6099  GOTO 6090
6100  RETURN 
9908  Z=Q[7]
9909  CHAIN "$IDA08B",Z
9998  CHAIN "$IDA",150
9999  END 
