k2Colours.k2k

code:

---

break on $=setascii("on") color w/n cls

$f=0 do
	$b=0 do
		$fc=substr("n  b  g  c  r  m  y  w  n+ b+ g+ c+ r+ m+ y+ w+ ",$f*3+1,3)
		$bc=substr("n  b  g  c  r  m  y  w  n+ b+ g+ c+ r+ m+ y+ w+ ",$b*3+1,3)
		$=execute("color $fc / $bc")

		if instr(@kix, "3")<>0
			substr($fc, 1, 2) "/" substr($bc, 1, 2)		; KiX 3.6x
		else
			if $f<10 "0" endif $f if $b<10 "0" endif $b	; KiX 2001
		endif

		$b=$b+1
	until $b=16
	?
	$f=$f+1
until $f=16

color w/n ? get$

---

Notice that I am using your array, but with 3 chars instead of 2... KiX2k has trouble with strings with even chars but this is being fixed. This is why your script fails. I got the same error with consoleless version too...

cj