Составить программу определяющую содержится ли в запрашиваемом слове данная буква — QBasic(Бейсик)

INPUT "vvedite slovo ", a$
INPUT "vvedite bukvu ", b$
IF INSTR(a$, b$) <> 0 THEN PRINT "yes" ELSE PRINT "no"