Осуществить дозапись в файл - QBasic

Формулировка задачи:

Подготовить файл, содержащий набор символов, и написать программу, добавляющую в этот файл еще несколько строк с символами.

Решение задачи: «Осуществить дозапись в файл»

Листинг программы

DEFSTR S
OPEN "1.txt" FOR OUTPUT AS #1.   ' программа создаёт файл
PRINT #1, "QWE"                ' и заполняет его
PRINT #1, "RTY"
PRINT #1, "UIO"
CLOSE #1
 
S = "ASDFGHJKL"
OPEN "1.txt" FOR APPEND AS #1
PRINT #1, S     'программа добавляет запись в конец файла
CLOSE #1
END

Объяснение кода листинга программы

Программа открывает файл 1.txt для записи (FOR OUTPUT).
Программа записывает в файл строку QWE.
Программа записывает в файл строку RTY.
Программа записывает в файл строку UIO.
Программа закрывает файл (CLOSE #1).
Программа открывает файл 1.txt для добавления записи в конец (FOR APPEND).
Программа записывает в файл строку ASDFGHJKL.
Программа закрывает файл (CLOSE #1).
Программа завершает работу (END).