Дан текст. Выяснить, является ли этот текст десятичной записью целого числа — QBasic(Бейсик)

INPUT " Vv. Put k File: ", n$
OPEN n$ FOR INPUT AS #1
LINE INPUT #1, S$
PRINT " S= "; S$
CLOSE
FOR i = 1 TO LEN(S$)
    IF MID$(S$, i, 1) < "0" OR MID$(S$, i, 1) > "9" THEN f = 1
NEXT
OPEN "output.txt" FOR OUTPUT AS #2
IF f = 0 THEN PRINT #2, "yes": PRINT "yes" ELSE PRINT #2, "no": PRINT "no"
CLOSE