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

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