Определить для строки a$ является ли она симметричной — QBasic(Бейсик)

INPUT a$
FOR i=1 TO LEN(a$)\2
IF MID$(a$,i,1)<>mid$(a$,LEN(a$)-i+1,1) THEN f=1
NEXT
PRINT a$
IF f=0 THEN PRINT"yes"ELSE PRINT"no"