code:

---

Break ON
Dim $, $c, $x
$= "&00FFFF"
for $x=2 to 6 step 2
	$rc = execute("$$c = &"+ substr($,$x,2))
	? $c
next


exit 0  

---