#	3 times, sort the resulting gathers into 3-trace ensembles,
#	and repeat these ensembles 10 times.
#	However, 'endrep' terminates repeatitions of ensembles 
#	after 4 ensembles are generated
#-------------------------------------------------------------

*setup
noapp

*CALL	kgenr	5000	32	4	100	GAUS
EVENT   48      999     750.    -25.    1.      .05
EVENT   48      999     0.      25.     1.      .05     HYPERB
EVENT   48      999     500.    25.     1.      .05     HYPERB
EVENT   48      999     1000.   25.     1.      .05     HYPERB
EVENT   48      999     1500.   25.     1.      .05     HYPERB
EVENT   48      999     2000.   25.     1.      .05     HYPERB
EVENT   20      999     3000.   100.    -.7     .075    HYPERB
EVENT   48      999     4000.   25.     .7      .025
 
*repeat	trace	repeat	3

*call	sort
major	chan
minor	repeat

*repeat	ens	repens	10

*endrep
range	repens	5	10

*call	table	test.table
shot	chan	repeat	repens	lasttr