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

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