INDEX  VAR BYTE
  PATT    VAR BYTE
DIRS =%1111111111111111
TOP:  INDEX = 0
     FOR INDEX = 0 TO 10            
     LOOKUP INDEX ,[1,2,4,8,9,12,15,5,3,7 ],PATT
     OUTA = PATT
     PAUSE 200
     NEXT 
    ' DEBUG CLS ,  "END "
     GOTO TOP