Настоящий справочник ставит своей целью ознакомить читателя с основными правилами программирования персональных ЭВМ (ПЭВМ) на языке Бейсик. В книге представлены понятия языка, построение программ и приемы работы с программами.

Главы справочника несут различную нагрузку. В гл. 1, которая является вводной, содержатся сведения о языке программирования Бейсик для начинающих программистов, а также обзорная информация, полезная опытным программистам.

Материал, приведенный в гл. 2 и 3, предназначен для программистов, впервые сталкивающихся с языком Бейсик. В гл. 2 описаны синтаксические элементы программы, представление чисел и системы счисления, выполнение основных операций. В гл. 3 рассмотрены возможности языка для ввода данных в программу, вывода данных из программы, при работе с оперативной памятью и портами ввода-вывода, организации циклов, выполнении условных и безусловных переходов, использовании встроенных функций, а также при работе со строковыми переменными и организации подпрограмм.

Глава 4 ориентирована на пользователей, машины которых оснащены периферийными устройствами. В ней подробно описываются команды и операторы работы с файлами, печатающим устройством, некоторые специфические команды и операторы для работы с клавиатурой и экраном дисплея. Ряд инструкций применяется как в минимальных комплектах ПЭВМ, так и при широком использовании внешних устройств; эти инструкции рассматриваются в нескольких главах. Например, операторы ввода информации с клавиатуры (INPUT, LINE INPUT, INKEY$, INPUT$, GET и т.п.) и операторы вывода информации на печать (PRINT, PRINT USING) рассматриваются в гл. 3, а команды вывода информации на экран дисплея LIST и на печатающее устройство LLIST - в гл. 5.

В гл. 5, рассчитанной на программистов среднего уровня, содержится также информация о возможности тестирования и отладки программ, исправления ошибок. При работе с программами можно вводить программу заново, изменять ее, вызывать уже созданные.

Глава 6 предназначена для программистов, использующих в своей работе графику и звук.

Глава 7 дает некоторое представление о возможности построения достаточно простых программ, которые можно воспроизвести при изучении программирования.

Справочник построен по алфавитно-смысловому принципу. В начале каждой из основных глав приводится рисунок, играющий роль краткого обобщения содержания главы. Далее в смысловом порядке описаны основные понятия и определения, а затем в алфавитном порядке - инструкции языка, представленные ключевыми словами. В гл. 4 и 6 для лучшего усвоения материала описание инструкций разнесено по параграфам.

Авторы разделили информацию о ключевых словах по главам и частично по параграфам, что, по их мнению, должно облегчить изучение языка программистом, впервые приступившим к написанию программ. Для более подготовленного программиста в приложении 1 дан перечень ключевых слов с указанием, в каких главах подробно рассмотрено назначение инструкции, ее формат и особенности.

В справочник включена информация о десяти версиях языка Бейсик; перечень этих версий приведен в первой главе. В приложении 1 и в каждой главе содержатся сведения о составе ключевых слов в каждой из версий.

В приложении 2 описывается внутреннее представление программ.

В каждой главе даны примеры, иллюстрирующие основные положения; в примерах использованы версии языков MBASIC и Бейсик-ПК8020, если дополнительно не оговорено.

В справочнике применяются термины "строковая переменная", "строковая операция" и т. п., так как понятие "строковый" существует во всех описанных версиях языка Бейсик.

При описании форматов инструкций в книге используются следующие специальные символы:

• [...] - необязательный параметр;
• (...) - обязательный параметр;
• {...} - возможность выбора из нескольких вариантов;
• <...> - клавиша;
• / - признак "или".

В тексте встречаются два символа: ¤ ("солнышко") и $ ("знак денежной единицы") - они синонимы, т. е. несут одинаковую смысловую нагрузку.

При подготовке справочника авторы пользовались в основном документацией фирм и заводов-изготовителей машин; в списке литературы приведены издания, которые могут помочь более углубленному изучению языка.

Язык Бейсик - это распространенный язык программирования высокого уровня для микро* и персональных ЭВМ (ПЭВМ). Основные преимущества языка Бейсик:

• простота создания и отладки программ;
• диалоговый характер системы программирования на языке Бейсик, что позволяет проводить все операции по разработке, отладке и выполнению программ с помощью видеотерминального устройства;
• широта распространения языка, что обеспечивает возможность использования ранее разработанных программ, а также перенос программ на другие ЭВМ;
• возможность включения в программу фрагментов на машинном языке.

Основной класс пользователей языка Бейсик - непрофессиональные программисты, пользователи ЭВМ. Именно для облегчения работы таких пользователей и был разработан в 1965 г. в США, в Дартмутском колледже язык программирования, близкий по структуре и по названиям операторов к языку Фортран и названный BASIC (Beginner’s All-purpose Symbolic Instruction Code, т. e. многоцелевой мнемокод для начинающих). Язык был создан по заказу фирмы General Electric в целях обеспечений легкого доступа к компьютеру в системе разделения времени для начинающих программистов. Поскольку авторы Бейсика создавали язык для программистов-новичков, то основным требованием они считали простоту языка. Другим требованием было упрощение общения человека с машиной. Нужна была система» которую легко освоить и которой удобно пользоваться.

Для языка Бейсик характерны: простой, легко запоминающийся синтаксис языка; малое число конструкций, которые необходимо освоить; однозначная семантика каждой конструкции.

Основные конструкции языка - предложения. В Бейсик включены лишь самые необходимые. Синтаксис языка простой - программа имеет строчную организацию, одна строка программы - это одно предложение. Вид всех предложений одинаковый - начинается номером, за которым находится ключевое слово и другая необходимая информация. Выражения составляются по обычным математическим правилам. В Бейсике можно работать со скалярами и организовывать массивы, т. е. использовать лишь наиболее простые и часто употребляемые структуры данных. Создатели Бейсика понимали, что присваивание воспринимается не просто. Ключевое слово LET (Пусть) в качестве предложения присваивания облегчает понимание. Чтобы не вводить новую синтаксическую единицу - метку, создатели языка решили при переходах использовать номера строк, которые прежде всего нужны для редактирования программы.

Интерактивный (диалоговый) язык Бейсик обеспечивает возможность работы программистов в режиме непосредственного взаимодействия с компьютером - в диалоговом режиме. Пользователь общается с машиной с помощью видеотерминального устройства, с которого он вводит текст своей программы, редактирует программы, находящиеся в памяти, запускает программы на выполнение. Диалоговый режим замечателен тем, что компьютер немедленно реагирует на все действия пользователя, может подсказать, если человек, не зная как поступить в данной ситуации, обращается за помощью. В случае ошибки в программе пользователь может исправить ее сразу после того, как получил сообщение об ошибке, и попытаться продолжить или начать сначала выполнение программы. Диалоговый режим особенно удобен для разработки, тестирования и отладки программ, т. е. в процессе программирования.

Интерпретация обеспечивает простую диагностику ошибок: сообщения об ошибках выдаются в терминах языка, на котором написана программа, а не в терминах прерываний и адресов памяти машины. Платой за это удобство является замедление выполнения программы в 10 - 20 раз по сравнению с выполнением скомпилированного кода.

Предложения Бейсик-программы можно вводить в любой последовательности, а выполняться они будут в порядке возрастания их номеров. Такой порядок могут нарушать лишь предложения перехода. Чаще всего предложения нумеруются не подряд, а с шагом 10. Это облегчает вставку новых строк в программу.

Таким образом, Бейсик - не только язык программирования, но и единая система автоматизации программирования, включающая в себя интерпретатор, редактор и средства отладки. При работе с Бейсик-системой пользователь связан только с программой на языке Бейсик. Он набирает программу, вводя строки с номерами, и просит систему выполнить некоторые действия. Его не интересует, как организовано выполнение его команд в компьютере.

Язык Бейсик позволяет широко использовать внешние устройства в качестве устройств ввода-вывода и хранения информации. К таким устройствам относятся накопители на гибких магнитных дисках (НГМД), накопители на кассетной магнитной ленте (НКМЛ), печатающее устройство (ПУ), устройство отображения информации (дисплей), периферийные устройства ввода-вывода информации, расширяющие возможности ЭВМ (манипуляторы типа "мышь", джойстик, световое перо и т. п.); к внешним устройствам можно отнести также локальные вычислительные сети.

Язык Бейсик поддерживает работу двух основных классов графических устройств: устройств ввода графической информации и устройств вывода. К первому классу относятся манипуляторы "мышь", джойстик, графические планшеты разного типа. Сюда же относятся такие менее распространенные в персональных ЭВМ устройства, как световое перо, трекболл, сенсорный экран.

Разные версии языка Бейсик поддерживают работу с указанными в этом наборе устройствами графического ввода-вывода (УГВВ) двумя способами:

• созданием специальных инструкций для определенного класса УГВВ;
• созданием универсальных инструкций для различных классов УГВВ.

Основным устройством вывода графической информации является графический дисплей - графическое видеоконтрольное устройство (ГВКУ). К другим устройствам вывода относятся печатающее устройство и графопостроитель (плоттер), предназначенные для получения "твердой копии" изображения на экране графического дисплея, т. е. для переноса изображения на бумагу или другой носитель.

Устройства ввода графической информации также в основном используются только при совместной работе с графическим дисплеем.

Основными элементами при работе с ГКВУ являются графический экран и дисплейный процессор.

До 1975 г. язык Бейсик был реализован практически на всех типах ЭВМ, существовавших тогда в мире, и был наиболее распространенным диалоговым языком в системах с разделением времени. Рост популярности языка происходил одновременно с начавшимся в 1976 - 1978 гг. массовым распространением микроЭВМ и базирующихся на их основе персональных ЭВМ (ПЭВМ). Те и другие были ориентированы на однопользовательский диалоговый режим, и язык Бейсик стал основным языком программирования.

В 1978 г. Международная организация по стандартизации ISO приняла стандарт на так называемый "минимальный Бейсик" (Х3.60-1978). Этот стандарт, определивший минимально необходимые языковые конструкции, стал основой, ядром многочисленных подмножеств языка, разработанных различными фирмами. Можно выделить два основных направления развития версий языка Бейсик и использующих его Бейсик-систем:

1. Бейсик-системы, встроенные в микроЭВМ, использующиеся в лабораторных, технологических и технических исследованиях. Особенно широко использовала язык Бейсик для таких систем известная фирма Hewlett Packard (США). Бейсик-системы такого рода включают в себя поддержку аппаратных особенностей используемого оборудования.

2. Универсальные Бейсик-системы диалогового типа, обеспечивающие разработку программного обеспечения ПЭВМ и предоставляющие пользователю доступ к аппаратным средствам.

Поскольку в первые годы развития ПЭВМ базовый комплект поставки не включал, как правило, накопителей на НГМД (это положение сохраняется и сейчас в бытовых ПЭВМ), Бейсик-системы располагались в постоянном запоминающем устройстве (ПЗУ) или программируемом ПЗУ (ППЗУ) и для них были характерны две особенности: малая емкость памяти собственно системы (от 5 до 16 Кбайт) и включение в их состав всего необходимого программного обеспечения для управления аппаратными средствами ПЭВМ. Это приводило как бы к сращиванию в одном ПЗУ самой Бейсик-системы и управляющих программ (драйверов) устройств ввода-вывода.

Таким образом, в зависимости от набора аппаратных средств ПЭВМ и емкости памяти ПЗУ число инструкций Бейсик-системы и их назначение могли сильно изменяться. Так возникли основные версии языка Бейсик, реализованные в ПЭВМ различных фирм:

• на базе МП 6502 ПЭВМ фирмы Commodore, например РЕТ, и фирмы Apple, например Apple-II;
• на базе МП TMS9900 ПЭВМ фирмы Texas Instruments, например TI-99;
• на базе МП Z80 ПЭВМ фирмы Radio Shack, например TRS-80 и фирмы Sinclair, например ZX-80;
• на базе МП i8080 ПЭВМ фирмы Intel, например MDS-800.

Многие версии языка Бейсик созданы фирмой Miciosoft, специализирующейся с 1975 г. на разработке программных реализаций Бейсик-систем. Версия языка для Бейсик-системы, известная под именем MBASIC, стала в конце 70-х - начале 80-х годов промышленным стандартом и ее разновидности были разработаны фирмой Microsoft для многих 8-разрядных микроЭВМ.

В 1981 г. для ПЭВМ фирмы IBM фирмой Microsoft была разработана новая версия языка Бейсик, получившая название BASICA. Эта версия и ее дальнейшие разновидности (MSX-BASIC и др.) стали промышленным стандартом для целого ряда 16-разрядных ПЭВМ.

Новые версии языка Бейсик включают в себя целый набор модулей, не определенных в "минимальном Бейсике": модули работы с дисковыми файлами, модули выполнения графических и звуковых инструкций. В последнее время широко обсуждался вопрос о новом стандарте ISO на язык Бейсик, имеются проекты нового стандарта: проект стандарта ANSI от 1984 г. и стандарт ЕСМА-116. Однако в этих документах предлагается создавать новые версии, сильно отличающиеся от сложившихся, фактических стандартов на язык Бейсик, которым удовлетворяют миллионы действующих на разных ПЭВМ программ. Поэтому в настоящем издании ссылки на эти стандарты приведены не будут, но при создании новых версий языка необходимо их изучение и использование.

Первой реализацией языка Бейсик в СССР стала система программного обеспечения для ЭВМ типа М-220, разработанная в 1970-1971 гг. группой под руководством Ю.Л. Кеткова. В дальнейшем были разработаны Бейсик-системы также и для БЭСМ-6. На всех отечественных микро- и персональных ЭВМ существуют Бейсик-системы, аналогичные тем или иным зарубежным системам. Так, в микроЭВМ Искра-226 основой системного программного обеспечения является Бейсик-2, аналогичный Бейсик-системе в ЭВМ WANG-220B. В ПЭВМ "АГАТ" имеется интерпретатор Бейсик-АГАТ, аналогичный системе BASIC Apple-II.

В микроЭВМ семейства "Электроника" может работать Бейсик-система, аналогичная системе BASIC PCKS для микроЭВМ фирмы DEC. В микроЭВМ на базе МП К580ИК80 (СМ1800, ЕС7970 и т.п.), как правило, используется стандартная система BASIC.

В 1987 г. начался выпуск комплекса учебной вычислительной техники (КУВТ) "КОРВЕТ". Основным языком программирования является Бейсик. Бейсик-система КУВТ я "КОРВЕТ" позволяет работать с дисковыми файлами, имеет расширенный набор устройств ввода-вывода (УВВ), может работать в локальной сети, имеет накопители на кассетной магнитной ленте. Поскольку ПЭВМ, входящие в КУВТ "КОРВЕТ" (ПК8020 и ПК8010), базируются на МП типа К580ИК80А, а Бейсик-системы с указанными выше возможностями на МП такого типа не существует, была разработана Бейсик-система с ядром BASIC и модулями собственной разработки.

Семейство отечественных профессиональных ПЭВМ типа ЕС1840, ЕС1841 и последующие имеет Бейсик-систему, аналогичную системе BASICA.

Существует также отечественная реализация оригинальной версии языка BASIC/F, разработанная А.Е. Корчаком на Рижском производственном объединении VEF им. В.И. Ленина.

Ниже будут рассмотрены только основные отличия каждой из версий языка Бейсик; более конкретные отличия, касающиеся инструкций (команд, операторов, функций) языка, будут приведены в соответствующих главах при описании инструкций.

Рассмотрим версии языка, наиболее характерные для периода 1976-1986 гг. и часто используемые в качестве основы для построения Бейсик-систем:

1. Бейсик ГОСТ 27787-88;
2. XYBASIC* (фирма Mark Williams);
3. Бейсик SINCLAIR ZX SPECTRUM+2 (фирма AMSTRAD CONSUMER ELECTRONICS - Бейсик-Спектрум+2);
4. Бейсик Apple-II (Бейсик-АГАТ);
5. Бейсик-TRS-80 (фирма Microsoft);
6. MBASIC v.5.0 (фирма Microsoft);
7. Бейсик-КОРВЕТ (ПК8010) - Бейсик-ПК8010;
8. Бейсик-КОРВЕТ (ПК8020) - Бейсик-ПК8020;
9. MSX-BASIC (фирма Microsoft);
10. BASICA (фирма Microsoft) для PC IBM (аналогично ЕС1840).

* - Полужирным шрифтом выделены названия версий языка Бейсик, используемые в дальнейшем тексте.

Основные характеристики версий языка Бейсик, используемые в конкретных реализациях машин и систем, представлены в табл. 1.1.

Примечание: Ком. - командный редактор; Вс. - встроенный редактор; Пер. - перебор строки; * - только в одной из модификаций

Объем и содержание языка в различных версиях, в том числе разработанных в одной фирме, сильно отличаются. Это отличие затрагивает не только большую часть отдельных инструкций языка, но связано с включением в более поздние версии целых классов новых инструкций (графика, звук и т. п.). Поэтому естественным является стремление к стандартизации языка с обеспечением максимальной переносимости разработанного программного обеспечения.

Работы по стандартизации языка Бейсик за рубежом наиболее активно ведутся в США силами американской и международной организации по стандартизации ANSI и ISO. Однако, на наш взгляд, эта работа не обеспечит переносимости большого числа (десятки миллионов экземпляров) созданных и разрабатываемых промышленных программ для распространенных ПЭВМ типа IBM PC, MSX и др. Кроме того, проекты нового стандарта пока находятся в стадии предварительного обсуждения.

Используя результаты проведенного анализа, можно сформулировать основные требования к стандарту языка Бейсик:

• реализация всех операторов стандартной версии языка на отечественных ПЭВМ;
• возможность развития языка;
• учет зарубежных промышленных стандартов.

Переносимых программ на языке Бейсик, удовлетворяющих определенным и достаточно жестким требованиям, сравнительно немного. Вместе с тем существует потребность в создании переносимого программного обеспечения на языке Бейсик для достаточно сложных задач. Кроме того, стандартизация языка Бейсик должна обеспечить поддержку наиболее удачно разработанных версий языка для разных по архитектуре и аппаратному обеспечению ПЭВМ.

С 1 июля 1989 г. введен в действие ГОСТ 27787-88 на язык программирования Бейсик.

Исходя из вышеназванных требований, стандарт языка Бейсик построен по схеме "Ядро плюс модули". Ядро содержит описание операторов и функций, обязательных к реализации на всех ЭВМ, имеющих в составе программного обеспечения язык Бейсик, независимо от их архитектуры и комплектации. Каждый модуль содержит описание операторов и функций, реализация которых зависит от архитектуры и от комплектации ЭВМ, имеющих в составе программного обеспечения язык Бейсик. Ядро составляет "минимальный Бейсик", вторично определенный стандартом Международной организации по стандартизации в 1984 г.

В стандарте рассматриваются следующие модули:

• расширения основных средств;
• графических средств;
• работы с накопителями на магнитных дисках;
• работы с накопителями на магнитных лентах;
• командный.

По мере развития аппаратных и программных средств предусматривается пополнение как состава каждого модуля, так и набора модулей в целом. Совокупность ядра и модулей обеспечивает гибкость выбора фиксированного подмножества стандарта, в максимальной степени удовлетворяющего конкретным потребностям пользователей и комплектации оборудования. Кроме того, ГОСТ на язык Бейсик согласован с готовящимся сейчас новым стандартом ISO языка Бейсик тоже за счет выбора подходящего подмножества стандарта.

По аналогии со стандартом "минимального Бейсика" в ядре описаны синтаксис и семантика языковых конструкций, приведен перечень обнаруживаемых отклонений от стандарта, обязательный для каждой соответствующей стандарту реализации, а также рекомендации по истолкованию трудных для понимания фрагментов описания ядра. Таким образом, стандарт языка Бейсик сделан закрытым, т. е. в него включены требования к поведению языкового процессора при обработке отклонений от стандарта. Подобное требование позволит обеспечить унификацию диагностики.

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

В целом в стандарте описаны принципы формирования номенклатуры и состава модулей, выработана адекватная русская терминология, учтены требования Государственной системы стандартизации. Одним из критериев формирования состава модулей явилось обеспечение преемственности и переносимости программного обеспечения, создаваемого на языке Бейсик. В первую очередь это относится к реализации языка Бейсик для ПЭВМ, так как этот тип ЭВМ является наиболее массовым и наиболее подверженным изменениям (по составу и характеристикам). Установив заранее синтаксис и семантику операторов и функций, можно ожидать, что программы, разработанные в настоящее время на некоторых ЭВМ, в будущем смогут работать на всех ЭВМ.

При выборе модулей и определении их состава учитывалась также зависимость от состава и характеристик периферийных устройств и характеристик самой ЭВМ.

Интерпретаторы рассматриваемых версий языка Бейсик занимают разную память, могут работать в операционных системах СР/М, ISIS-II, МикроДОС, MSDOS и СР/М-86, а также могут быть встроенными в ППЗУ.

1.5.1. XYBASIC

Полный формат команды загрузки XYBASIC:

    XYBASIC <возврат каретки>

Когда интерпретатор загружен, на экране появляется сообщение

    XYBASIC {version} REV n.m
    COPYRIGHT 1978,1979,1980  BY MARK WILLIAMS COMPANY
    CHICAGO
    WIDTH?
    END OF MEMORY?
    xxxxx BYTES FREE
    OK

xxxxx - количество свободных байтов.

Первая строка указывает на то, что вы используете версию n.m. XYBASICa. Сообщение {version} может быть СР/М или ISIS-II, кроме того, если версия включает команды редактирования текста, в сообщении указывается EDIT, а если версия включает дисковые команды-DISK.

Вторая строка информирует о фирме-разработчике данной версии интерпретатора и о лицензионной чистоте данного программного продукта.

Третья строка запрашивает длину строки терминала. Эта информация необходима для организации форматированного вывода. Ответ должен быть десятичным числом (до 255), за которым следует символ <возврат каретки>. Если сразу вводится <возврат каретки>, то по умолчанию принимается длина строки, равная 80 символам.

Четвертая строка запрашивает память для программы пользователя. Ответ должен быть десятичным числом, которое является наибольшим адресом оперативной памяти в системе компьютера, за которым следует <возврат каретки>. Если необходимо зарезервировать память для подпрограмм на машинном языке, нужно ввести максимальный адрес, который может использовать интерпретатор XYBASIC. Если будет введен только <возврат каретки>, то XYBASIC найдет и будет использовать наибольший допустимый адрес автоматически. В СР/М и ISIS-II эта информация поступает из операционной системы.

Пятая строка сообщает, сколько байтов памяти остались свободными для программ и переменных.

Для выхода из интерпретатора в операционную систему необходимо нажать клавиши Ctrl-В.

1.5.2. Бейсик-Спектрум+2

После того как интерпретатор полностью загружен, появляется тестовый сигнал: на экране телевизора присутствуют цветные полосы, а из динамика слышится постоянный тоновый сигнал.

Для выключения тестового сигнала следует нажать клавишу RESET (Повторный запуск). Тестовый сигнал исчезнет, а на экране появится начальное меню: 1-загрузчик магнитной ленты; 2-Бейсик-128; 3-калькулятор; 4-Бейсик-48.

Начальное меню появляется на экране при включении компьютера либо после нажатия клавиши RESET и предлагает выбор одной из четырех функций. Функции меню появляются выделенными на экране с помощью полосы подсветки. Используя клавиши управления курсором, выбирается функция "Бейсик-128". После этого выбор функции подтверждается нажатием клавиши ENTER (Ввод).

Теперь компьютер переключился в режим "Бейсик-128". Вы увидите заголовок в нижней части экрана и мерцающий курсор в левом верхнем углу.

Для возврата в начальное меню необходимо использовать меню редактирования, которое вызывается с помощью нажатия клавиши EDIT (Редактирование). Вновь с помощью клавиш управления курсором и клавиши ENTER выбирается функция EXIT (Выход) для возврата в начальное меню.

1.5.3. Бейсик-АГАТ

Для обращения к интерпретатору, находящемуся в ПЗУ, из программы "Системный монитор** используются следующие команды:

    *E0C0G или УПР-РЕГ

для обращения к интерпретатору без сохранения программы и состояния интерпретатора;

    *E003G или УПР-РЕГ-S

для обращения к интерпретатору с сохранением программы и состояния интерпретатора.

При наличии в ПЭВМ "АГАТ" дисковой операционной системы для обращения к интерпретатору можно нажать клавишу СБРОС. При этом программа и состояние интерпретатора сохраняются.

После загрузки интерпретатора на экране дисплея появляется приглашение к работе в виде символа "]" и мигающий курсор за ним.

1.5.4. Бейсик TRS-80

После включения компьютера в сеть на экране дисплея появляется сообщение MEMORY SIZE? (Размер памяти?). Существует два варианта ответа на указанный запрос. Если предполагается работа с программами на машинном языке, загружаемыми в специально отведенный сегмент памяти, то ответ должен быть командой SYSTEM. Если предполагается работа с программами на языке Бейсик, следует нажать только клавишу ENTER (Ввод) без нажатия каких-либо других клавиш. Это позволит при написании Бейсик-программы использовать всю память (для 4К версии - 3284 байт; для 16К версии - 15572 байт).

После нажатия клавиши ENTER (Ввод) на экране появляется сообщение:

    RADIO SHACK LEVEL II BASIC READY
    >_

В Бейсик TRS-80 существуют 4 режима работы:

• командный (Command) - в 4К версии это режим калькулятора;
• программный (Execute) - выполнение командой RUN Бейсик-программ;
  (В 4К версии используются только эти режимы)
• редактирование (Edit) - только в 16К версии; позволяет редактировать строки программы;
• машинный (Monitor) - позволяет загружать объектные файлы в память.

1.5.5. MBASIC v.5.0

Для вызова интерпретатора необходимо ввести команду BASIC. Полный формат команды:

    MBASIC [спецификация файла] [/F:число файлов] [/S:размер записи] [/М:рабочая область] <возврат каретки>

спецификация файла - спецификация программного файла, который будет загружаться и выполняться. Это строковая константа, не заключенная в кавычки;

/F:число файлов - максимальное число файлов, которые могут быть открыты в любое время в течение работы интерпретатора. Каждый блок файла данных требует 166 байт памяти. Если этот параметр опущен, то по умолчанию число файлов равно 3. Максимальное значение параметра /F: - 15;

/S:размер записи - максимальный размер записи для файлов произвольного доступа. По умолчанию размер записи равен 128 байтам.

/М:рабочая область - максимальная память, которая может быть использована интерпретатором как рабочее пространство. Максимальное значение - 64 Кбайта. Если этот параметр не указан, то используется вся доступная память.

Все числа в данных параметрах могут быть заданы в десятичном, восьмеричном и шестнадцатеричном представлении.

Когда интерпретатор загружен, на экране дисплея появляется сообщение:

    BASIC-80 REV. 5.0.
    [СР/М Version]
    Copyright 1977, 78, 79, 80 (С) by Microsoft
    Created:14-Jul-80
    xxxxx Bytes free
    Ok

xxxxx - количество свободных байтов.

Для выхода из интерпретатора в операционную систему используется команда SYSTEM.

1.5.6. Бейсик-КОРВЕТ

В КУВТ "КОРВЕТ" имеются два интерпретатора языка Бейсик: один размещен в постоянной памяти (Бейсик-ПК8010), другой на диске (Бейсик-ПК8020).

Загрузка Бейсик-ПК8010. После включения питания подается короткий звуковой сигнал и выдается сообщение:

    ОПТС n.m

После окончания ОПТС (оперативной проверки технических средств) выдается сообщение:

    Бейсик КОРВЕТ в.n.m
    Москва 19хх г.
    
    Ок

n.m - номер версии программного обеспечения;
хх - год.

Загрузка Бейсик-ПК8020. Для вызова интерпретатора языка Бейсик необходимо ввести команду BASIC. Полный формат команды BASIC:

    BASIC [спецификация файла] [/F:число файлов] [/М:размер]<возврат каретки>

спецификация файла - имя программы, которая будет загружаться и выполняться. Это строковая константа, не заключенная в кавычки;

/F:число файлов - максимальное число файлов, которые могут быть открыты во время работы интерпретатора. Каждый блок файла данных требует 166 байт памяти. Если этот параметр не указан, то по умолчанию число файлов равно 3. Максимальное значение /F: - 15.

/М:размер - максимальная память, которая может быть использована интерпретатором как рабочее пространство. Если этот параметр не указан, то используется максимальная доступная память 48 Кбайт.

После загрузки интерпретатора на экране дисплея появляется сообщение:

    Бейсик КОРВЕТ в.n.m
    Москва 
    МикроДОС 19хх
    
    Ок

n.m - номер версии программного обеспечения;
хх - год.

Для возврата в операционную систему используется команда SYSTEM.

1.5.7. MSX-BASIC

Программа MSX-BASIC расположена в постоянной памяти. Возможны два способа вызова интерпретатора. Первый - если операционная система не загружена, и второй - если операционная система загружена.

Дисковый вариант MSX-BASIC. После загрузки операционной системы и появления подсказки для входа в Бейсик-систему необходимо набрать команду BASIC, полный формат которой выглядит так:

    BASIC [спецификация файла]<возврат каретки>

спецификация файла - имя программного файла, который будет загружаться и выполняться. Это строковая константа, не заключенная в кавычки.

После загрузки интерпретатора на экране дисплея появляется сообщение:

    MSX BASIC version 1.0
    Copyright 1983 by Microsoft
    xxxxx Bytes free
    Disk BASIC version 1.0
    Ok

xxxxx - количество свободных байтов.

Для возврата в операционную систему необходимо набрать оператор CALL SYSTEM или команду _SYSTEM.

MSX-BASIC в ПЗУ. После включения питания при отключенном дисководе и незагруженной операционной системе на экране дисплея появляется сообщение:

    MSX SYSTEM 
    version 1.0
    Copyright 1983 by Microsoft

Затем после некоторого времени появляется запрос:

    Enter date (M-D-Y):

который требует ввести дату начала работы с интерпретатором.

После ответа на экране появляется сообщение, аналогичное дисковой версии, и интерпретатор готов к работе.

1.5.8. Расширенный Бейсик IBM PC (ЕС 1840) - BASICA

Для вызова интерпретатора необходимо ввести команду BASICA. Полный формат команды BASICA:

    BASICA [спецификация файла] [/F:число файлов ] [/S:размер записи] [/С:буфер] [/М:рабочая область]<возврат каретки>

спецификация файла - имя программного файла, который будет загружаться и выполняться; это строковая константа, не заключенная в кавычки;

/F:число файлов - максимальное число файлов, которые могут быть открыты в любое время в течение работы интерпретатора; каждый файл требует 188 байт памяти для блока управления файлом плюс размер, заданный в параметре /S:; если параметр /F: не указан, то по умолчанию число файлов равно 3; максимальное значение /F: равно 15;

/S:размер записи - размер записи для файлов произвольного доступа; параметр длины записи в операторе OPEN не может превышать это значение; по умолчанию размер записи равен 128 байт, максимальное значение, которое можно ввести - 32767; рекомендуется использовать /S:512 при использовании файлов произвольного доступа;

/С:буфер - размер каждого буфера связи, максимальное значение - 32767; если этот параметр не указан, то резервируется 256 байт для буфера приема и 128 - для буфера передачи; при наличии линии высокой скорости передачи рекомендуется /С: 1024;

/М:рабочая область - максимальная память, которая может быть использована интерпретатором как рабочая область, максимальное значение - 64 Кбайт; если этот параметр не указан, то используется вся доступная память.

Все числа в данных параметрах могут быть заданы в десятичном, восьмеричном или шестнадцатеричном виде.

Когда интерпретатор загружен, на экране появляется сообщение:

    The IBM Personal Computer Basic
    Version A2.00 Copyright IBM Corp. 1981, 1982, 1983
    xxxxx Bytes free

    Ok

xxxxx - количество свободных байтов.

Для возврата в операционную систему используется команда SYSTEM.

Существуют два основных типа трансляторов языка Бейсик: интерпретирующего и компилирующего типов - интерпретаторы и компиляторы.

Интерпретатор непосредственно выполняет (интерпретирует) исходный текст программы, вводимый в ОЗУ либо с клавиатуры, либо с внешнего запоминающего устройства.

Компилятор языка Бейсик по функциям ничем не отличается от транслирующих систем подобного типа с других языков.

Существуют также трансляторы промежуточного типа, называемые интерпретаторами компилирующего типа.

В основном ПЭВМ оснащаются интерпретаторами, позволяющими реализовать все возможности диалоговой системы программирования. Как было сказано выше, интерпретаторы замедляют выполнение программы в 10 - 20 раз. Если в программе требуется работа с реальными объектами или необходимо многократно использовать разработанную программу, то обычно создание программы проводят в два этапа: сначала разрабатывают и отлаживают программу с помощью интерпретатора, а затем пропускают ее через компилятор, получая, таким образом, перемещаемый объектный модуль.

Транслятор с языка Бейсик фирмы Microsoft, который обычно называется BASCOM, представляет собой набор дополнительных транзитных программ, который может быть включен в стандартный набор транзитных программ операционных систем СР/М, МикроДОС или MS-DOS и может использоваться совместно с интерпретатором BASIC фирмы Microsoft (MBASIC, BASICA и т.п.).

Набор программ BASCOM предоставляет средство, с помощью которого файлы с исходным текстом программы на языке Бейсик могут быть преобразованы (оттранслированы) в файлы, содержащие перемещаемый объектный код. Эти файлы с перемещаемым объектным кодом могут быть далее объединены с другими файлами в процессе окончательной сборки и создания файла с исполняемым машинным кодом.

В набор программ BASCOM входит файл BASCOM.COM, который содержит собственно компилятор с языка Бейсик, а также библиотечные файлы. Для выполнения компиляции файла вводится команда:

    BASCOM имя файла.BAS

По завершении работы компилятора создается файл с расширением .REL, который содержит перемещаемый объектный код исходной программы. Исполняемый машинный код получается после работы программы LINK-80.

Когда интерпретатор готов к работе, на экран выводится подсказка. Это состояние называется уровнем команд.

В это время интерпретатор может быть использован в одном из двух режимов: в прямом (командном) или в программном. Как правило, в рассматриваемых версиях признаком готовности интерпретатора является сообщение "Ok", только в Бейсик TRS-80 - это сообщение "READY", в XYBASIC - "OK", а в Бейсик-АГАТ - символ "]".

Прямой (командный) режим - это режим непосредственных вычислений, он удобен для отладки. Интерпретатор выполняет задание сразу после его введения. В этом режиме оператор предварительно не определяется номером строки. Можно вывести на экран результаты работы арифметических или логических операций и запомнить их для дальнейшего использования, но сами задания не сохраняются после выполнения. Например:

    PRINT 20+5
     25
    Ok

В программном режиме вводят и выполняют программы. Вводимая строка, которая является частью программы, должна начинаться с номера. Затем строка запоминается как часть программы в памяти. Программа может быть выполнена при введении команды RUN. Например:

    10 PRINT 20+5
    RUN
     25
    Ok

Любая вводимая директива должна заканчиваться нажатием клавиши возврата каретки.

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

В языке Бейсик программные строки имеют следующий формат:

    nnnnn оператор [:оператор...]<возврат каретки>

nnnnn - номер строки.

В табл. 2.1. приведены минимальный и максимальный номера строк, которые можно использовать при написании программ.

