Работа с файлами: Чтение и запись - QBasic

CLS
INPUT "Vvedite imya faila "; s$
INPUT "n="; n
INPUT "m="; m
IF m < n THEN PRINT "Oshibka vvoda": END
i = 1
OPEN s$ FOR OUTPUT AS #1
DO WHILE (i <= 10)
 PRINT "Vvedite chislo nomer#"; i
 INPUT a
 IF (a >= n) AND (a <= m) THEN
  PRINT #1, a
  i = i + 1
 ELSE PRINT "Oshibka vvoda"
 END IF
LOOP
CLOSE #1
OPEN s$ FOR INPUT AS #1
s1$ = s$ + "1"
OPEN s1$ FOR OUTPUT AS #2
DO WHILE NOT EOF(1)
 INPUT #1, a
 IF a MOD 2 = 0 THEN PRINT #2, a
LOOP
CLOSE
OPEN s1$ FOR INPUT AS #1
PRINT "Soderzhimoe faila "; s1$
DO WHILE NOT EOF(1)
 INPUT #1, b
 PRINT b;
LOOP
CLOSE