Use LOOKUP2.
Code:
INDEX VAR BYTE
MYVAR VAR WORD


MAIN:
    FOR INDEX = 0 TO 5   ' lookup 6 values 0 to 5
      LOOKUP2 INDEX,[2,354,9826,55,122,97],MYVAR
      GOSUB DOIT
    NEXT INDEX
MAIN2:
    GOTO MAIN2
    
DOIT:
   ' Do something here
   HSEROUT [DEC MYVAR,13,10]
   RETURN
   
   END