N and V column

Column #120: You Can’t Touch That: Non-contact Access Control
The Nuts and Volts of BASIC Stamps (Volume 6) Page 79
IF char <> tag8 THEN Bad_Char
pntr = tagNum * 10 + 9 : READ pntr, char
IF char <> tag9 THEN Bad_Char
GOTO Tag_Found ' all match -- good tag
Bad_Char:
NEXT
Bad_Tag:
DEBUG "Unknown Tag", CR
SOUND Spkr, (25, 80) ' groan
PAUSE 1000
GOTO Main
Tag_Found:
DEBUG "Entry ", #tagNum, CR
HIGH Latch ' remove latch
SOUND Spkr, (114, 165) ' beep
LOW Latch ' restore latch
GOTO Main
END
' -----[ Subroutines ]-----------------------------------------------------