If @LOGONMODE = '1' Break Off Else Break On EndIf
$=SetOption('WrapAtEOL','On')
$=SetOption('NoVarsInStrings','On')
$=SetOption('Explicit','On')

Dim $w,$x,$y,$z

$w='KiXscripting is fun!'

Dim $Array[Len($w)]

$x=Len($w)

  For $y=0 to $x
   $Array[$y]=SubStr($w,$y,1)
  Next

  For Each $z in $array
   ?$z
  Next

Sleep 0.75

Quit

$x='KiXscripting is fun!'
Dim $y[Len($x)]
For $z=0 to Ubound($y)
$y[$z]=SubStr($x,$z,1)
Next

$x='KiXscripting is fun!'
Dim $y[Len($x)-1]
Do
  $y[$z]=SubStr($x,$z+1,1)
  $z=$z+1
Until $z=Len($x)

$x='KiXscripting is fun!'
Dim $y[0^$x]
For $z=1 to 0^$x
  $y[$z]=SubStr($x,$z,1)
next

Quote:

---

^ Performs a bitwise mathematical XOR operation on two numbers.

---

Code:

---

 Dim $y[0^$x] 

---

What's going on here? Why does this equate to the length of the $x?

$x='KiXscripting is fun!'
Dim $y[(0^$x)-1]
For $z=0 to (0^$x)-1
  $y[$z]=SubStr($x,$z+1,1)
Next

$x='KiXscripting is fun!'
Dim $y[0^$x]
For $z=1 to 0^$x
  $y[$z]=SubStr($x,$z,1)
Next

$x='KiXscripting is fun!'
Dim $y[(0^$x)-1]
For $z=0 to (0^$x)-1
  $y[$z]=SubStr($x,$z+1,1)
Next

$='KiXscripting is fun!'
Dim $y[0^$]
For $z=0 to (0^$)-1
  $y[$z]=SubStr($,$z+1,1)
Next

Quote:

---

Now it has been 69ed:

---

$='KiXscripting is fun!'
Dim $y[(0^$)-1]
For $z=1 to 0^$
  $y[$z-1]=SubStr($,$z,1)
Next

;Lonkenized:
?"Start Lonkenized:"
$x='KiXscripting is fun!'
Dim $y[0^$x]
For $z=1 to 0^$x
  $y[$z]=SubStr($x,$z,1)
  ?$y[$z]
Next
?"Finish"
?"Total =:"+$z
Get $a
?
;Christallized:
?"Start Christallized:"
$x='KiXscripting is fun!'
Dim $y[(0^$x)-1]
For $z=0 to (0^$x)-1
  $y[$z]=SubStr($x,$z+1,1)
  ?$y[$z]
Next
?"Finish"
?"Total =:"+$z
Get $a
?
;Now it has been 69ed:
?"Start 69ed:"
$='KiXscripting is fun!'
Dim $y[0^$]
For $z=0 to (0^$)-1
  $y[$z]=SubStr($,$z+1,1)
  ?$y[$z]
Next
?"Finish"
?"Total =:"+$z
Get $a
?
;Now Richard:
?"Start Richard:"
$='KiXscripting is fun!'
Dim $y[(0^$)-1]
For $z=1 to 0^$
  $y[$z-1]=SubStr($,$z,1)
  ?$y[$z]
Next
?"Finish"
?"Total =:"+$z
Get $a

Quote:

---

Hi Richard,
good try but, i am sorry to say that yours is the only one that is truely broken.

---

It's a better try than you think as it is working correctly

I think that you are making the mistake of assuming that array subscripts start at 1 - they don't, they start at 0.

Here is the code again with the proof that I used to check the array before I posted it:
Code:

---

$='KiXscripting is fun!'
Dim $y[(0^$)-1]
For $z=1 to 0^$
  $y[$z-1]=SubStr($,$z,1)
Next
 
For Each $ in $y
	"'"+$+"'" ?
Next
 
Exit 0

---

Try the proof on your code and you will find an additional blank element.