For some reason, I just cannot get what type of logic you are doing.

So a number does not have a set thing to do? if the number is encountered a second time, it will do something else that the first time it was called?

code:

---

$array = "1 2 4 5 2 1 5 6 7 1 1"
$array = split($array," ")

;setting the event arrays
$1events = 	"Event #1 'a'",
		"Event #1 'b'",
		"Event #1 'c'",
		"Event #1 'd'",
		"Event #1 'e'"
$2events =	"Event #2 'a'",
		"Event #2 'b'",
		"Event #2 'c'",
		"Event #2 'd'",
		"Event #2 'e'"
$4events =	"Event #4 'a'",
		"Event #4 'b'",
		"Event #4 'c'",
		"Event #4 'd'",
		"Event #4 'e'"
$5events = 	"Event #5 'a'",
		"Event #5 'b'",
		"Event #5 'c'",
		"Event #5 'd'",
		"Event #5 'e'"
$6events =	"Event #6 'a'",
		"Event #6 'b'",
		"Event #6 'c'",
		"Event #6 'd'",
		"Event #6 'e'"
$7events =	"Event #7 'a'",
		"Event #7 'b'",
		"Event #7 'c'",
		"Event #7 'd'",
		"Event #7 'e'"

for each $number in $array
	$nul = execute("$$eventarray = $$"+$number+"events")
	$EAsize = ubound($eventarray)
	for $eventid = 0 to $easize
		if $eventarray[$eventid] <> ""
			;the first unused event for # had been found
			;this is where your would do your actions that are based
			;on the event.  All i am doing here is displaying the 
			;event information.
			? $eventarray[$eventid]
			
			
			$nul = execute("$$"+$number+"events["+$eventid+"] = ''")
			$eventid = $easize
		endif
	next
next

---

if you need help "understanding" the code let me know

with out knowing what the different events that you are wanting to do.... i just took a best guess.

Bryce

what are the number ranges? just add a $#event array for each # used.

what are the series of event actions that you want to happen for a given number?

Bryce

code:

---

break on
Dim $Array[10]
Dim $Unique[10]
$Array=Split("1 2 4 5 2 1 5 6 7 1")
For $X=0 to UBound($Array)
  ? "Element = "+$Array[$X]
  For $Y=0 to $X
    If $Array[$Y] = $Array[$X]
      $Unique[$X] = $Unique[$X]+1
      "Unique count = " + $Unique[$X]
    Endif
  Next
Next
get $_

---