Как Петя Бейсиков Тоню Соображалкину программировать учил

ЕЩЁ ОДНА ПОДПРОГРАММА

— Например, во второй моей подпрограмме в строке 2010 я это число использую как границу цикла, которая, конечно, должна быть целым числом. Правда, интерпретатор прекрасно сам понимает, когда нужны именно целые числа, и сам берет целую часть в случае необходимости.

— И где эта твоя вторая подпрограмма? Опять функция TAB! Но оператор PRINT на сей раз куда сложнее. Хотя нет… Понять можно. Сначала ты отступаешь на пять позиций от края бумаги, потом выпечатываешь декоративный символ, потом прыгаешь на конец строки, где выпечатываешь еще один декоративный символ. Всего-то?

— А ты что еще хотела? Больше ничего и не надо. Раз вывели пустые строки, можно начинать выводить текст. Это делает цикл в строках 600–630. Сперва нужно рассчитать, сколько пробелов будет между декоративной рамочкой и первым символом текста. Это приходится делать перед выводом каждой строки, так как длины строк текста поздравления разные.

— Посмотрим, как это делается. Из общей длины строки вычитается длина текста, результат делится на двойку и берется целая часть. Да, почти как при нахождении количества пустых строк сверху и снизу.

— Но есть и небольшое отличие. В том случае верхняя и нижняя строки рамки в количестве строк не учитывались: R было количеством строк между строками рамочки, а N — количеством символов в одной строке, включая и декоративные символы слева и справа.

— Разве это так уж важно. Все равно я подберу такие значения R и N, чтобы поздравление выглядело хорошо. Но давай вернемся к печати текста! Меня интересует сам оператор печати в строке 620. Сначала он передвигает место печати на пять позиций, в шестой выводит декоративный символ, как это уже было, потом перепрыгивает на место, где надо печатать символы текста… Это ты хорошо придумал!

— Вообще… вообще это не я придумал, мне Алгоритмыч рассказал.

— Вот тебе на! Но TAB действительно ценная вещь. Совсем не надо заранее знать, сколько символов в строке текста поздравления, чтобы напечатать ровно посередине между декоративными символами.

— Еще выводятся пустые строки под текстом, потом нижняя строка рамочки, и это все о выводе поздравления. Далее оператором CLOSE закрываем все файлы, чтобы действительно началась печать. Нужно учитывать ту особенность, что наша машина печать на бумаге не начинает, пока файл на печатном устройстве открыт.

— После печати программа выясняет у пользователя, что делать дальше.

— Поговорим о первой возможности — выпе-чатать все как есть. В этом случае переходим на строку 740 и первым делом присваиваем значение 1 переменной F — номеру файла для вывода. Потом нужно открыть печатающее устройство, потому что все файлы закрыты. Помнишь строку 660?

— А почему ты в строке 720 до выполнения оператора ON присвоил 0 переменной F, чтобы потом сразу присвоить 1?

— А если оператор ON отправил бы нас на строку 290? Тогда не смогли бы выполниться последующие операторы PRINT #F, так как все файлы закрыты, кроме нулевого. Получается, что только в случае, если значение F равно нулю, все выполнится нормально и произойдет вывод на экран.