Буфер обмена - QBasic

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

Здравствуйте. На днях решил написать одну программу и нашел полезным использовать в ней буфер обмена (тот, что управляется CTRL+"C"; CTRL+"V" и т.д.). На форуме такой темы не нашел. Если таковая имеется, ткните носом . Собственно, что мне надо - мне не нужно что либо получать из буфера (по крайней мере пока). Мне нужно туда загружать некоторую строку. Т.к., на сколько я знаю, сам QBasic (компилятор) поддерживает буфер, считаю это вполне возможным.

Решение задачи: «Буфер обмена»

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

clip < pal.txt

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

Открывается файл pal.txt для чтения
Переменная n инициализируется значением 1
Переменная line считывается из файла pal.txt
Пока line не пустая строка, выполняются следующие действия:
- Переменная clip присваивается значение line
- Выполняется команда 1 clip
- Переменная line считывается из файла pal.txt
Файл pal.txt закрывается
Выводится сообщение Ошибка: не удалось прочитать файл
Если n больше 1, выполняется команда clip < pal.txt
Если n равно 1, выполняется команда clip > pal.txt
Если n меньше 1, выполняется команда clip > pal.txt
Если n меньше 0, выполняется команда clip < pal.txt
Если n больше 0, выполняется команда clip < pal.txt
Если n равно 0, выполняется команда clip > pal.txt
Если n не определено, выполняется команда clip > pal.txt
Если n не является числом, выполняется команда clip > pal.txt
Если n меньше 2, выполняется команда clip > pal.txt
Если n больше 2, выполняется команда clip < pal.txt
Если n равно 2, выполняется команда clip > pal.txt
Если n равно 3, выполняется команда clip < pal.txt
Если n больше 3, выполняется команда clip < pal.txt
Если n меньше 3, выполняется команда clip > pal.txt