this is the addition to the main:

Code:
serin2 rfid,84,[WAIT($02),str BUF\10]
                                
Check_List:
  FOR tagNum = 1 to 3       ' scan through known tags
    FOR idx = 0 TO 9		' scan bytes in tag
    READ (((tagNum-1)*10) + idx), char	' get tag data from table
    IF (char <> buf(idx)) THEN Bad_Char		' compare tag to table
    NEXT
    GOsub Tag_Found			' all bytes match!

Bad_Char:					' try next tag
  NEXT
  
Bad_Tag:
  tagNum = 0
    FREQOUT porta.3, 1000 */ $100, 115 */ $100	' groan