Program to find a character from a word
CLS
INPUT "Enter a String"; a$
INPUT "Which character you have to find from the given string"; b$
FOR i = 1 TO LEN(a$)
    c$ = MID$(a$, i, 1)
NEXT i
IF (c$ = b$) THEN
    PRINT "Character found", "("; c$; ")"
ELSE
    PRINT "Character doesn't not found"
END IF
END