Simple Array Demo

[Bruce]

Joe,

Did you know you can do this?

Dat VAR BYTE
Alphabet VAR BYTE[26]

Main:
    FOR Dat = "A" to "Z"
     Alphabet[Dat-65]=Dat ' load Alphabet array 0-25 with A-Z
     HSEROUT [Alphabet[Dat-65],13,10]
     PAUSE 50
    NEXT Dat
    PAUSE 5000
    GOTO Main
    
    END