' array reducing for a string
'
pindex 0

Dim txt() as zstring = "Hello World " + Chr(0) 
dim i as integer
 
For i = 0 to Len(txt)-2 ''Len(txt)-1 if pindex is not active
    
    p? txt(i) + Chr(txt(i))
Next

' output: hello world ello world llo world lo world o world 
' output: world orld rld ld d  