DEFINT A-Z
a = ASC(search$)
FOR i = 1 TO n
  IF a = ASC(array$(i)) THEN
     IF search$ = array$(i) THEN
       PRINT search$; " found at element"; i
       EXIT FOR
     END IF
  END IF
NEXT