Операторы делятся на исполнительные и неисполнительные. Каждый оператор - это ключевое (резервированное) слово, определяющее характер действия компьютера. Вслед за ним располагается информация, необходимая для указанного действия. Ключевые слова должны отделяться пробелами.

Исполнительный оператор - это инструкция программы, которая сообщает интерпретатору, что делать при выполнении программы (например, GOTO, PRINT).

Неисполнительный оператор - это оператор, который не вызывает у интерпретатора никаких программных действий (например, REM, DATA).

В одной строке может быть несколько операторов, они должны разделяться двоеточием (:), общее число символов в строке не должно превышать 255.

Как правило, любая система программирования накладывает ограничение на число строк в программе. Объединение нескольких операторов в одной программной строке позволяет разрабатывать программы, в которых число операторов может быть увеличено в несколько раз.

Вводимые в память компьютера программные строки упорядочиваются по возрастанию номеров строк, что позволяет добавлять новые строки между введенными ранее или стирать ненужные. По номеру строки осуществляется безусловный переход или вызов подпрограммы. Сообщение об ошибке выводится с указанием номера строки, где данная ошибка произошла.

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

В рассматриваемых версиях языка, кроме Бейсик-Спектрум+2, имеются средства для автоматической генерации номеров строк с заданным интервалом (команда AUTO) и средства для перенумерации строк с определенного номера и с заданным интервалом (команда RENUM). Версия Бейсик-Спектрум+2 осуществляет перенумерацию строк с помощью меню встроенного редактора.

Основными элементами языка Бейсик являются выражения, операции и данные (рис. 2.1.).

Рисунок 2.1.

Программа на языке Бейсик записывается с использованием следующих символов:

• прописные и строчные буквы латинского алфавита от А до Z и, если реализовано, буквы русского алфавита от А до Я (буквы русского алфавита могут использоваться только в строковых константах и комментариях);
• арабские цифры от 0 до 9;
• специальные символы:

  = Знак равенства или символ присваивания + Знак сложения - Знак вычитания * Знак умножения / Знак деления ~ Знак экспоненты (степени) ( Левая круглая скобка ) Правая круглая скобка % Знак процента # Знак номера (или фунт) $ Знак денежной единицы (или доллар) ! Восклицательный знак , Запятая

  . Точка ’ Апостроф ; Точка с запятой : Двоеточие & Амперсанд @ Коммерческое "AND" ? Знак вопроса < Знак "меньше чем" > Знак "больше чем" \ Знак целочисленного деления _ Знак подчеркивания " Двойные кавычки

• символы пропусков: пробел и горизонтальная табуляция.

Синтаксическими элементами программы (рис. 2.2.) являются имена переменных, ключевые (резервированные) слова, константы и ограничители (простые и составные).

Рисунок 2.2.

В большинстве рассматриваемых версий при вводе программы с клавиатуры ключевые слова можно записывать как прописными, так и строчными буквами. Интерпретатор переводит их в строчные, если они не являются частью строки, заключенной в кавычки, комментарием или данными. Интерпретатор Бейсик-Спектрум+2 переводит в строчные буквы только ключевые слова.

Имя переменной - набор символов, определяющий переменную. Имя переменной должно обязательно начинаться с буквы. Число символов, входящих в имя, зависит от версии языка или интерпретатора машины. Состав символов, входящих в имя переменной, для разных версий представлен в табл. 2.2.

Имя переменной определяет также и тип переменной с помощью специального символа, замыкающего имя. Имена переменных, отличающиеся этим специальным символом, не идентичны между собой, например А%, А$, А! и A# присваиваются разным переменным. Специальные символы после имени переменной означают:

• % - переменная целочисленная;
• # - переменная вещественная, двойной точности;
• ! - переменная вещественная, одинарной точности;
• $ - переменная строковая.

В таблице 2.3. представлена информация о наличии разных типов переменных в рассматриваемых версиях.

Для задания типа переменной могут быть использованы операторы:

• DEFINT - для целочисленных переменных;
• DEFSNG - для переменных с плавающей точкой одинарной точности;
• DEFDBL - для переменных с плавающей точкой двойной точности;
• DEFSTR - для строковых переменных.

В табл. 2.4. указано наличие операторов описания типа переменной в рассматриваемых версиях языка.

Примечание. В версии XYBASIC операторы записываются с пробелом: DEF INT, DEF SNG, DEF STR.

Ключевое слово - это слово с определенной смысловой нагрузкой. Оно является инструкцией языка Бейсик и по этой инструкции интерпретатор выполняет определенные действия.

Программа на языке Бейсик - это упорядоченная последовательность строк, включаю* щих в себя номер строки и набор инструкций, состоящих из ключевых слов, за которыми следуют параметры. Инструкции описывают операции, которые необходимо выполнить. Операция определяется ключевым словом.

Инструкции в языке Бейсик делятся на команды, операторы и функции. Команды определяют способ управления программой. Они управляют, исполняют или воздействуют на программу. Операторы разрешают доступ, ввод-вывод или обработку данных и определяют конечный результат. Функции устанавливают значения математических операций, операций обработки строки и операций, которые определяет сам пользователь. Функции являются частью оператора. Ключевые слова должны отделяться от других синтаксических единиц ограничителями или пробелами. Набор ключевых (резервированных) слов различен для разных версий языка Бейсик и приведен в приложении 2.

Простые ограничители - это любые специальные символы, кроме символов $ % ! и #.

Составные ограничители - образуются соединением двух специальных символов:

• <> не равно;
• <= меньше или равно (не больше);
• >= больше или равно (не меньше)

Константы - используются для записи величин, которые не изменяются во время выполнения программы.

Комментарий - это набор символов, следующий после оператора REM или ’. Может включаться в текст программы, предназначен для записи пояснений к алгоритму задачи, не влияет на выполнение программы.

Данные в языке Бейсик (рис. 2.3) подразделяются на два вида: константы и переменные. С каждым видом данных связано понятие типа.

Рисунок 2.3.

Тип данных определяет внутреннее представление данных в памяти. Бейсик оперирует с данными следующих типов: строковыми и числовыми - шестнадцатеричными, восьмеричными, двоичными и десятичными с фиксированной и плавающей точкой одинарной и двойной точности.

Строковые данные - набор данных в виде записей, образующих строки для обработки текстов и вывода на печать. При работе со строковыми данными язык Бейсик позволяет:

• присваивать строковое значение строковой переменной;
• создавать строковые формы, которые образуют новые строки.

Константы - вещественные значения, не изменяемые во время выполнения программы. Имеется два типа констант: строковые (символьные) и числовые.

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

В табл. 2.5 показано наличие типов констант в разных версиях языка Бейсик.

Строковая константа - это последовательность символов (до 255), заключенная в кавычки.

Кавычки не могут использоваться внутри строковой константы. В качестве строковых констант могут применяться любые символы кода ASCII (КОИ-8), имеющие графическое представление. В частности, можно использовать специальные символы ("+", и др.) цифры, прописные и строчные буквы латинского и русского алфавитов. Например:

    PRINT "ПРОГРАММА PROGRAMM программа programm"

Чтобы включать в строковые данные кавычки или символы, не имеющие графического представления, используется функция CHR$.

Числовая константа - положительное или отрицательное число. Числовые константы могут быть целыми, с фиксированной или плавающей точкой. Целые числовые константы могут быть записаны в десятичном, двоичном, восьмеричном и шестнадцатеричном форматах. Целые константы запоминаются в двух байтах памяти. Целое десятичное число - число от -32768 до +32767 включительно.

Например -12 или 27

Двоичное число - цифры в двоичной системе счисления. Двоичные константы имеют префикс (табл. 2.6), за которым следует шестнадцать цифр (0 и 1).

Восьмеричное число - цифры в восьмеричной системе счисления. Восьмеричные константы имеют префикс, за которым следует шесть восьмеричных цифр (0-7).

Шестнадцатеричное число - цифры в шестнадцатеричной системе счисления. Шестнадцатеричные константы имеют префикс (в Бейсик-Спектрум+2 - постфикс), за (перед) которым следуют четыре шестнадцатеричные цифры (0-9 и буквы A-F).

Константы в двоичном, восьмеричном и шестнадцатеричном форматах запоминаются в двух байтах и интерпретируются как целые числа. Константы имеют разное представление в рассматриваемых версиях языка Бейсик (табл. 2.6).

* - данное представление только для дисковых версий языка Бейсик.

Число с фиксированной точкой - положительное или отрицательное вещественное число, т. е. число, содержащее точку на постоянном месте. Например: -31.94,+ 78.02 или 541.77

Число с плавающей точкой - положительное или отрицательное число, представленное в экспоненциальной форме. Константа с плавающей точкой состоит из знаковой фиксированной целой части (мантиссы), за которой следует буква Е и (необязательно) знаковое целое число (экспонента). Константы с плавающей точкой в некоторых версиях языка Бейсик могут быть одинарной Е и двойной D точности.

Константы одинарной точности могут быть записаны:

• семью или меньше цифрами;
• в экспоненциальной форме, используя букву Е;
• с завершающим знаком !.

Константы двойной точности могут быть записаны:

• восемью или больше цифрами;
• в экспоненциальной форме, используя букву D;
• с завершающим знаком #.

Например: 1E13 или 3.5D-6

Диапазоны изменения чисел с плавающей точкой для разных версий представлены в табл. 2.7.

Переменная - это величина, к которой обращаются по имени и которая может принимать различные значения.

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

Тип переменной определяет ее внутреннее представление. В языке Бейсик существует два типа переменных: строковые и числовые.

Строковая переменная может занимать до 255 байт. Строковые значения присваиваются переменным так же, как и числовые. Специальный символ идентифицирует строковую переменную. Если строковой переменной не было присвоено значение, то считается, что ей присвоена пустая строка. Новое значение строковой переменной может быть присвоено оператором LET.

Например:

    10 А$="STRING"
    20 PRINT А$
    30 А$="строка"
    40 PRINT А$
    RUN
    STRING
    строка

В этом примере значения, присваиваемые переменной А$, заключаются в кавычки. Строковым переменным могут присваиваться и более сложные выражения. Если строковой переменной будет присвоено числовое значение или числовой переменной - строковое, то появится сообщение об ошибке.

Примеры строковых переменных:

    STROKA$="Next line - следующая строка"
    CHISLO$="40*1.723Е+5"
    NAME$="Александр Сергеевич Пушкин"

Для присвоения новых значений строковым переменным можно использовать также операторы READ, DATA, INPUT и т. п.

Числовая переменная может быть целочисленной и вещественной. Целочисленные переменные (2 байта) могут представляться в десятичном, двоичном, восьмеричном и шестнадцатеричном форматах. Вещественные переменные одинарной точности занимают 4 байта памяти, двойной точности - 8 байт.

В языке Бейсик имеются переменные, а также наборы переменных, образующие массивы.

Массив - это упорядоченная последовательность величин, обозначенных одним именем (или набор переменных), отличающихся индексом.

Отдельные величины, образующие массив, называются элементами массива.

Элементы массива определяются именем массива и индексом, заключенным в скобки, и образуют переменные с индексом (индексированные переменные). Индекс указывает на положение элемента в массиве. Элемент массива имеет столько индексов, какова размерность массива. При обращении к массиву индекс может задаваться любым выражением. Отрицательное значение индекса вызывает ошибку.

Язык Бейсик позволяет использовать массивы строковых переменных таким же образом, как и массивы числовых переменных. Например, DIM NAME$(50) определяет массив, размещающий 51 строковую переменную, которые имеют имена NAME$(0), NAME$(1), NAME$(50).

В остальных рассматриваемых версиях простые переменные и массивы могут иметь одинаковые имена.

Во всех версиях, кроме Бейсик-Спектрум+2, минимальное значение индексов равно 0, а не 1. В некоторых версиях имеется оператор OPTION BASE, позволяющий изменять минимальное значение индексов.

Как под переменные, так и под массивы должна быть резервирована память, поэтому необходимо сообщить, какие массивы будут использованы в программе, каков тип переменных и размер каждого массива. Описание массива осуществляется оператором DIM и должно появляться в программе до первого обращения к элементу массива.

В версиях MBASIC, Бейсик-ПК8010, Бейсик-ПК8020, MSX-BASIC, BASICA, если описание массива отсутствует, то по умолчанию максимальное значение каждого индекса равно 10.

Если во время выполнения программы оказывается мало памяти, то в некоторых версиях используется оператор ERASE, удаляющий массивы из программы.

Размерность массивов и число элементов определяется количеством байтов свободной памяти. В версии языка Бейсик-АГАТ используется не более трех размерностей.

Если числовое значение одной точности присваивается числовой переменной другой точности, то число будет запоминаться с точностью, описанной именем переменной. Например:

    10 А%=23.42
    20 PRINT А%
    RUN
     23

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

    10 С%=55.88
    20 PRINT С%
    RUN
     56

Если число с меньшей точностью переводится в число с большей точностью, то полученное в результате число не может быть более точным, чем число с меньшей точностью. Так, при переводе числа А одинарной точности в B# двойной точности только первые шесть цифр B# будут точными. Например:

    10 А=2.04
    20 В#=А
    30 PRINT A;B#
    RUN
     2.04  2.03999991853027

При вычислении выражения все операнды в арифметических операциях или операциях отношения переводятся в ту же точность, что и операнд с наибольшей точностью. Так, в нижеприведенном примере арифметическая операция выполняется с двойной точностью, и результат D# получается как число двойной точности. Например:

    10 D#=6#/7
    20 PRINT D#
    RUN
     .8571428571428571

Если в результате выполнения арифметической операции, выполняемой с двойной точностью, должно быть получено число одинарной точности, то полученный результат округляется до числа одинарной точности. Например:

    10 D=6#/7
    20 PRINT D
    RUN
     .857143

Логические операции переводят свои операнды в целые числа и образуют целочисленный результат. Операнды должны быть в диапазоне целых чисел, иначе появляется сообщение об ошибке Underflow (Антипереполнение).

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

В языке Бейсик выражение состоит из операндов, соединенных знаком арифметических, логических операций или операций отношения и круглыми скобками. Операндами выражений являются любые переменные, числовые и строковые константы. Также в выражении могут присутствовать встроенные функции.

В языке Бейсик используются следующие типы операций:

• выполнение встроенных функций;
• арифметические;
• отношения;
• логические.

Последовательность выполнения операций в порядке их приоритета связана с особенностями различных Бейсик-систем. Можно выделить четыре основных правила приоритета для рассматриваемых версий:

1. (Бейсик-АГАТ, Бейсик-TRS-80)
   • Самые внутренние круглые скобки
   • Встроенные функции
   • Возведение в степень
   • Унарный плюс или минус
   • Умножение и деление
   • Сложение и вычитание
   • Операции отношения
   • Логические операции NOT, AND, OR
2. (MBASIC, Бейсик-ПК8010, Бейсик-ПК8020, MSX-BASIC, BASICA)
   • Самые внутренние круглые скобки
   • Арифметические функции
   • Относительные функции
   • Логические функции
   • Возведение в степень
   • Унарный плюс или минус
   • Умножение и деление
   • Целочисленное деление
   • Образование арифметического модуля MOD
   • Сложение и вычитание
   • Операции отношения
   • Логические операции NOT, AND, OR, XOR, IMP, EQV
3. (XYBASIC)
   • Самые внутренние круглые скобки
   • Встроенные функции
   • Унарный плюс или минус
   • Операция JOIN
   • Возведение в степень
   • Умножение, деление, целочисленное деление и образование арифметического модуля MOD
   • Сложение и вычитание
   • Операции отношения
   • Логические операции NOT, AND, OR, XOR
4. (Бейсик-Спектрум+2)
   • Индексирование и расслоение
   • Встроенные функции
   • Внутренние скобки
   • Унарный плюс или минус
   • Возведение в степень
   • Умножение, деление
   • Сложение и вычитание
   • Операторы отношения в числовых выражениях
   • Логические операции NOT, AND, OR

При выполнении операции целочисленного деления операнды округляются до целых чисел, которые должны лежать в диапазоне от -32768 до +32767. Частное от деления округляется до целого отбрасыванием дробной части.

Операция арифметического модуля вычисляет целое значение остатка целочисленного деления.

Оператор JOIN осуществляет конкатенацию двух 8-битовых чисел в 16-битовое число. Например, в результате конкатенации чисел 1 (двоичное 0000 0001) и 2 (двоичное 0000 0010) получится число 258 (двоичное 0000 0001 0000 0010).

Разные версии языка Бейсик могут отличаться набором выполняемых арифметических операций (табл. 2.9).

Операции отношения используются для сравнения двух переменных. Результат сравнения ИСТИНА (-1) или ЛОЖЬ (0). В версии Бейсик-АГАТ ИСТИНА (1). В табл. 2.10 представлены операции отношения.

Логические операции имеют дело с комбинациями значений ИСТИНА-ЛОЖЬ. В результате работы операции также получается или ИСТИНА, или ЛОЖЬ. Считается, что операнд логического оператора или результат операции есть ИСТИНА, если он не равен нулю.

Рассмотрим логические операции в порядке приоритета: NOT - логическое отрицание; AND - конъюнкция; OR - дизъюнкция; XOR - Исключающее ИЛИ; IMP - импликация; EQV - эквивалентность.

NOT - операция логического отрицания аргумента. Изменяет значение аргумента на противоположное.

AND - операция логического умножения двух аргументов (конъюнкция, И). В результате выполнения операции получается значение ИСТИНА, если оба аргумента истинны, и ЛОЖЬ - во всех остальных случаях.

OR - операция логического сложения двух аргументов (дизъюнкция, ИЛИ). В результате выполнения операции получится значение ЛОЖЬ, если оба аргумента ложны; в остальных случаях результат принимает значение ИСТИНА.

XOR - операция логического Исключающего ИЛИ двух аргументов. Результатом выполнения операции является ЛОЖЬ, если оба аргумента имеют одинаковые значения, в противном случае результатом является значение ИСТИНА.

IMP - операция логической импликации двух аргументов. Результатом будет значение ЛОЖЬ, если первый операнд имеет значение ИСТИНА, а второй - ЛОЖЬ; во всех остальных случаях результатом будет значение ИСТИНА.

EQV - операция логической эквивалентности двух аргументов. Результатом выполнения этой функции будет ИСТИНА, если оба аргумента истинны или ложны. В противном случае результатом будет ЛОЖЬ.

В табл. 2.11 представлены сведения о наличии логических операций в разных версиях языка Бейсик.

Логические операции выполняются путем преобразования их операндов в 16-битовые знаковые целые числа в дополнительном коде в допустимом для каждой версии диапазоне. Если операнд не лежит в этом диапазоне, то результат будет ошибочным. Логические операции выполняются с целыми числами поразрядно (побитно), т.е. каждый бит результата зависит от значения соответствующих битов двух операндов.

Логические операции могут применяться для программирования на уровне битов в пределах байта. Например, оператор AND может быть использован для "маскирования" всех битов, кроме одного, байта состояния машинного порта ввода-вывода. Оператор OR может быть использован для "соединения" двух байтов при создании двоичного значения. Следующие примеры демонстрируют, как работают логические операции.

    63 AND 16 = 16

Так как числа 63 и 16 в двоичном коде представляются 111111 и 10000 соответственно, то после выполнения логической операции AND будет получено двоичное число 10000, что соответствует числу 16, т.е. 111111 AND 10000 = 10000.

    15 AND 14 = 14
    -1 AND 8 = 8
    4 OR 2 = 6
    10 OR 10 = 10
    -1 OR -2 = -1 
    NOT X = -(X+1)

Часто логические операции используются в условном операторе IF. Например:

    IF (A=1) OR (B=5) THEN GOTO 350
    IF A=(B OR C) THEN GOSUB 800
    IF ERR=13 AND ERL=400 THEN PRINT : GOTO 5000

Строковые операции могут быть следующими: конкатенации; деления строки на части; сравнения; выполнение встроенных функций.

Операция конкатенации (сцепления) обозначается символом плюс (+). В результате этой операции образуется строка, левая часть которой равна первому операнду, а правая часть - второму. Например:

    10 С0$="Пример "
    20 ТР$="задачи "
    30 ST$=TP$+"нa языке BASIC"
    40 PRINT C0$+ST$
    RUN 
    Пример задачи на языке BASIC 
    Ok

