Дан текст. Заменить в тексте все прописные буквы — строчными. В задаче необходимо: — читать исходный текст, символьные строки и т.п. из внешнего символьного файла — результат выполнения программы выводить в новый символьный файл и/или на консоль- Basic(Бейсик)

CLS
OPEN "input.txt" FOR INPUT AS #1
OPEN "output.txt" FOR OUTPUT AS #2
DO WHILE NOT EOF(1)
LINE INPUT #1, a$
 FOR i = 1 TO LEN(a$)
 b$ = MID$(a$, i, 1)
 IF (ASC(b$) >= 65 AND ASC(b$) <= 90) OR (ASC(b$) >= 128 AND ASC(b$) <= 143) THEN MID$(a$, i, 1) = CHR$(ASC(b$) + 32)
 IF ASC(b$) >= 144 AND ASC(b$) <= 159 THEN MID$(a$, i, 1) = CHR$(ASC(b$) + 80)
 NEXT
PRINT a$
PRINT #2, a$
LOOP
CLOSE