Thanks guys I'm working on a utility that will print out an Array of Colors from the Bank that are not in any of the Other desiganated Bankslots. Running it with resarting RS a few times will give you a reliable list of color that can be used for CTS2 color finding procedures.
Code:
program new;
{$I srl/srl.scar}
var
II, III, Ending, Deleted: TIntegerArray;
Function DeleteInIntArray(Checked, Delete:Tintegerarray;var Cleared: TIntegerArray):TIntegerArray;
var
AAA, AA: TintegerArray;
I: integer;
begin
ClearSameIntegers(Checked);
ClearSameIntegers(Delete);
For I := 0 to High(Checked) do
If not InIntArray(Delete, Checked[i]) then
Begin
SetArrayLength(AAA, Length(AAA) + 1);
AAA[(Length(AAA) - 1)] := Checked[i];
end else
begin
SetArrayLength(AA, Length(AA) + 1);
AA[(Length(AA) - 1)] := Checked[i];
end;
Result := AAA;
Cleared := AA;
end;
begin
II := [11,22,33,44,55,66,77,88,99];
III := [22,44,66,88];
Ending := DeleteInIntArray(II, III, Deleted);
Writeln('Starting Array := ' + tostr(II));
Writeln('Sorting Array := ' + tostr(III));
Writeln('Deleted Array := ' + tostr(Deleted));
writeln('Remaining Array := ' + tostr(Ending));
end.
Here's the starting basis for it. I'll probably work on it more at the House(currently at work).
E: I Rep+ you both