Операция деления строки на части присутствует только в версии языка Бейсик-Спектрум+2. В остальных версиях языка Бейсик этой цели служат встроенные функции, описанные в гл. 3.

    строковое выражение (начало ТО конец)

    "abcdef"(2 ТО 5) равно "bcde"
    "abcdef"(ТО 5) равно "abcde"
    "abcdef"(2 TO) равно "bcdef"
    "abcdef"(TO) равно "abcdef"

    "abcdef"(3) равно "abcdef"(3 ТО 3) н равно "с".

    10 LET a$="I love my Sinclair"
    20 LET a$(11 TO 18)="Amstrad*****"
    30 PRINT a$
    RUN
    I love my Amstrad*

    "abc"+"def"(1 ТО 2) равно "abode"
    ("abc"+"def)(1 ТО 2) равно "ab"

Строки можно сравнивать, используя операции отношения так же, как и числа. Строковое сравнение выполняется посимвольным сравнением строк по кодам ASCII (КОИ-8). Если все коды двух строк совпадают, то строки равны. Если коды различны, то строка с меньшим кодом меньше. Если во время сравнения конец одной строки встретился раньше, то эта строка меньше. Например:

    "AA"<"AB"
    "Filename"="Filename"
    "С ">"C"
    "kg">"KG"
    В$<"9/10/89""  где В$="8/10/89"

Все строковые константы, используемые в выражениях, должны быть заключены в кавычки.

DEFINT, DEFSNG, DEFDBL, DEFSTR - операторы, описывающие тип переменных: целочисленные (INT), одинарной точности (SNG), двойной точности (DBL), строковые (STR)

    DEFтип буква[-буква],[,буква[-буква]]...

тип - INT, SNG, DBL, STR

Оператор DEF тип определяет, что переменные, имена которых начинаются с указанных букв, будут переменными заданного типа. Данные операторы, если они используются в программе, задаются в начале программы, перед использованием переменной. Например:

    10 DEFINT X,D-H : DEFDBL L-P : DEFSTR A

В XYBASIC существуют только операторы DEF INT, DEF SNG, DEF STR, причем пробел между ключевым словом DEF и типом обязателен.

DIM - определяет максимальную размерность массива, резервирует память для него Формат 1 (кроме Бейсик-Спектрум+2).

    DIM имя массива(список индексов) [,имя массива(список индексов)]...

Если имя элемента массива используется без предварительного объявления оператором DIM, то максимальное значение его индекса равно 10. Если используется индекс, который больше заданного максимального значения, то появляется сообщение об ошибке Subscript out of range (Индекс вне диапазона).

Минимальное значение индекса по умолчанию равно 0. При необходимости оно может быть установлено равным 1. Для этого используется оператор OPTION BASE. Например:

    DIM Х(2,3,4),Y$(15)

Приведенный в примере оператор DIM определяет X как трехмерный массив с тремя элементами по первому измерению, четырьмя элементами по второму и пятью элементами по третьему; а также определяет Y$ как строковый массив из 16 элементов.

    DIM имя массива(индексы)

Оператор DIM устанавливает все элементы числового массива равными нулю, а все элементы строкового массива - пустыми.

ERASE - оператор очистки области памяти, отведенной под массивы

    ERASE имя массива[,имя массива]...

Исключает массивы из программы. Если во время выполнения программы оказывается мало памяти, можно использовать оператор ERASE. После того, как массивы удалены, пространство памяти, зарезервированное под массивы, можно использовать для других целей. Оператор ERASE может быть использован также для переопределения размерности массива, так как при попытке заново определить уже определенный массив возникает сообщение об ошибке Duplicate definition of array (Двойное определение массива).

OPTION BASE - оператор, устанавливающий минимальное значение для индексов массива

    OPTION BASE n

где: n - 0 или 1.

Если n=1, то минимальное значение индекса массива равно 1, по умолчанию n=0. Оператор должен выполняться перед описанием или перед первым обращением к какому-либо массиву.

REM - служит для внесения в текст программы комментариев

    REM комментарий

Оператор REM является неисполнительным оператором. После ключевого слова (remark - замечание) может следовать любой латинский или русский текст, а также символы псевдографики. В некоторых версиях языка, например MSX-BAS1C, BASICA, Бейсик-ПК8020, Бейсик-ПК8010, MBASIC, ключевое слово REM может быть заменено апострофом (символ ').

Некоторые версии интерпретаторов автоматически заносят на место апострофа REM с двоеточием (:) впереди, например в версиях Бейсик-ПК8020 и Бейсик-ПК8010. В версии MSX-BASIC нет такой замены и в тексте программы стоят апострофы.

При программировании на языке Бейсик необходимо учитывать три основные фактора, характерные, впрочем, для всех языков программирования: понимание программы, емкость используемой памяти, время выполнения программы.

В общем случае нельзя написать программу, в которой все эти три фактора оптимизированы, так как понимание программы находится в противоречии с двумя другими факторами. Емкость используемой памяти и время выполнения программы также находятся в противоречии друг с другом. Поэтому основные рекомендации при написании программ на языке Бейсик следующие: при отладке программы широко использовать комментарии, каждый оператор писать на отдельной строке, разделять пробелами ключевые слова, знаки операций и операнды. При отладке программы желательно использовать операторы трассировки и отладочную печать.

Когда программа отлажена, необходимо провести ее анализ и установить, какой из факторов необходимо оптимизировать: память или время выполнения. Возможно и последовательное улучшение обоих факторов, что приводит к итерационному процессу оптимизации программы. Если программа многоразового использования, то проведение итерационного процесса обязательно. При написании программы для решения одноразовой задачи оптимизация не обязательна, если время выполнения программы удовлетворяет программиста и программа помещается в памяти ПЭВМ.

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

Рекомендации по повышению скорости работы и одновременно уменьшению объема программы:

• убирать все ненужные операторы REM, оставляя лишь самые необходимые;
• не использовать лишние пробелы между операторами и операциями;
• использовать, если это возможно, несколько операторов в каждой программной строке, так как каждый раз, когда вы вводите новый номер строки и заканчиваете ее нажатием клавиши возврата каретки, объем программы увеличивается на 5 байт (2 байта - адрес программной строки, 2 байта - ее номер и 1 байт - возврат каретки);
• при присваивании опускать ключевое слово LET;
• использовать целочисленные переменные, например в операторах FOR, ON, DIM, TAB, так как целые числа занимают 2 байта, а числа одинарной точности - 4 байта, кроме этого затрачивается время на округление чисел;
• если подпрограмма всегда вызывается из одного места в программе, то следует использовать оператор безусловного перехода GOTO, а не вызов подпрограммы, так как активный оператор GOSUB занимает б байт памяти, а оператор GOTO памяти не требует;
• при программировании выражений стараться меньше использовать скобки, так как операции внутри скобок выполняются первыми и результат необходимо запоминать, а это занимает память;
• экономить размер массива, так как при определении массива резервируется память для всех элементов массива, даже если массив весь не заполнен.

Рекомендации по уменьшению объема программы:

• задавать сначала наиболее используемые переменные, когда переменная определена, она размещается в верхней части таблицы переменных; следующая переменная будет расположена ниже. При обращении к таблице переменных сокращается время поиска часто используемой переменной;
• использовать подпрограммы на внешних носителях, организуя их вызов в память на место уже отработавшей подпрограммы, например с помощью оператора CHAIN.

Рекомендации по повышению быстродействия программы:

• при работе с переменными, например строковыми или целочисленными, использовать операторы DEFSTR или DEFINT, так как они ускоряют обработку переменных и нет необходимости использовать специальные символы описания переменных;
• если возможно, использовать переменные, а не константы, так как доступ к переменным занимает меньше времени, чем перевод констант в число одинарной точности;
• использовать подпрограммы на машинном языке, которые особенно эффективны в наиболее часто исполняемых частях программы;
• выносить из циклов, особенно внутренних, все вычисления и инвариантные к условиям повторения фрагменты программы;
• использовать эффективные вычислительные алгоритмы.

Ввод данных в программу на языке Бейсик осуществляется несколькими способами (рис. З.1.):

1. Данные могут быть заданы в самой программе или вычислены в ней с помощью оператора присваивания LET.
2. Данные могут быть считаны с помощью оператора READ из таблицы данных, созданной оператором DATA.
3. Данные могут быть введены в программу пользователя с клавиатуры во время выполнения программы с помощью операторов UNPUT и LINE INPUT.
4. Символ может быть введен в программу пользователя с клавиатуры во время выполнения программы с помощью функций INKEY$, INPUT$.
5. Данные могут быть введены в программу из файла данных-с помощью операторов INPUT#, LINE INPUT# и функции INPUT$.

Рисунок 3.1.

Первый способ. С помощью оператора LET присваивается значение выражения переменной, заданной в левой части. Так как слово LET необязательно, то для лучшего понимания текста программы слово LET не указывают. Если задается

    LET Х=14 или Х=14 ,

то значение переменной X будет равным 14. Переменные, заданные слева от знака равенства в операторе присваивания, могут принимать любые значения. Выражение, стоящее справа от знака равенства в операторе присваивания, может быть любым числом, любой переменной или формулой (выражением), состоящей из чисел, переменных и знаков операций. Рассмотрим несколько примеров присваивания различных значений переменным.

    100 I%=4
    110 I%=I%+1
    120 D$="ПРИМЕР"
    130 D$=D$+D$
    140 Х=3
    150 Y=5
    160 Z=(X+Y)*X+2*(Y-X)

В программной строке 100 число 4 является значением переменной I%.

В строке 110 знак + является знаком операции сложения в обычном математическом понимании. В этом примере к значению переменной I%, равному 4, прибавляется 1 и полученное значение, равное 5, присваивается переменной I%.

В строке 120 строка "ПРИМЕР" является значением строковой переменной D$.

В строке 130 знак + является знаком операции конкатенации (сцепления) строк, которая создает строку, левая часть которой - первый операнд, а правая часть - второй операнд. Строка "ПРИМЕР" будет сцеплена со строкой "ПРИМЕР", и в результате будет получена новая строка "ПРИМЕРПРИМЕР". Таким образом, после выполнения программной строки 130 новым значением строки D$ будет "ПРИМЕРПРИМЕР".

В строках 140 и 150 переменной X присваивается значение, равное 3, а переменной Y - равное 5. В строке 160 справа от знака равенства стоит формула. Значения Х=3 и Y=5 подставляются в эту формулу, производятся вычисления с учетом скобок и приоритета операций. Полученный результат, равный 28, присваивается переменной Z. Таким образом, после выполнения строки 160 число 28 является значением переменной Z.

Второй способ. Данные в программу вводятся с помощью операторов READ и DATA. Оператор DATA позволяет вводить таблицы данных в программу, доступ к которым осуществляется оператором READ.

При выполнении оператора READ считывается значение из оператора DATA и присваивается переменной, заданной в операторе READ. Рассмотрим небольшую программу, данные в которую вводятся с помощью операторов READ и DATA:

    10 READ X
    20 PRINT X;
    30 GOTO 10
    40 DATA 1,2,3,4

Выполнение этой программы происходит следующим образом:

• выполняется программная строка 10. Указатель оператора READ стоит на первом элементе таблицы данных, созданной оператором DATA. Считывается первый элемент, который присваивается переменной X. Указатель оператора READ пересылается на следующий (второй) элемент таблицы данных. Таким образом, после выполнения строки 10 значение переменной X равно 1;
• выполняется программная строка 20. Значение переменной X, равное 1, выводится на экран. Точка с запятой после X указывает на то, что следующее число будет выведено на экран в ту же строку в следующую позицию с учетом того, что перед и после числа выводится пробел;
• выполняется программная строка 30. Осуществляется переход на строку 10;
• выполняется программная строка 10. Из таблицы данных считывается второй элемент, который присваивается переменной X. Указатель оператора READ пересылается на третий элемент таблицы. Таким образом, после выполнения строки 10, значение переменной X равно 2.

Далее последовательно выполняются строки 20,30, 10, 20, 30, 10, 20, 30, а на экране будут появляться числа 1 2 3 4.

При следующем выполнении строки 10 выдается сообщение об ошибке Out of data in 10 (Вне данных в 10), так как из таблицы данных считаны все элементы.

Чтобы избежать этой ошибки, необходимо либо программно проследить за соответствием количества элементов в таблице данных числу обращений к оператору READ, либо в программу вставить оператор RESTORE, который переопределяет указатель оператора READ на первый элемент таблицы данных, созданной оператором DATA. А если в операторе RESTORE указан номер строки, то указатель оператора READ устанавливается на первый элемент оператора DATA, стоящего в этой строке.

Чтобы считать данные из таблицы элементов, созданной оператором DATA, необходимо сделать следующее дополнение к программе:

    25 IF Х=4 THEN RESTORE
    RUN
     1  2  3  4  1  2  3  4  1  2  3  4  1  2  3  4 <CTRL-C>
    ВЫХОД В 25
    Ok

Для остановки выполнения программы нажимаются клавиши CTRL-C. Если программу дополнить программными строками

    25 IF Х=8 THEN RESTORE 50
    50 DATA 5,6,7,8

то при выполнении программы на экран дисплея будут выводиться следующие числа.

     1  2  3  4  5  6  7  8  5  6  7  8  5  6  7  8  5  6 <CTRL-C>

Удобный способ определения последнего элемента в операторе DATA заключается в следующем: поместить в оператор последним числом фиктивное число, намного превосходящее числа, которые обрабатываются в программе. Фиктивное число должно выбираться очень тщательно, чтобы его нельзя было спутать с обрабатываемыми данными. Рассмотрим следующую программу:

    10 DATA 8,4,5,7,-3,-8,4,1000
    20 S=0
    30 К=0
    40 READ X
    50 IF Х=1000 THEN GOTO 90
    60 K=K+1
    70 S=S+X
    80 GOTO 40 
    90 PRINT S,S/K,K
    100 END

В этой программе необходимо найти сумму и среднее арифметическое значение чисел 8, 4, 5, 7, -3, -8 и 4. Число 1000 - фиктивное. Когда оно будет прочитано, программа напечатает значение S (сумма), S/К (среднее арифметическое значение) н К (количество чисел), где К - счетчик чисел, которые должны быть просуммированы. Значение счетчика меняется только после того, как будет определено, что прочитано не фиктивное число, т. е. меньше 1000. Фиктивное число может быть расположено в отдельном операторе DATA, чтобы можно было изменять только обрабатываемые значения.

Оператор READ может одновременно читать несколько чисел. Из оператора DATA числа читаются в том же порядке, в каком выполняются в программе операторы READ.

С помощью оператора READ из таблицы данных, созданной оператором DATA, можно считывать как числовые, так и строковые данные, при этом необходимо учитывать, что тип переменной, заданной в операторе READ, должен соответствовать типу константы в операторе DATA, иначе появится сообщение об ошибке Type mismatch (Неверный тип).

Оператор DATA можно располагать в любой части программу. Его можно разделить на части. Рекомендуется не разбрасывать операторы DATA по программе. Лучше всего поместить их все вместе в начале или недалеко от конца программы, но до выполнения оператора END.

Третий способ. Часто бывает необходимо вводить элементы данных в программу во время выполнения. Для этой цели используются операторы ввода INPUT и LINE INPUT. Когда в программе встречается оператор INPUT или LINE INPUT, выполнение программы приостанавливается, на экране появляется знак вопроса и программа ожидает ввода данных. Оператор INPUT позволяет выводить на экран подсказку для пользователя. Вводимые данные присваиваются переменным, заданным в операторе INPUT, и могут быть строковыми и числовыми. При несоответствии типа вводимых данных и переменных в операторе INPUT на экран выводится сообщение ?Redo from start (?Повторите ввод), и программа ожидает ввода данных.

Может быть так, что какие-либо данные в программе будут меняться, например размерность массива, начальное или конечное значение счетчика, в этих случаях очень удобно применять оператор INPUT.

Следующая программа иллюстрирует этот случай.

    10 INPUT "Размерность массива = ";N
    20 DIM NAME$(N),MAS(N)
    30 FOR I=1 TO N
    40 PRINT I,
    50 INPUT "Фамилия " ;NAME$(I)
    60 INPUT "Оклад ";MAS(I)
    70 NEXT
    80 PRINT
    90 FOR I=1 TO N
    100 IF MAS(I) > 100 THEN PRINT I,NAME$(I),MAS(I)
    110 NEXT
    RUN
    Размерность массива =? 5
     1 Фамилия ? Иванов 
    Оклад ? 150
     2 Фамилия ? Петров 
    Оклад ? 80
     3 Фамилия ? Антонов
    Оклад ? 175
     4 Фамилия ? Смирнов
    Оклад ? 105
     5 Фамилия ? Кузнецов 
    Оклад ? 95
    
     1 Иванов 150
     2 Антонов 175
     3 Смирнов 105
    Ok

Если в программе необходимо вводить строки, то рекомендуется использовать оператор LINE INPUT. Этот оператор присваивает строковой переменной строку текста любого содержания длиной до 255 символов. В отличие от INPUT оператор LINE INPUT не печатает знак вопроса, если он не является частью строки подсказки.

Четвертый способ. Функция INPUT$ позволяет вводить определенное пользователем количество символов с клавиатуры или из файла данных. Если вводится больше символов, чем было определено при задании функции, то лишние данные игнорируются, а если меньше, то недостающими символами являются пробелы.

Функция INKEY$ также позволяет влиять на выполнение программы с клавиатуры. Эта функция вводит либо символ, считанный с клавиатуры, либо пустой символ, если не была нажата никакая клавиша. Введенный символ не отображается на экране дисплея. Перед использованием функции INKEY$ необходимо присвоить ей значение строковой переменной. Следующие программные строки демонстрируют работу функции INKEY$:

    ...
    100 PRINT "Нажмите клавишу <возврат каретки>"
    110 A$=INKEY$
    120 IF A$=CHR$(&H0D) THEN GOTO 140
    130 GOTO 110
    ...

В данном примере функция INKEY$ позволяет продолжить, например, вывод на экран информации после нажатия клавиши возврата каретки.

Удобно пользоваться функцией INKEY$ при чтении с экрана каких-либо директив, например, в обучающих прикладных программах, в программных меню. Следующий пример демонстрирует эту возможность.

    ...
    100 PRINT 1;"СОЗДАТЬ ФАЙЛ"
    110 PRINT 2;"СТЕРЕТЬ ФАЙЛ"
    120 PRINT 3;"ПЕРЕИМЕНОВАТЬ ФАЙЛ"
    130 PRINT 4;"ОТРЕДАКТИРОВАТЬ ФАЙЛ"
    140 PRINT 5;"КОНЕЦ РАБОТЫ"
    150 SM$=INKEY$
    160 IF SM$="" THEN GOTO 150
    170 SM=VAL(SM$)
    180 ON SM GOSUB 220,300,400,500,600
    190 PRINT "Вы ввели неправильный номер задания"
    200 PRINT "Попробуйте еже раз"
    210 GOTO 100
    220 REM "1 Создать файл"
    ...
    300 REM "2 Стереть файл"
    ...
    400 REM "3 Переименовать файл"
    ...
    500 REM "4 Отредактировать файл"
    ...
    600 REM "5 Конец работы"
    610 PRINT "Конец работы"
    620 END

Пятый способ. В программу данные могут вводиться из файла данных, с помощью операторов INPUT#, LINE INPUT# и функции INPUT$. Предположим, что ранее был создан файл с последовательным доступом FILE.DAT. Следующая программа считывает данные из этого файла, присваивает переменной X и сравнивает значение переменной с нулем. Если значение X меньше нуля, то оно выводится на печатающее устройство.

    10 OPEN "I",#1,"FILE.DAT"
    20 IF EOF(1) THEN END
    30 INPUT #1,X
    40 IF X<0 THEN LPRINT X ELSE GOTO 20

Если из файла данных требуется считывать длинный текст, то рекомендуется использовать оператор LINE INPUT#.

Вывод данных - в языке Бейсик можно выводить на экран дисплея или на печатающее устройство числа и текст.

Для вывода на экран используется оператор PRINT, а для вывода на печатающее устройство - оператор LPRINT. В дальнейшем будем рассматривать только оператор PRINT, так как оператор LPRINT обладает аналогичными возможностями. Оператор PRINT можно использовать для:

• вывода на экран текущего значения переменных и констант

      PRINT X,Y,Z
      PRINT 1;-2,3.6
      PRINT X,0,F$

• выполнения вычислений и вывода на экран их результатов

      PRINT I;EXP(I),SQR(I),I^2+I^4
      PRINT 1/SIN(X+Y*Z)

• вывода на экран текстовых сообщений

      PRINT "ПРОГРАММА РЕШЕНИЯ КВАДРАТНОГО УРАВНЕНИЯ"
      PRINT "КВАДРАТ ЧИСЛА";Y;"РАВЕН";Y*Y

Оператор PRINT без параметров выводит на экран пустую строку.

Оператор PRINT, обладая большой гибкостью, позволяет получить различные форматы вывода на экран. Ниже описывается использование оператора PRINT в версии MBASIC; использование операторов PRINT в других версиях представлено в 3.5.

Позиция каждого выведенного на экран элемента определяется знаком препинания в списке выражений оператора PRINT. Экранная строка условно делится на зоны вывода по 14 символов каждая. Управление использованием эон производится с помощью запятых в списке выражений. Запятая указывает на то, что следующее значение будет выводиться с начала следующей зоны, а если все зоны вывода уже заполнены, то с начала первой зоны следующей строки.

Точка с запятой в списке выражений указывает на то, что следующее значение будет выводиться со следующей позиции с учетом пробелов при выводе чисел. Так, за числом всегда следует пробел. Положительному числу предшествует пробел, а отрицательному числу - знак минус. Строки, заключенные в кавычки, печатаются без изменений. Поэтому следующие операторы дадут различные результаты. Например:

    10 PRINT 1;2
    20 PRINT "1";"2"
    30 PRINT 10,20
    40 PRINT "10","20"
    RUN 
     1  2
    12 
     10         20
    10        20

Если запятая или точка с запятой заканчивают список выражений, то следующий оператор PRINT (или INPUT) продолжит вывод в той же строке через соответствующее число пробелов, в противном случае вывод продолжается со следующей строки. Например:

    10 PRINT "А" 
    20 GOTO 10
    RUN 
    A
    A
    A
    A
    ...

При изменении программной строки 10 на строку

    10 PRINT "А",

получается

    RUN 
    A        A        A        A        A        A
    A        A        A        A        A        A
    A        A        A        A        A        A
    A        A        A        A        A        A
    ...

А если изменить программную строку 10 иа строку

    10 PRINT "А";

получается

    RUN 
    AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
    AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
    AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
    AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA...

Оператор PRINT без параметров можно использовать для включения пустой строки, если необходимо разделить полученные результаты, или для перехода на новую строку. Например:

    10 FOR I=1 ТО N
    20 FOR J=1 ТО N
    30 PRINT X(I,J);
    40 NEXT J
    50 PRINT
    60 NEXT I

Программная строка 50 необходима для того, чтобы после печати значения Х(1,1) следующее значение Х(2,1) начало печататься в следующей строке и т. д.

Для форматирования выходной строки в языке Бейсик существуют следующие средства: функция ТАВ позволяет выводить информацию с заданной позиции строки дисплея:

• функция SPC выводит заданное число пробелов в строке;
• функция SPACE$ образует строку, состоящую из заданного числа пробелов;
• команда NULL определяет число пустых символов, выводимых после возврата каретки, т. е. задает левую границу экрана;
• оператор WIDTH устанавливает ширину строки дисплея, т. е. задает правую границу экрана;
• оператор PRINT USING позволяет выводить строковые и числовые данные, используя формат, заданный в операторе. Оператор PRINT USING определяет правую границу выравнивания, печатает знак + или - в начале или конце числа, печатает числа в экспоненциальной форме и т. п.

Иногда в программе может потребоваться очистить экран перед выводом определенной информации, для этой цели используется либо команда CLS, которая будет рассмотрена в гл. б, либо оператор PRINT, заданный следующим образом:

    PRINT CHR$(12)

где 12 (или &Н0С) - код очистки экрана. В разных ПЭВМ этот код может изменяться.

Для вывода данных на экран дисплея можно использовать и оператор WRITE. Различие между операторами PRINT и WRITE в том, что оператор WRITE вставляет запятые между элементами, заключает строки в кавычки и положительным числам не предшествует пробел.

Безусловный переход - принудительное, без проверки каких-либо условий, изменение последовательности выполнения программы.

Выполнение программы начинается с программной строки с наименьшим номером и следует далее в порядке увеличения номеров строк. Часто бывает необходимо прервать последовательное выполнение. Для этой цели используется оператор безусловного перехода GOTO, передающий управление программной строке, номер которой указан за ним. Например, если задан GOTO 100, то следующей будет выполняться программная строка с номером 100.

Оператор вычисляемого перехода ON ... GOTO позволяет использовать значение выражения для выбора номера строки программы из списка значений. Например, оператор ON VAR GOTO 100, 200, 300, 400 передает управление программной строке 100, если значение VAR равно 1, строке 200, если VAR равно 2 и т. д. Если значение переменной VAR - не целое число, то оно округляется. Если значение переменной равно 0 или больше количества номеров строк в списке, то будет выполняться следующая программная строка. Если значение переменной отрицательное или больше 255, то выдается сообщение об ошибке. Программная строка 10 ON VAR GOTO 100, 200, 300, 400 эквивалентна следующим программным строкам:

    10 IF VAR=1 THEN GOTO 100
    20 IF VAR=2 THEN GOTO 200
    30 IF VAR=3 THEN GOTO 300
    40 IF VAR=4 THEN GOTO 400

Подпрограмма - часть программы, допускающая многократное обращение из разных точек программы.

Подпрограммы, используемые в программах, написанных на языке Бейсик, могут быть написаны на языке Бейсик или на языке ассемблера (машинном языке).

В языке Бейсик можно организовать программу так, что различные программные сегменты будут выступать в роли подпрограмм. Для обращения к таким подпрограммам используется оператор вызова подпрограммы GOSUB. Оператор возврата из подпрограммы RETURN возвращает управление из подпрограммы обратно в вызывающую программу, после чего программа продолжает выполняться с оператора, следующего за оператором GOSUB. Подпрограмма может содержать несколько операторов RETURN для возврата из разных точек подпрограммы. В программе может быть любое количество подпрограмм. Подпрограмма может обратиться к другой подпрограмме, но всегда должна возвращать управление вызывающей программе. Разрешается любая глубина вызова подпрограмм, однако необходимо следить за тем, чтобы возврат из подпрограммы осуществлялся в той же последовательности, что и вызов. Подпрограммы могут находиться в любом месте программы, но часто используемые рекомендуется размещать в начале программы. Рассмотрим пример использования оператора GOSUB на программе получения простых чисел.

    10 REM "Программа получения простых чисел"
    20 INPUT "СКОЛЬКО ВЫ ХОТИТЕ ПОЛУЧИТЬ ПРОСТЫХ ЧИСЕЛ ==> ";N
    30 DIM X(N)
    40 X(1)=1
    50 X(2)=2
    60 X(3)=3
    70 X(4)=5
    80 Y=5
    90 I=3
    100 GOSUB 500
    110 Y=Y+2
    120 GOSUB 500
    130 Y=Y+4
    140 IF I<N THEN GOTO 100
    150 GOTO 600
    500 REM "Подпрограмма"
    510 FOR J=4 TO I
    520 Z=X(J)
    530 IF Z*Z>Y THEN GOTO 570
    540 R=Y-INT(Y/Z)*Z
    550 IF R=0 THEN RETURN
    560 NEXT J
    570 I=I+1
    580 X(I)=Y
    590 IF I<=N THEN RETURN
    600 REM "Вывод полученного массива простых чисел на экран"
    610 PRINT "Следующий список содержит ";N;" простых чисел"
    620 PRINT
    630 К=0
    640 FOR I=1 ТО N
    650 PRINT ТАВ(7*К);Х(I);
    660 К=К+1
    670 IF К<9 THEN GOTO 700
    680 К=0
    690 PRINT
    700 NEXT I
    710 END

Если в программе обращаются к подпрограмме только один раз, то рекомендуется использовать не оператор GOSUB, а оператор GOTO.

С помощью оператора вызова подпрограммы ON ... GOSUB можно обратиться к одной из нескольких заданных подпрограмм. Переход осуществляется в зависимости от значения выражения, стоящего после ключевого слова ON. Это значение определяет, какая подпрограмма будет вызываться. В списке после ключевого слова GOSUB может быть любое количество номеров строк. Некоторые из них могут повторяться. Если значение выражения не является целым числом, то используется целая часть этого значения для определения, куда должно быть передано управление.

В языке Бейсик отдельные программы, сохраненные на НГМД, можно использовать как подпрограммы и вызывать из основной (корневой) программы. Для этой цели команды RUN, LOAD, MERGE и другие используются в программном режиме. (Подробно эти команды описаны в гл. 4.) Эти возможности реализуются при создании программ меню.

Например:

    90 PRINT "Вызов игры по номеру"
    95 PRINT
    100 PRINT "      ИГРЫ"
    105 PRINT
    110 PRINT " 1. ОТЕЛЛО (реверси) (человек-компьютер) "
    120 PRINT " 2. ОТЕЛЛО (человек-человек)"
    130 PRINT " 3.   МОРСКОЙ БОЙ"
    140 PRINT " 4.   СКАЧКИ"
    150 PRINT " 5.   НАРДЫ"
    160 PRINT " 6.   ТРЕХМЕРНЫЕ КРЕСТИКИ-НОЛИКИ"
    170 PRINT " 7.   КРОСС"
    180 PRINT " 0.   КОНЕЦ ПРОГРАММЫ"
    190 KK$=INKEY$ : IF КК$="" THEN GOTO 190
    200 IF КК$=" " THEN GOTO 190
    210 IF KK$="0" THEN END
    220 IF KK$="1" THEN NAME$="OTHELLO.BAS"
    230 IF KK$="2" THEN NAME$="OTHELLO1.BAS"
    240 IF KK$="3" THEN NAME$="BOJ.BAS"
    250 IF KK$="4" THEN NAME$="HORSE.BAS"
    260 IF KK$="5" THEN NAME$="NARD.BAS"
    270 IF KK$="6" THEN NAME$="QUBIC.BAS"
    280 IF KK$="7" THEN NAME$= "GROSS.BAS" ELSE GOTO 300
    290 RUN NAME$
    300 PRINT "Вы набрали неправильный номер задания""
    305 PRINT "Введите еце раз"
    310 GOTO 190

Эта программа позволяет перейти к выполнению любой из перечисленных игровых программ. При нажатии клавиши с соответствующим номером игры происходит загрузка и выполнение нужной программы с помощью команды RUN, заданной в программной строке 290. В вызываемых программах рекомендуется создавать возможность возврата в программу МЕНЮ. В следующем примере для присоединения к основной программе отдельных подпрограмм используется команда MERGE также в программном режиме. Например:

    100 K$=INKEY$ : IF K$="" THEN GOTO 100
    105 IF K$=" " THEN GOTO 1000
    110 IF K$="A" OR K$="a" THEN MERGE "PROGA.A"
    120 IF K$="B" OR K$="b" THEN MERGE "PROGD.A"
    130 IF К$="С" OR K$="c" THEN MERGE "PROGC.A"
    140 IF K$="D" OR K$="d" THEN MERGE "PROGD.A"
    150 IF K$="E" OR K$="e" THEN MERGE "PROGE.A"
    160 GOTO 10

Необходимо помнить, что программы PROGA.A, PROGB.A, PROGC.A, PROGD.A и PROGE.A должны быть сохранены в коде ASCII (КОИ-8), т. е. при записи этих программ на диск в команде SAVE надо указать параметр А (см. гл. 4).

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

Для работы с подпрограммами на языке ассемблера необходимо зарезервировать требуемую память. Бейсик использует всю память, доступную от его начального адреса вверх (максимально 64 Кбайт), поэтому только верхние адреса в памяти могут быть отведены для подпрограмм. Чтобы зарезервировать память для подпрограмм, можно использовать один из способов:

• при вызове интерпретатора указать максимальное число байтов, которые могут быть использованы как рабочее пространство, например:

      BASIC /M:&H8000

• с помощью оператора CLEAR установить максимальное число байтов, которые могут быть использованы интерпретатором, например:

      CLEAR &H8000

Когда вызывается подпрограмма на языке ассемблера, интерпретатор выделяет 16 бит стековой памяти для работы этой подпрограммы. Если необходимо больше стекового пространства, то стек интерпретатора Бейсика должен быть сохранен и дополнительно должен быть определен собственный стек подпрограммы на языке ассемблера. При возврате в Бейсик-программу, из которой осуществляется вызов, следует восстановить указатель стека интерпретатора.

Подпрограмма на языке ассемблера может быть загружена в память с помощью системного монитора, оператора РОКЕ, а также с помощью программы LINK после трансляции.

Так, относительно короткие программы могут быть закодированы на машинном языке прямо в интерпретаторе, для этого необходимо выполнить следующие действия:

• ввести в операторы DATA шестнадцатеричные значения кодов каждого байта в формате, определенном в каждой конкретной версии; если шестнадцатеричного представления в данной версии нет, то можно задавать десятичные значения;
• выполнить цикл, который считывает байты данных, и затем занести их в область, зарезервированную ранее при вызове интерпретатора или оператором CLEAR.

Например:

    ...
    1000 REM N% - начальный адрес подпрограммы; M% - конечный адрес подпрограммы на машинном языке
    1010 FOR I%=N% ТО M%
    1020 READ J%
    1030 POKE I%, J%
    1040 NEXT
    1050 SUBRT%=N%
    1060 A%=2 : B%=3 : C%=0
    1070 CALL SUBRT%(A%,B%,C%)
    1080 PRINT C% : REM "С" - результат"
    ...
    1900 DATA &H55,...

Для вызова подпрограмм, написанных на машинном языке, используются функциональный вызов USR и оператор CALL.

Условный оператор - оператор, осуществляющий проверку истинности выполнения определенного условия и задающий альтернативные последовательности выполнения команд.

В языке Бейсик это позволяет делать оператор IF.

    100 IF Ac>5 THEN GOTO 360 ELSE PRINT 5

Оператор IF имеет три части: часть IF (в примере IF А < > 5), часть THEN (в примере THEN GOTO 360) и часть ELSE (в примере ELSE PRINT 5). Часть IF содержит логическую формулу, а части THEN и ELSE - один или несколько операторов, разделенных двоеточием. Часть ELSE может быть совсем опущена. При выполнении оператора IF сначала вычисляется логическая формула. Если это значение истинно, то выполняется часть THEN, а если это значение ложно, то часть ELSE, если она существует, или следующая программная строка. В данном примере будет осуществлен переход на программную строку 360, если значение переменной А не равно 5. Если значение переменной А равно 5, то будет печататься 5 и выполняться следующая программная строка.

    10 INPUT "Введите число (0-19) ";N
    20 IF N<5 THEN PRINT "Должно быть больше"
    30 IF N>5 THEN PRINT "Должно быть меньше"
    40 IF N<>5 THEN GOTO 10
    50 PRINT "Вы угадали число"
    RUN
    Введите число? 7
    Должно быть меньше
    Введите число? 4 
    Должно быть больше 
    Введите число? 5 
    Вы угадали число 
    Ок

В программной строке 10 осуществляется ввод числа в программу. В программной строке 20 проверяется условие: введенное число меньше 5? Если меньше, то печатается сообщение "Должно быть больше". В строке 30 проверяется условие: введенное число больше 5? Если больше, то печатается сообщение "Должно быть меньше". Программная строка 40 проверяет введенное число на неравенство пяти. Если число не равно пяти, то осуществляется переход на строку 10, и программа продолжает выполняться с начала. Если же введенное число равно пяти, то печатается сообщение "Вы угадали число", и выполнение программы заканчивается.

В логической формуле части IF могут быть использованы операции отношения: равно, не равно, меньше, больше, меньше или равно, больше или равно и логические операции: AND, OR, XOR, NOT, EQV и IMP.

Переменные в логической формуле оператора IF могут быть как числовыми, так и строковыми.

Цикл - программная реализация повторяющихся операций - многократно повторяемое выполнение одной и той же последовательности инструкций в программе, используемых при обработке регулярных массивов данных, вычислении рекурсивных соотношений и в других эффективных вычислительных процедурах.

Условиями выхода из цикла могут являться достижение предельного адреса, обнуление счетчика циклов, сходимость и другие условия.

В языке Бейсик существуют четыре способа организации циклов, которые будут рассмотрены для следующей задачи: создать таблицу натуральных чисел от единицы до ста, квадратов, кубов и корней этих чисел и вывести результаты вычислений на печатающее устройство.

Первый способ.

    10 LPRINT "ЧИСЛО";ТАВ(10);"КОРЕНЬ";ТАВ(20);
    20 LPRINT "КВАДРАТ";ТАВ(30);"КУБ"
    21 LPRINT 1;ТАВ(10);SQR(1);ТАВ(20);1^2;ТАВ(30);1^3
    22 LPRINT 2;TAB(10);SQR(2);TAB(20);2^2;TAB(30);2^3
    ...
    120 LPRINT 100;TAB(10);SQR(100);TAB(20);100^2;TAB(30);100^3

В программных строках 10 и 20 выводится на печатающее устройство заголовок таблицы. В следующих строках вычисляются и выводятся на печатающее устройство само число, его квадратный корень, квадрат и куб. Каждая программная строка обрабатывает конкретную константу от 1 до 100.

Второй способ. При первом способе организации цикла каждое значение, которое надо вычислить и напечатать, задается в программной строке как константа. Зададим эти значения как переменные и будем присваивать этим переменным конкретные значения. Используя условный оператор IF, который проверяет заданное условие, и оператор безусловного перехода GOTO, создаем цикл.

    10 LPRINT "ЧИСЛО";ТАВ(10);"КОРЕНЬ";ТАВ(20);
    20 LPRINT "КВАДРАТ";ТАВ(30);"КУБ"
    30 Х=1
    40 LPRINT X;TAB(10);SQR(X);ТАВ(20);Х^2;ТАВ(З0);Х^3
    50 Х=Х+1
    60 IF Х<=100 THEN GOTO 40

Таким способом для программирования этого же задания потребовалось 6 программных строк. Программные строки 10 и 20 печатают заголовок таблицы. Программная строка 30 присваивает переменной X начальное значение, равное 1. Программная строка 40 вычисляет и выводит на печатающее устройство число, его корень, квадрат и куб. Программная строка 50 увеличивает значение переменной X на 1. В программной строке 60 проверяется значение переменной X: если оно меньше или равно 100, то осуществляется пере сод на программную строку 40, и переменная X с новым значением продолжает обрабатываться. А если значение переменной X больше 100, то выполнение программы прекращается.

Следующие два способа иллюстрируют автоматическую организацию цикла.

Третий способ. Создадим автоматический цикл, используя операторы FOR...NEXT.

    10 LPRINT "ЧИСЛО";ТАВ(10);"КОРЕНЬ";ТАВ(20);
    20 LPRINT "КВАДРАТ";ТАВ(30);"КУБ"
    30 FOR Х=1 ТО 100
    40 LPRINT X;TAB(10);SQR(X);TAB(20);X^2;TAB(30);X^3
    50 NEXT

Таким способом для программирования этого же задания потребовалось 5 программных строк. Программные строки 10 и 20 выводят на печатающее устройство заголовок таблицы. Программная строка 30 является заголовком цикла, в котором указывается начальное, конечное значения счетчика цикла и шаг цикла. В этом примере шаг цикла, равный 1, задан по умолчанию. Шаг цикла - это число, которое прибавляется к значению счетчика. Программные строки, следующие за оператором FOR, выполняются до тех пор, пока не встретится оператор NEXT. Затем к содержимому счетчика прибавляется значение шага. Выполняется проверка счетчика на конечное значение. И в зависимости от этого цикл повторяется или заканчивается, и выполняются операторы, следующие за оператором NEXT. Таким образом, программная строка 40, выполняющая вычисления квадрата, куба и корня и выводящая эти значения на печать, выполнилась 100 раз. Переменная счетчика X увеличивается на 1 автоматически, и каждый раз программная строка 40 обрабатывает новое значение переменной X, которая используется в этой строке для вычисления корня, квадрата и куба. Использование переменной счетчика X в программной строке 40 разрешено, так как в этой строке не изменяется само значение переменной X.

Четвертый способ. Создадим автоматический цикл, используя операторы WHILE...WEND.

    10 LPRINT "ЧИСЛО";ТАВ(10);"КОРЕНЬ";ТАВ(20);
    20 LPRINT "КВАДРАТ";ТАВ(30);"КУБ"
    30 Х=1
    40 WHILE Х<=100
    50 LPRINT X;ТАВ(10);SQR(X);ТАВ(20);Х^2;ТАВ(30);Х^3
    60 Х=Х+1
    70 WEND

Для программирования этого же примера таким способом потребовалось 7 программных строк. Программные строки 10 и 20 выводят на печатающее устройство заголовок таблицы. В программной строке 30 переменной X присваивается начальное значение, равное 1. Программная строка 40 является заголовком цикла. Программная строка 50 выполняет вычисления корня, квадрата и куба числа и выводит их значение на печатающее устройство. В программной строке 60 значение переменной X увеличивается на 1. Программные строки или операторы, расположенные между операторами WHILE и WEND, выполняется до тех пор, пока заданное условие (а именно, X <= 100) истинно. Оператор WEND является концом цикла.

Встроенные функции - подпрограммы, обращение к которым в языке Бейсик стандартизовано. При записи встроенных функций аргумент функции должен быть заключен в скобки и записан после имени функции.

В качестве аргумента может быть использовано число, переменная или выражение. Выражение может содержать обращение к другим функциям. Например:

    10 INPUT X
    20 PRINT X,SIN(X),COS(X),TAN(X),1/TAN(X)
    30 PRINT SIN(SQR(X)+1)

Эта программа выводит на экран число, его синус, косинус, тангенс, котангенс, а также синус квадратного корня числа X плюс 1. Число X вводится с клавиатуры.

Следующая программа, использующая встроенные функции, находит числа I, J и К, для которых I*I+J*J=K*K.

    10 N=100
    20 FOR I-1 ТО N-1
    30 FOR J=I+1 TO N
    40 K=SQR(I*I+J*J)
    50 IF K<>INT(K) THEN GOTO 70
    60 PRINT I,J,К
    70 NEXT J,I
    80 END

Встроенные функции в основном используются для математических преобразований, для переводя переменных одного типа в другой и для преобразования строк (строковые функции).

Математические функции - к математическим функциям в языке Бейсик относятся тригонометрические функции, абсолютное значение числа (ABS), экспонента числа (ЕХР), извлечение квадратного корня (SQR), образование знака, целой части и натурального логарифма числа (SGN, FIX и LOG соответственно) и определение самого большого целого числа меньшего или равного аргументу (INT).

При решении некоторых задач, особенно статистических, игровых и обучающих, может потребоваться, чтобы числа задавались случайным образом. Для получения случайных чисел используется функция RND, которая генерирует псевдослучайные числа в диапазоне от 0 до 1. При каждом выполнении программы будет генерироваться одна и та же последовательность случайных чисел. В некоторых задачах требуется, чтобы последовательность генерировалась каждый раз новая. Для этого рекомендуется сделать переменным аргумент функции RND или вставить в программу оператор RANDOMIZE до первого обращения к функции RND, поэтому лучше его вставлять в начало программы. Случайные числа рекомендуется использовать в обучающих программах для задания начальных условий в различных вариантах, чтобы эти условия были непредсказуемы для обучающихся с помощью этой программы.

Тригонометрические функции - язык Бейсик предоставляет возможность пользоваться следующими тригонометрическими функциями: ATN - арктангенс числа; COS - косинус угла; SIN - синус угла; TAN - тангенс угла.

Аргументы в тригонометрических функциях задаются в радианах. Для перевода градусов в радианы их нужно умножить на π/180. Важно отметить, что при переводе из радиан в градусы и обратно, чем точнее величина π, тем точнее будет выполнено преобразование. (Для справки: более точное значение числа π = 3.14159265358)

В языке Бейсик нет встроенных функций секанса, косеканса, котангенса и т. д., но их можно вычислить, используя существующие в языке встроенные функции:

• секанс - SEC(X) = 1/COS(X)
• косеканс - CSC(X) = 1/SIN(X)
• котангенс - COT(X)=1/TAN(X)
• арксинус - ARCSIN(X)=ATN(X/SQR(1-Х*Х))
• арккосинус - ARCCOS(X)=1.570796-ATN(X/SQR(1-Х*Х))
• арксеканс - ARCSEC(X)=ATN(SQR(X*X-1))+(X<0)*3.141593
• арккосеканс - ARCCSC(X)=ATN(1/SQR(X*X-1))+(X<0)*3.141593
• арккотангенс - ARCCOT(X)=1.570796-ATN(X)
• гиперболический синус - SINH(X)=(EXP(X)-EXP(-X))/2
• гиперболический косинус - COSH(X)=(EXP(X)+EXP(-X))/2
• гиперболический тангенс - TANH(X)=(EXP(X)-EXP(-X))/(EXP(X)+EXP(-X))
• гиперболический секанс - SECH(X)=2/(EXP(X)+EXP(-X))
• гиперболический косеканс - CSCH(X)=2/(EXP(X)-EXP(-X))
• гиперболический котангенс - СОТН(Х)=(ЕХР(Х)+ЕХР(-Х))/(ЕХР(Х)-ЕХР(-Х))
• арксинус гиперболический - ARCSINH(X)=LOG(X+SQR(X*X+1))
• арккосинус гиперболический - ARCCOSH(X)=LOG(X+SQR(X*X-1))
• арктангенс гиперболический - ARCTANH(X)=LOG((1+X)/(1-X))/2
• арксеканс гиперболический - ARCSECH(X)=LOG((1+SQR(1+SQR(1-X*X))/X)
• арккосеканс гиперболический - ARCCSCH(X)=LOG((1+SGN(X)*SQR(1+X*X))/X)
• арккотангенс гиперболический - ARCCOTH(X)=LOG((X+1)/(X-1))/2

Чтобы использовать эти функции, можно применить оператор DEF FN.

Например, для арксинуса гиперболического

    DEF FNAS(X)=LOG(X+SQR(X*X+1))

с последующим обращением к наименованию функции, когда необходимо,

    Z=FNAS(Y).

Перевод переменных одного типа в другой - преобразование типа данных, т. е. преобразование последовательности символов в число или наоборот, изменение точности числовой переменной и другие преобразования подобного типа в языке Бейсик осуществляются с помощью встроенных функций:

• CINT переводит числовой аргумент в целое число;
• CSNG переводит числовой аргумент в вещественное число одинарной точности;
• CDBL переводит числовой аргумент в вещественное число двойной точности;
• CVI, CVS и CVD переводят строковые переменные в числа заданной точности;
• MKI$, MKS$ и MKD$ переводят числа в строковые переменные.

Строковые функции. Для работы со строковыми данными используются следующие встроенные функции:

• ASC определяет код ASCII (КОИ-8) первого символа строковой переменной;

      PRINT ASC("S"),АSС("Ф")
       ВЗ      230

• CHR$ определяет символ по заданному коду ASCII (КОИ-8);

      CRLF$=CHR$(13)+CHR$(10)
      PRINT CHR$(&H74)+CHR$(234)
      tй

• LEN вычисляет длину строки, т. е. число символов строковой переменной;

      PRINT LEN("BASIC-программа")
       15

• LEFT% определяет самые левые символы строковой переменной;

      PRINT LEFT$("BASIC-программа",5)
      BASIC

• RIGHT$ определяет самые правые символы строковой переменной;

      PRINT RIGHT$("BASIC-программа", 9)
      программа

• MID$ определяет часть строки в строке, начиная с заданной позиции;

      PRINT MID$("ПРОГРАММА",4,5)
      ГРАММ

• VAL определяет числовое значение строковой переменной;

      PRINT VAL("35")+VAL("15")
       50

• STR$ вычисляет строковое значение числовой переменной;

      PRINT STR$(35)+STR$(15)
      3515

• HEX$ переводит число в шестнадцатеричную строку;

      PRINT НЕХ$(42)
       2A

• OCT$ переводит число в восьмеричную строку;

      PRINT ОСТ$(42)
       60

• SPACE$ воспроизводит строку пробелов;

      PRINT SPACE$(5);"ПРОБЕЛ";SPACE$(5);"SPACE"
           ПРОБЕЛ     SPACE

• STRING$ вычисляет символ, повторяемый заданное число раз;

      PRINT STRING$(5,42);"BASIC",STRING$(5, 47)
      *****BASIC/////

• INSTR определяет позицию части строки в строке, начиная с заданной позиции;

      PRINT INSTR(2,"ПРОГРАММА","Р")
       5

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

Важнейшей особенностью языка Бейсик является включение в его состав инструкций работы с оперативной памятью.

Функция РЕЕК и оператор РОКЕ используются соответственно для считывания и изменения содержимого ячеек оперативной памяти.

Функция РЕЕК позволяет считывать содержимое любой ячейки оперативной памяти в ПЭВМ.

    10 INPUT " =>";N
    20 PRINT N,PEEK(N),CHR$(PEEK(N))
    30 N=N+1
    40 GOTO 20

Программная строка 10 устанавливает начальный адрес, заданный десятичным числом, начиная с которого будет печататься содержимое ячеек. Программная строка 20 выводит на печатающее устройство адрес (N), т. е. номер байта, содержимое которого необходимо проверить; содержимое этого байта (PEEK(N)), выраженное десятичным числом; графический символ (CHR$(PEEK(N))), код которого находится по адресу N.

Изменяя значение N, можно выполнять эту программу для различных областей памяти.

Оператор РОКЕ позволяет заносить содержимое байта по заданному адресу памяти. Запишем некоторую информацию в память, начиная с шестнадцатеричного адреса 6000.

    10 N=&H6000
    20 READ D
    30 POKE N,D
    40 N=N+1
    50 IF N=&H600B THEN END
    60 GOTO 20
    70 DATA 80,69,69,75,45,65,45,66,79,79,33

Программа выполняется следующим образом. Программная строка 10 инициализирует начальный адрес. Программная строка 20 считывает число из оператора DATA. Программная строка 30 записывает значение D по адресу N. Программная строка 40 увеличивает адрес на 1. Программная строка 50 заканчивает выполнение после того, как все данные из оператора DATA будут записаны. Программная строка 60 возвращает управление для дальнейшего считывания значений из оператора DATA. Программная строка 70 содержит данные, которые будут записаны в память.

Следующая программа проверит, что записалось в память оператором РОКЕ.

    200 FOR N=&H6000 ТО &Н600А
    210 PRINT HEX$(N),PEEK(N) 
    220 NEXT
    RUN 
    6000        80
    6001        69
    6002        69
    6003        75
    6004        45
    6005        65
    6006        45
    6007        66
    6008        79
    6009        79
    600А        33

Оператор POKE может быть использован для установки курсора в требуемую позицию.

Порт ввода-вывода - это аппаратно-адресуемое устройство ввода-вывода, которому могут быть переданы (или от него получены) данные.

Язык Бейсик позволяет непосредственно считывать и изменять содержимое ячеек оперативной памяти, порта ввода-вывода, что позволяет писать программы управления на языке Бейсик, а не на языке ассемблера.

В языке Бейсик имеются инструкции INP и OUT, аналогичные по своему действию операторам IN и OUT языка ассемблера. Так, оператор OUT записывает числовые значения в порт ввода-вывода, а функция INP определяет значение байта заданного порта. Необходимо помнить, что номера портов в различных вычислительных машинах могут отличаться.

В языке Бейсик есть возможность приостанавливать выполнение программы, пока обрабатывается состояние входного порта машины, т. е. пока входной порт машины не выработает определенного сигнала. Для этой цели используется оператор WAIT. Но необходимо быть осторожным, так как с помощью оператора WAIT можно войти в бесконечный цикл, для останова которого необходимо перезагружать вычислительную машину.

ABS - функция определения абсолютного значения числа X

Y=ABS(X)

X - числовое выражение.

Абсолютное значение всегда положительно или равно нулю. Например:

    PRINT ABS(7*(-5))
     35 
    Ok

ACS - функция вычисления арккосинуса числа X

Y=ACS(X)

X - числовое выражение.

Результат выполнения функции выдается в радианах. Если значение числа X не лежит в диапазоне от -1 до +1, то выдается сообщение об ошибке Invalid argument (Неправильный аргумент).

Например:

    100 IF ACS(X)>0 THEN GOTO 300

ASC - функция определения кода ASCII (КОИ-8) первого символа строки Х$

Y=ASC(X$)

Результатом работы функции является числовое значение. Например:

    10 X$="TEST"
    20 PRINT ASC(X$)
    RUN
     84
    Ok

ASN - функция вычисления арксинуса числа X

Y=ASN(X)

X - числовое выражение.

Результат выполнения функции выдается в радианах. Если значение числа X не лежит в диапазоне от - 1 до +1, то выдается сообщение об ошибке Invalid argument (Неправильный аргумент).

Например:

    10 FOR I=1 ТО 1 STEP 0.01
    20 PRINT ASN(I)
    30 NEXT I

AT - параметр перемещения текущей позиции вывода на экран

PRINT АТ строка,столбец
INPUT АТ строка,столбец

Перемещает текущую позицию вывода на экран, т. е. позицию, в которую должен выводиться следующий элемент, в заданные строку и столбец. Строки пронумерованы с 0 (начиная сверху) до 21; столбцы пронумерованы с 0 (начиная слева) до 31. Можно использовать параметр АТ, чтобы определить ту позицию вывода, в которой уже что-то напечатано. Новый элемент будет выводиться на место старого. Используется только с операторами PRINT и INPUT. Например:

    PRINT АТ 11,16;"*"

Печатается символ * в центре экрана.

ATN - функция вычисления арктангенса числа X.

Y=ATN(X)

X - числовое выражение.

Результат выполнения функции вычисляется в радианах в диапазоне от -π/2 до π/2, где π=3.141593. Выражение X может быть задано в любом числовом формате, но вычисление функции ATN всегда выполняется с одинарной точностью. Для перевода радиан в градусы результат умножается на 180/π. Например:

    10 INPUT X
    20 PRINT ATN(X)
    RUN
    ?3 
     1.249046
    Ok
    10 PI=3.141593
    20 RADIANS=ATN(1)
    30 DEGREES=RADIANS*180/PI
    40 PRINT RADIANS,DEGREES
    RUN
     .7853983        45
    Ok

BCD - функция перевода целого двоичного числа в двоично-десятичное число

Y=BCD(выражение)

выражение - целочисленное выражение.

Двоично-десятичное представление - это представление, в котором каждые четыре бита представляют десятичное число между 0 и 9. Так как XYBASIC использует шестнадцати-битовые целые значения, то это значение может представлять четыре двоично-десятичные цифры или шестнадцать двоичных цифр. Например, значение #1234 представляет 4660, если рассматривать в двоичном представлении, и 1234, если это значение рассматривать в двоично-десятичном представлении.

Например:

    10 А=17
    20 PRINT BCD(A)
    RUN
     0000000000010111 
    Ok

BIN - функция перевода целого числа из двоично-десятичного представления в двоичное представление

Y=BIN(выражение)

выражение - целочисленное выражение.

Если выражение в функции BIN не является правомочным двоично-десятичным числом, то появляется сообщение об ошибке FC (Functional Call - Функциональный вызов).

Например:

    10 А=17
    20 PRINT BIN(A)
    RUN
     0000000000001011 
    Ok

BIN$ - функция, предназначенная для воспроизведения строки двоичных цифр, десятичный эквивалент которых задан в качестве аргумента

Y$=BIN$(n)

n - числовое выражение, значение которого изменяется от -32768 до 65535.

При отрицательном значении аргумента справедливо тождество: BIN$(-n) = BIN$(65535-n).

Например:

    PRINT BIN$(14)
     1110 
    Ok

CALL - оператор вызова подпрограммы, написанной на машинном языке

Формат 1 (для версий XYBASIC, MBASIC и BASICa).

CALL числовая переменная [(переменная[,переменная]...)]

числовая переменная - имя числовой переменной. Значение переменной указывает начальный адрес памяти подпрограммы;

переменная - имя переменной, которая передается как аргумент в подпрограмму на машинном языке.

Формат 2 (для Бейсик-АГАТ).

CALL адрес

адрес - адрес подпрограммы.

Формат 1. Оператор CALL - один из способов связывания программ на машинном языке. Например:

    110 OZ%=&H9000
    120 CALL OZ%(A,B,C)

Для версии BASICA значение переменной указывает начальный адрес подпрограммы, вызываемой как смещение в текущем сегменте памяти (определенном последним оператором DEF SEG). Например:

    10 DEF SEG=&H8000
    20 PROG=0
    30 CALL PROG(ST$,CH)

CDBL - функция перевода числового выражения X в число двойной точности

Y=CDBL(X)

Например:

    10 А=454.67
    20 PRINT A,CDBL(A)
    RUN
     454.67          454.6699829101563

CHR$ - функция образования символьного эквивалента числового значения п, изменяющегося от 0 до 255

Y$=CHR$(n)

Функция CHR$ образует строку из одного символа n в коде ASCII (КОИ-8) и используется для получения специального символа на экране или на печатающем устройстве.

Например:

    PRINT CHR$(65);CHR$(32);CHR$(70)
    A F
    Ok

CINT - функция перевода выражения X в целое число округлением дробной части

Y=CINT(X)

Если X не лежит в диапазоне целых чисел используемой версии языка Бейсик, то появляется сообщение об ошибке Overflow (Переполнение).

Например:

    PRINT CINT(45.67)
     46
    Ok
    PRINT CINT(-2.89)
    -3
    Ok

CLEAR - оператор очистки данных

Формат 1 (для XYBASIC, Бейсик-TRS-80, Бейсик-ПК8010, Бейсик-ПК8020).

CLEAR [строковое пространство]

строковое пространство - размер памяти, разрешенный для строковых переменных. Для версии XYBASIC по умолчанию 256 байт.

Формат 2 (для Бейсик-Спектрум+2).

CLEAR [максимальный адрес]

максимальный адрес - максимально допустимый адрес.

Формат 3 (для Бейсик-АГАТ).

CLEAR

Формат 4 (для MBASIC, BASICA).

CLEAR [,[максимальный адрес][,стековое пространство]]

максимальный адрес - счетчик байтов, который устанавливает максимальное число байтов, доступных интерпретатору для запоминания программы и данных, т. е. максимально доступный адрес памяти;

стековое пространство - число байтов, устанавливаемое для стекового пространства. По умолчанию 1000 байт (512 байт для BASICA) или 1/8 часть доступной памяти, в зависимости от того, что меньше.

Формат 5 (для MSX-BASIC).

CLEAR [строковое пространство[,максимальный адрес]]

строковое пространство - размер памяти, разрешенный для строковых переменных. По умолчанию - 200 байт;

максимальный адрес - максимально допустимый адрес.

Оператор CLEAR устанавливает все числовые переменные в нуль и очищает строковые переменные, закрывает все открытые файлы, устанавливает конец памяти и количество строкового или стекового пространства. Оператор CLEAR освобождает всю память, используемую для данных, не стирая текущей программы. После работы команды CLEAR массивы не определены, числовые переменные принимают нулевые значения, строковые переменные очищаются, а любая информация, определенная оператором DEF, включая DEF FN, DEF SEG, DEF USR, DEFINT, DEFDBL, DEFSNG и DEFSTR, теряется.

Для формата 4 при необходимости зарезервировать память для программы на машинном языке, задается параметр максимальный адрес. При использовании большого количества операторов GOSUB или циклов FOR...NEXT рекомендуется задать параметр стековое пространство. Например:

    CLEAR
    CLEAR,32768,2000

CLR - команда очистки данных

CLR

См. оператор CLEAR.

COMMON - оператор передачи переменных в программы, вызванные оператором CHAIN

COMMON переменная [,переменная]...

Оператор COMMON может появляться в любом месте программы, хотя рекомендуется, чтобы он появлялся в начале. Одна и та же переменная не может появляться в двух и более операторах COMMON. Переменные массива определяются наличием скобок () в имени переменной. Если должны быть переданы все переменные, то в операторе CHAIN должен быть параметр ALL, а оператор COMMON не указывается.

Например:

    100 COMMON A,B,C,D(),G$ 
    110 CHAIN "A:PROG3",10

COS - функция определения косинуса числа X, заданного в радианах

Y=COS(X)

Чтобы перевести градусы в радианы, их надо умножить на π/180, где π=3.141593. Вычисление косинуса выполняется с одинарной точностью. Например:

    10 X=2*COS(.4)
    20 PRINT X
    RUN
     1.842122
    Ok
    10 PI=3.141593
    20 PRINT COS(PI)
    30 DEGREES=180
    40 RADIANS=DEGREES*PI/180
    50 PRINT COS(READIANS)
    RUN
    -1
    -1 
    Ok

CSNG - функция перевода числового выражения X в число одинарной точности

Y=CSNG(X)

Подобна функциям CINT и CDBL для перевода чисел в целое и двойной точности. Например:

    10 X=2*COS(.4)
    20 PRINT X
    RUN
     1.842122
    Ok
    10 А#=975.3421222#
    20 PRINT A#,CSNG(А#)
    RUN
     975.342122        975.342
    Ok

DATA - оператор, который запоминает числовые и строковые константы, подлежащие считыванию оператором READ

DATA список констант

Константы в списке разделяются запятыми. Оператор DATA - неисполнительный оператор, может быть расположен в любом месте программы и может содержать столько констант, сколько их поместится на строке экрана дисплея. В программе может быть использовано любое число операторов DATA.

Данные, которые содержатся в операторах DATA, могут считаться одним продолжающимся списком данных, невзирая на количество элементов в строке и на место, где расположены строки.

Операторы READ имеют доступ к операторам DATA в порядке номеров строк. В списке констант оператора DATA не допускаются выражения. Числовые константы могут быть заданы в любом формате. Нет необходимости в операторе DATA заключать в кавычки строковые константы, если они не содержат запятых, двоеточий, пробелов и символов русского алфавита. Тип переменной, заданной в операторе READ, должен соответствовать типу констант в операторе DATA, иначе появится сообщение об ошибке Syntax error (Синтаксическая ошибка).

Для того чтобы заново считать данные с начала списка операторов DATA, надо использовать оператор RESTORE.

DEF FN - оператор определения и именования функции, определенной пользователем

DEF FN имя[(аргумент[,аргумент]...)]=определение

имя - имя действительной переменной. Это имя, которому предшествует FN, становится именем функции (в Бейсик-Спектрум+2 имя может состоять только из одной буквы и символа ’$’);

аргумент - имя переменной в описании функции, которое будет заменено значением при вызове функции (в Бейсик-Спектрум+2 количество аргументов не более одного);

определение - выражение, выполняющее операцию функции.

Определение функции ограничивается одной строкой. Аргументы, которые появляются в выражении определения, служат только для определения функции, они не активизируют программные переменные, которые имеют то же имя. Имя переменной, используемое в описании функции, не должно появляться в списке аргументов. Если это сделано, то подставляется значение аргумента при вызове функции. Но может быть использовано текущее значение переменной. Аргументы в списке соответствуют один к одному значениям, которые передаются при вызове функции.

Тип функции определяет числовое или строковое значение, образуемое функцией. Если тип определения не соответствует типу функции, то появляется сообщение об ошибке Туре mismatch (Ошибочный тип). Если функция числовая, то значение выражения определения переводится в число с точностью, описанной именем, перед возвратом в вызывающий оператор. Оператор DEF FN должен быть выполнен для определения функции перед ее вызовом, иначе появится сообщение об ошибке Undefined user function (Неопределенная функция пользователя).

Функция может быть определена более одного раза. Действительным является самое последнее выполненное определение. Допускается возможность определения рекурсивных функций, т. е. функций, которые вызывают сами себя. Однако если не обеспечивается способ остановки рекурсии, появляется сообщение об ошибке Out of memory (Вне памяти). Нельзя использовать оператор DEF FN в прямом режиме.

Например:

    10 РI=3.141593
    20 DEF FNarea(R)=PI*R*2
    30 INPUT "РАДИУС ";RADIUS
    40 PRINT "ПЛОЩАДЬ КРУГА ";FNarea(RADIUS) 
    RUN
    РАДИУС ?2
    ПЛОЩАДЬ КРУГА 12.56637
    Ok

Строка 20 определяет функцию FNarea, которая вычисляет площадь круга с радиусом R. Функция вызывается в строке 40.

Пример функции с двумя аргументами:

    10 DEF FNmlld(X,Y)=X-(INT(X/Y)*Y)
    20 A=FNmlld(7.4,4)
    30 PRINT А
    RUN
     3.4
    Ok

DEF SEG - оператор определения текущего сегмента памяти

DEF SEG=[адрес]

адрес - целочисленное выражение от 0 до 65535.

Инструкции BLOAD, BSAVE, CALL, PEEK, POKE, VARPTR и USR будут определять действительный физический адрес своей операции как смещение в заданном сегменте.

Если параметр адрес не указан, то значение устанавливается в сегмент данных (DS) Бейсика. Это является начальным значением по умолчанию. Сегмент данных - это начало рабочего пространства в памяти.

Если адрес задан, то он должен быть значением, выровненным на 16-байтовую границу. Значение сдвигается влево на 4 бита (умножается на 16), чтобы сформировать адрес сегмента для последующей операции. Интерпретатор не выполняет дополнительной проверки, чтобы убедиться, что значение сегмента действительно. Слова DEF и SEG должны быть разделены пробелом.

Если значение адреса лежит вне указанного диапазона, то появляется сообщение об ошибке Illegal function call (Неверный функциональный вызов) и будет сохраняться предыдущее значение.

Например:

    10 DEF SEG 'восстановить сегмент DS в Бейсике
    ...
    20 DEF SEG=&H8000 'установить сегмент буфера графического экрана

DEF USR - оператор определения начального адреса подпрограммы на машинном языке, которая позднее вызывается функцией USR

Формат 1 (для Бейсик- АГАТ).

DEF USR=адрес

Формат 2 (для Бейсик-TRS-80, MBASIC, Бейсик-ПК8010, Бейсик-ПК8020, MSX-BASIC и BASICA).

DEF USR[цифра]=адрес

цифра - любая цифра от 0 до 9;

адрес - целочисленное выражение от 0 до 65535.

Цифра соответствует номеру подпрограммы USR, чей адрес определяется. Если цифра не указана, по умолчанию принимается DEF USR0. Значение адреса может задаваться в десятичном и шестнадцатеричном форматах и является действительным начальным адресом подпрограммы USR. Для переопределения начального адреса подпрограммы в программе может появляться любое число операторов DEF USR, так как разрешается доступ к стольким подпрограммам, сколько необходимо.

Например:

    100 DEF USR0=&H9000
    ...
    500 X=USR0(X+2)

END - оператор завершения программы

END

Заканчивает выполнение программы, закрывает все файлы и возвращает управление на уровень команд. Оператор END может находиться в любом месте программы, но он не обязателен. Оператор END отличается от оператора STOP: не вызывает сообщения break или stop (выход или стоп); закрывает все файлы.

Например:

    100 IF Р>100 THEN END ELSE GOTO 570

EXP - функция вычисления экспоненциального значения числа X, т. е. е^х

Y=EXP(X)

Например:

    10 Х=2
    20 PRINT EXP(X-1) 
    RUN
     2.718282 
    Ok

Аргумент X должен быть не больше определенного для каждой версии значения (например, для MBASIC - 87.3365), иначе возникнет переполнение.

FIRST и LAST - функции, которые определяют первый и последний адрес соответственно, используемые для запоминания текущей XYBASIC-программы

Y=FIRST
Y=LAST

Например:

    PRINT FIRST,LAST,LAST-FIRST+1

В этом примере на экран выдается начальный адрес программы, конечный адрес программы и длина программы, расположенной в памяти.

FIX - функция определения целой части числового выражения X

Y=FIX(X)

При выполнении функции отбрасывается дробная часть числа справа от точки. Отличие функции FIX от INT заключается в том, что функция FIX одинаково работает с положительными и отрицательными числами. Например:

    PRINT FIX(58.75) 
     58
    Ok 
    PRINT FIX(-58.75) 
    -58
    Ok

FN - оператор, который вызывает функцию, определенную пользователем

Y=FNимя(аргумент)

Вызывает функцию, определенную пользователем в операторе DEF FN. Аргументы должны быть заключены в скобки; даже если аргументов нет, скобки должны присутствовать.

См. оператор DEF FN.

FOR...NEXT - оператор организации цикла

FOR переменная = выражение1 ТО выражение2 [STEP выражениеЗ]
...
NEXT [переменная]

переменная - целочисленная или одинарной точности переменная, которая будет использоваться как счетчик (в Бейсик-Спектрум+2 имя переменной должно быть из одной буквы);

выражение1 - начальное значение счетчика;

выражение2 - конечное значение счетчика;

выражениеЗ - шаг цикла.

Программные строки, следующие за оператором FOR, выполняются до тех пор, пока не встретится NEXT. Затем счетчик увеличивается на число, определенное выражением3 в STEP. Если шаг ие задан, то по умолчанию принимается равным единице. Затем выполняется проверка.

Если значение счетчика не больше конечного значения выражения2, то опять начинают выполняться программные строки, следующие за оператором FOR, и процесс повторяется. А если значение счетчика больше конечного значения выражения2, то начинают выполняться программные строки, следующие за оператором NEXT.

Если выражениеЗ отрицательно, то каждый раз в цикле значение счетчика уменьшается, и цикл выполняется, пока значение счетчика больше конечного значения.

Циклы FOR...NEXT могут быть вложены, т. е. один цикл FOR...NEXT может находиться (выполняться) внутри другого FOR...NEXT цикла.

Каждый вложенный цикл должен иметь свои имена переменных в качестве счетчика. Оператор NEXT для внутреннего цикла должен выполняться раньше оператора NEXT для внешнего цикла. Если вложенные циклы имеют одну точку конца, то в Бейсик-TRS-80, MBASIC, Бейсик-ПК8010, Бейсик-ПК8020, MSX-BASIC и BASICA может быть использован один оператор NEXT для всех переменных. Вид оператора NEXT

NEXT переменная1, переменная2, переменнаяЗ...

эквивалентен последовательности операторов:

NEXT переменная1
NEXT переменная2
NEXT переменнаяЗ
...

Переменная в операторе NEXT может быть не указана, в этом случае этот оператор NEXT будет заканчивать самый последний FOR...NEXT цикл. Например:

    10 J=10 : К=30
    20 FOR I=1 ТО J STEP 2
    30 PRINT I; : К=К+10 : PRINT К
    40 NEXT
    RUN
     1  40 
     3  50 
     5  60 
     7  70 
     9  80
    Ok

FRE - функция определения количества свободных байтов после их предварительной очистки

Y=FRE(X)
Y=FRE(X$)

Определяет число байтов памяти, не использованных интерпретатором. Так как строки в языке Бейсик могут иметь переменную длину, то строковое пространство может стать фрагментированным. Функция FRE с любым строковым значением вызывает очистку перед указанием числа свободных байтов.

При очистке интерпретатор собирает все полезные данные и освобождает неиспользованные области памяти, которые были однажды использованы для строк. Интерпретатор будет автоматически делать очистку, когда она выполняется в неиспользованной рабочей области. Можно периодически использовать FRE(00) для получения более короткой задержки при каждой очистке. Аргументы в функции FRE фиктивные. Например:

    PRINT FRE(0)
    14542
    Ok

FRE$ - функция определения неиспользованных байтов строкового пространства

Y=FRE$

Например:

    10 CLEAR 256
    20 PRINT FRE$
    30 A$="DOG"
    40 PRINT A$;FRE$
    RUN
     256
    DOG 253

GET - функция определения кода введенного символа

Формат 1 (для XYBASIC).

Y=GET

Формат 2 (для Бейсик-АГАТ).

GET Х$

Формат 1. Определяет код ASCII введенного символа или 0, если символ не введен. Функция GET позволяет проверить, был ли введен символ во время выполнения программы.

Например:

    10 IF GET=20 THEN GOSUB 100
    20 I=I+1
    30 GOTO 10
    100 PRINT I;
    110 RETURN
    RUN
     46  100  126  169  183  201 ^C
    BREAK AT LINE 20
    OK

Так как XYBASIC автоматически отсекает бит четности в любом считанном символе, то нельзя с помощью GET получить код больше 127. И, конечно, не следует пытаться получить такие символы, как Ctrl-С, которые имеют специальное значение в XYBASIC.

Формат 2. Ввод одного символа с клавиатуры. Все символы равноправны. На экране введенный символ не отображается.

GET$ - определяет строковое значение введенного символа

Y=GET$

Функция GET$ позволяет проверить, был ли введен какой-либо символ во время выполнения программы. Если символ введен, то функция GET$ определяет строковое значение введенного символа. Если символ не введен, то определяется пустая строка. Например:

    10 IF GET$="P" THEN GOSUB 100
    20 I=I+1
    30 GOTO 10
    100 PRINT I;
    110 RETURN
    RUN
     57  113  181  193  369 ^C
    BREAK AT LINE 20
    OK

GOSUB....RETURN - операторы перехода к подпрограмме, написанной на языке Бейсик, и возврата из нее в текущую программу

GOSUB номер строки
...
RETURN

номер строки - номер первой строки подпрограммы.

Подпрограмма может вызываться любое число раз из самой программы или из другой подпрограммы. Такие вложения подпрограмм ограничиваются только доступной памятью. Оператор RETURN заставляет Бейсик вернуться обратно из подпрограммы к оператору, следующему за вызвавшим эту подпрограмму оператором GOSUB. Подпрограмма может содержать больше одного оператора RETURN для возврата из различных точек подпрограммы.

Подпрограммы могут находиться в любом месте программы. Часто используемые подпрограммы следует размещать в начале программы, чтобы ускорить ее выполнение. Для перехода к различным подпрограммам в зависимости от значения выражения используется оператор ON...GOSUB.

Например:

    10 GOSUB 40
    20 PRINT "ВОЗВРАТ ИЗ ПОДПРОГРАММЫ" : END
    40 PRINT "SUBROUTINE
    50 PRINT "IN
    60 PRINT PROGRESS"
    70 RETURN
    RUN
    SUBROUTINE IN PROGRESS
    ВОЗВРАТ ИЗ ПОДПРОГРАММЫ
    OK

GOTO - оператор безусловного перехода

GOTO номер строки

Осуществляет безусловный переход из нормальной программной последовательности к определенному номеру строки. Если номер строки - номер исполнительного оператора, то выполняется этот оператор и следующие за ним, а если это неисполнительный оператор (такой, как REM или DATA), то выполнение продолжается с первого исполнительного оператора, встреченного после номера строки.

Оператор GOTO может быть использован в прямом режиме, чтобы заново ввести программу с описываемой точки, например при устранении ошибок.

    5 DATA 5,7,12
    10 READ R
    20 PRINT "R="; R;
    30 A=3.141*R*2
    40 PRINT "AREA=";A
    50 GOTO 5
    RUN
    R= 5     AREA= 78.5
    R= 7     AREA= 153.86
    R= 12    AREA= 452.16
    ВНЕ DATA В 10 
    Ok

Для перехода к различным строкам в зависимости от значения выражения используется оператор ON...GOTO.

НЕХ$ - функция, предназначенная для воспроизведения строки шестнадцатеричных цифр, десятичный эквивалент которых n задан в качестве аргумента

Y$=HEX$(n)

n - числовое выражение от -32768 до 65535.

Значение n округляется до целого числа перед выполнением функции НЕХ$. При отрицательном значении n справедливо тождество НЕХ$(-n)=НЕХ$(65535-n). Например:

    10 INPUT X
    20 А$=НЕХ$(Х)
    30 PRINT X,"DECIMAL IS ",А$,"HEXADECIMAL"
    RUN 
    ?32
     32 DECIMAL IS 20 HEXADECIMAL
    Ok
    RUN
    ?15
    15 DECIMAL IS F HEXADECIMAL 
    Ok

HIMEM: - оператор установки верхней границы памяти под переменные и строки, используемые программой

Н1МЕМ:n

n - целочисленное выражение.

IF - оператор условного перехода

Формат 1 (для XYBASIC и Бейсик-АГАТ).

IF выражение THEN часть

часть - оператор или последовательность операторов, или номер строки для перехода.

Формат 2 (для Бейсик-Спектрум+2).

IF выражение THEN операторе[:оператор...]
IF выражение THEN GOTO номер строки

Формат 3 (для Бейсик-TRS-80, MBASIC, Бейсик-ПК8010, Бейсик-ПК8020, MSX-BASIC и BASICA)

IF выражение THEN часть [ELSE часть]
IF выражение GOTO номер строки [ELSE часть]

часть - оператор или последовательность операторов, или номер строки для перехода. Принимает решение относительно программного потока, основанного на значении выражения. Если значение выражения - ИСТИНА (не нуль), то выполняется часть THEN (или часть GOTO). Если значение выражения - ЛОЖЬ (нуль), то части THEN и GOTO игнорируются и выполняется часть ELSE, если она существует. Выполнение продолжается со следующего за оператором IF исполнительного оператора.

Операторы IF...THEN...ELSE могут быть вложены. Вложение ограничивается только длиной строки дисплея. Например:

    IF X>Y THEN PRINT "БОЛЬШЕ" ELSE IF Y>X THEN PRINT "МЕНЬШЕ" ELSE PRINT "РАВНЫ"

Если оператор содержит неодинаковое количество частей THEN и ELSE, то каждая часть ELSE соответствует части THEN, закрывая ближайший оператор IF. Например:

    IF А=В THEN IF В=С THEN PRINT "А=С" ELSE PRINT "A<>С"

Не будет печататься А<>С, когда А<>В.

Если в прямом режиме за оператором IF следует номер строки, то это имеет тот же эффект, как если бы номеру предшествовал оператор GOTO.

IN - функция, определяющая байт, считанный из порта

Формат 1 (для Бейсик-Спектрум+2).

Y=IN n

n - адрес порта.

Формат 2 (для XYBASIC).

Y=IN (n)

n - адрес порта.

Формат 1. Результат вводится на уровне процессора с порта n (0<=n<=FFFFh). Число n загружается в пару регистров ВС и выполняется команда ассемблера IN А, (С). Например:

    10 FOR n=0 ТО 7
    20 А=254+256*(255-2^n)
    30 PRINT AT 0,0; IN A: GOTO 30
    40 NEXT

Адреса 254+256*(255-2^n) при значениях n от 0 до 7 используются для опроса клавиатуры (8 полурядов по 5 клавиш).

Формат 2. Система XYBASIC выбирает значение из порта с номером n и присваивает его переменной Y. Номер порта может задаваться выражением. Например:

    10 Y=IN (12) JOIN IN (13)
    20 IF Y=#FFFF THEN 10
    30 FOR I=0 TO 15
    40 IF TEST (X,I)=0 THEN PRINT "^GBIT #";I] 
    50 NEXT I

INKEY$ - функция, предназначенная для "опроса" клавиатуры

Y$=INKEY$

Опрашивает клавиатуру на нажатие какой-либо клавиши и вводит символ, клавиша которого нажата. Если никакая клавиша не нажата, то вводится пустая строка.

При использовании INKEY$ символы не высвечиваются на экране, все символы передаются в программу за исключением кода CTRL-С.

Нажатие клавиши возврата каретки при определении ответа, используя INKEY$, будет передавать символ возврата каретки в программу. Необходимо присвоить значение переменной INKEY$ строковой переменной перед использованием символа любым оператором или функцией языка Бейсик. Например:

    110 PRINT "Нажмите любую клавишу для продолжения"
    120 A$=INKEY$ : IF А$="" THEN 120
    210 КВ$=INKEYS
    220 IF LEN(KB$)=2 THEN KBS=RIGHT$(KB$,1)

INР - функция, определяющая байт, считанный из порта

Y=INP(n)

n - номер порта - выражение от 0 до 255.

Функция INP дополнительная к оператору OUT.

Например:

    150 A=INP(255)

INPUT - оператор ввода с клавиатуры

Формат 1 (для XYBASIC).

INPUT["напоминание"]список переменных

список переменных - имена строковых и/или числовых переменных, разделенные запятыми.

Формат 2 (для Бейсик-Спектрум+2).

INPUT последовательность элементов

Формат 3 (для Бейсик-АГАТ, Бейсик-TRS-80, Бейсик-ПК8010, Бейсик-ПК8020 и MSX-BASIC).

INPUT["напоминание";]список переменных

список переменных - имена строковых и/или числовых переменных, разделенные запятыми.

Формат 4 (для MBASIC и BASICA).

INPUT [;]["напоминание";] список переменных

список переменных - имена строковых и/или числовых переменных, разделенные запятыми.

Осуществляет ввод с клавиатуры во время выполнения программы.

Когда выполняется оператор INPUT, программа делает остановку, на экране появляется знак вопроса, указывающий, что программа ожидает данные. Если задана строка напоминания, то она высвечивается перед знаком вопроса (?). Затем требуемые данные вводятся с клавиатуры.

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

Формат 1. Если на запрос оператора INPUT вводится больше элементов данных, чем указано в операторе, то появляется сообщение EXCESS IGNORED, лишние данные игнорируются и выполнение программы продолжается.

Если вводится меньше элементов данных или тип вводимых данных не соответствует типу определенных переменных, то появится сообщение REDO? и дается попытка повторить ввод. Так продолжается до тех пор, пока не будет задан правильный ответ.

Формат 2. Элементом оператора INPUT может быть любой из следующих:

• элемент оператора PRINT, не начинающийся с буквы (пусто, числовое выражение, строковое выражение, функция управления АТ, функция управления ТАВ);
• имя переменной;
• LINE (при этом обязательно имя строковой переменной).

Элементы оператора INPUT могут быть разделены запятыми, точками с запятой и апострофами аналогично оператору PRINT.

Все, что выводится с помощью оператора INPUT, помещается в нижней части экрана, которая функционирует в некотором смысле независимо от верхней части экрана.

В отличие от других версий, в версии Бейсик-Спектрум+2 значение переменной может быть выведено на экран в строке напоминания. Если элемент оператора INPUT начинается с буквы, то он должен быть переменной, значение которой необходимо ввести. Однако это ограничение можно обойти заключением соответствующей переменной в скобки. Любое выражение, которое начинается с буквы, заключается в скобки, если оно должно быть напечатано как часть строки напоминания.

Например:

    LET my age=INT(RND*100):INPUT("I am";my age;".");
    "How old are you?",your age

Здесь переменная ’my age’ (см. гл. 2) заключена в скобки, поэтому ее значение выводится на экран. Переменная ’your age’ не заключена в скобки, так что требуется ввести ее значение.

Элементами оператора INPUT могут быть элементы оператора PRINT. Например:

    10 INPUT "This is line 1",a$;AT 0,0;"This is line 0 ", a$

Если в операторе INPUT перед именем вводимой строковой переменной поставить ключевое слово LINE в следующем виде:

INPUT LINE а$

то строковые кавычки не будут выводиться (хотя обычно они выводятся для строковой переменной). Ключевое слово LINE нельзя использовать для числовых переменных, так как ввод воспринимается как строка литералов без кавычек. Механизм STOP (если первый символ при вводе есть STOP, то программа останавливается с ошибкой Н) не будет работать. Для останова вместо этого надо нажать клавишу "курсор вниз".

Оператор INPUT LINE работает подобно оператору LINE INPUT в других версиях.

Формат 3. Если на запрос оператора INPUT вводится больше или меньше элементов данных или тип данных не соответствует типу переменной, то на экране дисплея появляется сообщение ?Redo from start (?Повторите ввод). Присваивание введенных значений не выполняется до тех пор, пока не будет задан правильный ответ.

Если на запрос оператора INPUT вводится больше элементов данных, то появится сообщение ?Extra ignored (?Лишние данные), лишние данные игнорируются и выполнение программы продолжается.

Если вводится меньше элементов данных, то до тех пор, пока не будет введено необходимое число данных, будут появляться два знака вопроса (??).

Формат 4. Если сразу после оператора INPUT следует точка с запятой, то во входных данных не появляется символ возврата каретки, определенный пользователем. Например:

    10 INPUT X
    20 PRINT X;" SQUARED IS ";Х^2 : END
    RUN
    ?5
    5 SQUARED IS 25
    Ok

INSTR - функция, предназначенная для определения позиции строки Y$ в строке Х$

Z=INSTR([n,]X$,Y$)

n - числовое выражение от 1 до 255;

Х$, Y$ - строковые переменные, строковые выражения или строковые константы.

Определяет номер позиции начала строки Y$ в строке Х$. Необязательное смещение n устанавливает номер позиции для начала просмотра. Функция INSTR определяет 0 в случаях

n>LEN(X$);

Х$ - пустая строка;

Y$ - не может быть найдена.

Если Y$ пустая строка, то INSTR определяет n или 1. Если n вне диапазона, возвращается сообщение об ошибке.

Например:

    10 A$="ABCDEB"
    20 В$="В"
    30 PRINT INSTR(A$,B$);INSTR(4,А$,В$)
    RUN
    2 6
    Ok

INT - функция определения целой части числового выражения X

Y=INT(X)

Определяет целое число, которое меньше или равно значению выражения X. Для положительных значений X функция INT работает так же, как функция FIX, т. е. отбрасывает дробную часть числа справа от точки. Для отрицательных значений X функция INT воспроизводит целое число, которое меньше или равно числу слева от точки. Например:

    PRINT INT(99.89)
     99
    Ok
    PRINT INT(-12.11)
    -13.
    Ok

LEFT$ - функция выделения самых левых символов строки Х$

Y$=LEFT$(X$,n)

n - в диапазоне от 0 до 255.

Выделяет n самых левых символов строки Х$. Если n больше длины строки, то повторяется вся строка Х$. Если n=0, то образуется пустая строка. Например:

    10 А$="BASIC program"
    20 B$=LEFT$(A$,5)
    30 PRINT B$
    RUN
    BASIC
    Ok

LEN - функция определения длины строки

Y=LEN(X$)

Вычисляет количество символов в строковой переменной Х$. Например:

    Х$="ВОСА RATION, FL" : PRINT LEN(X$) 
     15
    Ok

LET - оператор присваивания

[LET] переменная - выражения

Слово LET необязательно. Например:

    110 LET D=12                или 110 D=12
    120 LET E=12-2                  120 E=12-2
    130 LET F$="STROKA"             130 F$="STROKA"
    140 LET SUM=(D+E)/5             140 SUM=(D+E)/5

Если числовые значения присваиваются строковый: переменным или строковые значения числовым переменным, то появляется сообщение об ошибке Type mismatch (Ошибочный тип).

LINE INPUT - оператор ввода строковой переменной с клавиатуры

Формат 1 (для Бейсик-TRS-80, Бейсик-ПК8010, Бейсик-ПК8020, MSX-BASIC).

LINE INPUT ["напоминание";] строковая переменная

напоминание - строковая константа, которая появляется на экране перед вводом данных.

Формат 2 (для MBASIC и BASICA).

LINE INPUT [;]["напоминание"; ] строковая переменная

напоминание - строковая константа, которая появляется на экране перед вводом данных.

Формат 1. Присваивает строку данных строковой переменной без использования разграничителей. Знак вопроса не печатается, если он не является частью строки напоминания. Все введенные данные от конца напоминания до возврата каретки присваиваются строковой переменной. Действие оператора LINE INPUT можно остановить нажатием клавиш CTRL-С. Интерпретатор возвратится на уровень команд, появится подсказка Ок. Для возобновления выполнения программы вводится команда CONT.

Формат 2. Если сразу за LINE INPUT следует точка с запятой, то возврат каретки, введенный пользователем, не делает перевода строки и возврата каретки на экране.

LINPUT - оператор ввода строки символов с клавиатуры

LINPUT строковая переменная

См. формат 1 оператора LINE INPUT.

LN - функция, вычисляющая натуральный логарифм

Y=LN(X)

Для вычисления логарифма по любому другому основанию необходимо разделить натуральный логарифм числа на натуральный логарифм основания, т. е. log_aх=ln х/ln а.

LOG - функция определения натурального логарифма числа X

Y=LOG(X)

X - число больше 0.

Например:

    PRINT LOG(45/7)
     1.860752
    Ok

Натуральные логарифмы используются во многих задачах, но иногда необходимо вычислить десятичный логарифм. Значение десятичного логарифма можно получить, умножив значение натурального логарифма на 0.43429448. Например:

    100 LN=LOG(X)
    110 LD=LN*0.43429448

В этом примере LN - натуральный логарифм числа X, LD - десятичный логарифм числа X.

LOMEM - устанавливает минимальный размер памяти для переменных и строк, используемых программой (LOMEM: п)

LSHIFT - см. ROTATE

МЕМ - функция определения количества использованных и неиспользованных байтов памяти

Y=MEM

Эта функция может использоваться в командном режиме для определения количества байтов, которое занимает загруженная программа, или может использоваться в программе для предотвращения ошибки ОМ (Out of memory - Вне памяти) переопределением количества байтов, отведенных под строковое пространство, определением массивов меньшей размерности и т. п.

MID$ - функция или оператор выделения требуемой части заданной строки

как функция

Y$=MID$(X$,n[,m])

как оператор

MID$(X$,n[,m])=Y$

n - целочисленное выражение от 1 до 255;

m - целочисленное выражение от 0 до 255.

Когда MID$ используется как оператор, то замещается часть одной строки другой строкой. Символы в строке Х$, начиная с n-го, замещаются символами строки Y$; m - число символов строки Y$, которые будут замещены. Если m не указано, то используется вся строка Y$.

Длина строки Y$ не изменяется независимо от того, задано число m или нет. Например, если Y$ длиной 4 символа, a Y$ длиной 5 символов, то после замещения Х$ будет содержать первые 4 символа строки Y$. Если n или m находятся вне диапазона, то появляется сообщение об ошибке Illegal function call (Неверный функциональный вызов).

Функция воспроизводит строку длиной m символов из строки Х$, начиная с n-го символа. Если m не указано или в строке меньше m символов справа от n-го символа, то образуется строка из всех самых правых символов, начиная с n-го. Если n=0 или n>LEN(X$), то MID$ образует пустую строку.

Например:

    10 A$="GOTO" 
    20 В$=" MORNING EVENING AFTERNOON" 
    30 PRINT A$,MID$(B$,9,7) 
    RUN 
    GOTO EVENING 
    Ok

MSBYTE, LSBYTE и JOIN - функции обработки битов

Y=LSBYTE(выражение)
Y=MSBYTE(выражение)
выражение1 JOIN выражение2

Функции LSBYTE и MSBYTE определяют самые младшие и самые старшие восемь битов 16-битового целочисленного выражения. Функция JOIN выполняет конкатенацию двух 8-битовых значений в 16-битовое значение.

NULL - команда, определяющая число пустых символов, которые должны быть напечатаны после символа "возврат каретки", т. е. задающая левую границу экрана

NULL n

n - целое число от 1 до 255.

Например:

    NULL 3 
    Ok

OCT$ - функция, предназначенная для образования восьмеричного значения десятичного аргумента n

Y$=OCT$(n)

Перед выполнением значение n округляется до целого числа. Например:

    PRINT ОСТ$(24) 
    30
    Ok

ON...GOTO, ON...GOSUB - операторы перехода на один из заданных номеров строк в зависимости от вычисленного выражения n

ON n GOTO номер строки[,номер строки]...
    ON n GOSUB номер строки[,номер строки]...

Значение n определяет, какой номер строки в списке будет использован для перехода. Если необходимо, n округляется до целого числа. В операторе ON...GOSUB каждый номер строки в списке должен быть номером первой строки подпрограммы, поэтому необходимо иметь в подпрограмме оператор RETURN, чтобы вернуться в строку, следующую за оператором ON...GOSUB.

Если значение n равно 0 или больше количества строк перехода в программной строке (но меньше или равно 255), то выполнение программы продолжается со следующего исполнительного оператора. Если значение n отрицательно или больше 255, то появляется сообщение об ошибке Illegal faction call (Неверный функциональный вызов).

Например:

    100 ON L=1 GOTO 150,300,450,500
    110 ON A GOSUB 1300,1400
    ...
    1300 REM start of subroutine for A=1
    ...
    1390 RETURN

OUT - оператор посылки данных m в выходной порт машины n

OUT n,m

n - номер порта от 0 до 255 (0 - 65535 для Бейсик-Спектрум+2);

m - байт данных от 0 до 255.

Оператор OUT является дополнительным к функции INP. Для Бейсик-Спектрум+2 загружает в пару регистров ВС число n, в регистр А число m и выполняет команду ассемблера out (С), А.

Например:

    10 OUT 132,100

РЕЕК - функция получения байта из указанного числом n адреса оперативной памяти

Y=PEEK(n)

n - целое число от 0 до 65535.

Считанное значение будет целым десятичным числом в диапазоне 0 ... 255. Функция РЕЕК дополнительная к оператору РОКЕ.

Например:

    10 IF (РЕЕК(&Н410) AND &Н30)=&Н30 THEN MONO=1 ELSE MONO=0

PI - число "пи"

Y=PI

Число "пи" является бесконечной непериодической десятичной дробью, его первые значащие цифры равны 3.1415927.

РОКЕ - оператор записи байта данных m в оперативную память по адресу n

POKE n,m

n - число от 0 до 65535;

m - число от 0 до 255.

Дополнительной функцией к оператору РОКЕ является функция РЕЕК; РЕЕК и РОКЕ полезны для эффективного хранения данных, загрузки подпрограмм на машинном языке, передачи аргументов и результатов в и из подпрограмм на машинном языке. Интерпретатор не делает никакой проварки адресов. Например:

    10 РОКЕ 106,0

POP - оператор удаления из стека последнего адреса возврата

PRINT - оператор вывода информации на экран дисплея

PRINT [список выражений][; : ,]

Если список выражений не указан, то на экран выводится строка пробелов. Выражения в списке могут быть числовыми и/или строковыми. Строковые константы должны быть заключены в кавычки. Позиция каждого выведенного элемента определяется знаками препинания, используемыми для разделения элементов списка.

В версиях XYBASIC, Бейсик-ТRS-80, Бейсик-ПК8010, Бейсик-ПК8020, MSX-BASIC и BASICA строка разделяется на зоны вывода по четырнадцать символов каждая. В версии Бейсик-Спектрум+2 запятая используется, чтобы вывод начинался либо с левой границы, либо с середины экрана, а апостроф (’) используется для вывода с начала следующей строки. В версии Бейсик-АГАТ строка делится на три зоны вывода.

Запятая в списке выражений заставляет печататься следующее значение с начала следующей зоны. Точка с запятой заставляет печататься следующее значение со следующей позиции с учетом пробелов при печати числовых данных.

Если запятая или точка с запятой заканчивают список выражений, то следующий оператор PRINT начинает печать в той же строке через заданное число пробелов. Если длина печатаемой строки больше, чем определено оператором WIDTH, то печать продолжается на следующей физической строке.

За печатаемыми числами всегда следует пробел; положительным числам предшествует пробел, а отрицательным знак минус. В некоторых версиях языка числа одинарной точности могут быть представлены шестью или меньше цифрами в формате с фиксированной точкой, но с меньшей точностью, чем если бы они могли быть представлены в формате с плавающей точкой. Они выводятся, используя фиксированную точку или целочисленный формат. Например, 10^(-7) выводится как .0000001, а 10^(-8) выводится как 1Е-8.

    10 INPUT X
    20 PRINT X;"SQUARED IS";Х^2;"AND" ,
    30 PRINT X;"CUBED IS";X^3
    RUN
    ?3
     9 SQUARED IS 81 AND     9 CUBED IS 729 
    Ok
    RUN 
    ?21
     21 SQUARED IS 441 AND   21 CUBED IS 9261 
    Ok
    10 FOR X=1 TO 5
    20 J=J+5
    30 K=K+10
    40 ?J;K
    50 NEXT X 
    RUN
     5  10  10  20  15  30  20  40  25  50
    Ok

PRINT USING - оператор вывода информации на экран с учетом заданного формата

PRINT USING Х$;список выражений[; : ,]

Список выражений состоит из строковых или числовых выражений, которые будут печататься. Выражения в списке разделяются запятыми или точками с запятой; Х$ - строковая константа или переменная, которая состоит из специальных символов формата (табл. 3.2).

Примечание. В Бейсик-TRS-80 вместо \n пробелов\ используется %n пробелов%; MSX-BASIC вместо \n пробелов\ используется &n пробелов& и вместо & используется @.

Эти символы определяют формат и поля печатаемых символов. Для печати строк применяются следующие символы формата:

! - первый символ в заданной строке должен быть выведен на экран;

\n пробелов\ - 2+n символов из строки должны быть выведены. Если обратные слеши (\\) не содержат пробелов, то будут выведены два символа, если содержат один пробел, то - три символа и т. д. Если строка длиннее, чем поле, то лишние символы игнорируются. Если поле длиннее, то строка будет справа дополняться пробелами. Например:

    10 A$="LOOK" : B$="OUT"
    30 PRINT USING "!";А$;В$
    50 PRINT USING "\ \";А$;В$
    70 PRINT USING "\ \";А$;В$;"!!"
    RUN
    LO
    LOOKOUT
    LOOK OUT ! !
    Ok

& - определяет поле строки переменной длины. Если поле определено с &, то строка выводится в том виде, как она была введена. Например:

    10 A$="LOOK" : B$="OUT"
    20 PRINT USING "!";А$;
    30 PRINT USING "&";В$
    40 PRINT "ПЕЧАТЬ & НА ЭКРАНЕ";В$
    RUN
    LOUT
    ПЕЧАТЬ OUT НА ЭКРАНЕ
    Ok

Для вывода чисел используются следующие символы:

# - для представления каждой числовой позиции. Числовые позиции всегда заполнены. Если число, которое будет выводиться, содержит меньше цифр, чем определенных позиций, то число будет выводиться в поле справа и ему будут предшествовать пробелы. Точка может быть выведена в любую позицию поля. Если строка формата определяет, что цифры должны предшествовать точке, то перед точкой обязательно будут выводиться цифры (если необходимо, будут выводиться нули). При необходимости числа округляются. Например:

    PRINT USING "##.##";.78
     0.78
    PRINT USING "###.##";987.654
     987.65
    PRINT USING "##.##   ";10.2,5.3,66.789,.234
     10.20   5.30   66.79   0.23

+ - знак "+" в конце строки формата используется для вывода знака числа (+ или -) перед или после числа.

- - знак " в конце строки формата используется для вывода отрицательного числа со знаком минус. Например:

    PRINT USING "+##.##   ";-68.95,2.4,55.6,-.9
    -68.95   +2.40   +55.60   -0.90
    PRINT USING "##.##-   ";68.95,22.449,-7.08
     68.95-   22.45   7.04-

** - двойная звезда в начале строки формата для заполнения звездочками передних пробелов в числовом поле; для определения позиции при использовании больше двух цифр. Например:

    PRINT USING "**##.#   ";12.39,-0.9,765.1
    *12.4   *-0.9   765.1

$$ - двойной знак "$$" для вывода знака $ непосредственно слева от числа; $$ определяет позиции более двух цифр, одна из которых $. Экспоненциальный формат не может быть использован со знаком Отрицательные числа не могут быть использованы, если знак не указан справа. Например:

    PRINT USING "$$###.##";456.78
    $456.78

**$ - этот знак в начале строки формата комбинирует действия вышеназванных двух символов формата. Передние пробелы будут заполняться звездочками, а знак будет выводиться перед числом. Знак "**$" определяет позиции более трех цифр, одна из которых $. Например:

    PRINT USING "**$##.##";2.34
    ***$2.34

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

    PRINT USING "####,.##";1234.5
     1,234.5
    PRINT USING "####.##,";1234.5
     1234.5,

^^^^ - этот знак может быть размещен после символов цифровой позиции для определения экспоненциального формата. Этот знак резервирует пространство для Б+пп, которые будут выводиться. Значащие цифры выводятся слева. Если задан начальный или конечный знак "+" или "-" то одна цифровая позиция будет использована слева или справа от точки для вывода пробела или знака "-". Например:

    PRINT USING "##.##^^^^"";234.56
     2.35Е+02
    PRINT USING ".###^^^^-";-88888
    .889E+05-
    PRINT USING "+.##^^^^"";123
    +.12E+03

_ - знак подчеркивания в строке формата используется для вывода следующего символа как литерала. Сам литеральный символ может быть знаком подчеркивания, размещаясь как '-' в строке формата. Например:

    PRINT USING " !##.##_!";12.34
    !12.34!

Если число, которое должно выводиться, больше определенного числового поля, то в начале числа выводится знак %. Если при округлении число превышает поле, то знак % будет выводиться в начале округленного числа. Например:

    PRINT USING "##.##"; 111.22
    %111.22
    PRINT USING ".##";.999
    %1.0

Если число заданных цифр превышает 24, то появляется сообщение об ошибке Illegal function call (Неверный функциональный вызов). Например:

    PRINT USING "THIS IS EXAMPLE ##";1
    THIS IS EXAMPLE #1

RANDOM - оператор, включающий генератор случайных чисел и определяющий последовательность случайных величин при использовании функции RND

RANDOMIZE - оператор, обеспечивающий работу генератора случайных чисел

RANDOMIZE [n]

n - любое целое число в диапазоне чисел, с которыми работает используемая версия языка Бейсик.

Если n не указано, то интерпретатор приостанавливает выполнение программы и запрашивает значение; на экране появляется сообщение Random number seed (-32768 to 32767)? (Введите любое число (от -32768 до +32767)?) перед выполнением RANDOMIZE.

Чтобы изменить последовательность случайных чисел при каждом выполнении программы, необходимо поместить оператор RANDOMIZE в начале программы и каждый раз изменять число n.

READ - оператор считывания данных из оператора DATA

READ список переменных

Считывая значения из оператора DATA, присваивает их переменным. Оператор READ всегда должен быть использован в паре с оператором DATA. Оператор READ присваивает значение оператора DATA переменным один к одному. Например:

    10 PRINT "СТРАНА","ГОРОД","ИНДЕКС"
    20 READ C$,S$,Z
    30 DATA "СССР","МОСКВА",115470
    40 PRINT C$,S$,Z
    RUN 
    СТРАНА        ГОРОД       ИНДЕКС
    СССР          МОСКВА       115470
    Ок

RESET и SET - функция установки в 0 или в 1 соответственно определенного бита в байте

Y=RESET(выражение1,выражение2)
Y=SET(выражение1,выражение2)

выражение1 - целочисленное выражение, значение которого изменяется;

выражение2 - номер бита (от 0 до 15).

Например:

    10 Х=16:Y=SET(0,4) 
    20 PRINT RESET(X,4);Y
    RUN
     0  16
    OK

В функциях SET и RESET выражение2 вычисляется по модулю 16.

RESTORE - оператор, используемый совместно с операторами READ и DATA при вводе данных

Формат 1 (кроме Бейсик-АГАТ).

RESTORE [номер строки]

Формат 2 (для Бейсик-АГАТ).

RESTORE

Разрешает данным, указанным оператором DATA, повторно считываться с определенной строки. После того как выполнится оператор RESTORE, следующий оператор READ имеет доступ к первому элементу первого оператора DATA программы. Например:

    10 READ А,В,С
    20 RESTORE
    30 READ D,E,F
    40 DATA 57,68,49
    50 PRINT A,B,C,D,E,F
    RUN
     57    68    49    57    68    49
    OK

Если номер строки задан, то следующий оператор READ имеет доступ к первому элементу в заданном операторе DATA.

RETURN - оператор возврата управления из подпрограммы в вызывающую программу.

Формат 1 (кроме MSX-BASIC и BASICA).

RETURN

Формат 2 (для MSX-BASIC и BASICA).

RETURN[номер строки]

Осуществляет возврат к оператору, следующему за оператором перехода к подпрограмме. В версиях MSX-BASIC и BASICA может быть осуществлен возврат по указанному номеру строки. Например:

    50 GOSUB 400
    ...
    400 REM subroutine
    ...
    500 RETURN

RIGHT$ - функция выделения n самых правых символов строки Х$

Y$=RIGHT$(X$,n)

n - число от 0 до 255.

Если n больше или равно длине строки Х$, то печатается вся строка Х$. Если и равно 0, то печатается пустая строка.

Например:

    10 А$="ВОСА RATON,ABCDEFG"
    20 PRINT RIGHT$(A$,7)
    RUN
    ABCDEFG
    Ok

RND - функция генерации псевдослучайных чисел от 0 до 1

Формат 1 (кроме Бейсик-АГАТ).

Y=RND[(n)]

Формат 2 (для Бейсик-АГАТ).

Y=RND (n)

Например:

    10 FOR I=1 ТО 3
    20 PRINT RND(I),
    30 NEXT I
    RUN
     .6291626   .1948297   .6305799
    Ok

При выполнении программы каждый раз генерируется одинаковая последовательность случайных чисел, если ие выбран генератор случайных чисел. Это можно сделать, используя оператор RANDOMIZE, или в функции RND задавать аргумент n каждый раз с другим значением; RND(0) повторяет последнее сгенерированное случайное число.

ROTATE, RSHIFT и LSHIFT - функции сдвига байта

Y=ROTATE(выражение1,выражение2)
Y=RSHIFT(выражение1,выражение2)
Y=LSHIFT(выражение1,выражение2)

выражение1 - целочисленное выражение, значение которого сдвигается;

выражение2 - число позиций.

Функция ROTATE осуществляет циклический сдвиг вправо, а функции RSHIFT и LSHIFT осуществляют сдвиг целочисленных значений, заданных в выражении!, вправо и влево на заданное число позиций соответственно.

Например:

    PRINT ROTATE (1,2)
     16384
    OK
    PRINT LSHIFT (5,3)
     40
    OK

В первом примере циклически сдвигается вправо число 1 на две позиции и получается число 16384 (#4000). Во втором примере число 5 (двоичное &0101) сдвигается влево на три позиции и получается число 40 (двоичное &101000).

SCALL - оператор вызова подпрограммы на машинном языке

SCALL число[,целочисленная переменная1,целочисленная переменная2,целочисленная переменнаяЗ]

число - адрес подпрограммы.

Вызывает подпрограмму на машинном языке по адресу, заданному числом. Если необязательные переменные присутствуют, то их значения передаются в регистры ВС, DE и HL, а при возврате из машинной подпрограммы значения из этих регистров присваиваются соответствующим переменным.

Сообщение об ошибке МС появляется, если определено более трех переменных или если переменные не являются целочисленными.

Например:

    SCALL #7400,Х%

SENSE - функция определения значения бита в порте

Y=SENSE(номер бита,номер порта)

Например:

    10 FOR I=0 ТО 7 
    20 PRINT SENSE(5,I) 
    30 NEXT I 
    RUN
     1  0  1  1  0  0  0  0
    OK

SGN - функция определения знака числа

Y=SGN(X)

Если аргумент X - положительное число, то функция определяет +1, если равен 0, то -0, если отрицательное число, то -1.

Например:

    10 ON SGN(X)+2 GOTO 100,200,300

SIN - функция определения синуса угла X, заданного в радианах

Y=SIN(X)

Функция SIN(X) определяет вещественное число одинарной точности.

Например:

    PRINT SIN(1.5) 
     .09974951 
    Ok

SPACE$ - функция образования строки пробелов

Y$=SPACE$(n)

n - число от 0 до 255.

Например:

    10 FOR I=1 TO 5 
    20 X$=SPACE$(I) 
    30 PRINT X$;I 
    40 NEXT I
    RUN
     1 
       2 
         3 
           4 
             5 
    Ok

SPC - функция, используемая совместно с оператором PRINT для печати n пробелов

PRINT SPC(n)

n - число от 0 до 255.

Если n больше заданной ширины экрана, то используется значение (n MOD ширина). Функция SPC может быть использована только с операторами PRINT, LPRINT, PRINT#.

Например:

    PRINT "OVER";SPC(15);"THERE" 
    OVER               THERE
    Ok

SQR - функция извлечения квадратного корня неотрицательного числа X

Y=SQR(X)

Например:

    10 FOR X=10 TO 25 STEP 5
    20 PRINT X,SQR(X)
    30 NEXT
    RUN
     10      3.162278
     15      3.672984
     20      4.472136
     25      5
    Ok

STR$ - функция формирования строки десятичных цифр. Образует строковое представление значения X

X$=STR$(X)

Функция VAL является инверсией функции STR$.

Например:

    10 INPUT "NUMBER";N
    20 ON LEN(STR$(N)) GOSUB 60,100,200

STRING$ - функция повторения определенное число n раз заданного символа с кодом m или первого символа строки Х$

Y$=STRING$(n,m)
Y$=STRING$(n,Х$)

n и m - числа от 0 до 255.

Например:

    10 Х$=STRING$(10,45)
    20 PRINT X$;"MONTHLY REPORT";X$
    20 ON LEN(STR$(N)) GOSUB 60,100,200
    RUN
    ----------MONTHLY REPORT----------
    Ok
    10 X$=(ABCD)
    20 Y$=STRING$(10,X$)
    30 PRINT Y$
    RUN
    AAAAAAAAAA
    Ok

SWAP - оператор обмена значений двух переменных

SWAP переменная1,переменная2

Могут быть обменены переменные любого типа, но обе переменные должны быть одного типа, иначе появляется сообщение Type Mismatch (Ошибочный тип). Переменными могут быть, элементы массива.

Например:

    10 A$="ONE": B$="ALL": C$="FOR ":PRINT А$;С$;В$
    20 SWAP A$,B$:PRINT A$,C$,B$
    RUN
    ONE FOR ALL
    ALL FOR ONE
    Ok

TAB - функция табуляции в n-ю позицию. Записывается совместно с оператором PRINT

PRINT TAB(n)

n - число от 1 до 255.

Если номер позиции, в которой производится печать текущего символа больше n, то заданная табуляция отрабатывается на следующей строке. Позиция 1 - самая левая заданная ширина минус 1 (WIDTH-1) - самая правая позиция. Функция ТАВ может использоваться только с операторами PRINT, LPRINT, PRINT#.

Например:

    10 PRINT "ИМЯ"TAB(25)"КОЛИЧЕСТВО"
    20 READ А$,В$
    30 PRINT А$ТАВ(25)В$
    40 DATA "Л.М.Яншин","25.68"
    RUN
    ИМЯ                     КОЛИЧЕСТВО
    Л.М.Яншин               25.68
    Ok

TAN - функция определения тангенса угла X, заданного в радианах

Y=TAN(X)

Функция TAN вычисляется с одинарной точностью.

TEST - функция определения значения бита

Y=TEST(выражение1,выражение2)

Проверяет бит в целочисленном значении, устанавливая его значение (0 или 1). Первый аргумент функции TEST - это переменная или выражение, которое необходимо проверить, второй - номер бита, который необходимо проверить.

Например

    10 I=7
    20 PRINT TEST(I,2)
    RUN
     1
    OK

USR - функция, используемая для вызова подпрограмм, написанных на машинном языке с аргументом X

Формат 1 (для Бейсик-Спектрум+2 и Бейсик-АГАТ).

Y=USR(X)

Формат 2 (для всех остальных версий).

Y=USR[цифра](Х)

цифра - 0-9. Соответствует цифре в операторе DEF USR для заданной подпрограммы.

Если цифра не указана, то принимается USR0.

X - адрес начала подпрограммы на машинном языке.

Формат 1. В Бейсик-Спектрум+2 результатом выполнения будет значение, лежащее в регистрах ВС. Подпрограмму в машинных кодах можно сохранять командой SAVE "имя" CODE адрес (см. гл. 4).

Например:

    PRINT USR 65268

В Бейсик-АГАТ значение X помещается в ячейках 157-163. Адрес подпрограммы на машинном языке должен быть подготовлен в ячейках 11-12, а в ячейке 10 должен быть код 76.

Формат 2. Оператор CALL другим способом вызывает подпрограмму на машинном языке.

Например:

    10 B=T*SIN(Y)
    20 C=USR(B/2)
    30 D=USR(B/3)

VAL - функция определения числового значения строки Х$

X=VAL(X$)

функция VAL при вычислении результата убирает начальные пробелы, табуляцию и перевод строки. Если Х$ не число, то результатом будет 0.

Например:

    PRINT VAL("     -3")
    -3 
    PRINT VAL("PROBA")
     0

VAL$ - функция обработки строки Х$ (без ограничивающих кавычек) как строкового выражения

Y$=VAL$(X$)

Если аргумент функции содержит синтаксическую ошибку или дает числовое значение, то появляется сообщение об ошибке Nonsense in BASIC (Ерунда в Бейсике).

Следует помнить, что (в Бейсик-Спектрум+2) внутри строки символ кавычек должен быть введен дважды. Для более глубокого вложения строк кавычки потребуется повторять или четыре или восемь раз.

Для того чтобы разобраться, как работает функция VAL$, необходимо разобраться, как работает функция VAL.

Функция VAL выполняется в два приема: сначала ее аргумент вычисляется как строка, затем кавычки отбрасываются и оставшаяся величина вычисляется как число.

Для функции VAL$ первый шаг тот же, однако после отбрасывания кавычек оставшаяся величина снова вычисляется как строка. Например:

    PRINT VAL$("""STROKA""")
    "STROKA"

VARPTR - функция определения адреса памяти, где хранится заданная переменная

X=VARPTR(переменная)

Возвращает адрес первого байта данных, идентифицированных переменной. Перед использованием функции VARPTR значение должно быть присвоено переменной, иначе появится сообщение об ошибке Illegal function call (Неверный функциональный вызов). Может быть использовано имя переменной любого типа.

Функция VARPTR обычно используется для получения адреса переменной или массива для передачи его в подпрограмму на машинном языке. Например:

    100 FR=VARPTR(А%)
    110 PRINT PEEK(FR);PEEK(FR+1)

WAIT - оператор приостановки выполнения программы на период обработки состояния входного порта компьютера

WAIT порт,n[,m]

порт - номер порта от 0 до 255.

Приостанавливает выполнение программы, пока заданный порт машины не выработает определенного образа бит. Данные, считанные в порт, подвергаются операции XOR с целочисленным значением m, а затем операции AND с выражением n. Если результат равен 0, то выполнение продолжается со следующего оператора. Если ш не указано, то принимается m, равное 0.

Например:

    100 WAIT 32,2

WHILE...WEND - оператор цикла

WHILE выражение
операторы внутри цикла
WEND

Выполняет последовательность операторов в цикле до тех пор, пока заданное условие истинно (не 0). Если выражение истинно, операторы цикла выполняются до тех пор, пока не встретится оператор WEND. Затем управление передается оператору WHILE и проверяется выражение. Если заданное условие ложно, то выполнение программы продолжается с оператора, следующего за оператором WEND. Цикл WHILE...WEND может быть вложенным до любого уровня. Каждый WEND будет соответствовать последнему незакрытому оператору WHILE. Незакрытый цикл вызовет ошибку WHILE without WEND (WHILE без WEND).

Например:

    10 FL=1
    20 WHILE FL
    30 FL=0
    40 FOR I=1 TO 5:PRINT I:FL=1:NEXT I
    50 WEND

WIDTH - оператор, определяющий ширину строки на экране дисплея или на печатающем устройстве

Формат 1 (кроме MBASIC и BASICA).

WIDTH размер

Формат 2 (для MBASIC и BASICA).

WIDTH [LPRINT] размер

размер - числовое выражение от 15 до 255.

Если задан параметр LPRINT, то для печатающего устройства будет устанавливаться новая ширина строки. Если размер равен 255, то интерпретатор никогда не будет вставлять возврат каретки. Однако позиция курсора или головки печатающего устройства, заданная функциями POS или LPOS, будет равна 0.

WRITE - оператор вывода информации на экран

WRITE [список выражений]

Если список выражений не указан, то выводится строка пробелов. А если задан список выражений, то их значения выводятся на экран дисплея. Выражения в списке могут быть числовыми и/или строковыми. Они отделяются друг от друга запятыми или точками с запятой. При выводе каждый печатаемый элемент будет отделяться от другого запятой.

Печатаемые строки будут заключаться в кавычки. После печати последнего элемента списка интерпретатор вводит возврат каретки/перевод строки. Различие между WRITE и PRINT в том, что WRITE вставляет запятые между выводимыми элементами, заключает строковые переменные в кавычки и положительным числам не предшествуют пробелы.

Например:

    10 А=80:В=90:С$="THAT'S ALL"
    20 WRITE А,В,С$
    RUN
    80,90, "THAT'S ALL"
    Ok

Запись - совокупность данных на устройстве внешней памяти, являющаяся элементарным объектом при единичном обращении к данным.

Спецификация - имя, однозначно идентифицирующее файл, обрабатываемый в любой операционной системе. Спецификация файла обычно состоит из трех компонентов: имени устройства, имени файла, расширения имени файла.

В табл. 4.1 представлена информация о синтаксисе этих компонентов в рассматриваемых версиях интерпретаторов языка Бейсик.

Файл - организованный определенным образом набор связанных записей данных.

Файл данных - файл последовательного или произвольного доступа, создаваемый программистом для последующей обработки в программе.

Программный файл - программа пользователя, написанная на языке Бейсик или на машинном языке и хранящаяся на внешнем носителе.

К программным файлам также можно отнести и программы, написанные на каком-либо машинном языке, и которые использует в своей работе Бейсик-программа.

Бейсик-программа может храниться в текстовом, внутреннем или закодированном внутреннем формате. Внутренний формат зависит от конкретной версии интерпретатора языка Бейсик (пример внутреннего представления программ в BASIC дан в приложении). Внутренний закодированный формат - это специально подобранная система кодировки программы, которая при загрузке программного файла не позволяет вносить в него изменения и распечатывать его текст. Текстовый формат Бейсик программы - это набор кодов ASCII (КОИ-8). Этот формат позволяет набирать тексты программ на языке Бейсик, пользуясь любыми текстовыми редакторами.

В большинстве версий языка Бейсик, работающих под управлением той или иной операционной системы, доступ может осуществляться не к одному дисководу, а к нескольким. Например, операционная система МикроДОС может поддерживать до 16 дисководов, если эти устройства подключены и инициализированы. Соответственно Бейсик также может различать эти 16 дисководов.

Как уже было сказано выше, любой файл определяется спецификацией файла. Однако в таких версиях, как XYBASIC, BASIC, Бейсик-ПК8020, MSX-BASIC, BASICA в операторах обмена с файлом большую роль играет номер файла.

Номер файла - числовая константа, присваиваемая файлу при операции обмена с ним. Номер файла идентифицирует текущий файл. Одновременно может быть задействовано несколько файлов. Обращение к ним осуществляется по номеру. В вышеперечисленных версиях одновременно могут использоваться до 16 файлов.

Признаком номера файла является символ #. В XYBASIC признаком номера файла является символ @.

Почти во всех версиях языка Бейсик существуют инструкции, которые могут применяться при работе как с файлами данных, так и с программными файлами (рис. 4.1 и 4.2). Они представлены в табл. 4.2.

Рисунок 4.1.

Рисунок 4.2.

CAT! - команда выдачи списка всех программ или файлов данных каталога, записанных на "электронном" диске

"Электронный* диск - это область ОЗУ, организованная как накопитель на гибком магнитном диске.

CAT!

Описание см. команду FILES. (Формат FILES *.*)

CATALOG - команда выдачи списка всех программ или файлов, находящихся на диске

CATALOG устройство

устройство - диск, каталог которого необходимо вывести на экран дисплея Описание см. команду FILES.

CLEAR - команда определения количества одновременно используемых файлов на диске

CLEAR &n

n - количество файлов, определяемое пользователем.

По умолчанию в XYBASIC в начале работы пользователь может работать с двумя файлами. Однако, если необходимо увеличить количество файлов, он должен выполнить команду CLEAR. Но надо помнить, что каждый открытый для записи или чтения файл занимает 166 байт памяти. Одновременное использование большого количества файлов может вызвать появление ошибки ОМ - Out of memory (Вне памяти).

Использование команды CLEAR для указания количества файлов не влияет на действие этой же команды при определении емкости памяти, выделяемой под строковое пространство. Строковое пространство, определенное в какой-либо ранее заданной команде CLEAR, остается неизменным. Но при этом все переменные, определенные ранее, очищаются.

Например:

    CLEAR @3

По этой команде пользователю разрешается использовать в своих файловых операциях до трех файлов.

DELETE - команда удаления файла с заданным именем на диске

DELETE имя файла[,устройство]

имя файла - имя удаляемого файла;

устройство - обозначение диска, с которого удаляется файл.

Описание см. команду KILL.

Например:

    DELETE "PROGRAMM.BAS""

Удаляет на текущем диске файл PROGRAMM.BAS.

DIR - команда выдачи на экран дисплея имен файлов или программ, записанных на диске

DIR ["имя файла"]

Описание см. команду FILES.

DSKF - функция определения свободной памяти на диске

DSKF (номер диска)

Определяет число оставшихся блоков памяти на диске, указанном в команде. Параметр номер диска может принимать значения 0, 1 или 2, где 0 - активизированный (текущий) диск; 1 - диск А; 2 - диск В.

ERASE - команда удаления файлов на диске

ERASE

Описание см. команду KILL.

ERASE! - команда удаления файла на "электронном" диске

ERASE! "имя файла"

Описание см. команду KILL.

FILES - команда вывода на экран дисплея каталога диска

FILES ["спецификация файла"]

Команда FILES выводит на экран дисплея имена всех файлов, которые существуют на диске. В спецификации файла имя файла может быть неявным, т. е. содержать на месте расширения файла или имени файла символы * или ?. В таком случае на экран будут выводиться не все файлы, а только указанные.

Например:

    FILES "PROG.*"
    PROG.BAS
    PROG.BG
    PROG.BSC
    Ok

Если в спецификации файла не указан дисковод, то считывается каталог текущего диска. Если же спецификация файла не указана, то на экран выводятся имена всех файлов, находящихся на диске.

KILL - команда удаления заданного файла на диске

KILL "спецификация файла"

Может быть удален файл любого типа, но если обозначенный файл является открытым, то выдается сообщение File already open (Файл уже открыт) и удаления не происходит. Имя должно быть явно указано, т. е. не должно содержать символов * или ?. Если указанного файла на диске нет, то выдается сообщение File not found (Файл не найден). Команда KILL не удаляет также файлы, помеченные как системные, или файлы, имеющие атрибут Read only (только для чтения).

Например:

    KILL "PROG.*"

Это означает, что с диска будут удалены все файлы, имеющие имя PROG с произвольным расширением.

LFILES - команда вывода каталога диска на печатающее устройство

LFILES ["спецификация файла"]

Формат и действие аналогично команде FILES, только вывод каталога осуществляется на печатающее устройство. Если печатающее устройство не включено, то выдается сообщение Device I/O error (Ошибка устройства ввода-вывода).

NAME - команда переименования файлов на диске

NAME "спецификация файла1" AS "спецификация файла2"

спецификация файла1 - имя файла, который подлежит переименованию;

спецификация файла2 - имя, которое будет дано файлу после переименования.

При операции переименования старое имя файла, определенное в спецификации файла1, должно существовать на диске, иначе будет выдаваться сообщение об ошибке File not found (Файл не найден). Нового имени файла на диске существовать не должно. Если в имени файла не указано устройство, то по умолчанию принимается текущий дисковод. После действия команды NAME файл под новым именем располагается на заданном диске в той же области дискового пространства.

RENAME - команда переименования файлов на диске

RENAME старое имя файла,новое имя файла[,устройство]

Описание см. команду NAME.

SCRATCH - команда удаления заданного файла на диске

SCRATCH "имя файла"

Описание см. команду KILL.

Например:

    SCRATCH "TEMP.DAT"

Удаляется файл TEMP.DAT с текущего диска.

Во многих версиях языка Бейсик существуют инструкции, которые можно использовать как с файлами последовательного, так и произвольного доступа. Их перечень и наличие в разных версиях приведены в табл. 4.3.

CLOSE - оператор закрытия файла на диске

Формат 1 (для Бейсик-ПК8020, BASICA, MSX-BASIC, MBASIC).

CLOSE [[#]номер файла[,#номер файла...]]

Формат 2 (для XYBASIC).

CLOSE [[@]номер файла[,@номер файла...]]

Завершает операции ввода-вывода с файлами и освобождает соответствующие буферы. Оператор CLOSE без указания операндов закрывает все файлы, открытые оператором OPEN. После выполнения CLOSE аннулируется условная связь между определенным файлом или устройством и его номером. Этот же файл или устройство могут быть опять открыты с тем же или другим номером файла. (Оператор END, команды NEW, RESET или SYSTEM автоматически закрывают все открытые файлы или устройства. Оператор STOP не закрывает файлов.)

Например:

    100 CLOSE 1,#2,#3

Закрываются указанные файлы.

CLOSE# - оператор закрытия файла на диске

CLOSE#номер файла,номер файла...

Описание см. оператор CLOSE.

EOF - функция признака конца файла

Y=EOF(номер файла)

номер файла - номер, определенный в операторе OPEN.

Проверяет признак конца файла при операции чтения. Значение функции равно -1 (ИСТИНА), если найден конец файла, и равно 0 (ЛОЖЬ), если конец файла не найден. Например:

    10 OPEN "I" ,#1,"DATA":С=0
    20 IF EOF(1) THEN 100
    30 INPUT #1,M(C)
    40 C=C+1:GOTO 20
    100 REM обработка конца файла

LOC - функция определения текущей позиции в файле

Y=LOC(номер файла)

При работе с файлами произвольного доступа LOC определяет номер последней записи, считанной или записанной в файл произвольного доступа. При работе с файлами с последовательным доступом LOC определяет число записей, считанных или записанных в файл с того момента, как он был открыт.

Когда файл открыт для последовательного ввода, интерпретатор считывает первый сектор файла, поэтому значение LOC будет равно 1.

Например:

    10 IF LOC(1)>50 THEN STOP
    20 PUT #1,LOC(1)

В строке 20 происходит перезапись считанной записи.

LOF - функция определения длины файла

Y=LOF(номер файла)

номер файла - номер, заданный в операторе OPEN.

Определяет число байтов, размещенных в файле (длина файла). Число, определяемое функцией LOF, кратно 128. Например, если действительные данные в файле занимают 257 байт, то число байтов, определенных в функции, будет равно 384.

Например:

    10 OPEN "O",#1,"BIG"
    20 GET #1,LOF(1)/128

MAXFILES - оператор резервирования определенного числа буферов управления файлом

MAXFILES=арифметическое выражение

арифметическое выражение - выражение, принимающее значения от 0 до 15.

Оператор используется для установления максимального числа одновременно открытых файлов и соответственно числа зарезервированных буферов управления файлом данных. Каждый буфер управления файлом требует 257 байт памяти.

Если параметр "арифметическое выражение" больше 15, то выдается сообщение "Illegal function call" (Неверный функциональный вызов), если не хватает памяти, то Out of memory (Вне памяти).

Например:

    10 MAXFILES=2

OPEN - оператор открытия файла

Формат 1 (для Бейсик-ПК8020, MBASIC, BASICA).

OPEN "режим",[#]номер файла,"имя файла"[,длина записи]

Формат 2 (для XYBASIC).

OPEN режим2, @номер файла,"имя файла"

Формат 3 (для Бейсик-АГАТ).

OPEN имя файла[[,длина записи][,устройство]]

Формат 4 (для MSX-BASIC и BASICA).

OPEN "имя файла"[FOR "режим4"] AS [#] номер файла [LEN=длина записи]

Форматы 1-4. Открывают буфер для ввода-вывода в файл или устройство и определяют режим чтения или записи.

На НГМД могут размещаться файлы как последовательного, так и произвольного методов доступа; на других внешних устройствах памяти могут размещаться только файлы с последовательным методом доступа.

Формат 3. Оператору OPEN должен предшествовать вывод кода CONTROL-D:

    PRINT CHR$(4);"OPEN MYFILE,n"

n - длина записи.

Если параметр длина записи указан, то определяемый файл будет произвольного доступа, если не указан - то последовательного.

Формат 4.

Например:

    10 OPEN "DATA" FOR "INPUT" AS #1

Файл DATA открывается для последовательного ввода информации.

OPEN# - оператор открытия файла

OPEN# имя файла

Описание см. оператор OPEN.

RESET - оператор закрытия файлов

RESET

Закрывает все файлы и очищает системный буфер. Если все открытые файлы находятся на диске, то RESET действует так же, как и команда CLOSE без номера файла.

VARPTR - функция определения адреса блока управления файлом

Х=VARPTR(#номер файла)

Определяемый адрес лежит в диапазоне от 0 до 65535. Файл должен быть предварительно открыт. Например:

    10 OPEN "О",#1,"DATA"
    20 FC=VARPTR(#1)
    30 DA=FC+188
    40 A$=PEEK(DA)

Файлы с последовательным доступом создаются легче, чем файлы произвольного до па, но они уменьшают гибкость и скорость доступа к данным. Данные, которые записываются в файл с последовательным доступом, запоминаются один за другим (последовательно) и также считываются в коде ASCII (КОИ-8).

Для работы с файлами последовательного доступа используются следующие инструкции, представленные в табл. 4.4.

APPEND - команда подсоединения данных к файлу

APPEND "имя файла"

Команда открывает файл и устанавливает указатель записи в конец файла. Данные, дополнительно записываемые в файл, будут вводиться только после последнего элемента в файле. Если после задания команды APPEND производится операция чтения, то это приводит к сообщению об ошибке. Команда APPEND не должна следовать за оператором открытия файла OPEN, так как оператор OPEN устанавливает указатель записи-чтения на начало файла.

ASSIGN - оператор установления связи между физическим устройством и обращением к нему в программе

ASSIGN устройство номер

номер - значение от 0 до 3.

Оператор ASSIGN дает возможность передавать программе имя устройства ввода-вывода и управление этим устройством. Оператор изменяет значение байта ввода-вывода так, что последующие операции ввода-вывода будут осуществляться с выбранным устройством.

Например:

    ASSIGN CON#1

В этом примере выбрано устройство ввода с клавиатуры с номером 1.

IN# - оператор определения устройства для ввода информации

IN# номер устройства

номер устройства - численное выражение от 0 до 7.

Если выбранное устройство не определено или не задействовано, то система " зависает". Для перезагрузки необходимо нажать клавиши RESET+CONTROL-C.

Оператор IN#0 указывает на ввод с клавиатуры.

Оператору IN# должен предшествовать вывод кода CONTROL-D:

    PRINT CHR$(4);"IN#6"

INPUT - оператор ввода данных в программу из файла

Формат 1 (кроме XYBASIC и Бейсик-TRS-80).

INPUT #номер файла,переменная[,переменная]...

Формат 2 (только для XYBASIC).

INPUT @номер файла,переменная[,переменная]...

Формат 3 (только в Бейсик-TRS-80).

INPUT #-1,переменная[,переменная]...

номер файла - номер, с которым файл был открыт для ввода;

переменная - имя переменной, которой будет присвоен элемент данных.

Формат 1. Считывает элементы данных из файла с последовательным доступом и присваивает их переменным программы. Тип данных в файле должен соответствовать типу переменной. Знак вопроса не печатается. Элементы данных появляются в файле сразу, как только они введутся. Числовые значения (управляющие коды от 0 до 10), начальные пробелы, возврат каретки, перевод строки игнорируются. Первый вычисленный символ, который не является пробелом, возвратом каретки или переводом строки, будет началом числа.

Число ограничивается пробелом, возвратом каретки, переводом строки или запятой. Если Бейсик разделяет данные на строковые элементы, то начальные пробелы, перевод строки, возврат каретки также игнорируются. Началом элемента строки является первый вычисленный символ. Если кавычки (") являются первым символом, то элемент строки будет состоять из всех символов, находящихся между первыми и вторыми кавычками.

Строка, заключенная в кавычки, не может содержать кавычки как элемент строки. А если строка не заключена в кавычки, то она ограничивается запятой, возвратом каретки, переводом строки или длиной 255 символов. Если найден признак конца файла при вводе числового или строкового элемента, то ввод элемента будет закончен. Оператор INPUT# может быть использован при вводе данных из файла произвольного доступа.

Формат 2. Если номер файла равен 0, то ввод данных осуществляется с клавиатуры.

Формат 3. Используется для ввода данных с НКМЛ.

INPUT$ - функция определения последовательности заданного количества символов из файла

Y$=INPUT$(n,[#]m)

n - количество символов;

m - номер файла, определенный в операторе OPEN.

Из файла выбирается заданное количество символов, в том числе и управляющих. Например:

    10 OPEN "O",#1,"DATA"
    20 IF EOF(1) THEN 50
    30 PRINT HEX$(ASC(INPUTS(1,#1)));
    40 GOTO 20
    50 PRINT : END

IOBYTE - функция определения текущего значения байта ввода-вывода

X=IOBYTE

При использовании этой функции пользователь может всегда проконтролировать активные в данный момент устройства ввода-вывода информации.

Переменная X, стоящая в левой части выражения, будет содержать байт ввода-вывода, который побитно расписывается следующим образом:

Каждое двухбитовое поле выделяется под одно из четырех устройств (см. оператор ASSIGN).

LINPUT - оператор ввода строки символов из файла

LINPUT @номер файла,строковая переменная

номер файла - численное выражение, определенное в операторе OPEN;

строковая переменная - имя строковой переменной, которой будет присвоена введенная строка.

Описание см. оператор LINE INPUT.

LINE INPUT - оператор ввода в оперативную память строковой переменной из файла

LINE INPUT# номер файла, строковая переменная

номер файла - номер открытого файла;

строковая переменная - имя строковой переменной, которой будет присвоена введенная строка.

Считывает строку (длиной до 254 символов) без ограничителей из файла с последовательным доступом в строковую переменную.

Оператор LINE INPUT# считывает из файла с последовательным доступом все символы до символа возврата каретки. При повторном использовании оператора происходит считывание следующей последовательности символов до символа возврата каретки.

Оператор LINE INPUT# особенно удобен, если каждая строка файла разбита на поля или программа на языке Бейсик, сохраняемая в коде ASCII (КОИ-8), считывается как данные другой программой. Оператор LINE INPUT# может использоваться и для работы с файлом произвольного доступа. Например:

    10 OPEN "O",#1,"LIST"
    20 LINE INPUT "СТРОКА?";С$
    30 PRINT #1,С$ : CLOSE 1
    40 OPEN "I",#1,"LIST"
    50 LINE INPUT #1,C$
    60 PRINT C$ : CLOSE 1
    RUN
    СТРОКА? МОСКВА, ЛЕНИНСКИЙ ПРОСПЕКТ
    МОСКВА, ЛЕНИНСКИЙ ПРОСПЕКТ 
    Ок

MARGIN - оператор форматирования выходных файлов

MARGIN @номер файла[,длина строки]

номер файла - номер, определенный в операторе OPEN;

длина строки - целочисленное выражение, меньшее 256.

С помощью этого оператора устанавливается длина выходной строки данных. Если параметр длина строки не указан, то по умолчанию принимается длина строки, равная 72 символам.

Если номер файла равен 0, то изменится длина строки на экране дисплея. Если длина строки больше 255, то выдается сообщение об ошибке BY, если номер файла не совпадает ни с одним номером открытых файлов, то выдается сообщение об ошибке BF.

Например:

    MARGIN @1,100
    MARGIN @0,50

PR# - оператор определения устройства для вывода информации

PR# номер устройства

номер устройства - численное выражение от 0 до 7.

Если выбранное устройство не определено или не задействовано, то система "зависает". Для перезагрузки необходимо нажать клавиши CONTROL-С. Оператор PR#0 выбирает вывод на экран дисплея.

Оператору PR# должен предшествовать вывод кода CONTROL-D:

    PRINT CHR$(4);"PR#6"

PRINT и PRINT USING - операторы вывода данных и форматированного вывода данных в файл

Формат 1 (кроме XYBASIC и Бейсик TRS-80).

PRINT #номер файла,[USING Х$;]список выражений

Формат 2 (только для XYBASIC).

PRINT @номер файла,[формат]список выражений

Формат 3 (только в Бейсик-TRS-80).

PRINT #-1,список выражений

номер файла - номер, с которым файл был открыт для вывода;

Х$ - строковое выражение, определяющее формат;

список выражений - числовые или строковые выражения, которые должны быть записаны в файл;

формат - строковое выражение.

Формат 1. Оператор PRINT не сжимает данные в файле. В списке выражений необходимо разделять выражения точками с запятой (;). Если запятые (,) используются как разделители, то лишние пробелы, которые вводятся между печатными полями, также будут записываться в файл. Строковые выражения в списке выражении должны разделяться точками с запятой (;).

Например, если

    А$="HELLO" и В$="DOLLY"

тогда оператор

    PRINT #1,А$,В$

запишет в файл HELLODOLLY. Поскольку нет разграничителей, то эти данные не могут быть выведены как две отдельные строки. Чтобы устранить проблему, необходимо ввести с клавиатуры ограничители

    PRINT #1,А$,",";В$

и в файл запишется строка HELLO, DOLLY, которая затем может быть введена в две строки. Если сами строки содержат запятые и точки с запятой, то их надо записать в файл, заключая в кавычки.

Например, если

    А$="HELLO, FUNNY" и В$=" DOLLY"

тогда оператор

    PRINT #1,А$,В$

запишет в файл HELLO, FUNNY DOLLY и оператор

    INPUT #1,А$,В$

введет строку "HELLO" в А$, а строку "FUNNY DOLLY" в строку В$.

Поэтому надо использовать двойные кавычки и оператор

    PRINT #1,CHR$(34);А$;CHR$(34);CHR$(34);B$;CHR$(34)

запишет в файл "HELLO, FUNNY"" DOLLY", а оператор

    INPUT #1,А$,В$

введет "HELLO, FUNNY" в A$, a "DOLLY" в B$.

Оператор PRINT может быть использован с параметром USING для управления форматом вывода.

Например:

    PRINT #1,USING "$$###.##",J;K;L

Формат 2. Если указан параметр формат, то строка символов, определенная в этом параметре, будет записываться в файл.

Формат 3. Используется для вывода данных на НКМЛ.

READ - оператор чтения данных из файла с последовательным доступом

READ имя файла, список выражений

Описание см. оператор INPUT в этой главе.

Оператору READ должен предшествовать вывод кода CONTROL-D:

    PRINT CHR$(4);"READ MYFILE,P"

WRITE - оператор записи данных в файл с последовательным доступом

Формат 1 (кроме Бейсик-АГАТ).

WRITE #номер файла,список выражений

Формат 2 (только Бейсик-АГАТ).

WRITE имя файла,список выражений

номер файла - номер, с которым файл был открыт для вывода.

Выражения в списке могут быть числовыми и/или строковыми, они отделяются запятыми или точками с запятой.

Различие между операторами WRITE# и PRINT# заключается в том, что оператор WRITE вставляет запятые между элементами и заключает строки в кавычки. Поэтому нет необходимости ставить ограничители в списке.

После записи последнего элемента в список выражений вводится символ возврат карет* ки/перевод строки.

Формат 2. Оператору WRITE должен предшествовать вывод кода CONTROL-D:

    PRINT CHR$(4);"WRITE MYFILE,P"

Создание файла и обращение к файлу произвольного доступа требует больше программных шагов, чем к файлу с последовательным доступом, *но у файлов произвольного доступа существует ряд преимуществ:

• требует меньше места на диске, так как они запоминаются в закодированном (упакованном) двоичном формате;
• для доступа к данным не надо считывать всю информацию, так как информация записывается и считывается записями, причем записи пронумерованы.

Для работы с файлами произвольного доступа используются инструкции, представленные в табл. 4.5.

CVI, CVS, CVD - функции преобразования строковых переменных в числовые

Y=CVI(строка из двух байт)
Y=CVS(строка из четырех байт)
Y=CVD(строка из восьми байт)

При считывании из файла произвольного доступа строковые переменные преобразуются в числа. Функция CVI преобразует двухбайтовые строковые переменные в целые числа; функция CVS - четырехбайтовые строковые переменные в числа одинарной точности; функция CVD - восьмибайтовые строковые переменные в числа двойной точности.

Например:

    10 FIELD #1,4 AS N$,12 AS B$
    20 GET #1
    30 Y=CVS(N#)

FIELD - оператор выделения памяти для переменных в буфере файла произвольного доступа

FIELD [#[номер,ширина AS строковая переменная][,ширина AS строковая переменная]...]

номер - номер файла, указанный в операторе OPEN;

ширина - числовое выражение, определяющее число символов для резервирования строковой переменной;

строковая переменная - строковая переменная, которая будет вводиться в файл произвольного доступа.

Оператор FIELD должен быть выполнен до получения данных из буфера файла произвольного доступа после оператора GET или после введения данных в буфер для оператора PUT. Общее число байтов, зарезервированных оператором FIELD, не должно превышать длину записи, которая была определена при открытии файла. В противном случае выдается сообщение об ошибке FIELD overflow (Переполнение поля).

Для файла с одним номером может быть выполнено любое число операторов FIELD, и все выполняемые операторы FIELD находятся в обработке одновременно. Каждый новый оператор FIELD переопределяет буфер с первой символьной позиции, так что это имеет эффект многократных определений полей для строковых данных. Например:

    FIELD 1,20 AS N$,10 AS ID$,40 AS ADD$

Резервирует первые двадцать позиций в буфере файла произвольного доступа для строковой переменной N$, следующие десять позиций для ID$ и следующие сорок позиций для ADD$.

Сам оператор не размещает данные в буфере файла. Это делают операторы LSET и RSET.

Например:

    10 OPEN "R",#1,"В:CUST"
    20 FIELD 1,20 AS CUSTM$,30 AS ADD$,35 AS CITY$
    30 GET 1
    40 N$=CUSTM$
    50 PRINT N$,ADD$,CITY$

GET - оператор чтения записи из файла произвольного доступа в буфер

GET [#]номер файла [,номер записи]

номер - номер файла, который был открыт оператором OPEN;

номер записи - номер записи для чтения от 1 до 32767.

Если не указан номер записи, то в буфер считывается следующая (после последнего оператора GET) запись. После выполнения оператора GET могут выполняться операторы INPUT# и LINE INPUT# для считывания символов из буфера файла произвольного доступа.

Например:

    10 OPEN "A:CUST" AS #1
    20 FIELD 1,30 AS CUSTM$
    30 GET 1
    40 PRINT CUSTM$
    50 GET 2

LSET и RSET - операторы пересылки данных из памяти в буфер файла произвольного доступа.

LSET строковая переменная = Х$
RSET строковая переменная = Х$

Если Х$ требует меньше байтов, чем было отведено для строковой переменной в операторе FIELD, то LSET пересылает символы строки, определенной в операторе FIELD, в левую часть буфера, a RSET - в правую. Пробелы используются для заполнения лишних позиций. Если Х$ длиннее строковой переменной, то лишние символы отбрасываются оператором LSET справа, a RSET - слева. Числовые значения перед использованием операторами LSET и RSET должны быть преобразованы в строковые. Операторы LSET и RSET можно так же использовать со строковыми переменными, которые не были определены в FIELD. Например:

    10 A$=SPACE(20)
    20 RSET A$=N$
    30 LSET A$=MKS$(ANT)

MKI$, MKS$ и MKD$ - функции преобразования числовых значений в строковые

Y$=MKI$(целочисленное выражение)
Y$=MKS$(выражение одинарной точности)
Y$=MKD$(выражение двойной точности)

Любое строковое значение, которое размещается в буфере файла произвольного доступа операторами LSET и RSET, должно быть переведено в строковое значение. Функция МКI$ переводит целое число в двухбайтную строку; функция MKS$ - число одинарной точности в четырехбайтную строку; функция MKD$ - число двойной точности в восьмибайтную строку.

Например:

    90 АМТ=(К+Т)
    100 FIELD #1,4 AS D$,20 AS N$
    110 LSET D$=MKS$(AMT)
    120 LSET NS=A$
    130 PUT #1

POSITION - оператор пропуска определенного числа записей (полей) в файле произвольного доступа

POSITION имя файла[,Rпозиция]

позиция - число пропускаемых записей. Значение может Меняться от 0 до 32767. По умолчанию - 0.

Символ R служит признаком файла произвольного доступа. Оператор POSITION устанавливает указатель записи в начало поля после числа пропускаемых записей, определенного в параметре позиция. Операторы READ и WRITE начинают работу с этого указателя. Каждая запись (поле) - это последовательность символов, оканчивающаяся символом возврата каретки/перевода строки.

Оператору POSITION должен предшествовать вывод кода CONTROL-D:

    PRINT CHR$(4);"POSITION MYFILE,R100"

PUT - оператор записи из буфера файла произвольного доступа в файл данных

PUT [#]номер файла[,номер записи]

Заносит запись из буфера файла произвольного доступа в файл данных. Если номер записи не указан, то запись будет иметь следующий по порядку и разрешенный номер. Для записи символа в буфер файла произвольного доступа перед оператором PUT могут быть использованы операторы PRINT#, PRINT# USING и WRITE#. Любые попытки прочитать или записать файл данных, который превышает емкость буфера, вызовут ошибку FIELD overflow (Переполнение поля).

READ - оператор чтения данных из файла произвольного доступа

READ имя файла[,Rзапись], список выражений

Если указан параметр запись, то чтение осуществляется начиная с указанной записи. Запись может содержать от 1 до 32767 символов и определяется как последовательность символов, заканчивающаяся символом возврата каретки.

Оператору READ должен предшествовать вывод кода CONTROL-D:

    PRINT CHR$(4);"READ MYFILE,P"

RSET - см. описание оператора LSET

WRITE - оператор записи данных в файл произвольного доступа

WRITE имя файла [,Rзапись], список выражений

номер файла - номер, под которым файл был открыт для вывода;

запись - число выводимых записей (полей).

Оператору WRITE должен предшествовать вывод кода CONTROL-D:

    PRINT CHR$(4);"WRITE MYFILE,P"

Как было сказано выше, программные файлы делятся на:

• файлы на языке Бейсик, сохраненные во внутреннем формате (в промежуточном коде, полученном после преобразования исходного текста);
• файлы на языке Бейсик, сохраненные в закодированном внутреннем формате (во внутреннем коде, дополнительно обработанном по специальным формулам кодирования);
• файлы на языке Бейсик, сохраненные в текстовом (коде ASCII) формате;
• файлы на машинном языке.

В табл. 4.6. представлены инструкции, которые обрабатывают программные файлы.

BLOAD - команда загрузки программы, написанной на машинном языке

BLOAD "имя файла"[,[R][,смещение]]

смещение - величина, определяющая смещение физического адреса загрузки от заданного Команда BLOAD загружает в память файлы с НГМД или НКМЛ, сохраненные командой BSAVE. После загрузки программы, если задан параметр R, управление передается загруженной программе. Иначе интерпретатор переходит в командный режим.

Например:

    BLOAD"CAS:MOUSE.GM",R

С НКМЛ загружается программа MOUSE.GM и ей передается управление.

При чтении с НКМЛ, если заданное имя файла не совпадает с записанным на ленте, выдается сообщение Skip (Пропущен), если совпадает, то выдается сообщение Found (Найден).

Использование команды BLOAD в программе не вызывает стирания информации в памяти, которую занимает Бейсик-программа, поэтому эту команду можно использовать для загрузки отдельных машинных программ, которые, например, ускоряли бы действие интерпретатора.

BSAVE - команда сохранения на определенном носителе программы в машинных кодах или определенной области памяти

BSAVE "спецификация файла",начальный адрес,конечный адрес[,стартовый адрес]

начальный адрес - начальный адрес программы или области памяти;

конечный адрес - конечный адрес программы или области памяти;

стартовый адрес - стартовый адрес программы.

Все адреса могут быть заданы в любой форме представления. Если не указан стартовый адрес, то вместо него записывается начальный адрес программы.

Команда BSAVE записывает программу или область данных на НКМД или НКМЛ в следующем формате:

• 1-й байт - признак двоичного файла (OFEH);
• 2-3-й байты - начальный адрес;
• 4-5-й байты - конечный адрес;
• 6-7-й байты - стартовый адрес;
• далее - данные.

Если какой-нибудь параметр не указан, то выдается сообщение об ошибке Missing operand (Ошибочный операнд) или Syntax error (Синтаксическая ошибка).

CHAIN - оператор передачи управления другой подпрограмме с передачей переменных из текущей программы

CHAIN [MERGE]"имя файла"[,[номер строки] [,[ALL][,DELETE диапазон]]]

имя файла - имя файла вызываемой программы;

номер строки - номер строки или выражение, которое вычисляет номер строки в вызванной программе. Это начальная точка, с которой начинается выполнение вызванной программы. Если этот оператор не указан, то выполнение программы начинается с первой строки. На этот параметр не действует команда RENUM;

ALL - если указан параметр ALL, то все переменные из текущей программы передаются в вызванную программу. Если параметр ALL не указан, то текущая программа должна содержать оператор COMMON;

MERGE - если указан параметр MERGE, то подпрограмма включается в программу на языке Бейсик как оверлей, т. е. параметр MERGE выполняется с текущей и вызванной программами. Вызванная программа должна быть файлом в текстовом формате (в коде ASCII (КОИ-8));

DELETE - используется для удаления использованного оверлея. Действие аналогично команде DELETE;

диапазон - диапазон номеров строк, которые надо удалить перед загрузкой. На номера строк в диапазоне действует команда RENUM.

Оператор CHAIN с параметром MERGE оставляет открытыми файлы и защищает текущую установку OPTION BASE. Если параметр MERGE не указан, то не защищены типы переменных и функций, определенных пользователем для сцепленной программы, и должны быть заново определены в сцепленной программе. Например:

    CHAIN "А:PROG1"
    CHAIN "А:PROG1",1000
    CHAIN "A:PROG1",1000,ALL
    CHAIN MERGE "A:OUERLAY",1000
    CHAIN MERGE "A:OUERLAY2",1000,DELETE 1000-5000

CLOAD - команда загрузки программы на языке Бейсик, находящейся на НКМЛ в упакованном формате

Формат 1 (кроме Бейсик-TRS-80).

CLOAD [?] имя файла

Формат 2 (только для Бейсик-TRS-80).

CLOAD? "имя файла"

Загружаемая программа считывается с НКМЛ в память. Имя программы должно быть не более б символов. Если имя не задано, то выдается сообщение Illegal function call (Неверный функциональный вызов).

Перед загрузкой файла происходит очистка памяти (выполняется команда NEW), затем данные считываются единым блоком.

Если задан параметр ?, то команда NEW не выполняется, вместо этого происходит побайтное сравнение загружаемой программы и программы, находящейся в памяти. Если при сравнении найдено несоответствие, то выдается сообщение Verify error (Ошибка проверки).

Например:

    CLOAD "TEST" 
    Found. TEST 
    Ok

CSAVE - команда записи Бейсик-программы на НКМЛ

Формат 1 (для MSX-BASIC).

CSAVE "имя файла"[,скорость]

Формат 2 (для Бейсик-ТRS-80).

CSAVE "имя файла"

имя файла - строковое выражение, из которого воспринимаются первые 6 символов;

скорость - арифметическое выражение, принимающее значение 1 или 2.

Формат 1. Записывает текст программы на языке Бейсик, на НКМЛ в упакованном формате. Команда CSAVE сохраняет текст Бейсик-программы, используя внутренний формат. В качестве имени файла можно использовать практически любую строку символов, но воспринимаются только 6 первых символов. Если заданное имя содержит меньше 6 символов, то оно дополняется пробелами.

Скорость передачи информации на ленту из соображений надежности равна 1200 бод (по умолчанию) и может быть увеличена до 2400 бод (для этой скорости требуется хорошая лентопротяжка). Скорость можно задать в операторе SCREEN, см. гл. б (для Бейсик-ПК8010 и Бейсик-ПК8020 - в операторе SPEED, см. 4.3) или с помощью второго аргумента в CSAVE. Если второй аргумент равен 1, то устанавливается скорость 1200 бод, если 2 - то 2400 бод.

При отсутствии или неверном задании имени выдается сообщение Missing operand (Ошибочный операнд), Illegal function call (Неправильный функциональный вызов).

Формат 2. Параметра скорость нет. Например:

    CSAVE "PROGR",2

Файл PROGR сохраняется на ленте, скорость считывания 2400 бод.

DEF SEG - оператор определения текущего сегмента памяти

DEF SEG[=адрес] 

адрес - числовое выражение от 0 до 65535.

При использовании этого оператора некоторые команды и операторы, такие как BLOAD, BSAVE, CALL, РЕЕК, РОКЕ или USR будут определять при своей работе действительный физический адрес как смещение в этом сегменте памяти. Если параметр адрес не указан, то сегмент устанавливается по адресу сегмента данных интерпретатора, который является начальным адресом по умолчанию. Сегмент данных - это начало рабочего пространства в памяти. Если адрес задан, то его значение должно быть выравнено на 16-байтовую границу. Значение сдвигается влево на 4 бита (что дает умножение на 16) для формирования адреса сегмента для следующей операции. Интерпретатор не проверяет адрес сегмента.

Слова DEF и SEG должны быть разделены пробелом.

Любое значение параметра адрес, выходящее за указанный диапазон, вызывает сообщение об ошибке Illegal function call (Неправильный функциональный вызов).

Например:

    100 DEF SEG=0
    110 Y=PEEK(72) : REM выбор байта по адресу 0:72

LOAD - команда загрузки программы с определенного устройства в память

Формат 1 (для XYBASIC).

LOAD "спецификация файла"{[,Н] или [,A]}[,R]

Формат 2 (для Бейсик-Спектрум+2).

LOAD (!) "спецификация файла" { [,CODE[адрес,количество]] или [,DATA имя массива] или [,SCREEN$]}

Формат 3 (для Бейсик-АГАТ).

LOAD "спецификация файла"[,устройство]

Формат 4 (для BASIC, MSX-BASIC, BASICA).

LOAD "спецификация файла"[,R]

Формат 5 (для Бейсик-ПК8010, Бейсик-ПК8020)

LOAD "спецификация файла"] {[,A] или [,В[,смещение]]}[,R]

Формат 1. Параметры А и Н определяют тип загружаемого программного файла. Если указан параметр А, то загружается программный файл, который был сохранен в текстовом формате (в коде ASCII (КОИ-8)). Если в имени файла не указано расширение, то по умолчанию подставляется расширение .BAS. Если указан параметр Н, то загружается программа, сохраненная в шестнадцатеричном формате. Расширение по умолчанию - .НЕХ. Бега не указаны параметры А или Н, то будет загружаться программа, сохраненная во внутреннем формате и имеющая расширение .XYB.

Формат 2. Если указан символ !, то загрузка происходит с "электронного" диска, иначе - с НКМЛ. Если имя программы не указано, то с НКМЛ считывается первый встреченный файл заданного типа. Ниже приведено описание параметров.

DATA - с магнитной ленты загружается массив (числовой или строковый) и при этом из памяти удаляется массив, имеющий то же имя, что и указанное в операторе LOAD. При нахождении числового массива на экране появляется сообщение Number array: (Числовой массив:), при нахождении строкового массива - Character array: (Строковый массив:). При загрузке строкового массива из памяти стираются не только строковые массивы с тем же именем, но и строковые переменные, имеющие то же имя.

CODE - с магнитной ленты загружается набор байтов. Параметр адрес определяет начало области размещения байтов, параметр количество определяет количество считываемых байтов. Если записанных байтов больше, чем указано, то считывания не происходит и появляется сообщение Таре Loading error (Ошибка ввода с ленты).

SCREEN$ - специальная форма CODE 16384,6912. Загружает данный набор байтов в компьютер.

Формат 3. Загружает программный файл с НКМД.

Формат 4. Загружает программные файлы иа языке Бейсик во внутреннем и в текстовом форматах. Если вместо имени дисковода в имени программы указано "CAS:", то происходит загрузка текстового программного файла с НКМЛ (кроме MBASIC). При загрузке с НКМЛ, если не задано имя, считывается первый встречный текстовой файл. Имя загружаемой программы не должно быть больше 6 символов. Если в имени файла устройство не указано, то выбирается текущий дисковод. К имени файла прибавляется расширение .BAS, если имя файла меньше или равно 8 символам (кроме MSX-BASIC). Если имя определено ие по правилам, то выдается сообщение Bad file name (Неверное имя файла) и загрузка не производится.

Если указанного файла нет на устройстве, то выдается сообщение File not found (Файл не найден), и загрузка не производится.

Формат 5. В Бейсик-ПК8010 программа загружается только с НКМЛ при задании устройства "CAS:". Имя программы не должно быть больше 6 символов. Если имя, заданное в команде, или тип не совпали с записанным на ленте, то выдается сообщение ПРОПУЩЕН, если же имя и тип файла совпали, то выдается сообщение НАЙДЕН. При чтении с НКМЛ текстового файла блоками по 256 байт после каждого корректно считанного блока данных выдается сообщение "*". Если указан параметр А, то происходит загрузка текстового программного файла, если параметр В, то загружается набор байтов (двоичный файл) в область, адрес которой записан на НКМЛ. Параметр смещение позволяет загруженную программу перемещать в ОЗУ на заданный адрес.

В Бейсик-ПК8020, если в спецификации файла имя устройства не указано, выбирается текущий дисковод. К имени файла прибавляется расширение .BAS, если имя файла меньше или равно 8 символам. Если имя определено не по правилам, то выдается сообщение Bad file name (Неверное имя файла), и загрузка не производится. Если указанного файла нет на устройстве, то выдается сообщение File not found (Файл не найден), и загрузка также не производится.

Если в вышеперечисленных форматах команды указан параметр R, то программа загружается и сразу запускается на выполнение. Если параметр R отсутствует, то после загрузки программы интерпретатор переходит в командный режим. В большинстве рассматриваемых версий интерпретаторов языка Бейсик команде LOAD "спецификация файла",R эквивалентна команда RUN "спецификация файла".

Команда LOAD закрывает все открытые файлы и удаляет все переменные и строки программы в памяти, однако при использовании параметра R все открытые файлы данных остаются открытыми. Например:

    LOAD "INVENT",R

С текущего диска загружается программа INVENT.BAS и выполняется.

MERGE - команда подзагрузки программы с определенного устройства в оперативную память и слияния ее с существующей в памяти программой

Формат 1. (для Бейсик-Спектрум+2).

MERGE (!) "спецификация файла"

Формат 2. (для MBASIC, MSX-BASIC, BASICA, Бейсик-ПК8010 и Бейсик-ПК8020).

MERGE "спецификация файла"[,R]

Формат 1, Если указан символ!, то загрузка происходит с "электронного" диска, иначе - с НКМЛ. Если имя программы не указано, то с НКМЛ подзагружается первый встреченный файл.

Формат 2. Подзагружает программные файлы на языке Бейсик в текстовом формате. Если вместо имени дисковода в спецификации файла указано "CAS:", то происходит загрузка текстового программного файла с НКМЛ (кроме MBASIC). При загрузке с НКМЛ, если не задано имя программы, считывается первый встреченный текстовый файл. Имя программы не должно быть больше б символов. Если в имени файла устройство не указано, то выбирается текущий дисковод. К имени файла прибавляется расширение .BAS, если имя файла меньше или равно 8 символам (кроме MSX-BASIC). Если имя определено не по правилам, то выдается сообщение Bad file name (Неверное имя файла) и загрузка не производится.

Если указанного файла нет на устройстве, то выдается сообщение File not found (Файл не найден) и загрузка также не производится.

В Бейсик-ПК8010 подзагрузка производится, только с НКМЛ. Если имя, заданное в команде, или тип не совпали с записанными на ленте, то выдается сообщение ПРОПУЩЕН, если же имя и тип файла совпали, то выдается сообщение НАЙДЕН. При чтении с НКМЛ текстового файла блоками по 256 байт после каждого корректно считанного блока данных выдается сообщение *.

Если в спецификации файла устройство не указано, то выбирается текущий дисковод. К имени файла прибавляется расширение .BAS, если имя файла меньше или равно 8 символам. Если имя определено не по правилам, то выдается сообщение Bad file name (Неверное имя файла), и загрузка не производится. Если указанного файла нет на устройстве, то выдается сообщение File not found (Файл не найден), и загрузка также не производится.

Если указан параметр R, то после загрузки программы она запускается на выполнение. Если параметр R не указан, то после загрузки программы интерпретатор переходит в командный режим.

Команда MERGE не закрывает все открытые файлы и не удаляет все переменные и строки программы в памяти, если номера загружаемых программных строк не совпадают с уже существующими в памяти. Например:

    MERGE "INVENT",R

С текущего диска подзагружается программа INVENT.BAS и выполняется.

SAVE - команда записи программы из памяти на определенное устройство

Формат 1 (для XYBASIC)

SAVE "спецификация файла"{[,Н] или [,А]}

Формат 2 (для Бейсик-Спектрум+2).

SAVE (!) "спецификация файла" {[,LINE номер строки] или [,DATA имя массива] или [,CODE[адрес,количество]] или [,SCREEN;]}

Формат 3 (для Бейсик-АГАТ).

SAVE "спецификация файла"[,устройство]

Формат 4 (для МВАSIС, MSX-BASIC, BASICA).

SAVE "спецификация файла" {[,А] или [,Р]}

Формат 5 (для Бейсик-ПК8020, Бейсик-ПК8010).

SAVE "спецификация файла"" {[,А] или [,В,начальный адрес,конечный адрес[,стартовый адрес]]}

Формат 1. Параметры А и Н определяют тип сохраняемого программного файла. Если указан параметр А, то сохраняется программный файл в текстовом формате (в коде ASCII (КОИ-8)), и если в спецификации файла не указано расширение, то по умолчанию подставляется расширение .BAS. Если указан параметр Н, то сохраняется программа в шестнадцатеричном формате. Расширение по умолчанию - .НЕХ. Если не указаны параметры А или Н, то программа сохраняется во внутреннем формате с расширением .XYB.

Формат 2. Если указан символ !, то программа сохраняется на "электронном" диске, иначе - на НКМЛ. Если имя программы не указано, то на НКМЛ записывается файл с именем, состоящим из пробелов. Ниже приведено описание параметров:

LINE - сохраняет программу и переменные таким образом, что LOAD при загрузке автоматически выполняет команду GOTO номер строки;

DATA - сохраняет массив (числовой или строковый);

CODE - сохраняет содержимое области памяти - набор байтов. Параметры адрес и количество определяют начало области, откуда начинается запись байтов, и количество записываемых байтов соответственно;

SCREEN$ - специальная форма CODE: 16384,6912; сохраняет данный набор байтов из экранной области памяти компьютера.

Формат 3. Записывает программный файл на НГМД.

Формат 4. Записывает программные файлы на языке Бейсик во внутреннем формате и, если указан параметр А, в текстовом формате. Если указан параметр Р, то программа сохраняется в закодированном внутреннем формате, который после загрузки запрещает внесение изменений в текст программы, а также запрещает просмотр текста программы. Если вместо имени дисковода в спецификации файла указано "CAS:", то происходит запись программного файла на НКМЛ (кроме MBASIC). Если имя программы не указано, то на НКМЛ записывается файл с именем, состоящим из пробелов. Имя программы на НКМЛ не должно быть больше 6 символов. Если в спецификации файла устройство не указано, то выбирается текущий дисковод. К имени файла прибавляется расширение .BAS, если имя файла меньше или равно 8 символам (кроме MSX-BAS1C). Если имя определено не по правилам, то выдается сообщение Bad file name (Неверное имя файла) и программа не сохраняется.

Формат 5. В Бейсик-ПК8010 программа сохраняется только на НКМЛ при задании устройства "CAS:". Имя программы не должно быть больше 6 символов. При сохранении на НКМЛ текстового файла запись производится блоками по 256 байт. Если указан параметр А, то происходит запись текстового программного файла, если параметр В, то записывается набор байтов (двоичный файл) из области, начальный и конечный адреса которой указаны в команде. Параметр стартовый адрес позволяет определить стартовый адрес программы, на который передается управление при загрузке программы командой LOAD с параметром R. Если в спецификации файла устройство не указано, то выбирается текущий дисковод. К имени файла прибавляется расширение .BAS, если имя файла меньше или равно 8 символам. Если имя определено не по правилам, то выдается сообщение НЕВЕРНОЕ ИМЯ ФАЙЛА, и запись не производится. Команда SAVE закрывает все открытые файлы.

Например:

    SAVE "INVENT",А

На текущий диск записывается программа INVENT.BAS в текстовом формате.

VERIFY - команда сравнения программы и переменных, считываемых с НКМЛ, с программами и переменными в памяти. (Используется только в Бейсик-Спектрум+2.)

VERIFY "спецификация файла" {[,DATA имя массива] или [,CODE[адрес,количество]]}

DATA - сравнивает массив, имя которого задано в команде, с существующим массивом в памяти. Эти массивы могут быть числовыми или строковыми;

CODE - если явно заданы параметры адрес и количество и записанное на НКМЛ количество байтов не больше указанного в команде, то выполняется сравнение блока байтов, находящихся на НКМЛ с блоком байтов в памяти, начиная с адреса. Если же параметры адрес и количество не указаны, то происходит сравнение всех байтов, записанных на НКМЛ, с байтами в памяти, начиная с адреса, записанного на НКМЛ.

Функциональные клавиши представляют собой специальные клавиши, при нажатии на которые происходят заранее определенные действия. В некоторых компьютерах функциональные клавиши запрограммированы на ввод наиболее распространенных и часто используемых операторов и команд языка Бейсик. Это значительно облегчает работу пользователя по набору и отладке программ.

В табл. 4.7 приведены исходные значения функциональных клавиш, которые используются в КУВТ "КОРВЕТ" (Бейсик-ПК8010, Бейсик-ПК8020), MSX-BASIC, BASICA.

Примечание, [вк/пс] - возврат каретки/перевод строки; [пр] - пробел; [в] - курсор вверх; [о] - очистка экрана.

В MSX-BASIC и BASICA функциональные клавиши можно перекодировать, т. е. придавать нужные пользователю значения. Для этой цели используются операторы: KEY; KEY LIST; KEY ON; KEY OFF; KEY (n); ON KEY.

KEY - оператор установки и распечатки значений функциональных клавиш

KEY n,Х$
KEY LIST
KEY ON
KEY OFF

n - номер функциональной клавиши;

X$ - текст, присваиваемый функциональной клавише.

С помощью оператора KEY любой функциональной клавише можно присвоить новое строковое значение длиной до 15 символов. Когда клавиша нажимается, в буфер клавиатуры вводится ее строковое значение.

Оператор KEY ON распечатывает значения программируемых клавиш на 25-й строке экрана. Когда ширина экрана равна 40 символам, распечатываются значения только пяти клавиш из десяти. При ширине экрана, равной 80 символам, распечатываются значения всех десяти клавиш. При любой ширине экрана распечатываются только шесть первых символов каждого значения.

Оператор KEY OFF удаляет распечатку значений программируемых клавиш с 25-й строки экрана, делая эту строку доступной для программного использования. Оператор KEY OFF не блокирует функциональные клавиши.

Оператор KEY LIST распечатывает все десять значений программируемых клавиш на экране. Распечатываются все 15 символов каждого значения.

Оператор KEY n,Х$ присваивает строку Х$ функциональной клавише n. Строка Х$ может быть длиной до 15 символов. Если длина строки больше 15 символов, то лишние символы отбрасываются. Присваивание пустой строки, т. е. строки длиной 0 символов, блокирует функциональную клавишу. Если значение n не лежит в диапазоне 1 - 10, то появляется сообщение об ошибке Illegal function call (Неверный функциональный вызов), и значение клавиши остается прежним.

При нажатии программируемой клавиши функция INKEY$ определяет один символ строки значения клавиши. Если функциональная клавиша блокируется, то функция INKEY$ определяет строку длиной два символа. Первый символ - двоичный 0, второй символ - код сканируемой клавиши.

После выключения распечатки функциональных клавиш оператором KEY OFF можно использовать оператор LOCATE 25,1, за которым следует оператор PRINT для вывода информации на экран.

Например:

    10 KEY 1,"FILES"+CHR$(13)

Присваивает функциональной клавише F1 значение FILES с возвратом каретки.

KEY (n) - оператор блокировки/разблокировки ловушки определенных клавиш

KEY (n)
KEY (n) ON
KEY (n) OFF
KEY (n) STOP

n - номер клавиши от 1 до 14; указывает клавишу, нажатие которой должно быть определено: 1-10 - функциональные клавиши F1-F10; 11 - курсор вверх; 12 - курсор влево; 13 - курсор вправо; 14 - курсор вниз.

Оператор KEY (n) ON должен быть выполнен, чтобы разблокировать ловушку функциональной клавиши или клавиши управления курсором. Если в операторе ON KEY (n) задан ненулевой номер строки, то после выполнения оператора KEY (n) ON каждый раз будет выполняться оператор, который проверяет, была ли нажата заданная клавиша. Если заданная клавиша нажата, то будет выполняться переход (GOSUB), определенный в операторе ON KEY.

После выполнения оператора KEY (n) OFF ловушка блокируется и событие нажатия клавиши не запоминается, если оно имело место.

После выполнения оператора KEY (n) STOP ловушка блокируется, но если клавиша нажимается, то это событие запоминается, и ловушка срабатывает, как только выполнится оператор KEY (n) ON.

ON KEY - оператор установки номера строки для перехода в подпрограмму ловушки нажатия клавиши

ON KEY (n) GOSUB номер строки

n - номер клавиши от 1 до 14: 1-10 - функциональные клавиши F1-F10; 11 - курсор вверх; 12 - курсор влево; 13 - курсор вправо; 14 - курсор вниз.

Если задан нулевой номер строки, то ловушка функциональной клавиши блокируется.

До выполнения оператора ON KEY должен быть выполнен оператор KEY (n) ON. После этого, если в операторе ON KEY задан номер строки, каждый раз будет проверяться, нажата ли клавиша n. Если эта клавиша нажата, то будет осуществляться переход на заданный номер строки.

Если выполнился оператор KEY (n) OFF, то ловушка для определенных клавиш заблокировалась, и событие нажатия клавиши не зафиксировалось, даже если оно имело место.

После выполнения оператора KEY (n) STOP ловушка для определенной клавиши блокируется, но событие нажатия клавиши запоминается, и как только будет выполнен оператор KEY (n) ON, ловушка сработает.

После того как ловушка сработает автоматически, выполнится оператор KEY (n) STOP, поэтому не может быть рекурсивных ловушек. Возврат из подпрограммы ловушки автоматически выполняет оператор KEY (n) ON, если внутри подпрограммы не выполнился явный KEY (n) ON.

В дополнение к уже описанным командам и операторам работы с экраном дисплея здесь будут рассмотрены дополнительные инструкции, представленные в табл. 4.8.

CSRLIN - переменная, определяющая вертикальную координату курсора

Y=CSRLIN

Полученное значение будет лежать в диапазоне 1-25 для BASICA; 0-22(23) для MSX-BASIC; 1-15 для Бейсик-ПК8010 и Бейсик-ПК8020. Например:

    10 Y=CSRLIN
    20 X=POS(0)
    30 LOCATE 24,1 : PRINT "HELLO"
    40 LOCATE Y,X

HOME - оператор очистки экрана

HOME

Очищает экран и переводит курсор в левый верхний угол экрана.

НТАВ - оператор горизонтального перемещения курсора в заданную позицию текущей строки

НТАВ X

X - имеет значение от 0 до 31.

LOCATE - оператор установки курсора в нужную позицию экрана

LOCATE [X],[Y],[ключ]

X - Х-позиция (столбец), в который следует поместить курсор;

Y - Y-позиция (строка), в которую следует поместить курсор;

ключ - числовое выражение.

Устанавливает курсор в любую позицию текстового экрана. Если задан ключ, равный 0, то курсор исчезает, если равный 1, то курсор высвечивается снова. Все значения описанных выше переменных должны находиться в диапазоне от 0 до 255, в противном случае выдается сообщение об ошибке Illegal function call (Неверный функциональный вызов). Кроме того, любой элемент может быть пропущен, но его запятая должна присутствовать перед любым следующим элементом.

Оператор LOCATE управляет курсором в текстовом режиме работы. Он воспринимается и в других режимах, но его действие сохраняется и используется в следующем появляющемся тексте на экране.

Строки текста на экране нумеруются сверху вниз. В MSX-BASIC - от 0 до 22, в BASICA - от 0 до 25, в Бейсик-ПК8010 и Бейсик ПК-8020 - от 1 до 16. Аналогично столбцы нумеруются слева направо от 0 до последней колонки, значение которой может быть изменено в операторе WIDTH. Оператор LOCATE перемещает курсор в указанное знакоместо. Если X или Y пропущены, то сохраняется предыдущее значение. Например:

    10 LOCATE 1,10 : PRINT "ПРОВЕРКА LOCATE""
    20 LOCATE ,,0 : PRINT "ОТКЛЮЧЕНИЕ КУРСОРА"

POS - функция, определяющая горизонтальную координату курсора

X=POS(n)

n - фиктивный аргумент.

Полученное значение должно находиться в пределах, установленных каждой из версий языка. Например, для версий языка Бейсик, используемых в машинах ПК8010 и ПК8020, полученное значение изменяется от 1 до 64, для PC IBM - от 1 до 40 (или от 1 до 80).

SPEED - оператор, устанавливающий скорость вывода информации на экран

SPEED=n

n - численное выражение от 0 до 255.

VTAB - оператор вертикального перемещения курсора по столбцу

VTAB Y

Y - значение от 0 до 31

В этом разделе будут рассмотрены инструкции (табл. 4.9), обеспечивающие работу с джойстиками, световыми перьями и другими устройствами, расширяющими возможности компьютера.

COPY - команда, выводящая на печатающее устройство копию изображения на экране

COPY

Команда COPY требует 15-30 с для того, чтобы началась печать. На печатающем устройстве появляется полная копия изображения на экране.

FORMAT - команда установки скорости передачи информации на печатающее устройство

FORMAT "р";скорость

Для того чтобы печатающее устройство и компьютер могли обмениваться сообщениями, необходимо установить скорость обмена, заданную для используемого типа печатающего устройства. Если в печатающем устройстве используется скорость 9600 бод, то команду FORMAT можно не использовать.

LPOS - функция, определяющая текущую позицию головки печатающего устройства в пределах буфера памяти

Y=LPOS(n)

n - фиктивный аргумент.

Например:

    100 IF LPOS(X)>60 THEN LPRINT CHR$(13)

LPRINT и LPRINT USING - операторы вывода данных на печатающее устройство

LPRINT [список выражений][;/,]
LPRINT USING Х$;список выражений[;/,]

Эти операторы функционируют подобно операторам PRINT и PRINT USING за исключением того, что вывод идет на печатающее устройство. Оператор LPRINT допускает длину строки до 128 символов. Печать свыше 128 символов происходит с переводом строки.

MOTOR - команда управления двигателем магнитофона

MOTOR [ON/OFF]

Включает и выключает двигатель кассетного магнитофона: MOTOR ON - включение; MOTOR OFF - выключение. Если не указано ON или OFF, то предыдущее состояние двигателя магнитофона инвертируется на обратное, т. е. если магнитофон был включен, то он выключается; если выключен, то включается.

ON PEN - оператор установки номера строки при работе со световым пером. (Используется только в BASICA.)

ON PEN GOSUB номер строки

Номер строки, равный 0, блокирует ловушку светового пера. Для активизации оператора ON PEN должен выполниться оператор PEN ON, после чего, если в операторе ON PEN задан не нулевой номер строки, каждый раз будет выполняться новый оператор PEN ON, который будет проверять, активизировалось ли световое перо. Если это так, то будет выполняться переход (GOSUB) к определенной строке. Если перо выключено (PEN OFF), то ловушка не будет работать и событие не запомнится, если даже оно и произошло.

При встрече ловушки автоматически выполняется оператор PEN STOP, поэтому рекурсивные ловушки запрограммировать не удается. Возврат из подпрограммы ловушки автоматически делает оператор PEN ON, если внутри программы не был задан явный оператор PEN OFF.

При включенном пере запрещается делать операции ввода-вывода на кассетную магнитную ленту.

ON STRIG - оператор, разрешающий обработку запроса от кнопки активного джойстика

ON STRIG (номер) GOSUB номер строки

номер - число 0-2, определяющее источник прерываний. Обрабатывает прерывания от трех источников для перехода на заданный номер строки: при значении номера 0 опрашивается клавиша "пробел" на клавиатуре; при значении номера 1 и 2 - кнопка джойстика 1 или кнопка джойстика 2 соответственно.

PAD - функция считывания данных с графического планшета

X=PAD(выражение)

выражение - любое арифметическое выражение, имеющее значение 0-7.

Эта функция предназначена для ввода координат с графического планшета, подключенного к одному из портов расширения.

Выражение определяет вид информации, считываемой с графического планшета (табл. 4.10).

При выполнении PAD(0) одновременно считываются значения, которые получаются с помощью PAD(1) и PAD(2); то же касается PAD(4), PAD(5) и PAD(6). Таким образом, когда PAD(0) или PAD(4) возвращают значение ИСТИНА (-1) и X,Y - координаты считываются и хранятся до запроса.

Например:

    10 IF PAD(0) THEN X=PAD(1):Y=PAD(2):PSET(X,Y)

PDL - функция определения кода положения игрового рычажка

X=PDL(выражение)

выражение - любое арифметическое выражение, принимающее значение от 1 до 12.

К любому порту расширения можно подключить только один рычажок. Считывание производится с помощью дискретных импульсов, время считывания примерно 0,01 с.

Если значение выражения нечетное, то информация считывается с первого порта расширения, если четное - со второго.

Функция PDL упрощает ввод данных в программу с некоторых устройств. Обычно PDL(1) и PDL(2) используются для считывания с портов расширения 1 и 2. Если нет подключенного рычажка, то функция образует значение 255, если есть - от 0 до 254.

Например:

    10 SCREEN 2
    20 PSET(PDL(1),PDL(2)):GOTO 20

PEN - оператор и функция, вводящие значения, считанные со светового пера

PEN ON/OFF/STOP
X=PEN(n)

n - целочисленное выражение от 0 до 9.

Функция X=PEN(n) считывает координаты светового пера, n может принимать следующие значения:

0. флаг, указывающий, внизу ли перо с последнего опроса. Если внизу, возвращается 1, если нет - 0;
1. возвращает координату X, где перо было последний раз активизировано;
2. возвращает текущее значение координат Y;
3. возвращает текущее значение координат X;
4. возвращает последнее известное значение координаты X;
5. возвращает последнее известное значение координаты Y;
6. возвращает позицию ряда символов, где перо было последний раз модифицировано;
7. возвращает позицию столбца символов, где перо было модифицировано;
8. возвращает последнее известное значение ряда символа;
9. возвращает последнее известное значение позиции символа.

Когда перо находится внизу, в граничной области экрана, возвращаемые значения могут быть неточны.

Оператор PEN ON разблокирует функцию чтения PEN. Первоначально функция PEN выключена. Перед любыми вызовами функции чтения светового пера, оператор PEN ON должен быть включен.

Оператор PEN OFF блокирует функцию PEN, т. е. разблокирует ловушку оператора ON PEN, но действие светового пера не запоминается.

Оператор PEN STOP блокирует ловушку активности светового пера, но если событие происходит, то оно запоминается, и после выполнения оператора PEN ON сработает ловушка. Например:

    10 PEN ON
    20 FOR I1=1 ТО 500
    30 X=PEN(0):X1=PEN(3)
    40 PRINT X.X1
    50 NEXT
    60 PEN OFF

В данном примере печатается значение пера с последнего опроса и текущее значение.

SPEED - команда установки скорости записи на магнитную ленту

SPEED выражение

выражение - если выражение равно 1, то скорость 1200 бод, если равно 2, то скорость 2400 бод.

STICK - функция, определяющая код положения ручки джойстика

X=STICK(число)

число - арифметическое выражение от 0 до 2 (см. ON STRIG).

Функция выдает состояние джойстика 1 (STICK(1)) или джойстика 2 (STICK(2)). Положение ручки джойстика определяется числом от 0 до 8:

0. нейтральное положение ручки джойстика;
1. ручка вперед;
2. ручка вверх и вправо по диагонали;
3. ручка вправо;
4. ручка вниз и вправо по диагонали;
5. ручка вниз;
6. ручка вниз и влево по диагонали;
7. ручка влево;
8. ручка влево я вверх по диагонали.

Если задан STICK(0), то в качестве джойстика используется клавиатура.

STRIG - оператор и функция определения признака нажатия кнопки на рукоятке джойстика

X=STRIG(число)
STRIG (число) { ON/OFF/STOP }

число - целочисленное выражение от 0 до 4.

Как функция инструкция STRIG образует признак нажатия кнопки на рукоятке джойстика:

0. выбор в качестве пусковой кнопки на клавиатуре клавиши "пробел";
1. опрос состояния кнопки 1 джойстика 1;
2. опрос состояния кнопки 1 джойстика 2;
3. опрос состояния кнопки 2 джойстика 1;
4. опрос состояния кнопки 2 джойстика 2.

Если кнопка нажата, то образуется значение 1, иначе - 0.

Как оператор инструкция STRIG управляет обработкой прерываний от кнопок джойстика. Предварительно он должен быть активизирован оператором ON STRIG GOSUB, иначе этот оператор не даст никакого эффекта. Например:

    10 ON STRIG GOSUB 1000,2000,,4000:STRIG (0) ON
    20 STRIG (1) ON : STRIG (3) ON}
    ...
    1000 'эта часть работает при нажатии клавиши пробел
    ...
    1100 RETURN
    2000 'эта часть работает при нажатии кнопки 1 джойстика 1
    ...
    2100 RETURN
    4000 'эта часть работает при нажатии кнопки 2 джойстика 1

Инструкции работы с прерываниями, временными задержками и т. п. представлены в табл. 4.11.

DATE$ - переменная, которая хранит текущую дату

DATE$

Дата устанавливается при входе в интерпретатор автоматически и хранится в виде мм-дд-гггг, где мм - месяц; дд - день; гггг - год.

Например:

    PRINT DATE$
    07-11-89
    DATE$="07-12-1989"
    PRINT DATE$
    07-12-89

DELAY - оператор, приостанавливающий выполнение программы на определенное время

DELAY выражение1[,выражение2[,выражение3]]

выражение1 - число минут;

выражение2 - число секунд;

выражение3 - сотые доли секунды.

Действие оператора DELAY прерывается по клавишам CTRL-S или abort. В этом случае интерпретатор переходит к обработке следующей инструкции после нажатия клавиши с любым другим символом. Разблокированные оператором ENABLE прерывания не активны во время действия оператора DELAY.

Если компьютер не стандартен, то оператор DELAY не будет работать до введения оператора TIME, который используется для калибровки.

В примере текущее время вводит пользователь, а затем текущее время печатается с интервалом 5 с.

Например:

    10 INPUT "TIME" H,M,S 
    20 PRINT H;":";M;":";S
    30 S=S+5
    40 IF S>60 THEN GOSUB 100
    50 IF M>60 THEN GOSUB 200
    60 IF H>24 THEN H=H-24
    70 DELAY 0,5
    80 GOTO 20
    100 S=S-60 : M=M+1 : RETURN 
    200 M=M-60 : H=H+1 : RETURN
    RUN
    TIME? 7,15,45
     7 : 15 : 45
     7 : 15 : 50
     7 : 15 : 55
     7 : 16 : 0

DISABLE - оператор блокировки прерываний

DISABLE номер строки

Блокирует прерывания, установленные заданным номером строки. Если номер строки не задан, то блокируются все прерывания.

Например:

    DISABLE 10

Блокирует прерывание, которое было разблокировано в программной строке 10 оператором ENABLE. При попытке блокировать несуществующие прерывания появляется сообщение об ошибке EN.

Например:

    10 ENABLE 20,5,&11111,&11100000,$
    20 GOTO 100
    30 PRINT "BET LAST! HERE HE COMES!"
    40 DISABLE 10
    50 RETURN
    60 'START PROGRAMM

ENABLE - оператор, определяющий условие прерывания

ENABLE номер,порт,выражение1,[маска[,$]]

номер - номер строки подпрограммы;

порт - входной порт;

выражение1 - необходимое значение;

маска - накладываемая маска.

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

Если указан символ $, то условие выполняется при полном соответствии битов значения порта выражению 1. Например:

    10 ENABLE 100,6,1,&11111110
    20 GOTO 200
    100 'ПОДПРОГРАММА ПОСЫЛКИ СЛЕДУЮЩЕГО БЛОКА НА ПЕЧАТЬ
    ...
    190 RETURN
    200 'ГЛАВНАЯ ПРОГРАММА
    ...

Главная программа выполняется до тех пор, пока бит 0 порта 6 не станет равным 1. Тогда программа прерывается и управление передается подпрограмме с номера 100.

INTERVAL - оператор разрешающий, запрещающий или задерживающий прерывания по таймеру

INTERVAL {ON/OFF/STOP}

Этот оператор управляет отсчетом реального времени для прерывания в регулярные интервалы. Но прежде надо выполнить оператор ON INTERVAL квант времени GOSUB номер строки, чтобы проинформировать Бейсик-систему, как часто, после какого количества квантов времени (1 квант - 0,02 с), Бейсик-система должна прерывать работающую программу для выполнения специальной программы обработки прерывания.

В отличие от ON INTERVAL оператор INTERVAL ON не начинает и не прерывает процесса. Однако, если интервал и номер строки не заданы, оператор INTERVAL ON не работает. Когда выполняется оператор INTERVAL ON, то в заданном интервале в заданной строке начинается обработка прерывания. Оператор INLTRVAL OFF отключает обработку прерываний. Оператор INTERVAL STOP выполняет приостанов обработки прерывания до следующего оператора INTERVAL ON.

Используя INTERVAL STOP, можно отложить только одно прерывание, остальные будут потеряны. Надо помнить, что неявно INTERVAL STOP выполняется при входе в программу обработки прерываний и отменяется при выходе из нее. Этого можно избежать с помощью явных операторов INTERVAL ON и INTERVAL OFF в начале и в конце программы обработки прерывания.

Оператор INTERVAL ON/OFF/STOP позволяет контролировать количество одновременных событий в работающей программе.

Например:

    10 ON INTERVAL=20 GOSUB 1000:INTERVAL ON
    ...
    100 INTERVAL STOP:GOSUB 500:INTERVAL ON
    ...
    1000 INTERVAL OFF
    ...
    1090 INTERVAL ON:RETURN

PAUSE - команда установки временной задержки

PAUSE n

n - любое число от 0 до 65535.

Приостанавливает вычисления и отображает картинку в продолжении n кадров (с частотой 50 кадров в секунду). Максимальное значение n дает задержку до 22 мин. Паузу всегда можно прервать, нажав на любую клавишу

TIME - для MSX-BASIC - псевдопеременная, которая устанавливает или определяет системное время; для XYBASIC - оператор, который калибрует оператор DELAY

Формат 1 (для MSX-BASIC).

Х=ТIМЕ или TIME=выражение

Формат 2 (для XYBASIC).

TIME

Формат 1. Псевдопеременная MSX-BASIC имеет внутренний 16-разрядный счетчик, значение которого изменяется с частотой 50 раз в секунду. Когда счетчик достигает значения 65535, он сбрасывается в 0.

Когда TIME стоит слева от выражения, которое может принимать значения от -32768 до 65535, устанавливается новое значение счетчика. Счетчик обновляется каждые 21,8 мин.

Счетчик используется для отсчета времени в операторе ON INTERVAL GOSUB.

Формат 2. Оператор TIME калибрует (формирует) оператор DELAY для систем, которые используют процессоры Z-80, 8085 и NEC8080. Интервал в 60 с используется как стандарт для выполняющейся последовательности операторов DELAY.

TIME$ - функция, которая формирует текущее время

TIME$

Выходная строка имеет вид: чч:мм:сс, где чч - часы; мм - минуты; сс - секунды

Коммуникационная система - система, выполняющая вспомогательные функции, связанные с передачей информации между другими системами. При создании коммуникационных систем используются коммуникационные сети телефонные, телекоммуникационные или локальные).

В данном разделе будут рассмотрены операторы работы с коммуникационной сетью.

Коммуникационная сеть - это сеть передачи информации, образуемая множеством взаимосвязанных коммуникационных модулей.

Для работы с коммуникационными сетями используются операторы COM(n) ON, COM(n) OFF, COM(n) STOP, ON COM(n) GOSUB, OPEN "COM...", которые реализованы в версии BASICA и оператор СОМ, который реализован в Бейсик-ПК8010.

Оператор OPEN"COM..." распределяет буфер для ввода-вывода таким же способом, как и оператор OPEN для файлов произвольного доступа.

Так как каждый адаптер связи открывается как файл, то все операторы ввода-вывода, которые действительны для файлов произвольного доступа, действительны для файлов связи.

Операторы последовательного ввода из файла связи такие же, как и для файлов произвольного доступа: INPUT# номер файла, LINE INPUT# номер файла, INPUT$.

Операторы последовательного вывода в файл связи такие же, как и для файлов произвольного доступа: PRINT# номер файла, PRINT# номер файла USING, WRITE# номер файла.

Операторы GET и PUT для файлов связи незначительно отличаются от операторов для файлов произвольного доступа. Они используются для ввода-вывода блоков фиксированной длины в файл или из файла связи. Вместо задания номера записи, которая должна быть считана или записана, задается число байтов, которые будут переданы в буфер или из буфера файла. Это число не может превышать значения, установленного параметром /S: в команде вызова интерпретатора.

При скорости обмена свыше 2400 бод (бит/с) необходимо приостановить передачу символа из другого компьютера на время, достаточное для обработки получаемого символа. Это может быть посылкой символа с кодом 19 в передающий компьютер, а затем символа с кодом 17 в этот же компьютер, когда приемный компьютер готов к получению информации. Символ с кодом 19 указывает передающему компьютеру остановить передачу информации, а символ с кодом 17 указывает на разрешение передачи.

Это общеиспользуемое соглашение, но оно не универсальное и зависит от протокола обмена, реализованного в данной коммуникационной системе.

Для работы с файлом связи существуют три встроенные функции, которые определяют окончание передачи информации:

LOC(X) - определяет число символов в буфере ввода-вывода; если число больше 255, то функция LOC возвращает значение, равное 255;

LOF(X) - определяет количество свободного пространства во входном буфере; размер буфера связи устанавливается параметром /C:n в команде вызова интерпретатора; по умолчанию n равен 256;

EOF(X) - определяет конец данных в буфере ввода и возвращает значение - 1, если буфер ввода пустой, или 0, если в буфере есть символы.

Переполнение буфера связи может встретиться при попытке чтения после заполнения входного буфера, т. е. LOF(X) возвращает 0.

В следующем примере указаны наиболее эффективные операторы для считывания содержимого файла связи.

    10 WHILE NOT EOF(1) 
    20 А$=INPUT$(LOC(1),#1)
    30 'обработка данных строки А$
    ...
    100 WEND

СОМ - оператор занесения сообщения в "почтовый ящик" локальной сети

СОМ "сообщение"

сообщение - последовательность символов длиной до 240. Используется для установления связи ученического компьютера с компьютером преподавателя.

СОМ(n) - оператор обработки прерываний при работе с коммуникационной сетью

СОМ (n) ON
COM (n) OFF 
COM (n) STOP

n - номер адаптера связи (1 или 2).

Для разрешения прерывания оператором ON СОМ (n) должен быть выполнен оператор СОМ (n) ON. После этого, если в операторе ON СОМ (n) задан ненулевой номер строки, будет происходить обработка прерывания.

Если был задан оператор COM (n) OFF, то прерывание не обрабатывается, даже если оно и произошло.

Если был задан оператор COM (n) STOP, то прерывание не обрабатывается, но произошедшее событие запоминается для последующей обработки, когда будет задействован оператор COM (n) ON.

ON COM (n) - определяет подпрограмму обработки прерывания от коммуникационной сети

ON COM(n) GOSUB номер строки

n - номер адаптера связи (1 или 2).

Если задан нулевой номер строки, то прерывание блокируется.

Перед заданием оператора ON СОМ (n) GOSUB для адаптера n должен быть выполнен оператор COM (n) ON. Если в операторе ON COM (n) GOSUB задан ненулевой номер строки, то каждый раз происходит проверка на наличие символов в определенном адаптере связи и если символы в буфере есть, то будет вызываться подпрограмма по заданному номеру строки.

Если был выполнен оператор СОМ (n) OFF, то ловушка прерывания от адаптера блокируется и прерывание не запоминается, даже если оно и произошло.

После выполнения оператора COM (n) STOP ловушка прерывании для адаптера блокируется, а если получен символ, то это событие запоминается, и после выполнения оператора СОМ (n) ON ловушка срабатывает.

Не рекомендуется использовать ловушки прерываний от адаптера связи для односимвольного сообщения.

OPEN - оператор, открывающий файл связи

OPEN"COM n:[скорость][,четность][,данные][,останов]" AS [#]номер файла

n - номер адаптера связи (1 или 2);

скорость - целочисленная константа, определяющая передачу или получение отношения (бит/секунда); значения скоростей: 75, 110, 150, 300, 600, 1200, 1800, 2400, 4800 и 9600 бод (по умолчанию 300 бод);

четность - односимвольная константа, определяющая четность для передачи и получения:

S - (SPACE) бит четности всегда передается и получается как пробел (бит 0);

О - (ODD) нечетная передача, нечетное получение;

М - (МАРК) бит четности всегда передается и получается как флаг (метка)(бит 1);

Е - (EVEN) четная передача, проверка, четное получение;

N - (NONE) не передается и не проверяется бит четности; по умолчанию принимается значение Е (EVEN);

данные - целочисленная константа, указывающая число битов переданных или полученных данных; принимаемые значения от 4 до 8 (по умолчанию 7);

останов - целочисленная константа, указывающая число битов параметра останов; принимаемые значения 1 или 2; по умолчанию два бита останова для 75 и ПО бод, один бит останова - для всех других скоростей;

номер файла - целочисленное выражение, которое затем будет использовано в операторах ввода-вывода информации в файл или из файла связи.

Оператор OPEN"COM..." при открытии организовывает буфер ввода-вывода так же, как это делает оператор OPEN для обмена с дисками. Для работы оператора требуется адаптер асинхронной связи с другими компьютерами на базе RS232.

Устройство связи может работать одновременно только с одним файлом. Если асинхронный адаптер связи не установлен в соответствии с форматом данной системы, то появляется сообщение об ошибке.

Например:

    5 TRIES=6
    10 ON ERROR GOTO 100
    20 OPEN"COM1:300,N,8,2,CS,DS,CD10000" AS #1
    30 ON ERROR GOTO 100
    40 CLOSE #1
    50 GOTO 1000
    ...
    100 TRIES=TRIES-1
    110 IF TRIES=0 THEN ON ERROR GOTO 100
    120 RESUME
    ...
    1000 OPEN"COM1:300,N,8,2,CS,DS,CD2000" AS #2

В гл. 2 было сказано, что программная строка состоит из номера строки, за которым следую? элементы языка. Программные строки могут вводиться в любом порядке, но их выполнение будет осуществляться в порядке увеличения номеров строк, не считая безусловных переходов и вызовов подпрограмм. Для автоматической нумерации программных строк рекомендуется использовать команду AUTO, что позволит сократить время ввода программы (рис. 5.1).

Рисунок 5.1.

Для добавления новой строки к программе нужно ввести новый номер строки, за которым следует хотя бы один символ (не пробел), и нажать клавишу возврата каретки. Строка будет сохраняться в памяти как часть программы. Если строка с таким номером уже существует, то старая строка стирается и заменяется новой.

Программные строки не проверяются на наличие синтаксических ошибок перед добавлением к программе. Они проверяются только при выполнении программы. Для того чтобы легко можно было вставить строки, рекомендуется нумеровать их с шагом, не равным единице, а например десять или сто. Шаг (или инкремент) выбирается произвольно и необязательно должен быть постоянным по всей программе. Для перенумерации строк, если уже невозможно вставить программную строку или по каким-либо другим причинам, следует использовать команду RENUM.

При работе с интерпретаторами версий языка Бейсик в операционной среде СР/М и МикроДОС ошибку во время ввода строки можно исправить до нажатия клавиши возврата каретки следующими способами:

• удалить всю строку, нажав клавиши CTRL-U;
• удалить символ, нажав клавиши Del, Backspace или CTRL-Н.

Чтобы удалить уже существующую программную строку, надо набрать номер удаляемой строки и нажать клавишу возврата каретки или использовать команду DELETE (для Бейсик-АГАТ команду DEL).

Для редактирования уже существующей программной строки можно использовать команды редактора или ввести строку заново под тем же номером.

Для вывода программных строк на экран дисплея или печатающее устройство используются команды LIST и LLIST соответственно. Любую введенную или отредактированную программу необходимо запомнить на НГМД или НМЛ.

Если программа или часть программы уже существует на НГМД или НМЛ, то сначала она загружается в память ЭВМ. После этого можно продолжать ввод программы, добавлять, удалять или редактировать программные строки.

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

Редактирование программы - это процесс изменения текста программы, в котором могут использоваться различные режимы редактирования. Практически все современные версии языка Бейсик содержат средства для редактирования программ, т. е. средства, используемые для изменения отдельных символов или программных строк. Эти средства, как правило, входят в состав встроенного редактора, который обеспечивает выполнение следующих функций:

• управления курсором;
• ввода текста;
• удаления текста;
• добавления текста в конец логической строки (т. е. строки программы, а не экрана); поиска текста;
• замены текста;
• управления режимом редактирования.

Различные версии встроенного редактора могут по-разному обеспечивать выполнение перечисленных выше функций; при этом полнота выполнения этих функций и способы обращения к ним отличают версии друг от друга.

Рассматриваемые версии языка Бейсик имеют два типа встроенного редактора: командный (строчный) и экранный. Данные о наличии редакторов приведены в табл. 5.1, где представлены также команды вызова редактируемой строки.

Введем следующие обозначения:

• <символ> - произвольный символ или произвольная клавиша;
• <текст> - строка символов произвольной длины;
• [n] - целое число, по умолчанию единица.

Редактор XYBASIC

• <возврат каретки> - заканчивает процесс редактирования, печатаются символы справа от курсора, программная строка добавляется к текущей программе; возврат в прямой режим с подсказкой ОК (см. гл. 2);
• <печатный символ> - любой <печатный символ> удваивается (эхо) и вводится в редактируемую строку в текущую позицию курсора; курсор будет находиться в позиции справа от введенного символа; если строка не содержит больше символов, то вместо символа будет удваиваться <Ctrl-G>;
• <Rubout> - удаляет символ слева от курсора, удаленный символ изображается в слешах (/и/);
• <Ctrl-В> - выход из XYBASIC и возврат в операционную систему или монитор;
• <Ctrl-С> - выход из системы редактирования и возврат в прямой режим, оставляя неизменным предыдущее содержимое строки.
• <Ctrl-D> - удаляет символ справа от курсора; стертые символы не печатаются;
• <Ctrl-Е> - позволяет использовать возможности редактирования всякий раз, как вводится строка в XYBASIC; если <Ctrl-Е> введен как первый символ строки, то XYBASIC входит в редактор с содержимым самой последней определенной строки; эта особенность полезна для коррекции ошибок при работе в командном режиме и при вводе данных; если <Ctrl-Е> вводится после первого символа строки, то XYBASIC входит в редактор с символами, предшествующими <Ctrl-Е>;
• <Ctrl-><печатный символ> - посылает курсор вправо до следующей встречи <печатного символа> в редактируемой строке, печатая все символы, которые прошел курсор; если остаток строки не содержит <печатного символа>, то XYBASIC удваивает <Ctrl-G> и оставляет позицию курсора неизменной; исследуемый символ не печатается;
• <Ctrl-G> - вызывает звуковой сигнал;
• <Ctrl-Н> - возврат на одну позицию; стирает символ слева от курсора;
• <Ctrl-К> - стирает все символы справа от курсора.
• <Ctrl-L> - выводит на экран символы, оставшиеся справа от курсора в редактируемой строке, и переводит курсор в начало следующей строки;
• <Ctrl-N> - находит следующий <печатный символ>, заданный последним в команде <Ctrl-F>; удваивает <Ctrl-G> и оставляет позицию курсора неизменной, если команда <Ctrl-F> не задана или строка не содержит <печатного символа>;
• <Ctrl-R> - выводит на экран символы справа от курсора в редактируемой строке, а затем переводит курсор в начало следующей строки и выводит на экран символы слева от позиции курсора, в которой он находился в предыдущей строке, когда была нажата клавиша;
• <Ctrl-Т> - пересылает курсор вправо;
• <Ctrl-U> - уничтожает текущее содержимое редактируемой строки и начинает редактирование заново с первоначального содержимого строки, позволяя легко устранять ошибки редактирования.

Редактор TRS-80, MBASIC и КОРВЕТ

• Команды управления курсором.
• <пробел> - нажатие клавиши <пробел> пересылает курсор вправо. Нажатие клавиши <пробел> n раз пересылает курсор на n позиций вправо. После каждого нажатия клавиши <пробел> появляется символ редактируемой строки
• <Del> - В режиме редактирования нажатие клавиши <Del> n раз пересылает курсор на n позиций влево
• Команды ввода текста.
• I<текст><Escape> - Вводит текст с текущей позиции курсора. Вводимые символы печатаются на экране дисплея. Чтобы закончить ввод, нажимается клавиша <Escape>. Если во время команды ввода нажимается клавиша возврата каретки, то прекращается ввод текста и редактирование строки. Если при вводе символа общая длина строки превышает 255 символов, то символ не печатается и выдается звуковой сигнал
• Х<текст><Escape> - Ввод текста в конец редактируемой строки. Команда X пересылает курсор в конец строки и включает режим ввода. Нажатие клавиши <Escape> или возврата каретки заканчивает ввод
• Команды удаления текста.
• [n]D - Удаляет n символов справа от курсора. Удаленные символы печатаются в обратных слешах, и курсор располагается справа от последнего удаленного символа. Если справа от курсора меньше, чем n символов, то удаляется вся оставшаяся строка
• Н<текст><Escape> - Удаляет все символы справа от курсора, а затем автоматически включает режим ввода
• Команды поиска текста.
• [n]S<символ> - Находит позицию n-го включения символа в строке и оставляет курсор перед ним. Символ в текущей позиции курсора не рассматривается. Если заданный символ не найден, то курсор останавливается в конце строки. Все символы, рассмотренные за время проверки, печатаются
• [n]К<символ> - Подобна команде S, за исключением того, что все рассмотренные во время проверки символы удаляются. Курсор устанавливается перед заданным символом, и все стертые символы печатаются в обратных слешах
• Команды замены текста. Замена текста производится в режиме строчного редактирования командой С.
• [n]С<текст> - Изменяет следующие n символов на <текст>. <Текст> должен содержать n символов. После того, как n-й новый символ напечатан, осуществляется возврат в режим редактирования
• Команды управления режимом редактирования.
• <возврат каретки> - Печатает остаток строки, сохраняет сделанные изменения и возвращает управление на уровень команд
• Е - Сохраняет сделанные изменения и возвращает управление в режим редактирования. Остаток строки не печатается
• Q - Возвращает управление на уровень команд без сохранения изменений, которые были сделаны во время редактирования
• L - Печатает остаток редактируемой строки и устанавливает курсор в начало строки, оставаясь в режиме редактирования
• А - Позволяет начать редактирование сначала. Запоминает первоначальную строку и восстанавливает курсор в начало строки. Редактирование производится только на экране дисплея или на экране и в памяти в зависимости от того, как была введена строка перед нажатием Ctrl-А

После нажатия клавиш Ctrl-А номер редактируемой строки будет появляться после вспомогательного знака ! и пробела. Если строка была введена с клавиатуры, то после нажатия клавиш Ctrl-А она будет редактироваться как на экране, так и в памяти.

Например:

    400 NEXT
    (нажатие "Ctrl-А")
    ! 400 NEXT [IJ,К]<возврат каретки>
    LIST 400
    400 NEXT J,К

Если Ctrl-A используется после распечатки программы, то редактируется последняя строке программы и причем только на экране, а не в памяти.

Например:

    LIST 200 
    200 PRINT 5 
    Ok 
    (нажатие "Ctrl-A") 
    ! 200 PRINT [D\5\[I8$L]<возврат каретки>
    200 PRINT 8

Если еще раз ввести команду LIST 200, то на экране все равно появится строка

    200 PRINT 5 
    Ok

В приведенных выше примерах в квадратных скобках действия оператора ЭВМ, а символ $ -нажатие клавиши <Escape>.

С помощью Ctrl-А можно редактировать и вызывать не только программные строки, но и любые директивы, вводимые с клавиатуры.

Например:

    PRINT "Проверка"
    Проверка 
    (нажатие "Ctrl-A") 
    ! PRINT "Проверка"

Экранный редактор позволяет пользователю вводить строки программы обычным путем, а затем редактировать полный экран до внесения изменений в оперативную память. Эта ускоряющая работу возможность обеспечивается с помощью специальных функциональных клавиш, управляющих перемещением курсора, режимом вставки или удаления текста и т. д.

С помощью экранного редактора пользователь может быстро передвигать курсор по экрану, внося при необходимости исправления. Строка программы не изменится до тех пор, пока не будет нажата клавиша возврата каретки при нахождении курсора в этой строке.

Чтобы отредактировать программу, необходимо поместить ее или часть ее строк на экран с помощью команды LIST.

Функции экранного редактора существенно зависят от аппаратной реализации клавиатуры и программной организации интерпретатора языка Бейсик, поставленного на микроЭВМ.

Редактор Спектрум+2

Для ввода редактора из начального меню выбирается функция "BASIC" с помощью клавиш управления курсором и клавиши <ENTER>.

Экран будет выглядеть следующим образом: бело-голубой курсор будет установлен в левом верхнем углу экрана. В нижней части экрана имеется черная полоса. Она называется полосой подсказки и сообщает о том, какая часть встроенного программного обеспечения используется. В данный момент полоса подсказки будет содержать "Бейсик-128", поскольку именно так называется редактор. Между полосой подсказки и нижней границей экрана образуется часть экрана, которая называется малым экраном. Эта часть экрана содержит место только для двух строк текста и наиболее часто используется при обнаружении ошибки и выводе сообщения об ошибке.

Теперь нажимается клавиша <EDIT>. Курсор исчезнет и появится новое меню - меню редактирования. Меню редактирования содержит следующие функции:

Бейсик-128 - удаляет меню редактирования и восстанавливает курсор

RENUM - (Перенумерация) Перенумеровывает номера программных строк с шагом 10. Программы всегда будут начинаться с номера 10. Если перенумерация невозможна, то раздается короткий низкочастотный сигнал и меню исчезает. Для того чтобы перенумеровать программу с шагом отличным от 10 и начальным номером строки отличным от 10, используются следующие команды:

    LET start=5:LET stepsize=2:
    LET histart=INT(start/256):
    LET histep=INT(stersize/256):
    POKE 23444,start-256*histart:
    POKE 23445,histart:
    POKE 23446,stepsize-256*histep:
    POKE 23447,histep

Вследствие изменения значения переменных start и stepsize команда RENUM будет выполнять перенумерацию, начиная с любого (допустимого) номера строки и с любым шагом. Введите указанную команду, а затем используйте команду RENUM

SCREEN - (Экран) Перемещает курсор в нижнюю часть экрана и обеспечивает ввод и редактирование команд языка в этой части экрана. Любые операции редактирования в нижней части экрана не портят верхнюю часть экрана, что особенно удобно при работе с графическими средствами. Для возврата к работе с верхней частью экрана снова выберите функцию SCREEN в меню редактирования

PRINT - (Печать) Распечатывает листинг текущей программы, если подключено печатающее устройство. После завершения печати листинга меню исчезает с экрана, а курсор возвратится в прежнюю позицию. Если печатающее устройство не подключено или находится в состоянии НЕ ГОТОВ, то при двукратном нажатии клавиши <BREAK> будет осуществлен возврат в режим редактирования

EXIT - (Выход) Осуществляет возврат в начальное меню, сохраняя в памяти любую программу, с которой в данный момент осуществлялась работа. Если необходимо снова вернуться к программе, то выбирается функция "Бейсик-128". При выборе функции "Бейсик-48", включении компьютера или нажатии клавиши <RESET>, всякая программа, находящаяся в памяти, будет стерта.

При вводе программы, если строка окажется введенной строчными буквами и цвет курсора изменился на красный, то это означает, что обнаружена ошибка. Строка должна быть исправлена перед тем, как она будет принята компьютером. При коррекции строки используются клавиши управления курсором для подведения курсора к части строки, которую необходимо исправить. Затем можно вводить любые символы, которые требуется вставить, или, используя клавишу <DELETE>, удалять лишние. После того, как закончена коррекция строки, нажимается клавиша <ENTER>.

Редактор MSX-BASIC

В табл. 5.2 приводятся шестнадцатеричные коды для управляющих функции, а также последовательности, полученные при нажатии клавиши Control (Ctrl) и других клавиш, соответствующих этим функциям. Они максимально соответствуют коду ASCII. Некоторые управляющие функции далее (стр. 149) описаны более подробно. В описании используются понятия физическая и логическая строка.

Строка, появляющаяся на экране, называется физической строкой, а строка программы в оперативной памяти от 1 до 255 символов - логической.

Примечание. Коды, отмеченные символом "*" выводят из режима вставки, если происходила работа в этом режиме.

Предыдущее слово - Курсор смещается влево к предыдущему слову. Предыдущим словом считается знак слева от курсора, принадлежащий одному из следующих множеств: A-Z; А-Я; a-z; а-я; 0-9

Прерывание - Возвращает MSX-Бейсик в режим прямого управления при нажатии клавиши RETURN, без сохранения изменений, внесенных в редактируемую логическую строку

Усечение - Все символы логической строки, начиная от текущего положения курсора до конца логической строки, удаляются

Следующее слово - Курсор передвигается вправо к следующему слову. Следующее слово - знак справа от курсора, принадлежащий одному из множеств: A-Z; А-Я; a-z; а-я; 0-9

Звуковой сигнал - Слышен звуковой сигнал, такой же, как и при выполнении оператора ВЕЕР

Стирание последнего символа - Удаляет знак слева от курсора. Все знаки от курсора перемещаются влево на одну позицию. Последующие знаки и строки в логической строке передвигаются вверх

Табуляция - В режиме вставки функция ТАВ вводит пробелы с обозначенной курсором позиции до следующей позиции табуляции. Происходит раздвижка строк с переходом на следующую строку. В режиме, отличном от режима вставки, функция ТАВ перемещает курсор к следующей позиции табуляции через 8 позиций

Перевод курсора в исходное положение - Курсор перемещается в верхний левый угол экрана. Экран не очищается

Очистка экрана - При нажатии этой клавиши курсор переходит в исходное положение и очищает весь экран, независимо от исходной позиции курсора

Возврат каретки - Вставляет код "возврат каретки" в текущую позицию курсора. Нажатие этой клавиши указывает Бейсику на логический конец этой строки. Курсор перемещается в начало следующей логической строки. Если на экране недостаточно места, то все изображение сдвигается вверх и снизу добавляется пустая строка

Дополнение в конец строки - Переводит курсор в конец строки, остающиеся знаки в строке не стираются. С новой позиции все внесенные знаки добавляются к логической строке, пока не произойдет нажатие клавиши "возврат каретки"

Вставка - Триггерный переключатель для режима вставки. При режиме вставки размер курсора уменьшается и, начиная с данной позиции, происходит вставка символов. При вставке новых символов знаки справа от курсора перемещаются вправо. Соблюдается непрерывный переход на новые строки. По окончании режима вставки размер курсора вновь увеличивается

Очистка логической строки - При нажатии этой клавиши при курсоре в . любой части строки удаляется вся логическая строка

Курсор вправо - Курсор перемещается вправо на одну позицию. Соблюдается непрерывный переход на следующие строки

Курсор влево - Курсор перемещается влево на одну позицию. Соблюдается непрерывный переход на предыдущие строки

Курсор вверх - Курсор переводится вверх на одну физическую строку (в данной колонке)

Курсор вниз - Курсор переводится вниз на одну физическую строку (в данной колонке)

Редактор BASICA и ЕС1840

Для машин фирмы IBM ниже представлены специальные команды (клавиши) редактора и описаны функциональные возможности этого полноэкранного редактора.

Специальные клавиши редактора.

• Home - (Числовая клавиша 7) пересылает курсор в верхнюю левую позицию экрана CTRL-Ноше - Очищает экран. Устанавливает курсор в верхнюю левую позицию экрана
• ↑ - (Курсор вверх - числовая клавиша 8) Пересылает курсор на одну позицию вверх
• ↓ - (Курсор вниз - числовая клавиша 2) Пересылает курсор на одну позицию вниз
• ← - (Курсор влево - числовая клавиша 4) Пересылает курсор на одну позицию влево. Если курсор достиг левой границы экрана, то он пересылается в самую правую позицию предыдущей строки
• → - (Курсор вправо - числовая клавиша 6) Пересылает курсор на одну позицию вправо. Если курсор достиг правой границы экрана, то он пересылается в самую левую позицию следующей строки
• CTRL+→ - (Следующее слово) Пересылает курсор вправо до следующего "слова". "Слово" определяется как символ или группа символов, которые начинаются с буквы или цифры. Слова разделяются пробелами или специальными символами
• CTRL+←- (Предыдущее слово) Пересылает курсор влево до предыдущего слова
• End - (Числовая клавиша 1) Пересылает курсор в конец логической строки. Символы, введенные начиная с этой позиции, добавляются в конец строки
• CTRL+End - Удаляет символы от текущей позиции до конца логической строки. Все физические строки экрана удаляются до тех пор, пока не будет найден символ конца ввода
• Ins - (Числовая клавиша 0) Устанавливает режим Ins (ввода символов). Если этот режим не установлен, то нажатие этой клавиши будет включать его. Режим Ins отмечается мерцанием курсора, определяя нижнюю половину символьной позиции. Очередной вводимый символ помещается в позицию, на которую указывает курсор, все символы, расположенные справа от курсора, смещаются вправо на одну позицию. Если последний символ вытесняется за пределы строки экрана, то он помещается в крайнюю левую позицию следующей строки. Когда режим Ins выключен, вводимые символы будут замещать в строке существующие символы
• Del - (Числовая клавиша - десятичная точка) Удаляет символ с текущей позиции. Все символы справа от удаленной позиции пересылаются на одну позицию влево
• ⇐ - (Backspace - возврат на одну позицию) Удаляет символ слева от курсора. Все символы справа от удаленного пересылаются влево на одну позицию
• ESC - При нажатии ESC, когда курсор находится где-либо в строке, с экрана удаляется эта физическая строка. Строка не передается в интерпретатор Бейсик для обработки. Если она является программной строкой, то из памяти не удаляется
• CTRL+Break - Возвращает редактор в командный режим без сохранения каких-либо изменений, сделанных при редактировании текущей строки, не удаляя строку с экрана, подобно ESC
• ТАВ - (Табуляция) Пересылает курсор в следующую установку табуляции, которая встречается каждые восемь символьных позиций

Коррекция текущей строки при работе с экранным редактором MSX-BASIC и BASICA

В режиме уровня команды любая строка будет обрабатываться встроенным редактором. Бейсик всегда находится на уровне команды после напоминания Ок.

Изменение символов. Используя клавиши пересылки курсора, курсор пересылается в позицию, где обнаружена ошибка, и вводится нужный символ. Затем можно переслать курсор в конец строки, используя клавиши "курсор вправо" или "End", и продолжить ввод.

Удаление символов. Если в строке необходимо удалить символ, то используется клавиша Del. С помощью клавиши пересылки курсора курсор передвигается на символ, который надо удалить. Символ удаляется нажатием клавиши Del. Затем оператор пересылает курсор обратно в конец строки. Если неправильный символ был только что введен, то его можно удалить, используя клавишу "Backspace". Затем можно продолжить ввод строки.

Добавление символов. Для добавления пропущенных символов надо переслать курсор в позицию, с которой необходимо ввести новые символы. Нажмите клавишу "Ins" для установления режима ввода символов. Введите символы, которые надо добавить, эти символы будут вставлены, начиная с этой позиции. Символы слева от курсора остаются неизменными. Символы справа от курсора будут сдвигаться вправо по мере введения новых символов. Режим ввода автоматически отключается при нажатии любой клавиши пересылки.

Удаление части строки. Чтобы удалить часть строки, начиная с текущей позиции курсора, введите CTRL+End, за которым следует Enter.

Аннулирование строки. Чтобы аннулировать строку, которая находится в обработке, надо нажать клавишу Esc где-либо в строке. Нельзя нажимать клавишу возврата каретки. Это приведет к удалению входной логической строки.

Введение или изменение программы. Любая введенная строка, которая начинается с номера, рассматривается как строка программы. Строки программы могут содержать максимум 255 символов, включая возврат каретки. Если строка содержит больше 255 символов, то лишние символы игнорируются при нажатии клавиши возврата каретки. Хотя эти символы появляются на экране, они не обрабатываются Бейсиком.

Ключевые слова и имена переменных должны быть записаны прописными буквами. Однако их можно вводить как комбинации прописных и строчных букв, редактор программ будет переводить их в прописные за исключением комментариев и строк, заключенных в кавычки.

Добавление новой строки к программе. Введите номер строки (0 - 65529), за которым следует хотя бы один символ - не пробел и не возврат каретки. Строка будет сохраняться как часть программы в памяти. Если строка с этим номером уже существует, то старая строка замещается новой. Программные строки не проверяются на наличие синтаксических ошибок перед добавлением к программе. Они проверяются только при выполнении программы.

Замещение или изменение существующей программной строки. Существующая строка изменяется, когда номер вводимой строки уже существует в программе. Старая строка замещается новой.

Удаление программных строк. Чтобы удалить существующую строку, сразу за номером этой строки надо нажать клавишу возврата каретки. Чтобы удалить одну строку или группу строк, можно использовать команду DELETE. При попытке удалить несуществующую строку появляется сообщение Undefined line number (Неопределенный номер строки). Нельзя использовать клавишу Esc для удаления программной строки, так как нажатие клавиши Esc удаляет строку только с экрана.

Удаление введенной программы. Чтобы удалить введенную программу, находящуюся в памяти, надо ввести команду NEW. Команда NEW обычно используется для очистки памяти перед вводом новой программы.

Работа с новой строкой. Редактируя любую строку на экране, можно использовать клавиши пересылки курсора в позицию, выбранную для измерения. Затем можно использовать средства для изменения, добавления или удаления символов в строке. Для вывода программных строк на экран можно применить команду LIST. Для этого курсор устанавливается в позицию в строке, которая будет редактироваться; эта позиция изменится.

Чтобы запомнить отредактированную строку, следует нажать клавишу возврата каретки. Можно продублировать строку в программе следующим способом: переслать курсор в строку, которая будет дублироваться, изменить номер строки. Затем нажать клавишу возврата каретки; обе строки, старая и новая, будут в программе.

Программная строка никогда не изменится до тех пор, пока не будет нажата клавиша возврата каретки. Перед нажатием клавиши возврата каретки, курсор надо перевести в конец логической строки. Редактор программы "знает", где заканчивается каждая логическая строка и обрабатывает полную строку, даже если клавиша возврата каретки Enter нажимается в начале строки. Чтобы сохранить программу с новыми изменениями, следует использовать команду SAVE (см. гл. 4) перед введением команды NEW.

Синтаксические ошибки. Если во время выполнения программы обнаруживается синтаксическая ошибка, то интерпретатор автоматически распечатывает строку, которая вызвала ошибку, и ее можно корректировать.

Например:

    10 А=2$45
    RUN
    ? Syntax error in 10
    10 A=2$45

Редактор распечатывает строку с ошибкой и устанавливает курсор в позицию первой цифры номера строки. Нужно переслать курсор вправо до знака "$" и изменить его на "*" затем ввести возврат каретки. Скорректированная строка запоминается в программе.

Обычно программисты тратят около 40% рабочего времени на написание программы, а 60% - на отладку программы. Встроенные средства отладки позволяют обрабатывать некоторые ошибочные ситуации, а также выводить на терминал номера выполняемых строк программы.

Важной сервисной функцией, обеспечивающей отладку программы, обладает команда, включающая трассировку программы. С помощью трассировки выполнение программы может быть проверено строка за строкой, что позволяет определить точное местонахождение ошибки. Трассировка включается командой TRON (в некоторых версиях - TRACE) и выключается командой TROFF (UNTRACE или NOTRACE). После команд TRON(TRACE) и RUN на экране дисплея появляются номера строк каждого исполнительного оператора и выводимые значения переменных и констант.

В XYBASIC команда BREAK позволяет установить точку приостанова по номеру строки или переменной. Если установить точку приостанова по номеру строки, то номер строки будет печататься каждый раз, когда строка будет выполняться, а затем или продолжается выполнение программы, или выполнение программы завершается. Вели установить приостанов по имени переменной, то будет печататься имя переменной и ее новое значение всякий раз при ее изменении. Команда UNBREAK удаляет точку приостанова. Сведения о командах для разных версии языка представлены в табл. 5.3.

Примечание. * - При трассировке номер строки печатается только один раз, даже если эта строка содержит несколько операторов. ** - При трассировке номер строки печатается столько раз, сколько операторов содержит эта программная строка.

В рассматриваемых версиях интерпретаторов при появлении сообщения об ошибке возможны различные ситуации. Одни ситуации приводят к прерыванию работы программы, другие прерывания не вызывают.

Ошибки, препятствующие выполнению программы, можно разделить на несколько групп:

Группа 1. Синтаксические ошибки. В операторах РИШТ, INPUT или LET может быть:

• забыта одна пара кавычек;
• использовано неправомочное имя переменной;
• забыты двоеточие или точка с запятой, или запятая, отделяющая переменные или текст;
• забыт номер строки, или в номере строки присутствуют буквы, или номер строки больше максимально разрешенного;
• двойные кавычки внутри текста;
• строка больше 255 символов;
• пропущено ключевое слово;
• определен лишний символ, особенно лишняя запятая или двоеточие.

Группа 2. Выполнение оператора READ, когда нет данных в операторе DATA.

Группа 3. Ошибки цикла:

• отсутствие оператора NEXT или FOR; WHILE или WEND;
• забыто ключевое слово FOR;
• вложены два цикла, использующие одинаковую переменную в обоих циклах;
• имя переменной в цикле и имя счетчика цикла совпадают;
• циклы некорректно вложены один в другой.

Группа 4. Несуществующий номер строки, к которому обращаются операторы GOTO, THEN и т. п.

Группа 5. Значение параметра или индекса вне диапазона:

• задание неправильных значений в графических операторах (например, в Бейсик-ПЕ8010 и Бейсик-ПК8020);
• переполнение или деление на нуль.

Группа 6. Ошибки при работе с подпрограммами:

• отсутствие RETURN при наличии GOSUB;
• отсутствие GOSUB при наличии RETURN;
• отсутствие RESUME при наличии ON ERROR GOTO;
• отсутствие ON ERROR GOTO при наличии RESUME.

Группа 7. Строковые ошибки:

• задание строкового значения вместо числового или наоборот;
• превышено количество свободной памяти для строк;
• попытка создать строку длиннее 255 символов;
• строковое выражение слишком длинное или сложное.

Группа 8. Ошибки при работе с массивами:

• неправильное задание индекса массива;
• определение размерности одного или того же массива дважды.

Группа 9. Ошибки при работе с файлами:

• обращение к файлу, которого нет на диске;
• файл с заданным именем уже существует или открыт;
• ошибка в спецификации файла;
• несоответствие режима файла выполняемым действиям;
• создание нового файла при полном каталоге диска;
• попытка записи на диск, когда места на диске нет;
• переполнение буфера;
• ошибочный номер файла или записи;
• ошибка определения конца файла.

Группа 10. Ошибки устройств:

• ошибка в операции ввода-вывода устройства;
• нет информации из устройства ввода-вывода по истечении определенного времени;
• печатающее устройство отключено;
• ошибка аппаратуры, обнаруживаемая адаптером интерфейса;
• отсутствие устройства или заблокированное устройство;
• открыта дверца дисковода или диска нет в дисководе;
• плохой диск;
• попытка записи на защищенный диск.

Группа 11. Ошибки коммуникации:

• попытка установления связи при полном входном буфере.

Группа 12. Прочие ошибки:

• программа слишком велика или слишком сложна;
• ввод в прямом режиме оператора, который может быть использован только в программном режиме;
• попытка продолжить программу, которая остановлена из-за ошибки, не существует или модифицирована во время прерывания выполнения;
• функция пользователя вызывается перед ее определением оператором DEF FN;
• выражение содержит оператор, такой как * или OR, без операнда, следующего за ним.

Все эти ошибки прерывают выполнение программы, вызывают сообщение об ошибке с указанием строки, где эта ошибка встретилась.

Типичные логические (несообщаемые) ошибки:

1. Переинициализация переменной - особенно при использовании циклов.

       10 FOR N=1 ТО 3
       20 READ А
       30 PRINT А
       40 RESTORE
       50 NEXT N 
       60 DATA 1,2,3

2. Реверсия условий, т. е. использование знака "=" вместо знака "<>" или ">" и т. п.
3. Включение "равно* в условие "меньше или равно", когда должно быть "меньше" и т.п.
4. Перепутаны подобные имена переменных, особенно переменная А, строка А$ и массив А(Х).
5. Забыт порядок программного выполнения - слева направо, ио умножение и деление всегда имеют приоритет перед сложением и вычитанием, а функции (INT, RND, ABS и т. п.) перед другими функциями.
6. Вычисления некорректны в цикле, так как FOR I=0 ТО 7 выполняет цикл 8 раз, а не 7.
7. Использование одной переменной в нескольких различных местах.

Подробное описание ошибок, приводящих к прерыванию выполнения программы, дано далее.

Сообщения об ошибках XYBASIC

Когда обнаруживается ошибка в программе, интерпретатор выводит на экран сообщение о характере и месте появления ошибки (табл. 5.4).

Например:

    10 LET 3 = L

Интерпретатор выдает сообщение

    SN ERROR: 10 LET 3 = L
    ОК

SN - код, отражающий появление синтаксической ошибки

Сообщения об ошибках Бейсик-Спектрум+2

Сообщения появляются внизу экрана при останове выполнения программы. Сообщение имеет код, короткое сообщение, объясняющее что произошло, номер строки и номер оператора внутри строки, где произошел останов. Подсказка Ок имеет код 0.