Creating String Arrays in PicBASIC

DEFINE OSC 4

scheme VAR word[10]
name VAR WORD[10]
i var byte
set var bit
bck var bit
fwd var bit

scheme[0] = "<    STANDARD E    >" : scheme[1] = "<    STANDARD Eb   >"
name[0]   = "  E  A  D  G  B  E  " : name[1]   = "  Eb Ab Db Gb Bb Eb "
scheme[2] = "<    STANDARD D    >" : scheme[3] = "<    STANDARD Db   >"
name[2]   = "  D  G  C  F  A  D  " : name[3]   = "  Db Gb B  E  Ab Db "
scheme[4] = "<    STANDARD C    >" : scheme[5] = "<    DROPPED D     >"
name[4]   = "  C  F  Bb Eb G  C  " : name[5]   = "  D  A  D  G  B  E  "
scheme[6] = "<    DROPPED Db    >" : scheme[7] = "<    DROPPED C     >" 
name[6]   = "  Db Ab Db Gb Bb Eb " : name[7]   = "  C  G  C  F  A  D  "
scheme[8] = "<    DROPPED B     >" : scheme[9] = "<      MANUAL      >"
name[8]   = "  B  Gb B  Fb Ab Db " : name[9]   = ""
 
pause 500

i = 0

menu:   lcdout $fe, 1,#scheme[i]
        LCDOUT $fe, $c0, #name[i]
poll:   if set = 0 then 
            I = 0
            goto tuning
        ENDIF
        IF bck = 0 then
            if i > 0 then i = i - 1
            else i = 9
            goto menu
        endif
        if fwd = 0 then
            if i < 9 then i = i + 1
            else i = 0
            GOTo menu
        endif
        goto poll