Array Question:

[Archangel]

Hello,
I am trying to get a better understanding of arrays, and have written the code below. I "think"
it should output the letters "A" through "j" ;however, it outputs A - K. Anyone know why?

@ __config  _HS_OSC & _WDT_OFF & _PWRTE_ON & _LVP_OFF  & _BODEN_OFF
define OSC 20
include "modedefs.bas"
LETTERS VAR BYTE
String var byte[10]
serout PortB.6,T9600,[254,128,"Loop Check"]
pause 500
serout PortB.6,T9600,[$FE,1]
string[0]= "A"
string[1]= "B"
string[2]= "C"
string[3]= "D"
STRING[4]= "E"
STRING[5]= "F"
STRING[6]= "G"
STRING[7]= "H"
STRING[8]= "I"
STRING[9]= "J"

loop:
FOR letters = STRING[0] to STRING[9]

serout PortB.6,T9600,[254,128,"string is ",(LETTERS)]
pause 500
NEXT letters
goto loop

[Jerson]

 Your code
loop:
FOR letters = STRING[0] to STRING[9]

serout PortB.6,T9600,[254,128,"string is ",(LETTERS)]
pause 500
NEXT letters
goto loop

I think it should be done like this

for letters = 0 to 9
  serout PortB.6,T9600,[254,128,"string is ",(string[LETTERS])]
next

[Archangel]

Hi Jerson, That fixed it all right, still puzzels me as to why the 10 byte array held 11 though, the way I wrote it. . . Thank You, I will ponder this some more . . .
JS

[Bruce]

Hi Joe,

What version of PBP are you using?

Your first version should work just fine. FOR letters = STRING[0] to STRING[9] is essentially
the same as FOR letters = "A" to "J", which works the same.

This;

DEFINE OSC 20
INCLUDE "modedefs.bas"
LETTERS VAR BYTE
String VAR BYTE[10]
string[0]= "A"
string[1]= "B"
string[2]= "C"
string[3]= "D"
STRING[4]= "E"
STRING[5]= "F"
STRING[6]= "G"
STRING[7]= "H"
STRING[8]= "I"
STRING[9]= "J"

loop:
    FOR letters = STRING[0] to STRING[9]
     SEROUT PORTC.6,T9600,["string is ",(LETTERS),13,10]
     PAUSE 500
    NEXT letters
    GOTO loop

    END

Outputs this;

string is A
string is B
string is C
string is D
string is E
string is F
string is G
string is H
string is I
string is J
string is A
string is B
string is C
string is D, etc, etc,

[mackrackit]

But where was the "K" coming from???

I do not get a "K".

[mister_e]

loop:
    FOR letters = STRING[0] to STRING[9]
     SEROUT PORTC.6,T9600,["string is ",(LETTERS),13,10]
     PAUSE 500
    NEXT letters
    GOTO loop

I found it's a weird way... and a bit obscure...i would used

loop:
    FOR letters = 0 to 9
     SEROUT PORTC.6,T9600,["string is ",STRING[LETTERS],13,10]
     PAUSE 500
    NEXT letters
    GOTO loop

seems more valuable no?