Turbo Basic 1.1. Руководство пользователя
Введение
Турбо-Бейсик представляет собой независимую среду программирования
для персональных компьютеров IBM и совместимых с ними.Следуя по следам сво-
его знаменитого родственника Турбо-Паскаля,Турбо-Бейсик сочетает в себе:
редактор, быстрый компилятор типа память-память, библиотеку режима исполни-
тельного времени и внутренний связник. Всего современном пользовательском
интерфейсе применяются окна и последовательно детализированное меню. С
целью достижения максимального быстродействия и эффективного использования
памяти Турбо-Бейсик целиком написан на ассемблерном языке.
В число других отличительных характеристик входит следущие:
-поддержание арифметики с плавающей точкой(полная интеграция 8087 и
полная программная эмуляция )
-среда профессиональной разработки
-новые операторы блочно-структурного программирования
-полная поддержка EGA.
Будучи языком как начинающего ,так и для опытного программиста,
интегрированная конструкция Турбо-Бейсика дает возможность быстрого
программного оборота без принесения в жертву мощных возможностей
профессионального программирования. Он совместим с версией 3.00
Интепретатора передового БЕЙСИКА системы IBM (обычно именуемого BASKA) или
GWBASIC микропрограммного обеспечения (с незначительными исключениями), а
также имеется много расширений. (Далее мы будем ссылаться на передовой
Бейсик или GWBASIC ,называя их вместе "Интерпретаторный Бейсик").
Программы, создаваемые с помощью Турбо-Бейсика, имеют доступ ко
всей памяти, которой располагает целевая машина-64К для скаларов, 64К для
строк, имеющаяся в распоряжении память для массивов и более 64К для прог-
рамм. Компилятор генерирует истинные .EXE -файлы, которые работают в 4-100
раз быстрее их интерпретаторных двойников, а в сочетании с поддержкой 8087
способствует охвату областей применения с интенсивной числовой обработкой
данных. Турбо-Бейсик поддерживает также все графические возможности и
расширения усиленного графического адаптера(EGA).
- 9 -
Благодаря его передовым конструкциям управления потоком команд
(блоки IF/THEN/ELSEIF/ENDIF, DO/LOOP, CASE/SELECT, CALL/SUB), программы
Турбо-Бейсика более просты в написании, отладке и поддержании, чем
программы Интерпретаторного Бейсика. Номера строк могут использоваться
опционально; в качестве цели операторов GOTO и GOSUB могут служить
алфавитно-числовые метки. Определяемые пользователем функции и
процедуры дают возможность заявления локальных, статических и
разделяемых переменных, а также допускают рекурсивность.
Турбо- Бейсик поддерживает значительно расширенный строчный диапазон
( до 32 767 литер на строку ) и обеспечивает уничтожение данных задержек
периодических строчных промежитков "подчистка". Имеется BINARY (двоичный)
файловый режим для обработки фаилов низкого уровня и режим с числами типа
данных целых для быстрой и гибкой числовой обработки. Операторами
CALL и REG предоставляется возможность прямой связи с языком ассемблера, а
также имеется множество компиляторных директив для условной компиляции,
отслеживания ошибок, буферного управления и т.д.
Турбо-Бейсик является мощным совместимым с интерпретаторным
Бейсиком, языком, с помощью которого быстро получается быстродействующие
программы.
Об этом руководстве
Прежде всего о том, чем данное руководство не является. Оно не
является исчерпывающим введением в Бейсик-программирование. По последним
подсчетам существует более 15000 книг, посвященных этому предмету, и,
в частности, более 1000 относится к Интерпретаторному Бейсику (который , в
сущности, имеет тот же синтаксис, что и Турбо-Бейсик). Данное руководство
не подменяет также источники информации, как руководство по DOS и
технического руководства для вашей машины.
Вместо всего этого, настоящее руководство представляет собой
своего рода справочник по системе разработки программ, известной как
Турбо-Бейсик. Мы начинаем с краткой консультации по установке
в систему рабочего гибкого или жесткого диска, а затем переходим к
обсуждению того как использовать Турбо-Бейсик для простой программы
редактирования и компиляции. Дальнейшая консультация относится к
основополагающим материалам, распределенным по главе 3 "Турбо-Бейсик:
Программа" и главе 4 "Турбо-Бейсик:язык". Глава 5 "Словарь -справочник
по Турбо-Бейсику" представляет собой алфавитно упорядоченный обзорный
раздел по командам, системным переменным, функциям, операторам и
использованиям Т.Б.(Турбо-Бейсика).
Приложения содержат таблицу ASCII и клавиатурные коды, а также
дополнительную информацию относительно числовых соображений, отслеживания
событий интерфейса с подпрограммами на языке ассемблера, ошибок
периода компиляции и прогона, различий между Т.Б. и Интерпретаторным
Бейсиком
Типографские особенности
Основная часть данного руководства напечатана обычным шрифтом; дру-
гие типы шрифта имеют специальное смысловое значение.
Печать в разрядку используется для представления программ примеров
и вывода на экран; например:
DIR MASK:
курсивом выделяются важные понятия и слова. В частности курсив при-
меняется в синтаксических описаниях для указания зон в пределах команд,
подлежащих заполнению специальной информацией области применения; например:
REG REGISTE,VALUE
Текст в буквах верхнего регистра обозначает часть Бейсик-коман-
ды,которая должна быть обеспечена дословно; например:
- 10 -
RESUME NEXT
Определенные литеры имеют специальное смысловое значение, когда они
появляются в синтаксических описаниях.
Прямоугольные скобки ([]) означают, что заключенная в них
информация является описательной.
Например:
OPEN FILESPAC AS [#] FILENUM
означает ,что вы можете указывать знак номера (#) перед номером
файла или опускать его по вашему выбору. Поэтому законны обе следущие
строки:
OPEN "CUST.DTA" AS 1
OPEN "CUST.DTA" AS #1
фигурные скобки () указывают выбор одной или более опций, одна
из которых должна использоваться обязательно. Опции разделяются
вертикальной чертой (!)
например:
KEY ON!OFF
означает, что законныим являются оба оператора KEY ON и KEY OFF и
просто KEY невозможно.
Многоточия (...) указывают, что часть команды может повторяться
столько раз, сколько необходимо.
READ VARIABLE [,VARIABLE]...
означает, что одним оператором READ может обрабатываться множество
переменных,разделяемых запятыми:
READ AS
READ AS BS,A,B,C
три разнесенные по вертикали точки указывают на пропуск одной или
более строк программного текста; например
FOR N=1 TO 10
.
.
.
NEXT N
Системные требования
Собственно для Т.Б. требуются MS-DOS или PC-DOS 2.0, либо выше,
кроме того для исполнения любой создаваемой вами программы требуется
DOS 2.0 или выше.
Т.Б. и программы, которые вы создаете с его использованием,
конструируются для работы на моделях IBM PC, XT или АТ, либо какой-то
полностью совместимой с ними машине. Графические возможности аппаратного
обеспечения, такого как цветной/графический адаптер, усиленный графический
адаптер, либо эквивалентного им, а также соответствующего дисплея.
Выражение благодарности
Вданном руководстве мы ссылаемся на несколько различных видов про-
дукций; также перечислен каждый из них и соответствующая компания:
Турбо-Паскаль и САЙДКИК есть зарегистрированные торговые
марки а
Турбо-Бейсик есть новая торговая марка Borland INTERNATIONAL, INC.
GWBACIC,MS-DOS есть зарегистрированные торговые марки Mikrosoft
Corporation
WORDSTAR есть зарегистрированная торговая марка MikroPRO
INTERNATIONAL, INC
IBM-XT и AT есть зарегистрированные торговые марки Intel
Corporation
MultiMate есть торговая марка MultiMate INTERNATIONAL Corporation
- 11 -
DBASE eсть зарегистрированная торговая марка ASTON-TALE
LOTUS 1-2-3 есть зарегистрированная торговая марка LOTUS
DIWELOPMENT Korporation
ГЛАВА 1
О Бейсике
Подобно омару штата мэн, кремовому сиропу и баскетболу, Бейсик
является продуктом новой Англии. Созданный в 1964г. в Дортсмутском
колледже в Гановере, Нью Хемишир, как язык для обучения програм-
мированию, Бейсик обычно ассоциируется как акроним "BEGINNERS
ALL-PURPOSE SYMBOLIC INSTRUCTION CODE" (Общецелевой код символьных
инструкций для начинающих). Однако циники считают, что изобретатели Джон
Кемени и Томас Куртц сперва придумали заковыристое имя для своего
нового, простого в использовании языка, и только по том подвели под
него базу, состряпав что-то такое, на чем это имя могло бы утвердится.
Вскоре и студенты, и программисты обнаружили, что с использованием
Бейсика можно делать практически все то же самое, что возможно с помощью с
помощью скучного и трудно преодолимого фортрана. А поскольку Бейсик
оказался прост как в изучении, так и в работе, программы на нем писались в
течении более короткого времени, чем их фортранные эквиваленты. Бейсик
оказался также приемлемым для большинства персональных компьютеров.
Это открыло Бейсику широкую дорогу.
Примечательно, что при наличии множества общецелевых языков
программирования, доступных программирующим фанатикам, Бейсик остается
простейшим для изучения и по истечении 20 лет после его введения. Но еще
лучше оказывается выполненная на Бейсике работа. Вопреки притязаниям снобов
Си и Паскаля, Бейсик является вовсе не пустяковым языком, наделенным
мощными инструментами пригодными для того, чтобы браться за специфическое
дело, которое люди в большинстве случаев делают с помощью малых
компьютеров, а именно, за работу с файлами и вывод текстов и графики на
дисплей.
Хотя их язык имеет своих клеветников, ни один из них не может отри-
цать, что Кемени и Куртц достигли цели своего Бейсика: сделать програм-
мирование более доступным для болшего числа людей. Это привело нас
к Турбо-Бейсику.
Турбо-Бейсик является компиляторным Бейсиком. Возможно вы знакомы
с передовым Бейсиком IBM (называемым GWBASIC на многих совместимых машинах,
но который мы назваем теперь "Интерпретаторный Бейсик"). Одной из
популярных Интерпретирующих версий компании MikroSoft. Интерпретирование и
компилирование это два базисных метода реализации языков высокого уровня.
Для понимания важных различий между этими двумя подходами, а
следовательно между Турбо-Бейсиком и Интерпретаторным Бейсиком, нам
- 12 -
необходимо кратко остановиться на основах программирования.
Бейсики и машинный язык
Как это ни удивительно, но любой данный компьютер способен
исполнять программы, написанные только на его родном машинном языке.
Существует почти столько же машинных языков, сколько есть типов
компьютеров, но все они представляют собой некоторые вариации на одну
и ту же тему-простые операции, выполняемые молниеностно быстро над
двоичными числами. На персональных компьютерах IBM используется семейство
машинного языка 8086, поскольку их аппа ратная конструкция базируется на
этом конкретном семействе микропроцессоров.
Возможно, хотя и трудно, писать программы непосредственно на
машинном языке. В ранние годы компьютеризации (на заре 1950-х годов)
машинный язык был тем единственным, что сделали люди, чтобы спасти
программистов от цепенящего озноба программирования в машинных кодах, как
некий мост между человеческими существами и миром машинных языков
компьютеров, были созданы высокоуровневые (т.е. не машинные) языки.
Высокоуровневые языки работают через трансляторные программы,
которые переводят "исходный код" (машинно-читабельный гибрид английского
языка и математических выражений) и в конце концов вынуждают компьютер
исполнять подходящие инструкции на машинном языке для выполнения
заданной работы. Двумя базисными типами трансляторов являются
интерпретаторы, которые сканируют и исполняют исходный код в режиме
единичного шага, и компиляторы, которые сканируют исходный код,
переводя его на машинный язык, а результат этого сканирования используется
затем отдельно.
Интерпретаторы
Исторически Бейсик обычно реализовался как интерпретатор (знакомым
изомером является сам интерпретаторный Бейсик). Одно, часто упоминаемое
преимущество интерпретаторной реализации состоит в том, что она допускает
"непосредственный режим". Непосредственный режим позволяет вам задавать
компьютеру задачу вроде PRINT 3.14159*3/2.1 и возвращает вам ответ, как
тольковы нажмете клавишу ENTER (это позволяет использовать компьютер
стоимостью 3000 долларов в качестве калькулятора стоимотью 10 долларов).
Кроме того, интерпретаторы имеют специальные атрибуты, которые
упрощают отладку. Можно, например, прервать обработку интерпретаторной
программы, отобразить содержимое определенных переменных, бегло просмотреть
программу, а затем продолжить исполнение.
Болше всего программистам нравится в интерпретаторах возможность
получения быстрого ответа. Здесь нет необходимости в компилировании, так
как интерпретатор всегда готов для вмешательства в вашу программу. Введите
RUN и результат вашего самого последнего изменения оказывается на экране.
Однако интерпретаторные языки не без недостатков. Необходимо
например иметь копию интерпретатора в памяти все время, тогда как многие
возможности интерпретатора а следовательно и его возможности могут не быть
необ ходимыми для исполнения конкретной программы.
Слабо различимым недостатком интерпретаторов является то, что они
имеют тенденцию отбивать охоту к хорошему стилю программирования. Поскольку
комментарии и другие формализуемые детали занимают значительное место прог-
раммной памяти, люди стремяться ими не пользоваться. Дьявол менее яростен,
чем программист ,работающий на интерпретаторном Бейсике, пытающийся
получить программу в 120К в памяти емкостью 60К. Но хуже всего то, что
интерпретаторы тихоходны. Ими затрачивается слишком много времени на
разгодывание того, что делать, вместо того чтобы заниматься действительно
делом.
При исполнении программных операторов, интерпретатор должен сначала
сканировать каждый оператор с целью прочтения его содержимого (что этот че-
- 13 -
ловек просит меня сделать?), а затем выполнить запрошенную операцию.
Операторы в циклах сканируются излишне много.
Рассмотрим программу:
10 FOR N=1 TO 1000
20 PRINT N,SQR(N)
30 NEXT N
При первом переходе по этой программе Бейсик-Интерпретатор должен
разгадать что означает строка 20:
1.преобразовать числовую переменную N в строку
2.послать строку на экран
3.переместить в следущую зону печпти
4.вычислить квадратный корень из N
5.преобразовать результат в строку
6.послать строку на экран
При втором проходе цикла все это разгадывание повторяется снова,
так как абсолютно забыты все результаты изучения этой строки какую-то
милисекунду тому назад. И так во всех следущих 998 проходах.
Совершенно очевидно, что если вам удалось каким-то образом
отделить фазу сканирования/понимания от фазы исполнения вы имели бы
более быструю программу. И это как раз то,для чего существуют компиляторы.
Компиляторы
Компилятор - это транслятор текста на машинный язык, который
считывает исходный текст, оценивает его в соответствии с синтаксической
конструкцией языка и переводит на машинный язык. Затем вывод на машинной
языке (машинный код), прогоняется как независимый шаг трансляции.Другими
словами, компилятор не исполняет программы, он их строит.Интерпретаторы
невозможно отделить от программ, которые ими прогоняются, компиляторы
делают свое дело и уходят со сцены.
При работе с компилирующим языком, таким как Турбо-Бейсик, вы
придете к необходимости мыслить о ваших программах в признаках двух
главных фаз их жизни: периода компилирования и периода прогона.
Улучшение показателей быстродействия, которое вы заметите при
использовании Т.Б., зависит от программы. Большинство программ будут
прогоняться в четыре-десять раз быстрее их интерпретаторных эквивалентов.
Если вы поработаете над улучшением то сможете достичь 100-кратного
повышения быстродействия. Оборотная сторона монеты состоит в том, что
программы, расходующие большую часть времени на возню с файлами на дисках
или ожидание ввода, не смогут продемонстрировать какое-то впечатляющее
увеличение скорости.
Номера строк и Турбо-Бейсик
Интерпретаторный Бейсик нуждается в такой нумерации строк,с помощью
которой он мог бы находить свой путь при исполнении посылок GOTO, GOSUB в
программной последовательности. Кроме того номера строк являются
сердцевиной его редактирования.
Допуская их, Т.Б. не нуждается в номерах строк. Вместо GOTO 5000,
в Т.Б. вы можете сказать что-то типа GOTO ERROR EXIT, где выход по ошибке
есть "метка" в начале подпрограммы выхода по ошибке.
Т.Б. с самого начала конструировался так, чтобы быть быстрым.
Эта цель была достигнута благодаря интегрированной конструкции, которая
одновременно удерживает в памяти компилятор, редактор и программу,
исключая бесконечные экскурсы к дисковводам, которые приводят к тому, что
обычные компиляторы осуществляют текстовую трансляцию в 10 или 20 раз
медленнее.
Выходящая за нормальные представления скорость компиляции Бейсика
- 14 -
такова (тысячи строк в минуту), что сохраняется интерактивность, присущая
Интерпретаторному Бейсику. Просто нажимантся R-клавиша и осуществляется
прогон программы Т.Б.
Примечание: Если для вас БЕЙСИК внове, продолжайте чтение и/или
практическое применение данного руководства. Однако бывалым Бейсик-
программистам, которые имеют намерение преобразовывать код
Интерпретаторного Б. в Т.Б., целесообразно заглянуть в Приложение D
"Сравнение Т.Б. с Интерпретаторным Б."
ГЛАВА 2
Турне по Турбо-Бейсику
В этой главе вы познакомитесь с азами использования Т.Б. Мы начнем
с некоторых базисных операций в Т.Б., включая установку Т.Б.,
использования системы меню, а также создание, прогон и редактирование
программы. Однако прежде чем вы начнете, необходимо внимательно
ознакомится с лицензионным соглашением, приведенным на передней странице
данного руководства. Это соглашение позволяет вам делать столько копий
программного диска, сколько вам необходимо только для вашего личного
пользования и целей резервирования.
Резервирование ваших дисков
Для того,чтобы обеспечить собственную безопасность,сделайте резерв-
ную копию диска распределения с помощью вашей программы копирования файлов
или дисков перед началом использования Т.Б. Обеспечив уверенность в том
,что все файлы переданы успешно,и после этого отправте оригинальный диск на
хранение в безопасное место.
Файлы на диске распределения
Ниже описываются файлы, которые вы только что скопировали с вашего
диска распределения.
TB.EXE полностью единая библиотека операционной среды /редактирова-
ния/ периода прогона Т.Б. настраивается и прогоняется, когда вы набираете
- 15 -
на клавиатуре TB и нажимаете ENTER. *.BAS образцовые прграммы Т.Б.
TBHELP.TBH содержит экраны помощи для использования Т.Б.
README.COM эту программу используют для чтения файла README.
README этот текстовый файл может быть просмотрен, если он есть,
на нем содержится современная информация, чем представленная в данном
руководстве. Используйте для набора или копирования текста на печатающем
устройстве README.COM
Установка
В системах с гибкими дисками копируйте TB.EXE на диск первичной
загрузки вместе с множеством утилитных программ DOS (например
CHRDSK, FORMAT), которые вы считаете необходимыми. Для хранения исходных и
исполнительных программ, которые вы будете создавать, используйте дисковвод
"В".
В системах с жесткими дисками создавайте новый справочник вне
корневой системы, назаваемый "TB", или что-то подходящее. Копируйте в ТВ
все файлы диска распределения. Если вы скупитесь на дисковое пространство,
копируйте только TB.EXE. Регистрируйте этот справочник, и вы готовы
приступить к работе, стандартная конфигурация с жестким диском адресуется
как дисковвод "С", а первый гибкий диск - как "A"; требуется команда
C>MD TB
C>COPY A:"*".TB
C>CD TB
C>TB
Чтобы пользоваться Т.Б. из других мест вашего жесткого диска,
настраивайте оператор прохода или копируйте файл TB.EXE в справочник, в
котором вы содержите системные программы, такие как CHDSK, FORMAT и
передовой Бейсик. Этот справочник часто называется BIN(более подрабно о
настройке проходов см. приложение 1 "Приспособление Т.Б."). За
детальной информацией по поводу создания и управления субсправочниками
обращайтесь к вашему руководству по DOS.
Настройка операционной среды
Если вам необходима какая-то специальная аппаратура, либо вы являе-
тесь разработчиком в деле обеспечения потребностей в динамической среде,
возможность устанавливать переменные среды предоставит вам определенный
выбор. Переменные среды фактически перекрывают компилятор и/или программные
опции и определяются использованием команды SET в DOS.
Переменные среды оказывают воздействие на среду в целом, в которой
исполняется какая-то программа. Следовательно после установки переменной
она остается действующей до тех пор, пока вы вновь не установите ее на
другое значение или не включите вашу машину. Если вы сочтете необходимым
устанавливать эти значения постоянно одинаковым образом, то можете
пожелать вводить команду SET в какой-то пакетный файл или в ваш
AUTOEXEC.BAT -файл (См. Приложение G "Основы DOS").
Переменные среды Т.Б. позволяют перекрывать вам опции периодов
компиляции и прогона для содержания 8087 и проверки "Показа" цветного
графического адаптера (CGA). Так в следущем примере вы устанавливаете вашу
среду для использования 8087, набирая в DOS-подсказке SET 87=YES (да),
где YES означает, что у вас есть 8087,что эта аппаратура не используется.
По умолчанию устанавливается YES.
В случае проверки показа CGA,вы должны набрать:
SET CGANOWCHK=NO
- 16 -
где NO приводит к отсутствию показа - проверки, а YES - к ее
выполнению. По умолчанию устанавливается YES.
Кoгда ваш компилятор начинает исполнение, осуществляется
фактический поиск по пространству переменных сред с целью получения
значения этих переменных.
Хотя в установке этих переменных нет необходимости, они доступны,
если у вас в них есть нужда. Если вы предпочитаете не выбирать их,
просматриваются файлы текущего справочника и создаются временные файлы для
хранения значений переменных по умолчанию.
Запуск Турбо-Бейсика
Когда у вас есть копия системы на вашем рабочем диске, а вы
находитесь в подходящем справочнике (или диске, если ваша система
базируется на гибких дисках), вводите TB при DOS-подсказке и нажимайте
Enter:
c>TB
и появляется первый экран Т.Б.:
рисунок 2-1. Главный экран Т.Б.
на полоске в верхней части экрана главного меню отображаются опции
ваших команд и четыре окна, редактирования, сообщение, отслеживание и
прогон. Вы можете выбирать любую статью из меню, нажимая соответствующую
заглавную букву (например, Е для редактирования), либо перемещая светящуюся
полоску с помощью клавиш стрелка вправо стрелка влево до желаемой опции, а
на экране выделяются в тексте жирным шрифтом.
Минутный эксперимент.
Выберите команду файла. Вытягивается ряд
опций, относящихся к файлам. Чтобы выбрать одну из этих опций снова
нажимайте первую букву опции или используйте стрелками вверх и вниз для
установки светящейся полоски и нажимайте Enter. Чтобы возвратиться к опциям
доступным из главного меню, нажимайте ESCAPE, в результате чего вы
вернетесь в главное меню независимо от того где вы находились в
Турбо-Бейсике нажатие несколько раз ESCAPE позволит вам вернуться в
главное меню (более детальную информацию смотрите в разделе ГЛАВЫ 3,
озаглавленой "Главное меню").
Следует заметить, что строка помощи в нижней части экрана
изменяется соответственно вашему нахождению в системе меню; если вы
чем-то озадачены прежде всего взгляните ее-там может быть та помощь,
в которой вы нуждаетесь. Если вам необходима дополнительная помощь,
нажимайте F1.
Некоторые статьи главного меню не имеют опций, кроме отображаемой.
Например, COMPILE(компилировать) просто обеспечивает компилирование вашего
загруженного файла; у этой статьи нет ни вытягиваемого меню, ни меню,
развертываемого вверх. Сдругой стороны статья FILE имеет вытягиваемое вниз
меню с несколькими опциями.
Практически, большую часть времени вы будете заниматься выбором из
трех одних и тех же меню:
.EDIT (редактирование) для создания и изменения исходных программ
.COMPILE (компилирование) для компилирования исходных программ в
исполнительную форму
.RUN (прогон) для исполнения программ или их компилирования,
если в этом есть необходимость
Более исчерпывающие пояснения системы меню и ее вытягиваемых меню
содержится в разделе "Главное меню" ГЛАВЫ 3 .
Естественный набор редактора
Прежде чем вы преступите к написанию программ, вы предпочтете
узнать кое-что о редакторе, которам вам предстоит пользоваться. Если вы не
знакомы ни с редактором Турбо-Паскаля ни с WORDSTAR или MultiMate, вам
достаточно прочесть этот раздел. Если вы уже знакомы с редактором этого
- 17 -
типа, переходите к разделу, озаглавленного "Первая программа" (если
захотите получить более подробные сведения, обращайтесь к разделу "Турбо-
редактор" ГЛАВЫ 3. Для тех из вас, кому необходимо изучить редактор,
целесообразно потратить время и немного попрактиковаться с его базисными
возможностями. (В таблице 2-1 просуммированы базисные команды). После
этого вы будете в состоянии сконцентрировать свое внимание на написании
программы в Т.Б., а не тратить свое время на изучение редактора. Имейте
ввиду, что помощь получиться в результате единственного удара по клавише
F1, будет выдавать вам контексно необходимую помощь, где бы в Т.Б. вы ни
находились.
Базисные операции
Выбирайте EDIT из главного меню,нажимая Е из любого места полоски
главного меню, либо нажимайте Enter при позиционировании на команде
редактирования. Прежде всего взгляните на состояние строки с целью
определить нахо дитесь вы в режиме INSERT (вставка) или
OVERWRITE (переписывание). Режим означает, что все вводимые с
клавиатуры литеры вставляются на курсорной позиции; существующий текст
перемещается вправо от курсора помере вашего набора литер. Когда
используется режим переписывания, каждая набираемая литера замещает ту,
которая в этот момент находится под курсором. Вы можете тумблерно включать
и выключать эти режимы с помощью клавиши INS (вставка) или клавиш Ctrl-V
(управление -V). Выбирайте такой режим который вы находите самым удобным
для пользования.
Теперь набирайте ваше имя и адрес, как вы делали это на конверте;
например
SAN SPADE
1264 CLINTON ST.
NEW YORK NY 12345
и нажимайте ESCAPE для завершения редактирования. Затем отправте
содержимое рабочего файла на хранение, выбирая FILE (нажимайте F при
каком угодно позиционировании в главном меню или Enter когда
позиционировано на FILE), а затем SAVE (хранение). Поскольку вы файл не
именовали, файлу по умолчанию будет присвоено имя NONAME.BAS.
Теперь вы можете перенаименовать файл, сохраняя то что находится в
редакторе под именем ADDRESA (если вы не специфицируете какое-то
удлинение, Т.Б. будет давать вашему файлу удлинение BAS).
Теперь используйте опцию NEW для стирания того, что вы набрали в
редакторе. Сперва нажмите F для вызова файла, а затем N для вызова новой.
Далее набирайте список из 5 ваших любимых блюд, каждое блюдо в отдельной
строке.
CHICKEN CURRY
SUSHI
BLECKENED SISH
CHIMICHANDAS
LUMPIA
Вновь заканчивайте сеанс редактирования (нажмите ESC) и выберите
FILE из главного меню, а затем LOAD (загрузка). При запросе имени файла
набирайте ADDRESS и вслед за этим Enter. Система запросит не хотите ли
вы сохранить текст в текущем рабочем файле. Вы не хотите, поэтому нажмите
No и заметьте, что происходит в окне редактора - предпочитаемые вами блюда
заменятся файлом ADDRESS.
Блоковые операции
- 18 -
Находясь в окне редактора, вы также можете пометить блок текста,
подлежащего стиранию, перемещению или копированию. Однажды помеченный блок
вы можете копировать в другое место текста, стирать его из текущего
местоположения или перемещать в другое место текста.
Пометка блока осуществляется просто, попытайтесь выполнить
пометку, сначала вновь выбрав команду редактирования. При нахождении в окне
редактора вашего имени или адреса, воспользуйтесь клавишами стрелками для
позиционировании курсора в верхнем верхнем углу. Пометьте начало блока
нажатием Ctrl-КВ (управление КВ). Теперь переместите курсор на последнюю
литеру последней строки вашего адреса и пометьте конец блока, нажимая
Ctrl-KK (управление КК).
Далее сделайте несколько копий данного блока так, чтобы у вас
получилось больше текста для манипулирования. Чтобы это осуществить,
переместите курсор в конец вашего адреса и копируйте блок, нажимая
Ctrl-КС (управление КС).
Перемещая курсор в конец вновь создаваемого текста, делайте другую
копию блока. Повторяйте этот процесс, пока не будете иметь целых десять
копий вашего адреса в окне редактора. Для перемещения по тексту внутри
окна редактора ползуйтесь клавишами стрелками PgUp (страница вверх) и
PgDn (страница вниз).
Теперь отметим новый блок. Воспользуйтесь строкой состояния в
верхней части окна редактирования для определения номера строки
на которой вы находитесь, вставте в файл новую строку 4, состоящую
из 20 литер Х. Далее сделайте строку 11 из 20 литер У.
Ваш новый блок будет занимать строки с 5 по 10. Отметьте его, как
и ранее, с помощью Ctrl-KW и Ctrl-KK. Чтобы создать блок,нажимайте Ctrl-KY
(управление KY), и вы теперь получите строку из X, за которой следует
строка из литер Y. Далее пометьте новый блок, который состоит из этих двух
рядов X,Y. Переместите курсор в конец текста, затем переместите сюда
новый блок, нажимая Ctrl-KV (проверяйте чтобы он перемещался, а не
копировался, используя PgUp и PgDn).
Блоковае операции можно выполнать с помощью нажатия меньшего числа
клавиш, пользуясь клавишей функций. Клавиши и их использование
отображаются в нижней части экрана. Заметьте, что клавишами F7 и F8
помечаются начало и конец блока, соответственно, чтобы пометить блок
переместите курсор в начало блока и нажмите F7. Затем переместите
курсор в конец блока и нажмите F8 для пометки конца блока.
Поиск и замена
Команда поиска и замены становится удобной, если вы решаете
изменить чего в вашей программе, после того как вы ее уже написали.
Например, чтобы показать вам как использовать эту команду, сотрем все, что
в данный мемент имеется в редакторе используя DEL (стереть), опцию NEW
(новый) или помечая блок), и наберем эту хорошо известную фразу:
TO BE OR NOT TO BE
THAT IS QUESTION
Теперь заменим каждые TO BE на TB. Сначала нажмите Ctrl-Q, a, затем
набирайте TO BE, когда вам подсказывается строка поиска. Нажмите Enter, а
затем, когда появится подсказка строки замены, набирайте TB. Далее вы
можете набирать определенные опции, подлежащие вашему выполнению во
время поиска. Для гловального поиска выбирайте G, выбирая N, тогда строка
замещается всюду без обращения к вам с вопросом о подтверждении при
каждой встрече с искомым, выбирая U для игнорирования различия между
верхним и нижним регистрами. После того как вы выберете все ваши опции,
нажимайте Enter. Выполняется поиск и замена и текст преобразуется в
следующий:
TB OR NOT TB
- 19 -
THAT IS QUESTION
Если просто желает е строку в тексте, вы можете воспользоваться
командой поиска (в противоположность поиску-QF) и вы получите подсказку на
строку поиска. Воспользуйтесь функцией поиска для нахождения первого
появления TB в предыдущем тексте. Затем воспользуйтесь Ctrl-L для
нахождения последующих по явлений.
Таблица 2-1 СВОДКА КЛАВИШНЫХ НАБОРОВ РЕДАКТОРА
----------------------------------------------
клавиши функции
----------------------------------------------
ESC выход из редактора
----------------------------------------------
клавиши-стрелки
- 30 -
PgUp
PgDn перемещение курсора
HOME,END
-----------------------------------------------
DEL стирание литеры под курсором
-----------------------------------------------
INS,Ctrl-V вкл./выкл. режима
вставка/переписывание
-----------------------------------------------
Ctrl-KB пометка начала блока
-----------------------------------------------
Ctrl-KK пометка конца блока
-----------------------------------------------
Ctrl-KH непомеченный блок
-----------------------------------------------
Ctrl-KC копирывание намеченного блока в
позицию намеченную курсором
-----------------------------------------------
Ctrl-KY стирание намеченного блока
-----------------------------------------------
Ctrl-KV перемещение намеченного блока
позицию ,указываемую текущим курсором
-----------------------------------------------
F1 помощь-информация
-----------------------------------------------
F2 хранить файл
-----------------------------------------------
F3 новый файл
-----------------------------------------------
F5 фокусировка
-----------------------------------------------
F6 переключать окна
-----------------------------------------------
F7 качать блок
-----------------------------------------------
F8 закончить блок
-----------------------------------------------
Первая программа
Теперь создадим с помощью редактора короткую программу. Выйдите
в главное меню и выберете файл, затем загрузите. При подсказке имени файла
введите MYFIRST и нажмите Enter. Далее для ввода редактора наберите Е. Вы
будете знать, что окно редактора задействовалось, поскольку его окно
- 20 -
получило двойную ограничительную рамку.
Для тех из вас кто имеет опыт работы с WORDSTAR или какими-то
другими программами, в которой используется эта управляющая
последовательность, такими как SAYDKIK KUTPAD, редактирование в Т.Б.
покажется приятным и легким.
Теперь набирайте в программу MYFERST то, что приводится ниже
в этом параграфе. Набирайте как можно точнее, поскольку Т.Б. не может
делать ничего другого кроме того, что вы ему сообщаете. Некоторые из вас
могут заметить изьян в этой программе-оставте это; позднее мы поясним
почему.
WHILE -1
FOR N=1 TO 8
READ AS
PRINT AS " ";
NEXT N
RESTORE
WEND
DATA PRESENTING,TURWE BASIC--,THE,FASTEST,BASIC,ON,EARTH
То что делает эту программу выглядящей иначе, чем программа на
бейсике, которые вы видели ранее, есть отутствие номеров строк.
Номера строк - это интегральная часть и редактирующих и
исполнительных программ Интерпретаторного Бейсика. Однако, поскольку Т.Б.
имеет встроенный экранный редактор, и поскольку он является компилятором,
номера строк являются слишком громоздким багажом, Т.Б. в некотором смысле
откровеннен по отношению к субьекту. Если вам нравится вы можете нумеровать
каждую строку или каждую третью строку, в прямом или обратном порядке, либо
вы можете выбрать для нумерации только те строки, которые являются
целевыми для GOTO или GOSUB, еще лучше, если вы можете воспользоваться
именуемыми метками.
На первых порах работа без номеров строк может показаться
странной, но по прошествии нескольких дней вы будете удивляться как это
вы так долго не могли без них обходиться.
Когда у вас уже будет введена MYFERST, откинтесь на спину стула и
на минутку полюбуйтесь на нее.
Вы только что создали исходную программу - на Т.Б. В памяти
вашего компьютера в этот момент находится сотня ASCII-кодов, которые
образуют MYFERST.BAS. Далее с этим текстом работает только редактор.
Однако эта программа есть только средство достижения конеуной
цели. Прежде чем ваш микропроцессорный чип семейства 8086 сможет
исполнить MYFERST, исходный текст должен быть оттранслирован или
компилирован в понятную для него форму; а именно, на машинный язык 8086.
Редакторская часть работы теперь заканчивается ,поэтому нажмите
ESC, чтобы покинуть редактор,и возвращайтесь в главное меню. В главном
меню становится видимой полоска выбора, указувающая, что вы уже можете
выбирать другую опцию.
В то время, как редактор временно находится вне выбора, работать с
ним вы не можете; однако текст вашей программы уже в памяти, готов для
добавления или изменения в любой момент. (Это демонстрируется быстрым
нажатием Е; нажатие ESC возвращает нас в главное меню).
Опции
Вы приблизились к тому, чтобы сделать второй большой шаг в
процессе создания программы: к компилированию вашей исходной программы в
исполнительную форму. Но прежде чем вы сделаете, необходимо установить
опцию компилятора. Для выбора меню опций нажмите О.
Соответственно смыслу их имен, различные варианты выбора меню
опций обеспечивает управление определенными аспектами доведения компиляции
до за вершения. С этой точки зрения, особенно если Т.Б. является вашей
- 21 -
первой встречей с кмпилирующим языком, некоторые из этих выборов
могут показаться чем-то фантастическим (Опции компилятора подробно
обсуждаются в ГЛАВЕ 3, в разделе, озаглавленном "Команда опций").
По правде говоря, сейчас ваш интерес ограничивается тоько опцией
разрыва клавиатуры, которая в данный момент выключена. При включенном
состоянии этой опции, однако, вы можете прервать большинство
программ (остановить ввод/вывод), генерируемых компилятором. При
отключенном состоянии этой опции, вы будете не в состоянии прервать
(через Ctrl-Break ) какую-то ни было из генерируемых компилятором программ.
Таким образом,чтобы предотвратить прогон MYFERST, нажимайте К (тумблерный
переключатель) для включения опции разрыва клавиатуры, а затем ESC для
возврата в главное меню.
Компилирование
Для завершения MYFERST нажмите С ( подобно редактору, компилятор
обрабатывает текущий рабочий файл). Компилятор быстро проверяет литеры
вашей программы и строит ее эквивалент на машинном языке. Эта фаза, даже
для простой программы вроде MYFERST, может занимать некоторыми Бейсик-
компиляторами время близкое к минуте.
Если в вашей исходной программе компилятором обнаруживается что-то
такое, что неприемлемо для программы для Т.Б. ,это найдет отражение в
строке состояния редактора, а вы автоматически будете введены в редактор
в точке ошибки. Если это с вами произойдет, нажимайте ESC редактируйте
вашу программу. Затем выходите из редактора и компилируйте повторно:
нажмите ESC затем С.
После компилирования
После успешного компилирования в памяти имеется две версии
MYFERST: (1)-исходная программа, которую вы создали с помощью редакто-
ра, (2)-результирующая, исполнительная программа на машинном языке 8086,
созданная компилятором. В окне сообщений Т.Б. дает некоторую статистику по
компилированию.
Статистика указывает в 16- ричных байтах размер сегмента в кодах
компилированной программы, размер стека и размер зоны данных. Отмечаются
также число заявлений и компилированных строк плюс величина свободного
пространства, оставшегося в памяти для компилирования. (Будьте уверены,
вам нет необходимости знать о 16-ричной системе, стеках и буферах для
написания программ на Т.Б. больше, чем необходимо знать об этих вещах,
работая с Интерпретаторным Бейсиком. Здесь есть необходимая информация, но
обычно вы в ней не нуждаетесь).
Прогон программы
Теперь, поскольку вы уже оттрансировали вашу исходную программу на
машинный язык, вы можете прогнать ее, нажимая R проверяйте вывод вашей
программы в окне прогона.
MYFERST прогоняется долю секунды, а затем все прекращается.
Это происходит по той причине, что мы умышненно включили в MYFERST
ошибку, чтобы сделать остановку: анализ, выполненный компилятором, не
обнаружил ничего, что могло бы привести к чему-то плохому при прогоне
программе. Компилятором главным образом проверяются синтаксические ошибки,
такие как неправильное написание команд, ненужные или пропущенные запятые
и несоответствующие друг другу скобки. Имеется целый класс ошибок, которые
могут случитться во время прогона от сбоя диска, математические
- 22 -
неточности, такие как квадратный корень из отрицательного числа.
Имейте ввиду, что некоторые ваши ошибки будут отлавливаться во
время компилирования, а другие не всплывут на поверхность до периода
прогона программ.
Об ошибке
В дополнение к сообщению о возникновении ошибки вне данных, Т.Б.
так- же показывает, где именно это случилось, помещая вас в точку ошибки
в редакторе. Поскольку MYFERST.BAS еще находится в памяти, это происходит
быстро.
Компилятор автоматически сооющает где произошла ошыбка в соответ-
ствующем месте исходного файла.
То плохое, что есть в этой строке, состоит в том что вы
считывали только семь констант, а не восемь. Измените цикл FOR /NEXT на
останов на 7, и будете иметь рабочую программу.
Нажмите ESC затем R сначала для компилирования, а затем для
прогона исправленной версии. Т.Б. распознает, что вы изменили исходную
программу после последней компиляции и автоматически перекомпилирует
MYFERST перед ее прогоном. Когда вы свыкнитесь с клавишныим наборами, то
найдете, что для перехода от редактирования к исполнению и наоборот
достаточно каких-то секунд.
Теперь MYFERST проходит во всей ее красе. Вновь проверьте вывод в
ок не прогона и нажмите ALT-F5 (изменить F5) для фокусировки окна
в перемежающихся режимах.
Когда вы получите удовлетворение от своей программы, прервите ее
нажатием Ctrl-Break, затем ESC для возврата в главное меню.
Хранение на диске
Итак все что вы сделали находится только в памяти, если бы имел
место сбой питания, или ваша программа зависла, потерялись бы и исходная и
исполнительная программы MYFERST. Поэтому программисты отправляют свои
исходные программы для хранения на диске, используя команду SAVE. Также
поступите и вы. Можно заметить взрыв активности на дисковводе,
используемому по умолчанию в процессе перезаписи MYFERST.BAS (вы можете
также воспользоваться опцией автоматического хранения, доступной в меню
настройки,для автоматического хранения вашего файла, реализуемого перед
прогоном программы).
Для проверки того, что файл MYFERST.BAS,существует теперь в вашей
файловой системе, используйте опцию DIRECTIRY(справочник) из файлового
меню. Нажатие D вызывает ответ:
Enter mask (введите маску)
Т.Б. требует определенного сорта файловый дескриптор, который вы
должны включить в DOS-команду DIR; например *.BAS или MYFERST.BAS.
Нажатие Enter вызывает появление каждого файла, как будто вы уже набрали
*.*.
Хранение исполнительной программы
Хранение исполнительной (на машинном языке) формы MYFERST на диске
представляет собой совершенно иной предмет. Действительно, вы не увидите
ничего ни в одном меню, касающееся хранения исполнительной программы. Если
вы создаете программу для собственного пользования, то у вас может не быть
необходимости хранить ее вообще. К чему хлопоты, если ее можно создавать
заново каждый раз? Однако придет время, когда вам захочется иметь
какую-то постоянную форму компилированной программы.
Т.Б. дает вам возможность генерировать самостоятельную программу
- 23 -
(файл с удлинением .EXE), которую можно исполнять непосредственно при
DOS-подсказке. Так вы можете поступить и с MYFERST, установив
компилирование включения в меню опций. Прежде всего, для получения входа в
меню опций нажмите О, а затем С для компилирования. Выбирайте установку
исполнительного файла, нажатием Е. При этом на диске еще ничего не
изменяется - выполненное вами изменение состоит в том, что компилятор
будет делать следующиц раз при вовлечении его в работу. Режим умолчания,
который вы используете далее, состоит в компилировании в память.
Для выхода из меню опций нажмите ESC затем С для перекомпилирования
MYFERST. В это время компилирование идет медленее, поскольку Т.Б. физически
осуществляет запись на дисковводе. Чтобы посмотреть результирующий файл, уй-
дите вовсе из Т.Б., сначала перейдя к файловому меню, а затем нажав Q.
Сразу
же возвращайтесь на DOS-уровень,ввода С>DIR MYFERST
Вы увидите обе формы вашей программы, исходную и исполнительную.
Исполнение MYFERST из DOS
Вероятно вы уже знаете, что файлы с удлинением .EXE используются
операционной системой непосредственно. Если при DOS-подсказке вы вводите
имя файла
C>MYFERST
Это приводит к прогону MYFERST с выдачей той же программы, которую
вы видели раньше. Если в это время вы прервали программу с помощью
Ctrl-Break, то возвратитесь в DOS.
Трассировка вашей программы
Вернемся теперь в среду Т.Б. и вашего файла MYFERST, набирая в
подстроке DOS строку TB MYFERST. Чтобы попробовать все, что есть в
главном меню, попытаемся трассировать вашу программу.
В окне TRASE (трассировка) будут перечисляться любые номера
строк, либо имена процедур или функций, имеющихся в вашей прорамме, поэтому
добавляйте к MYFERST номера строк, чтобы иметь возможность осуществить ее
трассировку.
Чтобы трассировать или проследить в шаге вашу программу по мере
ее прогона, нажмите D для перехода в меню DEBUG(отладка). Для получения
опции TRACE (трассировка) используйте клавиши-стрелки или нажмите I, а
затем тумблерно включите ЕЕ, нажав Enter для выхода из меню отладки
нажимайте ESC, а затем R для прогона. Поскольку вы перемодифицировали
вашу программу, перед прогоном она будет автоматически перекомпилироваться.
Для контроля следите за окном трассировки.
Заметьте, что вы также можете трассировать вашу программу помещая
в нее, при ее написании, компилярную директиву TRASE.
Для среды программирования Т.Б. обеспечивает четыре окна:
.окно редактирования позволяет создавать/редактировать любые ваши
программы.
.окно трассировки (когда оно тумблерно включается) обеспечивает пе-
речисление каждого номера программной строки, метки и имени процедуры и
функции по мере прогона вашей программы.
.в окне сообщений отображаются статистики компилирования и другие
сообщения.
.в окне прогона отображается вывод вашей программы.
Эти окна можно использовать в любой конфигурации, но
фокусироваться (один из способов состоит в нажатии FS) могут только окна
редактирования и прогона.
В любое время нахождения в системе меню вы можете переключать вашу
точку обзора и реконфигурировать размер и положение окон.
Вы также можете непреравно изменять окно таким образом, что при
каждом начальном возбуждении системы будет использоваться предпочитаемая
- 24 -
вами планировка окна. (Обращайтесь к процедуре SAVE OPTIONS/WINDOW/SETUP в
разделе "Настройка меню"ГЛАВЫ 3) .
Чтобы открыть окно выбирайте из меню WINDOW OPEN, затем
осуществляйте выбор того окна, которое вы предпочитаете задействовать.
Нажимая STROLL LOCK вместе с Shift и клавишами стрелками.
Вы можете перемещать выбранное вами окно в любое положение на экра-
не. Опция TILE (израсцы) автоматически делает все открытые окна видимыми
в одинаковом размере (другими словами они занимают равные части экрана).
Опция STACK позволяет располагать все открытые окна столбиком, или слоем
при максимально возможном размере. Задействованное окно находится на
верху; видима только часть других открытых окон. Опция ZOOM (фокусировка)
дает возможность вам фокусировать окна редактирования и прогона на весь
экран. С помощью опции CLOSE, выбранное окно делается невидимым. За более
детальной информацией об изменении размеров "перемещениях" окон обращайтесь
к разделу "Команды окон" ГЛАВЫ 3".
Конец турне
Это и все ваше вводное турне по Т.Б. Кратко напомним шаги
предпринимаемые при создании и тестировании программ:
-вызывается TB.EXE и специфицируется исходная программа, с которой
вы будете работать. Если необходимо устанавливаются любые требуемые опции
компилятора. Затем редактируется рабочий файл. После подготовки к
тестированию с целью компилирования программы нажимаются R и C. Если
компилятор обнаруживает какие-то синтаксические ошибки, вы выпадаете в
редактор в точке возникновения ошибки.
-если исходный файл свободен от синтаксических ошибок (т.е. он
прокомпилирован успешно), осуществляется прогон. Если вы ожидаете
результат, сохраните исходную программу и повторяйте весь цикл. Вы также
можете выбрать компилирование рабочей программы в форму .EXE - файла.
На диске распределения вы найдете несколько простых программ.
Возможно вы найдете целесообразным изучить эти программы, т.к. они
отображают несколько демонстрационных аспектов Т.Б., отличающихся от
присущих интерпретаторному Бейсику либо в нем не представляемых.
Функция STICK
--------------
функция STICK возвращает информацию о положении ручек управления
-------
синтаксис y=STICK(опция)
---------
замечание Опция-это целое выражение в диапазоне от 0 до 3,которое
--------- оказывает следущее действие:
----------------------------------------------------------------
Опция Действие
----------------------------------------------------------------
0 возврашается X-координата для ручки управления А
1 возвращается Y-координата для ручки управления А
2 возвращается X-координата для ручки управления В
3 возвращается Y-координата для ручки управления В
-----------------------------------------------------------------
Примечание:исходя из особенностей конструкции интерфейса ручек уп-
равления,вы должны вначале исполнить STICK(0)для триггерного переключения
процесса считывания прежде чем сможете считывать один из размеров одной из
ручек.
СМ. также STRIG
Пример:'опросить ручки управления с целью определить
'их текущее положение
while not instat
locate 15,15
print stick(0),stick(1),stick(2),stick(3);
wend
end
Оператор STOP
-------------
функция STOP останавливает программу
-------
синтаксис STOP
----------
замечания STOP прекращает работу программы и возвращает управление к
---------- операционной системе (или Т.Б.,в зависимости от того,откуда
она запускалась).То же самое делается с помощью оператора END и оно пред-
почтительнее.
различия В отличие от И.Б. ,однажды остановленные программы Т.Б.
-------- продолжены быть не могут
См. также END
Пример :
'настроить бесконечный цикл
DO
'ОСТАНОВИТЬ если нажимается клавиша
IF INSTAT THEN STOP
LOOP
END
Функция STR$
-------------
функция STR$ возвращает строчный эквивалент числа.
-------
синтаксис s$=STR$(числовое выражение)
-186 -
----------
замечания STR$ возвращает строчную форму числовой переменной или
выражения;т.е.,возвращает тот,что вы могли бы видеть на экране при обра-
ботке оператором PRINT.Если числовое выражение больше нуля ,STR$ добавляет
передний пробел ;например STR$(14) возвращает трехмерную строку,в которой
первая литера есть пробел.Дополнительной функцией является VAL,которая
принимает строчный аргумент и возвращает число.
См.также VAL
Пример :'установить а% для числа
a%=56.789
' использовать STR$ для возврата числового значения a$
a$=str$(a%)
print a%,a$
'тестировать,с целью увидеть ,что а% имеет то же значение,что и а$
if a%=val(a$) then
print "str$ и val работают"
end if
end
Функция STRIG
----------------
функция STRIG возвращает состояние кнопок ручек управления.
-------
синтаксис y=STRIG(опция)
---------
замечания Функция STRIG возвращает информацию триггера ручек управ-
--------- ления в соответствии со значением опции.Опция-это целое
выражение,которое управляет действием,выполняемым функцией STRIG согласно
следущей таблице:
------------------------------------------------------------------
Опция Действие
------------------------------------------------------------------
0 если кнопка 1 ручки управления А была нажата с момента пос
ледного вызова STRIG(1),то STRIG возвращает -1;иначе возвращается 0.
1 STRIG возвращает -1 ,еслив данный момент кнопка 1 ручки управле-
ния А находиться в нижнем положении;если нет,возвращается 0.
2 Если кнопка 1 ручки управления В нажималась с момента последнего
вызова STRIG(2) ,STRIG возвращает -1;иначе 0.
3 STRIG возвр.-1,если кнопка 1 ручки управления В находиться в ниж-
нем положении ;иначе возвращается 0.
4 Если кнопка 2 ручки упр.А нажималась с момента последнего вызова
STRIG(4),STRIG возвращает -1;иначе 0.
5 STRIG возвращает -1,если в данный момент кнопка 2 ручки управл.А
находиться в нижнем положении;иначе возвращается 0.
6 Если кнопка 2 руч.упр. В нажималась с момента последнего вызова
STRIG(6),то STRIG возвращает -1,иначе 0.
7 STRIG возвращает -1,если в данный момент нажата кнопка 2 ручки
управления В;иначе возвращается 0
-------------------------------------------------------------------
Перед осуществлением любого вызова функции STRIG ,вы должны обеспечить
доступ для проверки ручек управления с помощью оператора STRIG ON.
Для считывания положения самой ручки управления используйте функцию
STICK.
См.также STICK
Оператор STRIG
----------------
функция STRIG управляет проверкой событий на кнопка ручек управления.
-------
-187 -
синтаксис
STRIG {ON!OF!STOP}
----------
замечания STRIG включает проверку событий на триггере таким обра-
----------- зом,что могут осуществляться запросы по функцииSTRIG и
отслеживание ,выполняемое подпрограммой,которая специфицируется в опе-
раторе ON STRING.
STRIG OFF выключает проверку событий на триггере.STRIG STOP удержи-
вает программу от ответов на событие на триггере,но обеспечивает сохране-
ние памяти о таком событии,так что если позднее используется STRIG ON
,захват этого события осуществляется немедленно.
См.также ON STRIG
Пример:
'включить проверку событий
STRIG (0) ON
STRIG (2) ON
STRIG (4) ON
STRIG (6) ON
WHILE NOT INSTAT
LOCATE 1,1
PRINT STRIG (0),STRIG (1),STRIG (2),STRIG (3)
PRINT STRIG (4),STRIG (5),STRIG (6),STRIG (7)
WEND
END
Функция STRING$
-------------------
функция STRING$ возвращает строку ,состоящую из множества копий
------- указанной литеры.
синтаксис s$=STRING$(счетчик,{значение!строчное выражение})
----------
замечания Счетчик и значения -это целые выражения.Счетчик может
--------- быть в диапазоне от 1 до 32767;значение-от 0 до
255.STRING$ с числовым аргументом возвращает строку литеры с кодом по
ASCII,количество копий которой равно счетчику.
STRING$(n,32),STRING$(n," ") и SPACE$(n) делают одну и ту же
вещь-выдают строку,состоящую из n пробелов.
Пример 'рамка строится с помощью STRING$ и TAB
верх$=string$(40,61)
print верх$
delay 1
for i=1 to 5
print tab(1) "=" tab(40) "="
delay 1
next i
delay 1
print верх $
delay 1
locate 4,15
print "середина"
delay 1
locate 20,1
end
Операторы SUB/END SUB,SUB INLINE
----------------------------------
функция SUB/END SUB и SUB LINE определяют процедуру
--------
синтаксис SUB идентификатор [(список параметров)]
--------- [locate список переменных]
[static список переменных]
-188 -
[shared список переменных]
.
. операторы
.
[exit sub]
end sub
Для оператора SUB INLINE:
SUB процимя INLINE
замечания Идентификатор -это уникальное имя,подлежащее ассоциирован
--------- ию с процедурой,которое должно соответствовать соглашени-
ям об именовании меток и переменных.Список параметров-это опциональ-
ная,разделяемая запятыми последовательность формальных параметров.Парамет-
ры,используемые в списке аргументов,служат только для опоеделения процеду-
ры; они не имеют никакой взаимосвязи с другими переменными программы,имею-
щими то же имя.
SUB и END SUB ограничивают и именуют похожую на подпрограмму группу
операторов,называемую процедурой (или подпрограммой),которая возбуждается
оператором CALL и опционально обеспечивается подачей в нее параметров по
значению или посредством ссылки.
При внутристрочном программировании с использованием языка ассемб-
лера применяется та же последовательность вызова,что и применяемая для
обычных процедур.Например:
CALL процимя [(список параметров)]
SUB процимя INLINE
$INLINE список_байтов
$INLINE "ком-файла_имя"
END SUB
Можно специфицировать любое число операторов $INLINE в любом поряд-
ке.Единственным ограничением является максимум в 16 Ком-файлов в любой од-
ной процедуре.
Заметьте 6что вы не специфицируете список параметров в SUB-опреде-
лении.
Список байтов образуется из констант и выражений,равных целому в
диапазоне от 0 до 255,которые разделяются запятыми.(Обычно для байтов вы
будете пользоваться шестнадцатиричными константами).
Нет необходимости в возврате ни в ваш код на языке ассемблера,ни в
конец SUB.За этим следит компилятор.(За более подробной информацией обра-
щайтесь к приложению С "Интерфейс языка ассемблера".
Определения процедур и программный поток
----------------------------------------
Местоположение определения процедур несущественно.Процедура может
определяться в строке 1 или строке 1000 программы вне зависимости от то-
го,где она используется.И вам нет необходимости направлять программный по-
ток через процедуру в качестве какого-то шага возбуждения-компилятор разг-
лядит ваши определения,где бы они ни были.
Также ,в отличие от подпрограмм,исполнение не может случайно по-
пасть в процедуру.Для всего,что касается исполнительного прохода програм-
мы,определения функций и процедур являются невидимыми.Например:
CALL вывод материалов
SUB вывод материалов
PRINT "выведено"
END SUB
Когда исполниться эта программа 6сообщение появляется только однаж-
ды,поскольку Вывод_материала вызывается в первой строке.
Определения процедур должны трактоваться как изолированные островки
кода в которые не осуществляется переход и из которых нет перехода,реали-
зуемого с помощью операторов GOTO,GOSUB или RETURN.Однако внутри определе-
ний такие операторы законны.Следует отметить ,Что определения функций и
процедур нельзя гнездовать;т.е. вы не можете определить процедуру или фун-
кцию внутри другой процедуры или функции (хотя определение процедуры и
функции может содержать вызовы других процедур и функций).
Параметры массивов
------------------
Параметры массивов заявляются заключением в скобки числа размернос-
-189 -
ти параметра массива.Например,SUB расчмассив (а(2),размер1,размер2)- заяв-
ляет ,что расчмассив ожидает три аргумента:двумерный массив единичной точ-
ности и две скалярные переменные единичной точности.Обычно эти скалярные
аргументы используются для подачи размера по двум измерениям массива а.
Заявление локальных переменных
------------------------------
Чтобы заявить локальные переменные в пределах процедуры,использует-
ся оператор LOCAL ,который должен находиться впереди исполнительных заяв-
лений определения.Например:
LOCAL a%,b#,БОЛЬШОЙМАССИВ%()
создает три локальные переменные:скалярные переменные a% и a#,а
также целый массив большоймассив%.Далее массив должен быть надлежащим об-
разом образмерен:
DIM DYNAMIC большоймассив% (1000)
Локальные массивные переменные должны быть динамическими.Они авто-
матически снимаются с размещения когда процедура завершается.
Статические и разделяемые переменные
------------------------------------
По умолчанию,переменные ,которые появляются в определениях проце-
дур,имеют атрибут локальности.Однако ,поскольку это умолчание является из-
меняемым обьектом,вы должны предпринимать усилия для заявления каждой пе-
ременной,используемой в процедуре.
Для заявления переменных ,которые являются глобальными для осталь-
ной программы,используется оператор SHARED.
Если важно,чтобы переменная не теряла своего значения при каждом
возбуждении ,она заявляется с использованием оператора STATIC.
Лпределение процедуры должно завершаться END SUB,которое возвращает
управление оператору ,стоящему после возбуждающего оператора CALL.Для воз-
врата из определения процедуры в каком-либо ином месте,чем ее конец,ис-
пользуется оператор EXIT SUB.
см.также $INLINE
CALL
EXIT SUB
LOCAL
SHARED
STATIC
Пример
DIM массив(1)
SUB тестпроцедура(I%,L&,S!,D#,E,A(1))
PRINT I%,L&,S!,D#,E,A(0)
END SUB
целое%=1
длинноецелое&=2
единичнойточности!=3
двойнойточности #=4
массив(0)=5
CALL тестпроцедура (целое%,длинноецелое&,единичнойточности!,двой-
нойточности#,целое%,массив())
END
Оператор SWAP
-------------
функция SWAP обменивает значения двух переменных
-------
синтаксис SWAP пер1,пер2
-----------
замечания пер1 и пер2 -это две переменные одного и того же типа.Если вы по-
пытаетесь обменять переменные разных типов(например,строчную и целую или
единичной точности и двойной точности),то возникает ошибка 475,"Несовпаде-
ние типов".
SWAP удобно роскольку простой обмен переменных в двух последова-
-190 -
тельных операторах назначения не обеспечивает выполнения этой работы:
а=в:в=а
В то время,когда вы делаете второй оператор,переменная а не содер-
жит значения,для которого она используется.Чтобы выполнить эту работу без
SWAP,требуется временная переменная и третий оператор:
врем=а:а=в:в=врем
Пример:
а%=15:b%=17
print tab(6) "значение 'а%' есть :";a%_
tab(42) "значение 'b%' есть :"b%
swap a%,b%
print "значение а% теперь :";a%_
tab(38) "значение b% теперь:";b%
end
Оператор SYSTEM
---------------
функция SYSTEN завершает работу программы
-------
синтаксис SYSTEM
---------
замечания SYSTEM прекращает работу программы и возвращает управле-
ние операционной системе(или Т.Б.,в зависимости от того,откуда она возвра-
щается).Оператором END достигается то же самое и оно предпочтительнее.
См.также END
STOP
Пример
FOR I=1 TO 10
INPUT "Пожалуйста введите число между 1-10";X%
IF X%=отв% THEN GOTO награда
INPUT "Не желаете ли попробовать другое число Д/Н)";X$
IF UCASE$(X$)<>CHR$(89) THEN SYSTEM
NEXT I
награда:
PRINT "Вы добились этого !"
END
Функция TAB
------------
функция TAB табулирует до специфицированной позиции вывода n (ТОЛЬ-
------- КО В ОПЕРАТОРЕ print).
синтаксис PRINT TAB(n)
---------
замечания n-это целое выражение в диапазоне от 1 до 80.
Подобно SPC,функция TAB может использоваться только в списке выра-
жений операторов PRINT,LPRINT или PRINT#.Используйте TAB для выстраивания
в линию колонок информации.TAB вызывает подпрограммы выдачи на экран Т.Б.
с целью вывода n-ой позиции текущей строки.Если текущая позиция курсора
уже находиться за n-ой колонкой(например,PRINT TAB(20)при курсоре в колон-
ке 30),то Т.Б. обеспечивает переход вниз к n-й позиции следующей строки.
Если TAB паявляется в конце списка выражений оператора PRINT с пос-
ледующей точкой с запятой или без нее,Т.Б. не выводит возврат каретки;т.е.
после TAB подразумевается точка с запятой.
См.также LPRINT
PRINT#
SPC
пример:
-------
-191 -
DIM друг$(1),телефон$(1)
PRINT TAB(5) "имя" TAB(40) "телефон"
FOR I=1 TO 5
READ друг$
READ телефон$
PRINT TAB(5) друг$ TAB(40) телефон$
NEXT I
END
DATA "Джон","423-45698"
DATA "Энн","333-55566"
DATA "Марк","222-33355"
DATA "Ник","111-57575"
DATA "дфк","555-77777"
Функция TAN
-----------
функция TAN возвращает тригонометрический тангенс
--------
синтаксис Y=TAN(числовое выражение)
---------
замечания Числовое выражение -это угол ,специфицируемый в радиа-
--------- нах.TAN возвращает значение двойной точности .
См.также ATN
COS
SIN
пример
------
DEFDBL а-z
nи=atn(1)*4
PRINT nи
PRINT TAN(nи/4)
END
Cистемная переменная TIME$
--------------------------
функция TIME$ считывает и устанавливает системное время
--------
синтаксис Для считывания времени:
--------- S$=TIME$
для установки времени :
TIME$=строчное выражение
замечания Системная переменная TIME$ содержит восьмилитерную строку
,которая представляет время по системным часам в форме ЧЧММСС,где ЧЧ-часы
ММ-минуты и СС-секунды.TIME$ не может быть точным,если во время последнего
первичного возбуждения компьютера не были правильно установлены DOS-часы.
Системные часы устанавливаются назначением TIME$.Вводится строчное
выражение содержащее информацию о времени в военном формате (24 часа) ,ко-
торое затем назначается в TIME$.Информацию о минутах может опускаться.Нап-
ример:
TIME$="12" 'установка часов на 12 дня"
TIME$="13:01" 'устан-ка часов на 1:01 пополудни"
TIME$="13:01:30" 'установка часов на 30 сек позднее 1:01
TIME$="0:01 'установка часов на одну минуту после полуночи
Если размер часа 6минут или секунд находиться вне диапазона(напри-
мер,значение минут равно 61),возникает ошибка периода прогона,Вызов неза-
конной функции.
-192 -
Используйте функцию TIMER$для возврата числа секунд,истекших с мо-
мента первичного возбуждения системы.
Пример:
-------
TIMER ON
PRINT "Сейчас время ";TIME$
INPUT "Пожалуйста ,установите новое время(от 0 до 23)";ANS$
TIME$=ANS$
PRINT "Новое время ";TIME$
END
Функция TIMER
-------------
функция TIMER возвращает число секунд от полуночи
--------
синтаксис y=TIMER
---------
замечания TIMER не имеет аргументов и возвращает количествосе-
кунд,истекших от полуночи как значение единичной точности с плавающей точ-
кой,разрешающая способность которого дает примерно одну десятую секун-
ды.Если системное время после последнего первичного возбуждения не уста-
навливалось(с помощью DOS-команды TIME или системной переменной Т.Б.
TIME$),TIMER возвращает число секунд с того момента,когда система получила
первичное возбуждение.
См.также MTIMER
Пример TIME$="12"
PRINT USING "Сейчас ##### секунд после полуночи";TIMER
END
Оператор TIMER
--------------
функция TIMER управляет проверкой таймерных событий.
-------
синтаксис
TIMER {ON!OFF!STOP}
---------
замечания TIMER управляет проверкой таймерных событий;т.е. обеспе-
чивает принятие решений о том,будет ли передаваться управление подпрограм-
ме,определенной в операторе ON TIMER ,по истечении назначенного числа се-
кунд.
TIMER ON включает проверку таймерных событий,но обеспечевает запо-
минание событий на таймере таким образом,что если позднее выдается TIMER
ON ,захват в ловушку происходит немедленно .
См.также ON TIMER
Пример
-------
ON TIMER (2) GOSUB обновитьчасы
TIMER ON
WHILE NOT INSTAT:WEND
END
обновитьчасы:
хранитьХ%=CSRLIN 'хранить положение курсора
хранитьY%=POS(0)
LOCATE 24,36
PRINT TIME$
LOCATE хранитьХ%,хранитьY% 'восстановить курсор
RETURN
Команды TRON и TROFF
-193 -
--------------------
функция TRON и TROFF включают и выключают трассировку исполнения
------- программы .
синтаксис TRON (трассировку включить)
--------- TROFF (трассировку выключить)
замечания TRON помещает вашу программу в режим отладки,в котором
номера строк,метки операторов,имена процедур и функций в исходной програм-
ме посылаются в окно трассировки по мере исполнения каждого операто-
ра;TROFF выключает отладочный режим.
При прогоне в Т.Б. в текстовом режиме трассируемые номера строк
,метки имена процедур ит.д.
посылаются в окно трассировки.
Для изменения между трассированием и исполнением во время трасси-
ровки нажимайте ALT-F10.
Различия В отличии от И.Б. ,в Т.Б. физическое положение TRON и
TROFF в вашей исходной программе управляет их действием,а не их положением
в исполнительном проходе периода прогона.Рассмотрим,например,эту программу:
10 GOTO 30
20 TRON
30 X=Y+X
40 TROFF
50 END
При исполнении этой программы И.Б. никогда не включает трассиров-
ку,поскольку для него все,что касается оператора TRONв строке 20 6не су-
ществует.С другой стороны,Т.Б. принимает решения о включении/невключении
трассировки во время компилирования и рассматривает все операторы,идущие
после подавления TRON,как подлежащие включению на трассировку.Поэтому
программа,созданная на Т.Б.,будет выводить:
[30] [40]
при прогоне представленной выше программы.
Пример
------
10 X=0:Y=1:Z=2
20 GOTO 40
30 TRON
40 X=Y+Z
50 PRINT
60 TROFF
70 END
Функция UBOUND
--------------
функция UBOUND возвращает наивысшую границу ,возможную для специфи-
------- цированного размера массива(наибольший подстрочный индекс)
синтаксис UBOUND(массив[,размер])
----------
замечания массив-это массив,который образмеривается;размер-это
--------- целое от 1 до числа размерностей в массиве.
Чтобы найти нижнюю границу массива,используйте функцию LBOUND.
См.также LBOUND
OPTION BASE
пример
------
DIM массив%(1900:2000)
FOR индекс%=LBOUND(массив%) TO
UBOUND(массив%)
PRINT "массива элемент (":индекс%;")есть";
массив%(индекс%)
NEXT индекс%
-194 -
END
Функция UCASE$
--------------
функция UCASE$ возвращает всю строку в верхнем регистре.
--------
синтаксис S$=UCASE$(строчное выражение)
---------
замечания UCASE$ возвращает строку равную строчному выражению за
исключением того,что все алфавитные литеры нижнего регистра строчного вы-
ражения преобразуются в верхний регистр.
См.также LCASE$
Пример PRINT UCASE$ ("Быть или не быть...")
Функция VAL
-----------
функция VAL возвращает числовой эквивалент строки.
-------
синтаксис Y=VAL(строчное выражение)
----------
замечания Функция VAL обращает ее строчный аргумент в число.Если
строчное выражение начинается с числовых литер (0-9,+,-,.,E,D)6но содержит
также нечисловые литеры,VAL возвращает число вплодь до нечисловой лите-
ры.Если строчное выражение не начинается с числовой литеры,VAL возвращает
0.(Пробел и табуляция игнорируются).
VAL часто является частью подпрограмм ввода,поскольку она позволяет
программе осуществлять подсказку пользователю на строчные данные.Затем она
обращает данные в числовую информацию по мере необходимости без риска вво-
да вами нечисловых данных в числовые переменные и появления беспорядочных
ошибок ?REDO FROM START(переделать с начала)
См.также STR$
пример
------
A$="34 N главная улица"
B$="правильно,тридцать четыре"
C$="+3.4e1
D$=" 123 до"
PRINT VAL(A$),VAL(B$),VAL(C$),VAL(D$)
END
Функция VARPRT
--------------
функция VARPRT возврашает адрес переменной.
-------
синтаксис Y=VARPRT(переменная)
---------
замечания Переменная- это любая числовая или строчная переменная,ли-
--------- бо элемент массива.
Такая адресная информация иногда называется "указателем";напри-
мер,VARPRT(X) означает,что требуется возвратить "указатель x".
Поскольку программами Т.Б. используется модель расширенной памя-
ти,для полного определения адреса переменной требуется еще и
VARSEG.(VARSEG возвращает сегментную часть адреса).
VARPRT большей частью используется для обеспечения подпрограммы на
языке ассемблера информацией о положении переменной в памяти.
-195 -
См.также VARSEG
Пример
B%=55
DEF SEG =VARSEG(B%)
адрес%=VARPRT(B%)
PRINT PEEK(адрес%)
END
Функция VARPRT$
---------------
функция VARPRT$ возвращает указатель переменной в строчной форме.
---------
синтаксис s$=VARPRT$(переменная)
---------
замечания Переменная-это любая числовая или строчная переменная,ли-
--------- бо элемент массива.VARPRT$ возвращает указатель
переменной в строчной форме и используется в операторах PLAY и DRAW для
указания имен переменных в командных строках.
См.также DRAW
PLAY
VARSEG
Пример
'включить графический режим средней разрешающей способности
SCREEN 1
домик$="U20 G5 E20 F20 H5 D20 L30"
DRAW домик$
DRAW "BE3"
DRAW P1,3"
FOR I%=1 TO 280 STEP 40
DRAW "M="+VARPRT$(I%)+".40"
DRAW домик$
NEXT I%
END
Функция
VARSEG
--------------
функция VARSEG DJPDHFOFTN CTUVTYNYSQ FLHTC GTHTVTYYJQ
--------
синтаксис
Y=VARSEG(переменная)
---------
замечания Переменная- это любая числовая или строчная переменная,ли-
бо элемент массива.В силу расширенной модели памяти Т.Б.,для полного опре-
деления адреса переменной VARSEG требуется вместе с VARPRT.
VARSEG возвращает числовое значение в диапазоне от 0 до 65535.Для
получения адреса переменной таким образом,чтобы с помощью CALL подпрограм-
ме на языке ассемблера можно было сообщить где подлежащий его обработке
аргумент располагается в памяти,используйте VARSEG в сочетании с VARPRT.
Программы Т.Б. помещают все немассивные переменные в единственный
сегмент,который может иметь длинну до 64К.Следовательно,посредством приме-
нения VARSEG на всех немассивных переменных данной программы всегда дает в
ответ одно и то же значение.Фактически это сегментное значение является
умолчанием для операторов,которые доверены DEF SEG (например, PEEK,POKE).
См.также VARPRT
Пример
B%=55
DEF SEG=VARSEG(B%)
адрес%=VARPRT(B%)
PRINT PEEK(адрес%)
END
-196 -
Оператор VIEW
-------------
функция VIEW определяет активную зону(обзорные границы) графическо-
------- го экрана.
синтаксис VIEW [[SCREEN][(X1,Y1)-(X2-Y2)[,[цвет[граница]]]]]
---------
замечания (X1,Y1)и (X2,Y2) -это верхний левый и нижний правый уг-
лы,соответственно,определяемого обзорного выхода.Цвет-опциональный число-
вой аргумент;если он включается,новый обзорный выход заполняется данным
цветом.Граница-опциональный числовой аргумент ,который ,когда он включает-
ся,вызывает вычерчивание Т.Б. бордюра вокруг нового обзорного входа в спе-
цифицируемом цвете.Если опускается,бордюр не вычерчивается.
VIEW определяет зону графического экрана, в которую можно осуществ-
лять запись,либо наоборот,зону в которую записывать нельзя.Попытки устано-
вить пикселы вне обзорного выхода заканчиваются неудачей;это называется
отсечением.
Опция SCREEN
------------
Если ключевое слово SCREEN опускается,дальнейшие ссылки на точки
беруться относительно верхнего левого угла обзорного выхода,а не от левого
угла экрана.Например,после
VIEW (100,50)-(300,180)
и затем PSET (0,0)
включается пиксел с координатами (100,50).
Если SCREEN включается ,то точки специфицируются обычным обра-
зом;т.е. относительно верхнего левого угла дисплея.Например,PSET (0,0) от-
носиться к пикселу в крайнем левом углу дисплея.Однако видимыми являются
только точки,попадающие в специфицированный обзорный выход(вне обзорного
выхода точки отскаются).
VIEW без аргументов определяет весь экран,как обзорный выход.При
использовании оператора SCREEN для изменения экранного режима (напри-
мер,чтобы перейти от средней к высокой разрешающей способности) ликвидиру-
ется любая установка,которая могла до этого момента существовать.
Когда обзорный выход уже определен,CLS очищает только обзорный выход.
пример
-------
SCREEN 1
FOR I=0 TO 6
VIEW (10*(I+1),10*(I+1))-_
(25*(I+1),25*(I+1)),I,3-I
CIRCLE (10,10),I+1,3-I
NEXT I
END
Оператор WAIT
-------------
функция WAIT обеспечивает ожидание указанного условия состояния ап-
------- паратуры .
синтаксис WAIT внешнее устройство,n[,m]
---------
замечания Внешнее устройство-это целое выражение (в диапазоне от 0
--------- до 65535),определяющее внешнее аппаратное устройтво вво-
да.n и m -целые выражения в диапазоне от 0 до 255.
WAIT останавливает исполнение программы до тех пор,пока специфици-
рованное внешнее устройство не представляет определенный битовый образ-
чик.Байт,считываемый с внешнего устройства,обрабатывается логическим ИСК-
ЛЮЧИТЕЛЬНЫМ ИЛИ с m и ЛОГИЧЕСКИМ И с n.Если результирующее значение есть
ноль,обработка повторяется.Если не ноль,Т.Б. продолжает исполнение прог-
раммы со следущего оператора.
Если m опускается , в операторе WAIT вместо него используется 0.
Пример
-197 -
-------
WAIT &H60,1
PRINT "BBB"
END
Операторы WHILE/WEND
--------------------
функция WHILE и WEND выстраивают цикл с тестированием его верхней
------- части .
синтаксис WHILE целое выражение
--------- .
. операторы
.
WEND
замечания Если целое выражение истинно (оценивается как ненулевое
--------- значение) ,все операторы между WHILE о WEND исполняются
Затем Т.Б. осуществляет переход к оператору WHILE и повторяет
текст,причем если все еще не ноль,заключенные в цикле операторы исполняют-
ся вновь.Этот процесс повторяется до тех пор пока,наконец,тестовое выраже-
ние не оценивается как нулевое,при котором исполнение переходит к операто-
ру6следующему после WEND.
Если целое выражение оценивается как ЛОЖНОЕ (нулевое) при первом
проходе,то не исполняется ни один оператор цикла.
Циклы,выстраиваемые с помощью WHILE /WEND могут гнездоваться .Каж-
дому WEND соответствует ближайшее WHILE .Если Т.Б. обнаруживает оператор
WEND без решения WHILE ,возникает ошибка 30 периода прогона,WEND без
WHILE.При наличии WHILE без соответствующего ему WEND генерируется ошибка
29 периода прогона,WHILE без WEND.
Хотя компилятор это мало заботит,для достижения четкости конструи-
руемого вами цикла делайте отступ операторов,располагаемых между WHILE и
WEND,с помощью пары пробелов.
Примечание:WHILE -1_WEND обеспечивает создание бесконечного цикла.
Чтобы преждевременно выйти из цикла WHILE/WEND,используйте оператор
EXIT WHILE.
См.также
DO/LOOP
EXIT
пример
-------
I=0
X=10
WHILE I<X
I=I+1
PRINT "I=";I
DELAY 1
WEND
PRINT "оба значения I и X равны 10"
PRINT I
PRINT X
END
Оператор WIDTH
--------------
функция WIDTH устанавливает логический размер строки
-------
синтаксис WIDTH [{имя устройства!файлнам},]размер
---------
замечания размер-это целое выражение от 0 до 255,которым специфици-
--------- руется новый логический размер строки.
Имя устройства-это строчное выражение,опционально описывающее уст-
ройство,ШИРИНА которого подлежит установке.Опциями устройства являются
SCRN:(экран),LPT1:(устройство строчной печати 1),LPT2:(устройство строчной
-198 -
печати 2),LPT3:(устройство строчной печати 3),COM1:(коммуникационное уст-
ройство 1) и COM2:(коммуникационное устройство 2).Если этот аргумент опус-
кается,WIDTH относиться к дисплею (SCRN:).Файлнам-это целое выраже-
ние,представляющее файл,открытый для вывода.В общем случае WIDTH определя-
ет сколько литер может "выдаваться на печать" на данное устройство до того
,как выводиться возврат каретки,хотя точное определение действия зтого
оператора изменяется соответственно тому устройству,к которому применяется.
В случае WIDTH размер или WIDTH "SCRN:",размер устанавливается ши-
рина экрана.Законными значениями размера являются 40 и 80,причем 40 неза-
конно для монохромного дисплея.
Если экран находиться в графическом режиме,изменение ширины воздей-
ствует на изменение режима графики.Например,если текущим режимом является
высокая разрешающая способность, то WIDTH 40 включает графику средней раз-
решающей способности.
WIDTH устройство ,размер определяет размер логической строки опре-
деленного устройства,когда оно открывается в следующий раз.Если устройство
уже открыто,установка его ширины не изменяется.
Примечание:
LPRINT явно открывает печатающее устройство;следовательно,действие
WIDTH "LPT1:",размер сказывается немедленно.
WIDTH #файлном,размер изменяет ширину устройства,представляемого
файлнам,немедленно.Устройствами,для которых этот оператор что-то означает
,являются LPT1:,LPT2:,LPT3:,COM1:,COM2:.
WIDTH каждого печатающего устройства по умолчанию определяется как
80.Спецификацией WIDTH размером 255 эффективно запрещается логическая ши-
рина строки,отсчитывающаяся таким образом,что не вставляется ни одного
возврата каретки.
Пример
------
SCREEN 1,0
PRINT "Это образец графического режима среднего разрешения"
DELAY 3
WIDTH 80
PRINT "Это образец графического режима высокого разрешения"
DELAY 3
WIDTH 40
PRINT "Заметьте ,что буквы в графическом режиме среднего разрешения
большие"
DELAY 3
SCREEN 0,1
WIDTH 80
PRINT "Это 80-литерный текстовый режим
DELAY 3
WIDTH 40
PRINT "Это 40-литерный текстовый режим
WIDTH 80
INPUT "Поддерживаются ли коды EPSON-печатающего устройст-
ва?(Y/N)";отв$
IF UCASE$(отв$)<>CHR$(80) THEN END
LPRINT CHR$(15)
WIDTH "LPT1:",130
LPRINT "Тестирование в сжатом режиме установить на 130 колонок";
LPRINT "Та же строка продолженная до конца страницы"
LPRINT CHR$(18)
WIDTH "LPT1:",80
END
Оператор WINDOW
---------------
функция WINDOW определяет систему графических координат.
-------
синтаксис WINDOW [[SCREEN](X1,Y1)-(X2,Y2)]
----------
замечания (X1,Y1) и (X2,Y2)-это две координатные пары единичной
-199 -
--------- точности.(X1,Y1) представляет нижнюю левую часть зкрана,а
(X2,Y2)-верхнюю правую.
Если вам не нравиться стандарт Т.Б. от 0 до 319 (или от 0 до
639),от 0 до 199 с начала координат в верхнем левом углу,оператор WINDOW
позволяет осуществлять адресацию вашим методом.Оператор WINDOW транслирует
произвольные "мировые" координаты в "физические" координаты (адреса дисп-
лейных пиксел).
Одной из областей применения WINDOW является перестроение карты
отображения в соответствии с экранными координатами,используемыми другой
компьютерной системой.Например,графическое отображение APPLE II состоит из
280 пиксел по горизонтали и 192 по вертикали.Этот оператор WINDOW вызывает
использование РС-дисплеем той же адресной схемы:
WINDOW SCREEN (0,0)-(279,191)
После использования этого оператора программа,переносимая с экрана
APPLE II,осуществляет попытку графически изобразить нижний самый правый
пиксел на экране APPLE II,для которого она была написана.Например,PSET
(279,191) превращается в физический пиксел 319,199 (нижний правый угол РС).
В качестве другого примера,предположите,что,вы работаете с областью
применения ,в которой принято описывать линии и другие обьекты в координа-
тах много более крупных,чем от 0 до 199 и от 0 до 639,разрешаемых стандар-
тной экранной адресацией.В такой области применения возможно также полезно
иметь начало координат в центре дисплея,а увеличение положительных значе-
ний Y вверх от начала координат ,как это делается в аналитической геометрии.
Оператор WINDOW позволяет вам трактовать графический экран средней
или высокой разрешающей способности как если бы он действительно был орга-
низован именно таким образом. WINDOW дает вам возможность маппировать вам
на дисплее полный диапазон чисел единичной точности;например:
WINDOW (-1E6,1E6)-(1E6,-1E6)
создает координатную систему с 4 трилионами точек (2х2 миллио-
на).(-10000000,1000000)маппируется на верхнем левом пикселе,(0,0)- в цент-
ре экрана и (1000000,-1000000)- на нижнем правом пикселе.в результате апп-
роксимируется стандартная декартова плоскость эвклидовой геометрии.Начало
координат находиться в середине,положительные значения X-вправо от нача-
ла,положительные значения Y-вверх от начала.
После испольнения этого оператора в любой операции записи на экран
(CIRCLE,LINE ...)будет использоваться эта новая координатная система.
PSET (0,0)
включает пиксел в центре экрана.
PSET (2500,2500)
вкл. пиксел ,находящийся немного выше и правее центра экрана.Аргу-
менты оператора WINDOW являются числами с плавающей точкой единичной точ-
ности,позволяющими на экранной карте создавать огромную площадь(миллионы
пиксел в обоих размерах),либо крошечную площадь дробных чисел с координа-
тами между 0 и 1.
Если включается опциональное ключевое слово SCREEN,это будет приво-
дить к тому,что новая координатная система остается качественной на уровне
умолчания,т.е. координаты Y увеличиваются по мере движения вниз.Например:
WINDOW SCREEN (1,-1)-(-1,1)
создает координатную систему ,в которой верх экрана представляется
координатой Y=-1,а низ экрана -координатой y=1.
Любое задействованное маппирование WINDOW выключается исполнением
RUN,SCREEN или WINDOW без аргументов.Функция PMAP выполняет масштабирова-
ние в соответствии с текущей установкой WINDOW,но без выдачи чего бы то ни
было на экран.
См.также COS
PMAP
Пример
------
SCREEN 1
nи=ATN(1)*4
знач1=5:знач2=6:шаг=400
WINDOW (-1,1)-(1,-1)
FOR T=0 TO 2*nи STEP 2*nи/шаг
радиус=COS(2*T)
X=радиус*SIN(знач1*T)
-200 -
Y=радиус*SIN(знач2*T)
PSET (X,Y)
NEXT T
WHILE NOT INSTAT:WEND
END
Оператор WRITE
--------------
функция WRITE посылает на экран разделяемые запятыми данные.
-------
синтаксис WRITE [список выражений]
---------
замечания список выражений -это последовательность числовых и/или
--------- строчных выражений , разделяемых запятыми или точкой с
запятой.Если список выражений опускается,выводиться пустая строка.WRITE
подобно PRINT,за исключением того,что WRITE вставляет между элементами
списка выражений запятые,заключает строчные данные в двойные кавычки и не
выводит пробел перед положительными числами.
См.также PRINT
Пример FOR I=1 TO 3
READ слова$,число%
PRINT слова$
PRINT число%
WRITE слова$,число%
NEXT I
DATA "алло ",10,"как",20,"вы",30
END
Оператор WRITE#
---------------
функция WRITE# выводит данные в последовательный файл.
-------
синтаксис WRITE#файлнам,список выражений
---------
замечания Файлнам-это число,ассоциируемое с устройством или файлом
--------- в момент открывания файла.
Список выражений-это последовательность числовых и/или строчных вы-
ражений 6разделяемых запятыми или точками с запятой.WRITE# подобно PRINT#
,за исключением того ,что WRITE# вставляет запятые между элементами списка
выражений,выдает строчные данные внутри двойных кавычек и не выводит про-
бел перед положительным числом.
WRITE# является предпочтительным способом записи полей данных в
последовательный файл,поскольку этот оператор обеспечивает автоматическое
разделение переменных запятыми и простановкой кавычек с обеих стлорон
строк. Это упрощает использование оператора INPUT# ,когда вы осуществляете
выписки из файла.
См.также PRINT#
Пример
------
OPEN "FILE.PRN" FOR OUTPUT AS #1
FOR I=1 TO 6
READ INF$
WRITE#1,INF$
NEXT I
CLOSE 1
END
DATA "майк","Смит","12 главная ул.","Париж","п/о","95066"
ГЛАВА 3. Турбо-Бейсик : программа
Турбо-Редактор
Встроенный редактор Т.Б. специально сконструирован для создания ис-
ходного текста программы.
Когда вы выбираете EDIT (редактировать) из главного меню Т.Б., в
верхнюю часть экрана выносится и высвечивается окно редактирования, а вы
оказыветесь в редакторе. Чтобы оставить редактор и возвратиться в
главное меню, нажимаете ESC (данные в окне редактирования остаются на
экране).
Вы можете вводить текст столь же изящно, как если бы вы пользовались
пишущей машинкой. Для завершения строки нажимайте клавишу Enter. Когда вы
введете достаточно строк для заполнения экрана, верхняя строка скручивается
с экрана. Не огорчайтесь, она не теряется и вы можете перемещаться туда и
обратно по вашему тексту с помощью команд скрутки, которые описываются
ниже. Редактор Т.Б. обладает возможностью "уничтожать сделанное", которая
позволяет вам как бы брать обратно изменения, если вы еще не оставили
строку. Это команда Ctrl-Ql описывается в разделе "Разные команды
редактирования".
Теперь бросим взгляд на состояние окна редактора,которая показывает :
X:FILENAME.TYP LINE COL INSERT INDENT TAB
(имя файла,тип) (строка) (колонка) (вставка) (отступ) (табулятор)
X:Имя файла.тип
---------------
указывает дисковвод, имя и расширение файла, подлежащего редактированию.
Если имя файла и расширение есть: NONAME.BAS - это имя файла в Т.Б. по
умолчанию.
Строка
------
Указывает номер строки в которой находится курсор (по отношению верха фай-
ла, а не экрана).
Колонка
-------
Показывает номер колонки содержащей курсор.
Вставка
-------
Указывает, что в данный момент вы находитесь в "режиме вставки". В режиме
вставки литеры вводятся с клавиатуры и вставляются на курсорной пози-
ции. Текст перед курсором перемещается вправо по мере ввода вами новых
литер. Для тумблерного переключения редактор между режимами вставки и
переписывания используется клавиша INS или Ctrl-V; в режиме переписывания
текст вводимый с клавиатуры записывается поверх литер, находящихся под
курсором. Примечание:Когда вы находитесь в режиме переписывания, новые
- 26 -
строки текста вводится не могут.
Отступ
------
Отступ указывает на то, что включена возможность авто-отступа. Она
включается с помощью команды включения/выключения авто-отступа, Ctrl-OI.
Табулятор
---------
Указывает на то, можете ли вы вставлять или нет ярлыки табуляции.Для
тумблерного включения/выключения используется Ctrl-OI
Работа редактора
Наиболее важным при изучении редактора является то, как перемещается
курсор. Его вы можете перемещать по экрану используя группу управляющих
литер: нажав Ctrl и одновременно любую из клавиш: A,S,D,F,E,R,X,C,W,Z.
Эти литеры располагаются на клавиатуре таким образом, что логичеки
указывается их использование. Например: E
S D
X
нажатие на Ctrl-E перемещает курсор вверх, Ctrl-X вниз, Ctrl-S влево,
Ctrl-D вправо.
редактором используется примерно 50 команд для перемещения курсо-
ра, страницы по тексту, нахождения и замены строк и т.д. эти команды
можно сгруппировать в четыре главные категории:
-команды перемещения курсора
-команды вставки
-блоковые команды
-разные команды
Каждая группа содержит логически родственные команды, которые
описываются в следущих ниже разделах ( сводка команд представляется в
таблице 3-1). Каждый ввод состоит из определенной команды, за которым
следуют клавишные наборы по умолчанию, используемые для задействования
команды.
Таблица 3-1 .Сводка команд редактора.
----------------------------------------------------------------
Команды перемещения курсора
----------------------------
литера влево Ctrl-S или стрелка влево
литера вправо Ctrl-D или стрелка вправо
слово влево Ctrl-A
слово вправо Ctrl-F
строка вверх Ctrl-E или стрелка вверх
строка вниз Ctrl-X или стрелка вниз
скрутка вверх Ctrl-W
скрутка вниз Ctrl-Z
страница вверх Ctrl-R или PgUp(страница вверх)
страница вниз Ctrl-С или PgDn(страница вниз)
-----------------------------------------------------------------
Расширение команд перемещения
-----------------------------
Начало строки
конец строки Ctrl-QS или HOME(исходное)
верх окна Ctrl-Qd или END(конец)
низ окна Ctrl-QE
верх файла Ctrl-QX
конец файла Ctrl-QR
начало блока Ctrl-QC
конец блока Ctrl-QB
последняя курсорная Ctrl-QK
- 27 -
позиция Ctrl-QP
-----------------------------------------------------------------
Команды вставки и стирания
--------------------------
Включено/выключено Ctrl-V или INS(вставка)
режим вставки
Вставка строки Ctrl-N
Стирание строки Ctrl-Y
Стирание до конца строки Ctrl-QV
Стирание литеры
Влево от курсора Ctrl-H(или возврат на пробел)
Cтирание литеры под курсором Ctrl-G(или DEL стирание)
Стирание слова вправо Ctrl-T
-----------------------------------------------------------------
Блоковые команды
----------------
Пометка начала блока Ctrl-KB или F7
Пометка конца блока Ctrl-KK или F8
Пометка одного слова Ctrl-KT
Кодирование блока Ctrl-KC
Перемещение блока Ctrl-KV
Стирание блока Ctrl-KY
Считывание блока с диска Ctrl-KR
Запись блока на диск Ctrl-KW
Спрятать/отобразить блок Ctrl-KH
Печать блока Ctrl-KP
-----------------------------------------------------------------
Разные команды
--------------
Прекратить редактирование
Не хранить Ctrl-KD,Ctrl-KQ или ESC
Хранить и редактировать Ctrl-KS или F2
Новый файл F3
Табуляция Ctrl-I или ТАВ(табуляция)
Режим табуляции Ctrl-OT
Включить /выключить авто-отступ Ctrl-OI
Восстановить строку Ctrl-QL
Установить маркер места Ctrl-KN
Найти маркер места Ctrl-QN
Найти Ctrl-QF
Найти и заменить Ctrl-QA
Повторить найденное
последним Ctrl-L
Префикс литеры управления Ctrl-P
Отбросить операцию Ctrl-U
Восстановить сообщение
об ошибке Ctrl-QW
------------------------------------------------------------------
Базисные команды перемещения
Для начала правильного редактирования вашего файла существует нес-
колько базисных команд.
Литера влево Ctrl-S или стрелка влево
------------
курсор перемещается на одну литеру влево
Литера вправо Ctrl-D или стрелка вправо
-------------
курсор перемещается на одну литеру вправо
Слово влево Ctrl-A
-----------
- 28 -
курсор перемещается в начало слова, находящегося
слева. Слово определяется как последовательность литер, отделяемая одним из
следующих символов:
пробел<>,():.[]"*_/$
эта команда работает по разбивкам строки
Слово вправо Ctrl-F
------------
курсор перемещается в начало слова находящегося справа
Строка вверх Ctrl-E или стрелка вверх
-------------
курсор перемещается на одну строку вверх
Строка вниз Ctrl-X или стрелка вниз
--------------
курсор перемещается на одну строку вниз
Скрутка вверх Ctrl-W
-------------
обеспечивается скручивание по одной строке в направле-
нии начала файла (экран в целом скручивается вниз).
Скрутка вниз Ctrl-Z
-------------
обеспечивается скручивание по одной строке в направле-
нии конца файла (Экран в целом скручивается вверх).
Страница вверх Ctrl-R или PgUp
--------------
курсор перемещается на одну страницу вверх, без одной
строки
Страница вниз Ctrl-C или PgDn
----------------
курсор перемещается на одну страницу вниз, без одной
строки.
Расширение команды перемещения
Иногда вы можете пожелать быстрее перемещаться в ваших документах,
чем позволяют базисные команды перемещения. Редактор обеспечивает шесть
команд для мгновенного перемещения к крайним концам строк, в начало и конец
файла, а также к последней курсорной позиции.
Начало строки Ctrl-QS или HOME
---------------
курсор перемещается в начало текущей строки(колонку
номер один)
Конец строки Ctrl-QD или END
-----------------
курсор перемещается в конец текущей строки
Верх экрана Ctrl-QE
------------------------
курсор перемещается в верхнюю часть экрана
Низ экрана Ctrl-QX
----------------------
курсор перемещается в нижнюю часть экрана
Верх файла Ctrl-QR
----------------------
курсор перемещается на первую литеру в файле
Конец файла Ctrl-QC
-----------------------
курсор перемещается на последнюю литеру в файле.
Конец Ctrl-Q
----------------------
позволяет осуществить переход к особым точкам в доку-
менте .
Начало блока Ctrl-QB
----------------------
курсор перемещается к маркеру начала блока устанавли-
- 29 -
ваемому с помощью Ctrl-KB. Команда работает, даже если блок не отображается
(СМ."скрыть/отобразить блок" в разделе "Блоковые операции") или если не
установлен маркер конца блока.
Конец блока Ctrl-QK
-------------
курсор перемещается к маркеру конца блока, устанавливаемому с помощью
Ctrl-KK. Команда работает, даже если блок не отображается, или если не
установлен маркер начала блока
Последняя курсорная позиция Ctrl-QP
-----------------------------------
происходит перемещение к последней позиции курсора
перед последней командой. Эта команда полезна, в частности, после
исполнения операции найти/заменить, когда вы желаете вернуться к
последней позиции, имевшей место до ее исполнения.
Команды вставки и стирания
Вы не можете написать программу толькоперемещая курсор один раз.
Вы должны быть в состоянии вставлять и стирать текст. С помощью следующих
команд выполняется вставка и стирание литер, слов и строк.
Включение/выключение режима вставки Ctrl-V или INS
----------------------------------------
При вводе текста вы можете выбирать между двумя базисными
режимами: вставкой и переписыванием. Переключаться между этими режимами
вы можете тумблерно переключая режим вставки. Текущий режим отображается в
верхней части экрана.
Режим вставки есть режим редактора по умолчанию, позволяющий
вам вставлять новые литеры в старый текст. Текст справа от курсора просто
перемещается вправо по мере ввода нового текста. Для замены старого текста
новым используется режим переписывагия; любая вводимая литера заменяет
находящуюся под курсором. В режиме переписывания вы не вставите в текст
новые строки.
Стирание литеры справа от курсора Ctrl-H или возврат на пробел
------------------------------------
осуществляется перемещение на одну литеру влево и стирается находящяяся
там литера. Любые литеры справаот курсора перемещаются на одну
позицию влево. Эту команду можно также использовать для перемещения
строчных разрывов.
Стирание литеры под курсором Ctrl-G или DEL
-------------------------------
стирается литера, находящаяся под курсором и перемещаются влево любые
литеры находящиеся справа от курсора. Эта команда не работает по строчным
разрывам.
Стирание слова справа от курсора Ctrl-E
---------------------------------
стирается слово находящееся справа от курсора. Эта команда работает по
строчным разрывам и может использоваться для их перемещения.
Вставка строки Ctrl-N
------------------
на курсорной позиции вставляется разрыв строки
Стирание строки Ctrl-Y
------------------
стирается строка, содержащая курсор, а все строки, лежащие ниже ее пе-
ремещаются на одну строку вверх. Нет возможности восстановить стертую
строку, поэтому пользуйтесь данной командой с осторожностью.
Стирание до конца строки Ctrl-QY
------------------------
- 30 -
стирается весь текст откурсорной позиции до конца строки.
Блоковые команды
Для блоковых команд также требуются командные последовательности уп-
равляющих литер. Если вы чувствуете, что пресытились, возвратитесь к
этому разделу, когда ощутите необходимость перемещать, стирать или
копировать целые пласты текста. В одно и то же время в документе может
быть один блок. Блок маркируется посредством размещения маркера начала
блока перед первой литерой и маркера конца блока после последней литеры
желаемой части текста. Однажды маркированный блок может копироваться,
перемещаться, стираться или записываться в файл.
Пометка начала блока Ctrl-KB или F7
---------------------
маркируется начало блока. Сам маркер невидим, а блок становиться види-
мым, только когда устанавливается маркер конца блока. Маркированный
текст (блок) изображается в другой интенсивности цвета.
Пометка конца блока Ctrl-KK или F8
----------------------
маркируется конец блока. Сам маркер невидим, а блок становиться видим,
только когда устанавливается маркер начала блока.
Пометка одного слова Ctrl-KT
--------------------
одно слово маркируется как блок, для которого последовательность
начала/конца блока несколько грубовата и поэтому замещается одной командой.
Если курсор помещается в пределах слова, то будет маркировано именно это
слово. Если он за пределами этого слова, то будет маркироваться слово,
находящееся слева от курсора.
Скрывание/отображение блока Ctrl-KH
---------------------------
вызывает видимое маркирование блока, подлежащего переменному выключе-
нию и вкючению. Команды маниауляции над блоком (копирование, перемещение,
стирание и запись в файл) работают только когда блок отображается.
Относящиеся к блоку перемещения курсора (переход в начала/конец блока )
работают независимо от того скрыт блок или нет.
Копирование блока Ctrl-KC
------------------
ранее маркированный блок копируется в текущую маркерную позицию. Пер-
воначальный блок не изменяется, а маркеры помещаются вокруг новой копии
блока. Если ни один блок не маркирован или курсор находится в пределах
маркированного блока, ничего не происходит.
Перемещение блока Ctrl-KV
-----------------
ранее маркированный блок перемещается из его первоначального положе-
ния в курсорную позицию. Блок исчезает из своего первоначального положения,
а маркеры остаются вокруг блока в его новом положении. Если ни один блок не
маркирован, ничего не происходит.
Стирание блока Ctrl-KY
--------------
Стирается ранее маркированный блок. Ничего не предусмотрено для
восстановления старого блока, поэтому будьте с этой командой осторожны.
Запись блока на диск Ctrl-KW
--------------------
ранее маркированный блок записывается в файл. Блок остается неизмен-
ным, маркеры тоже остаются на месте. Когда выдается эта команда, вы
получаете подсказку для установления имени файла, в который пойдет запись.
Файл может быть задан любым законным именем. (Удлинение по умолчанию
- 31 -
есть .BAS).
Чтобы выбрать файл для перезаписи, вы можете использовать свободно
определяемые литеры; справочник отображается. Если специфицированный файл
уже существует, перед записью в существующий файл дается предостережение.
Если нет маркированного блока, ничего не происходит.
Считывание блока с диска Ctrl-KR
------------------------
в текущий текст на курсорной позиции считывается файл точно так, если
бы это был блок. Затем считанный текст маркируется как блок. Когда выдается
эта команда, вы получаете подсказку для задания имени файла, подлежащего
считыванию. Специфицированный файл имеет любое законное имя файла.
Печать блока Ctrl-KP
--------------
маркированный блок посылается на распечатку. Если блок не маркировался
или маркированный блок скрыт, распечатывается весь файл.
Разные команды редактирования
В этом разделе описываются команды, которые не попадают ни под одну
из ранее упомянутых категорий.
Прекратить редактирование, не хранить Ctrl-KD, Ctrl-KQ или ESC
-------------------------
отменяется редактор и вы возвращаетесь в главное меню. Хранение отре-
дактированного файла на диске осуществляется явно с помощью опции SAVE
главного меню под управлением команды FILES, автоматически через опцию AUTO
SAVE в разном меню настройки или пока не отменен редактор.
Хранить и редактировать Ctrl-K9 или F2
-----------------------
Файл сохраняется и остается в редакторе.
Новый файл F3
----------
Позволяет стирать текст из текущего файла редактирования и создавать
новый файл; иниче просто создается новый файл. Когда вы нажимаете F3, вам
задается вопрос "Желаете ли вы сохранить текущий текстовый файл?".
Табулятор Ctrl-I или Тав.
------------
Ярлыки табуляции в редакторе Т.Б фиксируются через 8 колонок друг от
друга.
Режим табуляции Ctrl-OT
---------------
тумблерно подключается опция табуляции. Когда на экране видим
"Тав.", можете вставлять ярлыки табуляции; когда включено, ярлык табуляции
автоматически устанавливается в начале первого слова предыдущей стро-
ки. (Когда режим табудяции включен, не доступен режим Авто-отступ).
Включить /выключить авто-отступ Ctrl-OI
-------------------------------
обеспечивается автоматический отступ для следующих друг за другом
строк. Когда включен, отступ текущей строки повторяется для каждой следую-
щей; т.е. когда вы нажимаете Enter, курсор возвращается не в колонку номер
1, а в начальную колонку только что завершенной выми строки. Когда вы
желаете изменить отступ, пользуйтесь пробелом и клавишей стрелка влево для
выбора новой колонки. Когда авто-отступ включен, в строке состояния
отображается сообщение INDENT (отступ); когда выключен, это сообщение
снимается. Авто-отступ по умолчанию включен. (Когда включена табуляция,
авто-отступ не возможен).
Восстановить строку Ctrl-QL
- 32 -
-------------------
позволяет уничтожить сделанные изменения в строке до тех пор, пока вы
эту строку не покидаете. Строка восстанавливается в ее первоначальном
состоянии, независимо от выполненых вами изменений.
Установить маркер места Ctrl-KN
-----------------------
Маркируется до четырех мест в тексте,посредством нажатия Ctrl-К с пос-
ледующим добавлением одной цифры (0-3).После маркирования вашего местополо-
жения вы можете работать где угодно в файле,а затем легко возвращаться к
маркированному месту,используя команду Ctrl-QN(Необходима уверенность ис-
пользования одного и того же номера маркера).
Найти маркер места Ctrl-Qn
------------------
Отыскивается до четырех маркеров места(0-3).Обеспечивается перемещение
курсора к любому ранее установленному маркеру посредством нажатия Ctrl-Q и
номера маркера.
Найти Ctrl-QF
------
Позволяет вам осуществить поиск строк длинной до 30 литер,когда вы
введете эту команду,строка состояния очищается и вы получаете подсказку на
задание искомой строки.Вводя строку вы следите за ее правильностью ,а затем
нажимаете Enter.
Искомая строка может содержать любые литеры,включая литеры управле-
ния.Например ,вводите Т,удерживая клавишу Ctrl при нажатии Р,а затем вы мо-
жете включать в поисковую строку строчный разрыв,специфицируя МJ(возврат ка-
ретки.Поисковые строки можно редактировать с помощью команд литера влево,ли-
тера вправо,слово влево и слово вправо.Командой слово вправо повторно вызы-
вается предыдущая поисковая строка,которая может затем редактироваться.Опе-
рация поиска может быть отброшена с помощью команды ABORT(Ctrl-U).
Когда специфицируется поисковая строка вы получаете вопрос об опциях
поиска.Имеются следущие опции:
B-поиск в обратном направлении от курсорной позиции к началу текста
G-глобальный поиск по всему тексту относительно положения курсора.
N-где N есть число.Находится N-ый случай при начале отсчета от
текущей курсорной позиции
U-игнорирование различий между верхним и нижним регистрами.
W-поиск только целого слова не замечая совпадающих образцов заключен-
ных в других словах
Пример:
W-поиск только целого слова.Поисковая строка "TERM" будет совпадать со
словом "TERM",но не со словом "TERMINAL"
U поиск в обратном направлении и игнорируются различия между верхним
и нижним регистрами."BLOCK" совпадает с "BLOCKHEAD" и с "BLOCKADE",и т.д.
125 нахождение 125-го случая поисковой строки.Вы можете оканчивать пе-
речень опций поиска(если они есть) нажатием Enter,после чего начинается по-
иск.Если текст содержит какую-то цель совпадающую с поисковой строкой,курсор
позиционируется в конце ее строки или в начале ,если имел место обратный по-
иск.Операцию поиска можно повторить с помощью команды ПОВТОРИТЬ НАЙДЕННОЕ ко
мандой Ctrl-L.
Найти и заменить Ctrl-QA
-----------------
Эта позиция работает идентично команде НАЙТИ за исключением того,что
вы можете заменять"найденную строку" любой другой длинной до 30 литер.Ваш
выбор опций тот же ,что и в команде НАЙТИ с добавлением следущего:
N заменять без вопросов:не запрашивается подтверждение при каждой вст-
рече поисковой строки.
Примеры:
N10 найти следущие десять случаев поисковой строки и заменить без воп-
росов.
GW найти и заменить целые слова во всем тексте,игнорируя различия вер-
хнего и нижнего регистров.Идет подсказка на замену строки.
GNU искать всюду по файлу не обращая внимания на регистр,заменять без
вопроса
Когда находится элемент курсор позиционируется в конце элемента,а вы
- 33 -
получаете вопрос ЗАМЕНИТЬ?(Y/N) в строке подсказок в верхней части экрана.Вы
можете отбрасывать операцию НАЙТИ И ЗАМЕНИТЬ с помощью команды ABORT.Опера-
цию НАЙТИ И ПОВТОРИТЬ можно повторить с помощью команды повторить найденное
последним (Ctrl-L)
Повторить найденное последним Ctrl-L
------------------------------
повторяется самая последняя операция НАЙТИ или НАЙТИ И ЗАМЕНИТЬ ,как
если бы вся информация была введена вновь.
Префикс литеры управления Ctrl-P
-------------------------
Дает возможность вводить литеры управления в файл посредством установ-
ления префикса перед желаемой литерой управления с помощью Ctrl-P.(Сначала
нажимается Ctrl-P потом желаемая литера управления.Литеры управления будут
появляться на экране в виде заглавных букв слабой интенсивности света(или
наоборот ,в зависимости от настройки экрана).
Отбросить операцию Ctrl-U
-------------------
Позволяет отбросить любую команду независимо ,имеет в ней место пауза
для ввода ,такая как вопрос "Заменить (Y/N)?" в команде НАЙТИ И ЗАМЕНИТЬ,или
осуществляется ввод поисковой строки либо имени файла (считывание и запись
блока).
Восстановить сообщение об ошибке Ctrl-QW
--------------------------------
Нажимайте эти клавиши для восстановления сообщения об ошибке,уже од-
нажды появившегося в строке состояния окна редактора.
Редактор против ВОРДСТАР
Несколько команд редактора Т.Б. немного отличаются от аналогичных в
ВОРДСТАР.Следует также отметить ,что хотя редактор содержит только некоторый
субнабор команд ВОРДСТАР, рядом его особенностей ВОРДСТАР не обладает. Эти
особенности были добавлены для повышения качества редактирования.Здесь об-
суждаются имеющиеся различия.
Элементы управления Турбо-курсором,Ctrl-S,Ctrl-D,Ctrl-E,Ctrl-X,обеспе-
чивают свободное перемещение по экрану без перескока в колонку номер один
пустых строк.Это не значит ,что экран заполняется пустотами наоборот,все
концевые пустоты автоматически перемещаются.Такой способ перемещения курсора
особенно полезен при редактировании программ;например ,когда обеспечивается
согласование отступов для FOR/NEXT.
Команды Ctrl-S и Ctrl-D не работают по строчным разрывам.Для перемеще-
ния с одной строки на другую вы можете использовать Ctrl-E,Ctrl-X,Ctrl-A, и
Ctrl-F.В Т.Б. невозможно вводить возврат каретки в конце файла в режиме пе-
реписывания;т.е.,если режим вставки выключен,нажатие Enter в конце файла не
будет обеспечивать вставку литеры .Однако вы можете либо переключиться в ре-
жим вставки либо использовать Ctrl-N в режиме переписывания для ввода возв-
рата каретки.
Последовательность ВОРДСТАР Ctrl-Q DEL ,обеспечивает стирание от кур-
сорной позиции до начала строки,в редакторе не поддеоживается.Т.Б. позволяет
маркировать вам как одно слово так и блок с использованием Ctrl-KT.Это более
удобно чем двухшаговый процесс ВОРДСТАР маркирования начала и конца слова
отдельно.
Поскольку редактирование в Т.Б. целиком осуществляется в памяти,коман-
дой Ctrl-KD не вызываются изменения файла на диске,как это имеет место в
ВОРДСТАР.Обновление дискового файла должно выполняться явно с использованием
опции хранения в файловом меню,либо автоматически через опцию авто-хранения
редактирования в разделе разное меню настройки.Вы можете также воспользо-
ваться F2 или Ctrl-KG.
Турбо-команда Ctrl-KQ не похожа на команду Ctrl-KQ (отказ от редакти-
рования )ВОРДСТАР.Измененый текст не бросается -он остается в памяти и готов
для компилирования и хранения.
Турбо-командой Ctrl- QL строка восстанавливается до ее содержимого пе-
ред редактированием в течении всего времени нахождения курсора этой на строке.
Команда Ctrl-QI обеспечивает тумблерное включение и выключение возмож-
ности авто-отступа.
И последнее,хотя и неменее важное,клавиша пробела назад в Т.Б. работа-
- 34 -
ет подобно клавише DEL в ВОРДСТАР.Она обеспечивает стирание литера слева от
курсора.Клавишей DEL в Т.Б. обеспечивается стирание литеры под курсором.
Компилятор
Компилятор Т.Б. является полностью ассемблерным языком,представляющим
собой высокопроизводительный компилятор.Чтобы вызвать компилятор ,нажимайте
С(компилирование) в главном меню.Если гланый файл уже установлен,то, при не-
обходимости,вы получеете подсказку о вашем желании сохранить текущий рабочий
файл.Если это так ,текущий файл сохраняется.Вводится главный файл и начина-
ется компилирование.
Компилятор записывает компилирующую программу либо в память(по умолча-
нию),либо на диск,в зависимости от установки текущей позиции комптляции в
меню опций компилятора.В процессе этой работы компилятор отличает с прираще-
нием 20 число строк и операторов,обработанных к этому моменту.Состояние ком-
пилятора отображается в окне сообщений.Если обнаруживается ошибка автомати-
чески вызывается редактор,а курсор позиционируется в ошибочном операторе.Со-
общение об ошибке отображается в верхней строке редактора.Когда вы перемеща-
етесь с ошибки ,строка состояния исчезает.Чтобы восстановить сообщение об
ошибке,нажимайте Ctrl-QW.
После успешного компилирования в окне сообщений отображается общее
число строк и операторов программы ,плюс величина оставшегося в памяти сво-
бодного пространства для компилирования.Следует заметить,что величина остав-
шегося пространства будет больше,когда вы компилируете в файл .EXE или
.TBC,чем при компилировании в память.
В трехстрочном обзоре обьектных кодов в шестнадцатиричной системе пе-
речисляются размер кодовых сегментов,стека и зоны данных генерируемой прог-
раммы.
Т.Б. работает с привлечением серий команд,вытягиваемых вверх и вниз
меню,а также предоставляет четыре окна в среде программирования.В этом раз-
деле описывается функция каждой команды главного меню и соответствующие опции.
Чтобы осуществить выбор и вызвать какую-то функцию в главном меню,наж-
мите клавишу,соответствующей высвечиваемой букве верхнего регистра желаемой
опции,а затем нажмите Enter.Чтобы выйти из любого меню нажимайте ESC.
Если вы находитесь в окне редактирования,либо в любом из меню,нажатие
ALT и первой буквы статьи меню будут давать вам доступ к этой статье ме-
ню.Установка цветов,справочников и других возможностей может выполняться че-
рез вытягивание вниз меню настройки.Любые сделанные изменения можно хранить
в ТВ-файле или непосредственно в файле TB.EXE в том же справочнике,что и
система Т.Б..По умолчанию TB-файл есть TBCONFIG.TB,но через команду SETUP
можно поддерживать несколько TB-файлов.
Чтобы изменить размер и/или переместить задействованное окно (отмечен-
ное по контуру двойными полосками),нажимайте STROLL LOCK .Затем,удерживая в
нажатом состоянии клавишу SHIFT и пользуйтесь любой из клавиш -стрелок,пере-
мещайте и/или образмеривайте окно вправо,влево,вверх вниз и т.д.
Чувствительная к контексту помощь Т.Б. обеспечивает информацию,имеющую
отношение к вашему конкретному экрану,независимо от того где вы находитесь в
системе меню.чтобы получить помощь при любом уровне ,нажимайте F1;нажатие
ALT-F1 дает вам предыдущий экран помощи.
Т.Б. имеет ряд клавиш ("горячих клавиш"),которыми вы можете пользо-
ваться,где бы вы не находились в главном меню.Например ,чтобы вывести Т.Б.
из любого места в системе меню,вы можете нажать ALT-X.Для удобства все горя-
чие клавиши перечислены в таблице
-------------------------------------------------------------------
клавиши функции
--------------------------------------------------------------------
F1 обеспечивает чувствительность к контексту помощь
F2 обеспечивает сохранение вашего файла
F3 обеспечивает создание нового файла
F5 фокусируются экраны прогона или редактирования
F6 переключается задействованное окно
F7 переход к задействованному окну из системы меню
SCROLL LOCK образмеривание и перемещение задействованного окна
- 35 -
ESC ваш возврат к главному меню
ALT-C компилируется загруженная в данный момент программа
ALT-E редактируется загруженная в данный момент программа
ALT-R прогоняется загруженная в данный момент программа
ALT-N выход из системы Т.Б.
ALT-F ваш возврат в файловое меню
ALT-O ваш возврат в меню опций
ALT-D ваш возврат в меню отладки
ALT-W ваш возврат в меню окон
--------------------------------------------------------------------
Файловая команда
-----------------
Команда FILE обеспечивает меню с несколькими опциями
LOAD
----
загрузка позволяетвам выбирать рабочий файл,который можно затем редак-
тировать,компилировать ,исполнять или хранить.
После нажатия L вы получаете подсказку на задание имени файла.Ввод вы
можете осуществлять одним из следующих способов:
1.Любое законное имя файла.Если точка и тип файла опускаются,автомати-
чески добавляется удлинение .BAS Чтобы специфицировать имя файла без удлине-
ния,вводите его со следущей после имени точкой .
2.Имя файла из справочника.Если вы останавливаете выбор на поддержании
своих собственных удлинений,избегайте тех,которые имеют специальное смысло-
вое значение в DOS ,таких как .EXE,.COM,.BAT,.BAK.
Добивайтесь определенности в выборе уникальных имен файлов,независимо
от того,используете вы удлинение или нет.Рассмотрим например файлы MYPROG.V1
и MYPROG.V2 после редактирования и обеспечения хранения MYPROG.V1 а Т.Б.
производится переименование первоначальной формы программы в MYPROG.BAKЕсли
вы будете редактировать затем MYPROG.V2, ее исходная форма тоже будет названа
MYPROG.BAK,и очевидно сотрется резерв первого файла.
Когда вы нажимаете клавишу Enter после ввода имени рабочего файла,Т.Б.
осуществляет поиск файла в справочнике на регистрирующем диске.Если он не
найден,создается новый файл.
NEW
-------
Эта опция обеспечивает стирание имеющегося в настоящее время в редак-
торе текста и дает файлу имя по умолчанию NONAME.BAS
SAVE
----
Обеспечивает хранение текущего рабочего файла на диске старой версии
именованного файла,если таковая существует,дается удлинение BAK.Если ваш
файл именуется NONAME.BAS и вы пытаетесь сохранить ваш файл ,вы задаете из-
менение на его переименование перед исполнением операции сохранения.Если вы
просто нажимаете Enter,сохраняется файл,именуемый NONAME.BAS.
WRITE TO
--------
После редактирования для записи текущего редакторского файла на диск
под новым именем используется опция записи W.Вам предоставляется подсказка
для выбора нового имени .
MAIN FILE
----------
При работе с большими программами вы можете разбить исходную программу
на управляющие секции.Если вы превышаете литерные возможности редактора,вы
просто не будете иметь другого выбора.Отдельные части программы храняться и
редактируются как независимо "включаемые файлы",но когда наступает время
компилирования,они собираются в единый блок.
В тандеме с метаоператорами $INCLUDE(включить) выбор главного файла
позволяет вам компилировать программы с множеством исходных файлов.
Исходный модуль вы определяемые как главный файл с директива-
ми$INCLUDEКак всегда, чтобы редактировать любой модуль программы (даже глав-
ный модуль),делайте его загруженным в данный момент файлом.
По получении команды компилирования,Т.Б. осуществляет проверку с целью
- 36 -
обнаружить ,не отличается рабочий файл от главного файла.Если он не отлича-
ется компилируется рабочий файл.Если он отличается,вы получаете подсказку на
сохранение рабочего файла(если он уже изменен,а затем в память загружается
главный файл.Если во время компилирования обнаруживается ошибка,файл ,содер-
жащий ее,загружается таким образом,чтобы его можно было отредактировать.Ког-
да ошибка уже исправлена и вновь начато компилирование,вы получаете подсказ-
ку на сохранение отредактированного рабочего файла.Затем повторно загружает-
ся главный файл.
DIRECTORY
----------
Для получения перечня справочников,поиск субсправочников и изменения
на лету маски нажимайте D.
CHANGE DIR(смена справочника)
-----------------------------
Команда для смены справочника используется для выбора другого справоч-
ника.После нажатия С вы получите подсказку на задание прохода к справочни-
кам.Можно задавать любое законное имя прхода.Описание других используемых
системой справочников см.в разделе "Команды настройки".
OS SHELL(OS-каркас)
-------------------
нажатием О вызывается DOS операционная система;Т.Б. резидентно остает-
ся в памяти.Управление возвращается в резидентную систему Т.Б. с помощью ко-
манды EXIT(выход).
QUIT(уход)
----------
Команда обеспечивает ваш уход из программы Т.Б. в DOS.Если ваш текущий
файлредактирования был модифицирован,но ен отправлен на хранение,вы получае-
те соответствущую подсказку .
Команда редактирования
Команда EDIT (редактирование) обеспечивает вызов встроенного экранного
редактора с подачей ему для редактирования рабочего файла.(Вы именуете рабо-
чий файл через команду загрузки в меню файловой команды)Если имя рабочего
файла не специфицировалось,редактируется NONAME.BAS.
Чтобы покинуть редактор и возвратиться в главное менб,нажимайте
ESC.Ваш исходный текст продолжает отображаться на экране для возврата к нему
вам достаточно нажать Е.
Команда прогона
Команда RUN(прогон) обеспечивает исполнение программы,находящейся в
памяти.Если компилированная программа уже располагается в памяти,а ее источ-
ник не модифицировался в редакторе с момента последней компиляции или прого-
на,и никакие опции не применялись,исполнение осуществляется немедленно.Если
компилированной программы памяти нет,сначала компилируется результирующая
программа.Нажатие Ctrl-Break во время исполнения программы прерывает испол-
нение если опция KEYBOARD BREAK установлена,а прогоняющая программа осущест-
вляет ввод/вывод .Если обнаруживается ошибка вы оказываетесь в редакторе в
той точке,где возникла ошибка.В строке состояния редактора появляеися описа-
ние ошибки.Далее исправляйте вашу ошибку и возвращайтесь в вашу программу
(перекомпилирование будет происходить автоматически).В окне сообщений Т.Б.
отображает с приращением 20 число обработанных строк и операторов.В окне
прогона отображается вывод программы.Для фокусировки окна прогона во время
прогона программы нажимайте ALT-FS.
Команда компилирования
Команда Compile(компилирование) осуществляет надящейся в данный момент
в редакторе программы.В результате получается располагаемая в памяти (по
умолчанию) программа в .EXE-файле или .TBC-файле(цепочке,в зависимости от
текущей установки опций в меню команды компилирования.
Для начала компилирования нажимайте С (или Enter при позиционировании
курсора на этой опции). Если не специфицируется главный файл ,компилируется
загружаемый файл.
- 37 -
Если выбрано главное меню вы получаете подсказку относительно вашего желания
хранить текущий рабочий файл(если файл в редакторе модифицирован) затем
главный файл загружается и компилируется.
По мере компилирования Т.Б. отображает в окне сообщений т число строк и опе-
раторов,которые уже отработаны.
Отказ от компилирования осуществляется с помощью команды Ctrl-Break
.Если обнаруживается ошибка ,вы помещаетесь в редактор в точке возникновения
ошибки в программе.Описание ошибке появляется в строке состояния редактора .
Команда опций
Команда Options (опций ) обеспечивает просмотр меню опций компилято-
ра.Эти опции глобальны и обеспечивают управление компилированием в целом,ес-
ли не преодолеваются внутренними метаоператорами исходной программы.
COMPILE TO (компилировать в )
Эта установка позволяет компилировать ваши программы в память,
.EXE-файл,.TBC-файл .Для просмотра 6разворачиваемого вверх меню,нажимайте С
и клавишу ввода и затем пользуйтесь клавишами стрелками или нажимайте клави-
шу которая соответствует высвечиваемой букве верхнего регистра ,для осущест-
вления вашего выбора.
По умолчанию ,компилирование в память,дает лучшие условия для отладки
и тектирования программ,так оно дает самый быстрый результат.
Установка .EXE-файла вызывает создание компилятором программ,которые
могут прогоняться из операционной системы(программа с расширением
.EXE).Обычно этот режим выбирается после того,как программа уже отлажена,хо-
тя из DOS могут быть тестированы только определенные возможности (напри-
мер,создание цепочки).
Установка файла цепочки дает файлы (с расширением .TBC) подходящие для
CHAINING (образование цепочки) или RUNNING (прогона ) из создаваемого Т.Б.
.EXE файла.Эти файлы не включают в себя библиотечные подпрограммы,поэтому
они не могут прогоняться независимо.
Т.Б. имеет несколько переключателей генерирования кодов,доступных че-
рез меню опций.По умолчанию каждый переключатель выключен идает поумолчанию
самые быстрые и самые маленькие программы из числа возможных.Вы можете выби-
рать для включения во время разработкиваших программ или в стадии отладки
некоторые или все эти переключатели.Чтобы выбрать любую из опций,используйте
клавиши стрелки или нажимайте букву верхнего регистра меню.Эти опции могут
быть сохранены для файла конфигурации через меню настройки.
Вы можете тумблерно включать и выключать следущие опции,
нажимая клавишу ввода при позиционированном на желаемой строке курсора:
.требуется 8087
.разрыв клавиатуры
.границы
.переполнение
.тестирование стека
8087 REGUIRED(требуется 8087)
-----------------------------
Включайте эту опцию,когда используете чип 8087.С помощью этой опции
Т.Б. генерирует лучший из возможных кодов для операций с плавающей точкой, и
быстрый и компактный ,с использованием внутристрочных операторов 8087.Недос-
таток состоит в том ,что генерированная с применением этой опции программа
не сможет прогоняться на машине без чипа 8087.
При выключенной опции 8087 (режим умолчания) программы могут проходить
обоими путями:т.е.,если имеется 8087,программа будет его использовать,если
нет,программой будет использоваться для выполнения того же самого (хотя и
медленнее) стандартное программное обеспечение.
KEYBOARD BREAK (прерывание с клавиатуры)
----------------------------------------
Включайте эту опцию ,если вы желаете прервать программу с помощью ко-
манды Ctrl-Break.Следует заметить,что это применимо только к Ctrl-Break,а не
- 38 -
к Ctrl-C.Имейте ввиду ,что прерывание программы с использованием
Ctrl-Break является окончательным-нет никакого способа продолжить исполнение
позднее.
Важно также заметить,Ctrl-Break оказывает воздействие,когда программа
осуществляет вывод текста( не графики) на экран или печатающее устройство,ли-
бо когда выполняется клавиатурный ввод.Это означает,что вы не можете преры-
вать последовательности,не являющиеся вводом/выводом;например:
TIGHTLOOP:GOTO TIGHLOOP (связанный цикл)
прогоняется до тех пор,пока вы не осуществите повторную перезагрузку
системы.(Однако ,чтобы обезопасить вас от таких проблем связанного цикла,мы
оборудовали Т.Б. опцией авто-хранения при редактировании.Другими словами,вы
можете устанавливать эту опцию на включение таким образом,что если требуется
выйти из программы посредством повторного запуска ,вы еще сможете распоря-
диться сохранить вашу программу.Обращайтесь к "меню настройки") .
Вы можете использовать следущие опции для отслеживания определенных
типов ошибок периода прогона.Обычно,когда программа находится в стадии раз-
работки,вы желали бы иметь включенными эти опции,чтобы избавится от некото-
рых затруднений.когда ваша программа отлажена ,выключайте эти опции для ге-
нерирования окончательной версии,т.к. она становиться быстрее и требует
меньше памяти.
BOUNDS (границы)
---------------
Во включенном состоянии эта опция вызывает генерирование компилятором
проверки границ индексации массивов.Код проверки построчной индексации обес-
печивает уверенность в том,что какой-то индекс попадает под заданный размер
массива,в котором должен использоваться еще до считывания или записи указан-
ного элемента .При включении проверки границ,проходит сообщение об ошибке по
диапазону индексов(ошибка 9),когда ваша программа пыталась исползовать
слишком большой или слишком маленький для данного массива подстрочный ин-
декс.Рассмотрим ,например ,эту программу:
dim myarray(100)
x=114
y:=myarray(x)
В массиве нет 114-го элемента,хотя это грубая ошибка не отлавливается
компилятором.Однако,если программа компилируется с включенным тестированием
границ,во время исполнения третьей строки появляется ошибка диапазона подст-
рочных индексов.
Если вы прогоняете програму при выключенной проверке границ,сообщения
об ошибке нет,и значение загружается в y,несмотря на то ,что оно попадает в
память на несколько байтов за пределами последнего элемента массива
myarray.При записи в несуществующий элемент массива ситуация еще хуже,пос-
кольку память ,используемая для хранения бог знает чего,безмолвно перезапи-
сывается.
Следует отметить ,что компилятор всегда сообщает подстрочные индексы
констант вне диапазона.Следущая программа будет не компилироваться независимо
от установки переключателя проверки границ:
DIM MYARRAY(100)
Y=MYARRAY(114)
OVERFLOW(переполнение)
----------------------
Переполнение возникает,когда какая-то арифметическая операция дает
значение вне пределов возможностей хранения целых чисел (-32768 до
32767).Например,кодовый фрагмент
X%=22555
X%=X%+19000
переполняет ограничение +32767 для целых переменных.Если вы компилиру-
ете эту программу с включенной проверкой переполнения,генерируется ошибка
переполнения периода прогона.Однако при выключенной проверке X% назначается
ненормальное значение и исполнение продолжается,как будто ничего не случи-
лось(что оставляет вашу программу непригодной).
Остерегайтесь промежуточных переполнений:
Y%=200000;X%=Y%
Z=(Y%+X%)*2.1
- 39 -
Хотя окончательный результат выражения (X%+Y%)*2.1 легко укладывается
в формат с плавающей точкой единичной точности,переполнение происходит при
сложении X% и Y% стандартными программами отработки целых чисел еще до то-
го,как результат сложения преобразуется к единичной точности и умножается на
2.1.Чтобы вынудить выполнение операций над целыми в форме с плавающей запя-
той,исползуйте функции CSNC и CDBL.Следует заметить,что проверка переполне-
ния осуществляется для целых, целых и любого из двух типов чисел с плаваю
щей точкой;однако для целых имеются некоторые исключения(например,расчеты ре-
гистров).
STACK TEST (тестирование стека)
-------------------------------
Включение этого переключателя вызывает генерирование Т.Б. кода ,кото-
рый обеспечивает проверку стековых противоречий по входу в каждую подпрог-
рамму,функцию или процедуру.Если вы ожидаете,что ваши программы выбегают за
строковое пространство,осуществляйте компилирование с включением этого пе-
реключателя.Для размещения большого стекового пространства используйте мета-
оператор $STACK.
Последними двумя входами в меню опций являются строка параметров с ма-
таоператорами.
PARAMETER LINE (строка параметров)
----------------------------------
Выбор Р вызывает выдачу Т.Б. подсказки на задание строки,которыю бу-
дет возвращать,когда программа прогоняется в следующий раз.Это позволяет
вам моделировать информацию командной строки в помощь при отладке из любого
места Т.Б..Нажатие Enter после ввода вашей строки,и затем ESC возвращает
вас в главное меню.
METASTATEMENT (метаопределения)
-------------------------------
Последняя опция из опций имеет собственное меню.Вы можете выбирать
любую опцию,нажимая S(стек),М(музыка) или С(коммуникации);или вы можете
воспользоваться клавишами-стрелками и нажимать Enter ,когда курсор позицио-
нируется на желаемой опции,отметим,что ваша исходная программа может прео-
долеть эти установки.
.Размер стека используется для переопределения размера стека.По
умолчанию он состовляет 1024 десятичных или 400 шестнадцатиричных байтов
(1 параграф есть 16 байтов).Когда вы нажимаете S,появляется подсказка на
задание нового размера стека в интервале от 400 до 7EFE шестнадцатиричных
байтов.(см.метаоператор $STACK в главе 5 "Словарь-вправочник Т.Б.").
.Буфер музыки есть размер основного музыкального буфера .Если вы не
пользуетесь SOUND или PLAY,то ваш результирующий код будет меньше когда вы
установите этот буфер в ноль.Минимум есть ноль;максимум-4096 байтов.Следу-
ет заметить,что 8 нот равны 1 байту;по умолчанию 32 ноты - 256 байтов.
.Коммуникации относяться к буферу-приемнику для каждого коммуникаци-
онного входа (в некоторых программах вы можете использовать метаоператор
$COMN для изменения размещения любого буфера) минимум есть 0;максимум
-32767;по умолчанию 256 байтов.
Команда настройки
Выбирайте SETUP(настройку),когда вы желаете инспектировать любые па-
раметры настройки,их изменять или постоянно регистрировать текущую конфи-
гурацию в ТВ-файле.Меню настройки показано на рис 3-6.
COLORS(цвета)
-------------
Используйте этот вход для определения цветов одной или более сис-
темных рамок,меню или окон.Нажимайте С или Enter для ввода меню и выби-
райте WINDOWS(окна),MENUS(меню) или SYSTEM BOXES ситемные рамки).В помощь
вам для определения изменений выбранного окна ,меню или рамки имеется три
дополнительных разворачивающихся вверх меню.
Как ,например,если вы выбираете меню из первого разворачиваемого
вверх меню,то можете сделать выбор определить главное -вытягиваемое вниз
- 40 -
меню,первое,второе или третье разворачиваемое вверх.Если вы выбираете
главное,появляются другие разворачиваемые вверх,чтобы вы могли определить
как изменить ваш выбор.Вашими опциями являются TITLE(назва-
ние),BORDER(бордюр),NORMAL TEXT(нормальный текст),FIRST LETTER (первая
буква),SELECTION BAR(полоска выбора) и RESTORE DEFANLTS (восстановление
по умолчанию).
Если вы уже приняли решение отом,в каком аспекте изменить меню,ска-
жем,например,вы выбрали полоску выбора ;на вашем экране появляется рамка
для выбора палитры.Для выбора желаемого цвета из цветовой гаммы пользуй-
тесь клавишами-стрелками.Для осуществления вашего выбора нажимайте
Enter,а затем ESC .Выбранное вами меню окно отражает текущее цветовое
значение.
DIRECTORIES(справочники)
------------------------
Входами INCLUDE(включаемый),EXECNTABLE(исполнительный) и TURBO
(турбо) определяются дисковвод и проход для каждого из трех справочни-
ков,используемых системой.справочник умолчаний имеется всюду,где бы вы ни
были в момент запуска вами Т.Б..
Когда выбирается какой-либо справочник ,вы получаете подсказку на
задание дисковвода и прохода.Вводите с клавиатуры дисковвод и/или про-
ход,нажимайте Enter и Т.Б. примет вашу спецификацию.Если вы изменяете
ваши соображения относительно того,какой справочник выбрать и желаете
повторить выбор,перед тем как покинуть системную рамку и до нажатия кла-
виши ввода можно нажать ESC и вы возвращаетесь к выбору варианта справоч-
ника.
Включаемые справочники используются для файлов ,которые содержат
директиву компилятора включить.Вы можете специфицировать множество спра-
вочников,отделяя их друг от друга двоеточиями.
Исполнительный справочник используется для файлов .EXE и .TBC,гене-
рируемых системой Т.Б.,а также для файлов ,создаваемых компилятором вре-
менно.Можно каждый раз выбирать только один такой справочник.
Турбо-справочник используется самой системой Т.Б.;т.е. для систем-
ного файла TB.EXE,файлов конфигураций и файлов помощи(TBHELP.TBH). И этот
справочник каждый раз можно выбирать только один.
MISCELLANEONS(разное)
---------------------
Нажатием М вводимое разворачиваемое вверх меню с двумя специальными
параметрами:
.AUTO SAVE EDIT(редактирование с авто-хранением)Тумблерно включайте
эту опцию,когда желаете автоматически отправлять на хранение ваш текущий
рабочий файл перед прогоном программы.
.BACKUP SOURSE FILES(резервирование исходных файлов)
----------------------------------------------------
При включении этой опции ваши файлы будут автоматически резервиро-
ваться .Выключайте,если не желаете создавать резервный файл каждый
раз,когда реализуете хранение.
Все компиляторные опции и установочные значения загружаются и храняться в
файле конфигурации(если не специфицируете TB.EXE).Это полезно для инвели-
ровки среды разработки программ различными способами.Например,при отладке
программ вы можете пожелать включить все компиляторные опции,а также рас-
ширить окно отслеживания и включить флаг глобального слежения.Другой об-
разчик конфигурации может потребоваться при компилировании конечной про-
дукции без видимых окон отслеживания или прогона и при всех выключенных
опциях.
Следущие опции дают вам возможность загружать и хранить ,соответст-
венно новую настройку конфигурации.
LOAD OPTIONS/WINDOW/SETUP(загрузить опции/окно/настройку)
---------------------------------------------------------
Нажимайте L для загрузки TB-файла справочника и повторно устанавли-
вайте систему в соответствии с содержащимися в нем параметрами.
SAVE OPTIONS/WINDOW/SETUP(хранить опции/окно/настройку)
-------------------------------------------------------
Нажатие S обеспечивает сохранение текущей настройки в TB-файле тур-
бо-справочника.Кофигурации может быть дано любое имя,но имя по умолча-
нию(TBCONFIG.TB)используется автоматически,когда Т.Б. запускается впер-
- 41 -
вые.Вы также можете хранить справочник конфигураций в файле TB.EXE.Однако
,если вы это делаете , вам выдается подсказка относительно того не хотите
ли вы изменить оригинальный файл TB.EXE.
Команда окон
Как говорилось в разделе о главном меню,вы можете изменять размер
любого задействованного окна и перемещать его ,нажимая STROLL LOCK,а за-
тем удерживать клавишу SHIFT в нажатом состоянии и использовать любую из
клавиш-стрелок для перемещения окна в желаемом направлении.По умолчанию
все окна задействованы,пока вы не выбираете их закрытие.
Теперь нажмите W для ввода в действие вытягиваемого вниз меню ко-
манд окон.
OPEN(открыть)
-------------
Нажимайте О и выбирайте из разворачиваемого вверх меню
EDIT,RUN(прогон),MESSAGE(сообщение) или TRACE (отслеживание).Команда отк-
рыть делает выбранное окно "задействованным".Это означает,что если окно
ранее было закрыто,то оно создается, и во всех случаях"открытое" окно бу-
дет выводиться в верхнюю часть экрана.Теперь все другие команды окон воз-
действуют на задействованное окно.
CLOSE(закрыть)
-------------
командой закрыть выбранное в данный момент окно скрывается,хотя в
него еще может продолжаться запись.
NEXT(следущее)
-------------
опция следующего позволяет вам выбирать другое окно как задейство-
ванное без необходимости возврата к опции открыть для выбора нового окна.
Повторяя нажатие NEXT,можно реализовать циклический проход по окнам.При
нахождении в окне или главном меню так же как опция следующее работает
клавиша F6.
GOTO(идти к)
-------------
После открывания окна используйте команду идти к для ввода этого
окна без необходимости возврата в главное меню.
STACK(стек)
------------
Используйте опцию стек для расположения всех открытых окон слоями
максимально возожного размера.Нажатием F6 последний экран в стеке выво-
диться в верхнюю часть экрана.
TILE(черепица)
-------------
Нажимайте I, чтобы добиться занятия всеми задействованными окнами
равных долей экрана.Задействованное окно включается клавишей F6.
ZOOM(фокусировать)
-----------------
Выбором опции фокусирования (или F5)осуществляется расширение выб-
ранного окна на полный экран;однако эта опция работает только с окнами
прогона и редактирования.Чтобы снова получить вашу первоначальную наст-
ройку экрана,вновь включайте фокусировку,работающую как тумблер.
Команды откладки
Возможности откладки предоставляются в виде двух цепных опций из их
вытягиваемого вниз меню:TRAGE(отслеживание) и RUN - TIME ERROR(ошибка пе-
риода прогона).
TRACE(отслеживание)
-------------------
отслеживание позволяет глобально устанавливать отслеживание прог-
рам.Этот переключатель может преодолевать вставляемыми заявлениями TRON и
TROFF.В этом окне отображаются метки заявлений,номера строк,имена продце-
- 42 -
дур и функций.
При прогоне в режиме отслеживания пользуйтесь командой ALT - F9.На-
жатие ALT-F10дает пошаговый переход к следующему номеру строки,метке и тд.
RUM-TIME ERROR(ошибка периода прогона)
-------------------------------------
эта опция используется,главным образом,для нахождения ошибок,кото-
рые возникают в файлах,ехе или твс(отдельные программы);в этих случаях не
дается ни каких сообщений.Если вы прогоняете программу под управлением
системы турбо-бейсика,все описание ниже дается автомвтически.
Эта функция возбуждается нахождением R или клавиши ввода
TRACE(отслеживание)
-------------------
Отслеживание позволяет глобально устанавливать отслеживание прог-
рамм.Этот переключатель может преодолеваться вставляемыми операторами
TRON и TROFF. В этом окне отображаются метки операторов,номера строк и имена
процедур и функций.
При прогоне в режиме отслеживания для переключения вашей программы
между отслеживанием и исполнением пользуйтесь командой Alt-F9.Нажатие
Alt-F10 дает пошаговый переход к следушему номеру строки,метке и т.д.
RUN-TIME ERROR (ошибка периода прогона)
---------------------------------------
Эта опция используется главным образом для нахождения ошибок,кото-
рые возникают в файлах .EXE или .TBC;в этих случаях не дается никаких со-
общений.Если вы прогоняете программу под управлением Т.Б.,все описания
ниже даются автоматически.
Эта функция возбуждается нажатием R и клавиши ввода.Затем вы полу-
чаете запрос на обеспечение значения прграммного счетчика.Далее Т.Б. оп-
ределяет соответствующую точку в исходном коде и устанавливает курсор на
оператор с погрешностью.
Когда происходит ошибка периода прогона,Т.Б. сообщает вам тип ошиб-
ки (всегда в числовой форме и словами,если запуск осуществлялся из
Т.Б.),а также значения из программного счетчика процессора в момент ошибки.
После компилирования Т.Б. в состоянии вычислить точку в исходной
программе,соответствующую адресу периода прогона в обектной программе,со-
ответствующую адресу периода прогона в обьектной программе.Рассмот-
рим,например,программу в TEST.BAS:
X=256
PRINT SHRS(X)
Хотя эта программа синтаксически правильна и поэтому будет компили-
роваться успешно,когда система попытается напечатать литеру со значением
256 кода ASCII,будет генерироваться ошибка периода прогона:
ERROR S ILLEGAL FUNCTION CALL OT PGM-OTR:29(незаконный вызов функ-
ции при значении 29 программного счетчика)
Опцией ошибка периода прогона это значение программного счетчика
используется для нахождения оператора ,которое вызвало ошибку.
ГЛАВА 4
ТУРБО-БЕЙСИК ЯЗЫК
Структура программы
Программы на Т.Б. состоят из одной или более строк исходного текс-
та,каждая из которых имеет следующий формат:
[номер строки]оператор[:оператор]...['коментарий]
или,
метка:
или,
метаоператор
Номер строки есть целое в диапазоне от 0 до 65535,которое опционально
может идентифицировать строки программы.Т.Б. относится не строго к установке
номеров строк.Они свободно могут перемешиваться с метками,использоваться в
одних частях программы и не использоваться в других.По существу,им нет не-
обходимости быть в числовой последовательноси,хотя ни одна строка не может
иметь и метку и номер.По сути номера строк являются метками.
Операторы -строительные блоки,образующие программы.В Т.Б. имеется приб-
лизительно 100 типов операторов.Строка может не содержать вовсе,содержать
одно или несколько операторов,разделяемых двоеточием.
Все представленное ниже есть законные строки Т.Б.:
START: 'только метка
10 'только номер строки
$INCLUDE "CONST.TBS" 'метазаявление
20 A=A+1 'номер строки плюс оператор
A=A+1:B=B+1 'два оператора
30 A=A+1:B=B+;:C=A+B 'номер строки и три оператора
Ширина в 249 колонок Т.Б. есть единственное ограничение,накладываемое
на число операторов,которые могут появляться в одной строке.Следует,одна-
ко,знать,что некоторые школы программирования придерживаются правила,что
устанавливать более одного оператора в строке,если это не требуется особен-
ностями синтаксической конструкции(например,IF/THEN/ELSE),плохая практика.В
отличии от интерпретаторного Бейсика,Т.Б. не накладывает ограничений перио-
да прогона за щедро расставленные в ваших программах пробелы и коммента-
рии,они просто игнорируются компилятором.
Все школы придерживаются мнения, что плохая форма для записи строк,если
ее ширина больше 80-колонной ширины окна редактора (несмотря на возможности
горизонтальной скрутки).Перейдете за 80 колонок и вы ничего уже не сможете
увидеть одновременно.Получить аккуратную распечатку тоже не удается.
В ситуациях,где синтаксические требования вынуждают вас строить строку
длинее 80 литер,ставьте литеру подчеркивания (_) в конце строки.
Это приведет к рассмотрению т.Б. следующей строки как продолжение пер-
вой.Эта строка также может продолжаться .Например:
FIELD $1,AS ADDRESS 1$,30 AS ADDRESS 2$,-15 AS CITY$,2 AS STATE$,5 AS_
2IP$,-30 AS COMMENTS$
Как только к этому приступит компилятор,весь текст окажется одной боль-
шой строкой начинающейся с FIELD и оканчивающийся COMMENTS$без литер под-
черкивания.
Комментарием может быть любой текст,добавляемый в конце строки и отде-
ляемый от самой программы единичной кавыукой ('). Единичная кавычка может
использоваться вместо REM для отделения коментариев от операторов в такой
строке,если она не находится в конце оператора DATA(который может принять
комментарий за часть строки).В отличии от REM ,нет необходимости отделять
отмеченные одной ковычкой комментарий от соответствующих операторов с по-
мощью двоеточия.Например,следущие строки для компилятора равнозначны:
AREA=RADINS 2*3.14159 'вычислить площадь
AREA=RADINS 2*3.14159 :REMвычислить площадь
Метка должна появляться в строке сама по себе(хотя за ней может следо-
вать комментарий) и служить для идентификации оператора,следущего непосред-
ственно за ней.Метки должны начинаться с буквы и могут содержать любое чис-
ло букв и цифр.Регистр не имеет значения:THISLABEL и THISLABEL эквивалент-
ны.За меткой должно следовать двоеточие,однако операторы,в которых имеется
- 44 -
ссылка на метку (например,GOSUB),не должны включать двоеточие.
Примеры:
SORTSUBROUTINE:
EXITPOINT: A=A+1 'незаконно ,метка должна быть в строке одна
SORTINVOICES:
GOSUB SORTINVOICES 'ссылочная метка
$метаоператоры-это операторы,которые работают на другом уровне,чем
стандартные операторы.Они независимые директивы компилятора и начинаются со
знака доллара ($) . Стандартные операторы управляют компилятором в период
прогона;метаоператоры,подобно выбору в меню опций ,управляют компилятором в
период прогона компилирования.
Примером метаоператора является $INCLUDE,которое вызывает включение
компилятором содержимого другого файла в точке,указанной в текущем фай-
ле.Следует заметить,что метаоператоры Т.Б. не появляются в REMARKS(комента-
риях )подобно тому,как это характерно некоторым другим бейсик-компилято-
рам.В одной строке может быть один метаоператор.
Литерный набор Турбо-Бейсика
Т.Б. в чем-то схож со строительным набором для составления программ.Он
обеспечивает вас набором документальных элементов языка(резервными словами
и символами),которые можно соединять вместе бесчисленными способами для
создания любого мыслимого программного обеспечения машины.
Буквы от А до Z и цифры от 0 до 9 можно использовать в формирующих
идентификаторах(именах меток,переменных,процедур и функций).
Числа от 0 до 9;символы .,+ и =; а также буквы Е,D можно использовать
при формировании числовых констант.
Следущие символы в Т.Б. имеют специальное смысловое значение:
-----------------------------------------------------------------------
символы описание/функция
-----------------------------------------------------------------------
= знак равенства(оператор назначения,оператор отношения)
+ знак плюс(оператор сложения и сцепления строк)
- знак минус (оператор вычитания и отрицания)
* звездочка (оператор умножения)
/ косая черта(оператор деления)
\ обратная косая черта (оператор деления нацело)
^ знак вставки(оператор возведения в степень)
% знак процента(литера оператора целого типа)
& амперсанд ( литера оператора типа длинного целого и
дескриптор недесятичной базы)
! восклицательный знак (литера оператора типа
единичной точности
# знак номера(литера оператора типа двойной точности)
$ знак доллара(литера оператора строчного
типа,префикс метаоператора)
() круглые скобки(аргументы функций/процедур,
массивы,приоритетность в выражениях)
[] квадратные скобки(законны только для массивов)
пробел(разделитель)
, запятая(общецелевой разделитель)
. точка(десятичная точка,разделитель в удлинении имени
файла
' единичная ковычка(ограничитель примечаний)
; точка с запятой(общецелевой разграничитель)
: двоеточие(разграничитель операторов)
? знак вопроса (замена PRINT (печать))
> меньше чем(оператор отношения)
< больше чем(оператор отношения)
" двойная кавычка(строчный разграничитель)
_ знак подчеркивания(литера продолжения строки)
----------------------------------------------------------------------
В Т.Б. резервируется использование определенных слов для заранее опре-
- 45 -
деленных синтаксических целей.Эти резервированные слова не могут применять-
ся в качестве меток,переменных,именованных констант или процедур и функ-
ций,хотя ваши идентификаторы могут содержать их.
Например,ENDявляется незаконным именем переменной,поскольку оно всту-
пает в противоречие с синтаксисом функций,определяемых пользователем.
попытки использовать резервированное слово в качестве тдентификатора
дают синтаксическую ошибку периода прогона компилирования.
таблица 4-1.Резервированные слова Турбо-Бейсика
---------------------------------------------------------------------
слово описание
---------------------------------------------------------------------
$COM коммуникация 1(метаоператор)
$COM2 коммуникация 2(метаоператор)
$DEBUG отладка(метаоператор)
$DYNAMIC динамический(метаоператор)
$ELSE иначе(метаоператор)
$ENDIF конец если(метаоператор)
$EVENT событие(метаоператор)
$IF если (метаоператор)
$INCLUDE включать(метаоператор)
$INLINE в строке(метаоператор)
$LIST перечень(метаоператор0
$OPTIONS опция(метаоператор)
$SEGMENT сегмент(метаоператор)
$SOUND звук(метаоператор)
$STACK стек(метаоператор)
$STATIC статический(метаоператор)
ABC авсолютное значение(функция)
ABSOLUTE абсолютный (ключевое слово)
AND и(логическое отношение)
APPEND прибавить
AS переменная файла
ASC код ASCII(функция)
AT
ATN арктангенс(функция)
BASE база(атрибут)
BEEP звуковой сигнал(оператор)
BIN$ двоичный эквивалент числа(функция)
BINARY двоичный (ключевое слово)
BLOAD загрузка в сохраняемую память(оператор)
BSAVE диапазон памяти на диске(оператор)
CALL вызов(оператор)
CASE регистр(ключевое слово)
CDBL преобразование в двоичную точность
CEIL наименьшее целое(функция)
CHAIN цепочка(оператор)
CHDIR смена справочника(оператор)
CHR$ символ на экран
CINT
CIRCLE окружность(оператор)
CLEAR очистить(оператор)
CLNG преобразовать в длинное целое(функция)
CLOSE закрыть(оператор)
CLS очистить(оператор)
COLOR цвет(оператор)
COM отслеживание коммуникации(оператор)
COMMAND$ командная строка(функция)
COMMON общие переменные(оператор)
COS косинус(оператор)
CSNS преобразование в единичную точность(функция)
CSRLIN позиция курсора по вертикали(функция)
CVD !
SVI !преобразование строчных произвольного
!файла в числовую форму (функция)
CVL !
- 46 -
CVMD !преобр.строчных МИКРОСОФТв числовую форму
CVMS !(функция)
DATA данные(оператор)
DATE$ дата (системная переменная)
DECR сбрасывание(оператор)
DEF определение(оператор)
DEFDBL !
DEFINT !оператор типа идентификатора переменной
DEFLNG ! по умолчанию(двойная точность,целое,
DEFSNG !длинное целое,единичная точность,строка,
DEFSTR !соответственно)
DELAY задержка(оператор)
DIM образмерить массив(оператор)
DO исполнять цикл(оператор)
DRAW чертить(оператор)
DYNAMIC динамический(атрибут)
ELSE иначе(ключевое слово)
ELSEIF иначе если(ключевое слово)
END конец(оепратор0
ENDNEM адрес конца адреса
ENVIRON модифицировать информацию в таблице
среды(оператор)
ENVIRON$ восстановление нормативов таблицы среды(функция)
EOF конец файла (функция)
EQV равно(отношение)
ERADR адрес последней ошибки(функция)
ERASE стереть динам. массив(оператор)
ERDEV !информация драйвера устройства(функция)
ERDEV$ !
ERL !строка и код последней ошибки(функция)
ERR !
ERROR ошибка(оператор)
EXIT выход(оператор)
EXP10 !
EXP2 !експонента (Е,2,10)(функция)
FIELD !
FILES переменная поля (оператор0
FIX усечение до целого(функция)
FN функция (ключевое поле)
FOR для(оператор цикла)
FRE свободная память (функция)
GET считать запись из произвольного файла(оператор)
GET$ считать графику с экрана(оператор),строку
из двоичного массива(функция)
GOSUB идти к подпрограмме(оператор)
GOTO идти к(оператор)
HEX$ преобразовать в шестнадцатиричный(функция)
IF если (оператор)
IMP
INCR приращение(оператор)
INKEY$ считать клавиатуру(функция)
INLINE в строке(ключевое слово)
INP считать с входного устройства(функция)
INPUT ввести(оператор)
INPUT# загрузить из последовательного файла(оператор)
INPUT$ считать определенное число литер(функция)
INSTAT состояние клавиатуры(функция)
INSTR поиск по строке(функция)
INT преобразование к целому(функция)
INTERRUPT прерывание(ключевое слово)
IOCTL !коммуникация с драйвером устройства
IOCTL$ !
KEY клавиша(оператор)
KILL стереть файл(оператор)
LBOUND нижняя граница(функция)
- 47 -
LCASE$ только нижний регистр(функция)
LEFT$ левые литеры(функция)
LEN длина строки(функция)
LET присвоить значение(оператор)
LINE линия/строка
LIST список (ключевое слово)
LOC позиция в файле(функция)
LOCAL локальная переменная(оператор)
LOF длина файла(функция)
LOG !логарифм(Е,10,2)(функция)
LOG10 !
LOG2 !
LOOP конец цикла(оператор)
LPOS позиция буфера принтера(фукция)
LPRINT строчная печать(оператор0
LPRINT#
LSET данные в буфер произвольного файла(оператор)
LOCATE позиционировать курсор(оператор)
MEMSET верхний предел памяти(оператор)
MID$ литерная строка(функция),замена
строки(оператор)
MKDIR субсправочник(оператор)
MKD$ !
MKI$ !преобразование чисел в строки (функция)
MKL$ !
MKMD$ !
MKMS$ !
MKS$ преобразование единичной точности в строку(функ.)
MOD
MTIMER микротаймер(функция и оператор)
NAME имя файла(оепратор)
NEXT следующий(оператор цикла)
NOT не (логическое отношение)
OCT$ восьмеричное представление(функция)
OFF выключить (ключевое слово)
ON включить(ключевое слово)
OPEN открыть(оператор0
OPTION опция
OR или (логическое отношение)
OUT запись на выходное устройство(оператор0
OUTPUT вывод
PAINT окрасить(оператор)
PALETTE !цветовая палитра(оператор0
PALETTE USING !
PEEK байт из ячейки памяти(функция)
PEN световое перо(функция/оператор)
PLAY игра(функция/оператор0
PMAP преобразование координат(функция)
POINT точка(функция)
POXE запись байта(оператор)
POS позиция курсора(функция)
PRESET установка точки(оператор)
PRINT данные на экран(оператор)
PRINT# запись в файл(оепратор)
PSET точка на экран(оператор)
PUT запись в произвольный файл(оператор0
PUT$ запись в двоичный файл(функция0
RANDOM произвольный(ключевое слово)
RANDOMIZE случайные числа(оператор)
READ загрузка переменных(оператор0
REG регистры(функция и оператор)
REM примечания(оператор)
RESET повторная установка(оператор)
RESTORE восстановление(оператор)
RESUME возобновление(оператор0
- 48 -
RETURN возврат(оператор)
RIGHT$ правые символы(функция)
RMDIR удаление справочника(оператор9
RND случайное число(функция)
RSET помещение строки в буфер(оператор0
RUN прогон(оператор)
SAVE хранить(ключевое слово)
SCREEN экран(функ./оператор)
SEEK позиция в двоичном файле(оператор)
SEG сегмент(кл.слово)
SELECT выбор (оператор)
SERVISE сервисная(кл.слово)
SGN знак(функция)
SHARED разделение переменных(оператор)
SHELL "детский процесс"
SIN синус(функция)
SOUND звук(оператор0
SPACE$ все пробелы(функция0
SPC пропукс пробелами(функция)
SQR квадратный корень(функция)
STATIC статические переменные(оператор)
STEP шаг (кл.слово)
STICK положение ручки управления(функция)
STOP останов программы(оператор)
STR$ строчный эквивалент числа(функция)
STRIG кнопки управления(функ./оператор0
SUB подпрограмма(оператор)
SWAP обмен значений(оператор)
SYSTEM системное управление(оператор)
TAB табуляция(функция)
TAN тангенс(функция)
THEN то (кл.слово)
TIME$ время(системная переменная)
TIMER таймер(функция/оператор)
TO к (ключевое слово)
TROFF !вкл/ выкл слежения за исполнением
TRON !
UBOUND верхняя граница(функ.)
UCASE$ нижняя граница(функ.)
UTIL пока(кл.слово)
USING используя(кл.слово)
USR !
USR0 !
USR1 !
USR2 !
USR3 ! регистры
USR4 !
USR5 !
USR6 !
USR7 !
USR8 !
USR9 !
VAL числовой эквивалент строки(функ.)
VARPRT адрес переменной(функ.)
VARPRT$ указатель переменной в строке(функ.)
VARSEG$ сегментный адрес переменной(функ.)
VIEW активная зона экрана(оператор)
WAIT ожидать(оператор)
WEND !операторы цикла с параметром
WHILE !
WIDTH логический линейный размер(оператор)
WINDOW графическая координатная система(оператор)
WRITE запись данных на экран(оператор)
WRITE# вывод в последовательный файл(оператор)
XOR исключающее или(логическое отношение)
- 49 -
-----------------------------------------------------------------------
Числа в Турбо-Бейсике
Забота о числах состовляет важную часть любой системы программиро-
вания.Т.Б.,как принято в традиции Бейсика,структурирован так,чтобы позво-
лить вам в значительной степени игнорировать технические соображения о
внутренней обработке чисел.Если вы никогда не задумывались о таких ве-
щах,как скорость вычислений,точность и требования к памяти,ваши программы
все равно будут работать так как вероятнее всего вы ожидаете.Однако пони-
мание того,что лежит в основе получаемых результатов поможет вам писать
программы,которые быстрее,точнее т требуют меньше памяти.
В целях повышения эффективности Т.Б. обеспечивает хранение и обра-
ботку чисел в четырех разных форматах;т.е. он обеспечивает четыре уникаль-
ных "типа" чисел:целые,длинные целые,плавающую точку единичной точности и
плавающую точку двойной точности.
Целые
Простейшими и самыми быстрыми числами,циркулирующими в программах
на Т.Б.,являются целые.Для Т.Б. целое есть число без десятичной точки(т.е.
то,что математики называют целыми числами) в диапазоне от -32768 до
32767.Эти значения проистекают из основополагающего 16 битового представ-
ления целых;32768 есть 15 .
2
Хотя этот диапазон ограничивает использование целых чисел,почти
наверняка в любой программе,которую вы будете писать,найдется несколько
переменных (таких как счетчики в циклах FOR/NEXT),которые могут функциони-
ровать в указанных пределах.Если это так,использование целых дает исключи-
тельно быстрый и компактный код. Ваш компьютер необычайно удобен для выпол-
нения арифметических операций над целыми(например,он удобен для выполнения
арифметических операций над целыми,а для каждого числа требуется только 2
К памяти.
Переключатель отладки переполнения в меню опций позволяет вам соз-
давать программы,которые автоматически проверяют случаи переполнения целых
переменных и сообщают о них.
Длинные целые
Значительным расширением интерпретаторного бейсика является то,что
Т.Б. поддерживает тип чисел,известных как длинные целые.Чтобы избегать
ошибок округления в финансовых операциях,длинные целые пр5едставляют собой
идеальный тип данных.Подобно обычным целым,данные не могут содержать деся-
тичные точки.Однако в отличии от обычных целых они имеют громадный диапа-
зон,от -2147483648 до +21474883647 (от 31 31 )
( -2 до 2 )Для длинных целых
требуется 4 байта памяти,а расчеты с ними занимают больше времени чем с
целыми.
Длинные целые относительно эффективны ,а при приближенном рассмот-
рении определенно ценны,особенно на машинах,которые не имеют 8087.В зави-
симости от вашей области применения,десятичные точки могут оказаться менее
важными ,чем вы думаете.Например,вы можете определять денежные суммы в
пенсах и делить их на 100 для отображения в долларах.Таким образом можно
выражать значения до 20 миллионов долларов.
Плавающая точка единичной точности
Плавающая точка единичной точности (или просто единичная точность)
возможно наиболее гибкий тип чисел в Т.Б..Значения единичной точности мо-
гут содержать десятичные точки и иметь диапазон : -38 38
от 10 до 10 .Вам при
дется усердно поработать ,прежде чем откопать число которое не уложиться в
число единичной точности.Скорость вычислений не так уж мала,для каждого
числс требуется 4 байта.
- 50 -
Оборотной стороной единичной точности является то,что хотя и воз-
можно представление как ненормально больших,так и микроскопических чи-
сел,их невозможно обрабатывать с точностью более шести значащих цифр.Еди-
ничная точность хорошо работает с числами вроде 451.21 доллара и 6411.92
доллара.Но 671421.22 доллара невозможно представить точно,поскольку это
число содержит слишком много цифр.Ни число 234.56789 ,ни число
0.00123456789 в представлении единичной точности не будут представляться
столь же точно,как в случае шести цифр:671421 доллара или 234.567,или
0.00123457.В зависимости от вашей области применения,это округление может
быть тривиальным или приносящим вред недостатком.
Плавающая точка двойной точности
Двойная точность также соотносится с единичной,как длинные целые с
целыми.Числа занимают в памяти вдвое больше места (8 байт ),а следователь-
но и дольше вычисляются, и имеют больший диапазон (10) и большую точность
(16 цифр против 6 для единичной точности).
Требования по хранению чисел двойной точности становятся особенно
заметны,когда приходится иметь дело с массивами.При двойной точности для
массива с 5000 элементов требуется 40000 байтов.Массив целых при том же
числе элементов занимает только 10000 байтов.Примечание:в Т.Б. для арифме-
тики с плавающей точкой используется стандарт 1ЕЕЕ,а не собственный формат
МИКРОСОФТ,используемый Интерпретаторным Бейсиком.Поэтому вы должны приме-
нять специальные функции для трансляции МИКРО-
СОФТ/1ЕЕЕ(CVMS,CVMD,MKMS$,MKMD$) для чтения и записи данных с плавающей
точкой,содержащихся в массивах,созданных И.Б.(Интерпретаторным Бейси-
ком)(Дополнитнльную информацию смотри в разделе "Произвольные файлы" далее
в этой главе).
Если вы не уверены какой тип плавающей точки использовать,мы реко-
мендуем двойную точность.Т.Б. наиболее эфективно работает на двойной точ-
ности.Его трансцедентные функции,такие как SRS или LOG ,возвращают значе-
ния двойной точности.Единичная точность может оказаться не лучшей для
больших массивов,однако именно в них ее размерные преимущества становяться
наиболее очевидными.
Вычисления и 8087
Сопроцессор 8087 (80287 на машинах АТ-типа) впечатляюще сужает
различие в скорости вычислений для предложенных типов чисел.Поскольку все
вычисления 8087 делает с двойной точночтью,независимо от типа,он делает
двойную точность даже более привлекательной.
В отличии от И.Б. ,Т.Б. не всегда округляет дробную часть числа в
большую сторону.Т.Б. особым образом анализирует любое число,содержащее 5 в
его дробной части.Число округляется в направлении ближайшего четного чис-
ла.Например,число 0.5 будет округляться до 0,как ближайшего четного чис-
ла.Поскольку в большинстве методов округления числа всегда округляются в
большую сторону,метод Т.Б. действительно дает более равномерное распреде-
ление.
Константы
Програмами Т.Б. оьраьатывается два разных класса данных:константы
и переменные.Переменные допускают изменение их значения по мере прогона
программы.Значение константы фиксировано во время компилирования и не мо-
жет быть изменено во время исполнения программы.Т.Б. поддерживает три типа
констант:строчные константы,числовые константы и,в порядке расширения
И.Б.,специальную форму целой константы,именованные константы.
Строчные константы
Строчные константы-это просто группы литер,окруженные двойными ка-
вычками;например
"THIS IS STRING"(это строка)
"3.14159"
- 51 -
"TIM TONES,ATTORNEY OF LAW" (ТИМ ДЖОНС,юрист)
Если строка оканчивается строчной константой,закрывающие кавычки
можно опустить:
PRINT " THIS IS LOPPY BUT LEGAL (Это небрежность,но она законна)
Числовые константы
Числовые константы представляются числовыми значениями,поэтому они
состоят прежде всего из цифр от 0 до 9 и десятичной точки.Для отрицатель-
ных констант проставляемый перед ними знак минус(-) ;знак (+) для положи-
тельных констант можно ставить и не ставить.Величина точности,которую вы
предусматриваете,определяется внутренним представлением(целое,длинное це-
лое,единчная или двойная точность),которое Т.Б. будет исползовать при об-
работке этой константы.
Если значения не содержат десятичную точку и лежит в диапазоне от
- 31 31-1
2 до 2 ,что превышает диапазон,Т.Б. использует свой тип длинного цело
го.(Примечание:тип длинного целого невозможен в И.Б.)
Если значение содержит десятичную точку и имеет до шести цифр,Т.Б.
использует свой тип плавающей точки единичной точности.
Числовая константа с десятичной точкой и более чем шесть цифр или
целое число,являющееся слишком большим,чтобы быть длинным целым,храниться
в формате плавающей точки двойной точности.Например:
345.1 единичная точность
1.103221 единичная точность
1.1032137 двойная точность
3456783.1234 двойная точность
Идентификация целых констант в других основаниях
Иногда удобновыражать целые в основаниях,иных чем десятичное.Это в
частности верно,когда выражается информация,являющаяся двоичной по своему
характеру;например,машинные адреса.Т.Б. позволяет вам специфицировать це-
лые данные в шестнадцатиричном ,восьмеричном и двоичном основании.Следует
заметить,что длинные целые нельзя представлять с изменением нотации.
Шестнадцатиричная константа содержит до четырех литер ,где каждая
литера имеет установки от 0 до 9 и от А до F,и должны предшествоваться &H.
Восьмеричные константы состоят только из литер от 0 до 7,могут
иметь до 6 цифр и должны предшествовать &О (либо просто &).
Двоичные константы содержат только 0 и 1.Могут быть длинной до 16
цифр и должны предшествовать &B.
Каждая следущая константа представляет одно и то же целое,десятичное
число 256:
&h100
&O400
&400
&b100000000
Именованние константы
Т.Б. позволяет ссылаться вам на целые константы по имени.Это пред-
ставляет собой некоторое усиление И.Б.,чем то похожее на возможность CONST
в Паскале.Таким образом можно именовать только целые.
Чтобы именовать целую константу предпошлите ей идентификатор со
снаком процента(%) и назначте ему целую константу.В отличии от перемен-
ной,вы можете использовать именованную константу в левой части оператора
назначения точно однако и ей может назначаться только постоянное значение(
не переменная или выражение).Например:%DEBUG=-1 'именованная константа
DEBAG%=1234 'целая переменная
Используйте именованные константы для флагов условных вычислений
для повышения читабельности ваших программ.(Вы также можете использовать
именованние константы для уменьшения случаев "магических чисел" в ваших
программах."Магическими числами" являются фантастические значения ,которые
что-то значат для вас,когда вы впервые пишете программу,но не шестью меся-
- 52 -
цами позже,когда вы к ней возвращаетесь).
Переменные
Переменная представляет собоц идентификатор,которым представляются
числовые и строчные значения.В отличии от константы,значение переменной
может меняться в процессе исполнения программы.Подобно меткам имена пере-
менных должны начинаться с буквы и могут содержать любое число букв и
цифр.Не скупитесь в назначении имен важных переменных.В отличии от И.Б.,в
Т.Б. длинные имена переменных не крадут память в период прогона.Для пере-
менных ENDOFMONTHTOTALZ (итоги на конец года) и EMT(акроним того же имени)
одинаково требуется ровно 4 байта для хранения в период прогона.
Т.Б. педдерживает пять типов переменных:строка,целое,длинное це-
лое,единичная точность.Имя переменной определяет ее тип.Обычно набор пере-
менной сопровождается добавлением литеры оператора типа к имени переменной.
Строчные переменные заканчиваются знаком доллара ($):
a$="turbo basic"
в целых переменных используют знак процента (%):
a%=100
в качестве идентификатора длинных целых используют амперсанд(&):
a&=7000
переменные с плавающей точкой единичной точности сопровождаются
восклицательным знаком:
a!=1.1
переменные с плавающей точкой двойной точности оканчиваются знаком
номера(#):
а#=1.031
Если вы не вкючаете в имя переменной литеру оператора типа,Т.Б.
будет использовать тип по умолчанию-единичная точность.Чтобы тип по умол-
чанию изменить на другой,используется оператор DEFTYPE:
например,
A#=1.031 'А# есть переменная двойной точности
B=16.5 'B имеет единичную точность
A%=3 'A% есть целая переменная;A#-это отдельная переменная
DEFINTM 'тип по умолчанию для переменных ,начиная с М,теперь целый
M=16 'М есть целое
Следует отметить,что А%,A#,A&,A$ и A!-это пять отдельных переменных.
Массивы
Массив-это группа строчных или числовыхданных ,разделяющих между
собой одно и то же имя переменной.Отдельные значения ,которые образуют
массив,называются элементом.Элемент массива может использоваться в опера-
торе или выражении всюду,где вы использовали строчную или числовую пере-
менную.Другими словами,каждый элемент массива сам по себе является пере-
менной.
Во время запуска программы каждый элемент числового массива устан-
вливается в нуль.Строчные массивы устанавливаются в нуль-строку("").Образ-
меривание динамического массива также очищает кажый элемент.Если программа
позднее повторно запускается с помощью оператора RUN,это возбуждение пов-
торяется.
Заявление имени и типа массива,так же как определение числа и ор-
ганизации его элементов,выполняется посредством оператора:
DIMENSION
DIM PAYTENTS(55)
создает массив переменных PAYMENTS(выплаты),состоящий из 56 эле-
ментов единичной точности,нумеруемых от нуля до 55.Массив PAYMENTS и какая
либо переменная единичной точности,именованная также являются отдельными
переменными.
Построчные индексы
Отдельные элементы массива выбираются с помощью подстрочных индек-
сов,целых выражений в круглых скобках справа от имени массивной перемен-
ной,например,PAYMENTS(1) и PAYMENTS(22) -это два из 56 элементов массива
- 53 -
PAYMENTS.Обычно первый элемент массива выбирается со значением подстросно-
го индекса ноль,хотя это можно изменить с помощью оператора DIM или OPTION
BASE:например
'заявляется массив из 56-ти элементов
'с границами подстрочных индексов от 0 до 55
dim payments(55)
- - - - - - - - -
option base 1
'этим оператором dim заявляется 55-ти злементный массив
'c границами от 1 до 55 ,т.к. имеет место оператор option base
dim payments(55)
Если вы используете какой-то массивв программе без его образмери-
вания,Т.Б. продолжает работу,как если бы вы заявили одиннадцати-элементный
массив(значения подстрочного индекса от 0 до 10).Однако мы рекомендуем вам
потратить время на явное образмеривание каждого массива,используемого ва-
шей программой.
Как усиление методологии обраьотки массивов в интерпретаторном
бейсике,Т.Б. дает вам возможность определять диапазон значений подстрочных
индексов6а не только верхнее ограничение.Например,оператором DIM
DIM B(50:60)
создается массив В,состоящий из одиннадцати элементов единичной
точности,нумеруемых от 50 до 60.
Оператором
DIM C(50:60,25:45)
создается двумерный массив С,содержащий 231(11*21) элемент.
Способности Т.Б. определять диапазон подстрочных индексов дает вам
возможность моделировать структуры программных данных наиболее близко со-
ответствующие решаемой задаче.
Рассмотрим ,например,программу отслеживаущую статистику рождаемос-
ти в 19 веке.Центральной структурой данных этой программы является массив
единичной точности из 100 элементов ,которые содержат число детей,родив-
шихся в каждом году прошлого столетии .
Идеально,если бы вы создавали массив,в котором используются значе-
ния подстрочных индексов равные году,в котором имели место рождения(напри-
мер,BIRTHS(1851) представляет сколько много детей вошло в мир в 1851 г.:
DIM BIRTHS(1899)
.
.
.
FOR N=1800 TO 1899
PRINT "THERE WERE "BIRTHS(N)"BIRTHS IN "N
NEXT N
К сожаленью DIM BIRTHS(1899)создает 1900-элементный массив,из ко-
торого первое 1800 идут в отход.Традиционно программисты,работающие на
Бейсике ,решают эту задачу,заявляя массив как
dim births(99)
и далее
for n=1800 to 1899
print "there were"births(n-1800)"births in "n
next n
В то время как подобные вещи усложняют дело и замедляют программу
на эту сотню неожиданных вычитаний,которых прежде не было.
Для определения наименьшего элемента в массиве можно также исполь-
зовать связанный оператор option base,хотя механизм диапазона средство бо-
лее мощное и предпочтительное.
Строчные массивы
Элементы строчных массивов содержат строки ,а не числа.Каждая
строка может быть разной длины от 0 до 32767 литер.Общее строчное прост-
ранство для строчных массивов состовляет 64К.Например:
dim a$(50)
создает последовательность из 51 независимых строчных переменных:
- 54 -
a$(0)="a medium lendth" 'строка из 22 литер
a$(1)=" " 'нуль-строка
a$(2)=space$(20000) 'строка из 20000 литер
.
.
.
а$(50)="the last one" 'последняя строка
Многомерные массивы
Массивы могут иметь одно или более измерений,вплоть до максималь-
ных 8.Одномерный массив представляет собой просто список переменных.Дву-
мерный массив представляет таблицу чисел с рядами и колонками информа-
ции.Равно возможны и многомерные массивы,не имеющие готового аналога в ре-
альном мире:
DIM A(15)
DIM B(15,20)
DIM C(5,5,10,20,2)
Максимальное число элементов на один размер равно 32768.
Тестирование границ массивов
Т.Б. старательно удерживает вас от попадания в затруднительное по-
ложение с плохоми подстрочными индексами(т.е. такими ,которые слишком ве-
лики,или слишком малы для данного массива).И компилятор сообщает вам о
плохих постоянных подстрочных индексах:
DIM A(50)
A(51)=33
Эта программа не будет компилироваться,поскольку Т.Б. неизвестно
как генерировать код для доступа к 52-му элементу 51-элементного масси-
ва.Однако ,если вы используете в качестве подстрочника индексов перемен-
ные,компилятор ошибку не обнаружит:
DIM A(50)
N=51
A(N)=99
Доже этот код компилируется без ошибки ,вы еще не можете уследить
ссылку на диапазон в строке 3 во время прогона,компилируя с включенным пе-
реключателем отладки границ(СМ.раздел "Команда опций" в главе 3,где дается
более подробная информация о проверке подстрочных индексов).
Требования к хранению массивов
По техническим причинам,относящимся к скорости исполнения и эфек-
тивности размера кода,Т.Б. ограничивает размер отдельных массивов до 64
К.,хотя программа может иметь столько 64Л-массивов,сколько позволяет па-
мять.Максимальное число элементов,которое может содержать массив,есть фун-
кция его типа,как показано ниже:
---------------------------------------------------------------
тип требования к хранению
---------------------------------------------------------------
целый 2 байта на элемент (32768 на 64 К)
длинный целый 4 байта на элемент (16384 на 64 К)
единичной точности -------------""------------
двойной точности 8 байтов на элемент (8192 на 64 К)
строчный 4 байта на элемент (16384 на 64 К)
---------------------------------------------------------------
Примечание:В элементе строчного массива содержится только указа-
тель и информация о длине.Сами строчные данные храняться в строчном прост-
ранстве и занимают столько байтов,сколько литер имеет строка.Строчное
пространство максимально может содержать 64 К литер.
Динамическое разделение ресурсов
Т.Б. поддерживает динамическое распределение ресурсов памяти.Это
означает создание массивов переменного размера(или статических) во время
- 55 -
компилирования.
Это дает вам возможность конструировать массивы,которые велики
точно настолько,сколько необходимо для обработки данных программой во вре-
мя прогона.
Чтобы создать динамический массив ,в операторе DIM просто исполь-
зуются переменные аргументы;если память имеется в наличии,массив будет
создаваться.Когда ваша программа заканчивает использование этого масси-
ва,применяйте оператор ERASE для освобождения от него и память можно ис-
пользовать для других целей.
Например:
'разберитесь сколько записей есть в файле
'образмерьте динамические массивы и зпгрузите их
OPEN "PARTS.DTA" AS #1 LEN=56
COUNT=LOF(1)/56
DIM PARTS(COUNT),DESC$(COUNT),GUAN(COUNT),COST(COUNT)
GOSUB LOADARRAYS
GOSUB USEARRAYS
ERASE PARTS,DESC$,GUAN,GOST
Чтобы воспользоваться преимуществом динамических массивов Т.Б.,вам
необходимо только принять решение о вызове каждого массива в программе:как
статического или как динамического.Является его размер постоянным в соот-
ветствии с конструкцией программы ,или он зависит от какого-то парамет-
ра,который неизвестен до периода прогона?Например,массив BIRTHS из приво-
дившегося ранее примера лучше создавать как статическую структуру-он всег-
да длжен быть длинной 100 элементов.
Ловушка динамических массивов состоит в том,что вы можете попы-
таться образмертвать большой массив и потерпеть неудачу из-за недостатка
свободной памяти в период прогона для выполнения ваших требований.Если
программа содержит только статические массивы и уже заявлено достаточно
памяти для начала работы,прекращение прогона быть не может;эти массивы
создаются еще до начала прогона программы.
Программа ,использующая динамические массивы,должна быть поэтому
как-то осведомлена о том,что в период прогона может оказаться недостаточно
памяти для заявления желаемых массивов.Перед попыткой образмерить динами-
ческий массив используйте функцию FRE(-1),чтобы посмоьреть достаточно ли
места для него .
Заявление статических и динамических массивов
Типом массивов по умолчанию,содержащихся в программе, управляют
метаоператоры $DYNAMIC и $STATIC.Обычно программа содержить только один
из этих операторов.По умолчанию компилятор полагает атрибут $STSTIC.
Класс хранения массива также может быть установлен с использовани-
ем аттрибутов STATIC и DYNAMIC в DIM-операторе.Кроме того,массив всегда
динамический,если в сочетании с DIM-оператором используется какое-то выра-
жение.
Например: $STATIC ' с этого момента все предполагаемые массивы явля-
'ются статическими
DIM A(40),B(20,20)
DIM DYNAMIC C(20) 'атрибут DYNAMIC преодолевает STATIC ,установ-
ленный по умолчанию
DIM D(N) 'использование переменной в DIM также вынуждает к дейст-
'вию атрибут DYNAMIC
$DYNAMIC 'с этого момента компилятор предполагает все массивы ди-
'намическими
DIM E(50) 'массив у динамический
Динамические массивы устраняются с помощью оператора ERASE.Стира-
ние динамического массива не высвобождает память,но приводит к установке
его элементов в ноль(для строчных массивов в ноль-строку).
Выражения
Выражение состоит из операторов и операндов ,которые обеспечивают
выполнение определенных операций при вычислении выражения.В Т.Б. имеется
два фундаментальных типа выражения:Строчные и числовые.
- 56 -
Строчное выражение состоит из строчных констант,строчных перемен-
ных и строчных функций (из тех,которые оканчиваются знаком доллара
"$"),опционально комбинированных со сменяющим их оператором,знаком плюс
"+".Строчные выражения редуцируются до строки;т.е. ,до последовательности
литер кода ASCIIизвестной длинны.Примерами строчных выражений являются :
"Cats and dogs"
a$
a$+z$
left$(a$+z$)
a$+mid$("cots and digs",5,3)
right$(mid$(a$+z$,1,6),3)
Числовые выражения состоят из числовых констант,переменных и функ-
ций,опционально разделяемых числовыми операторами.Числовые выражения всег-
да редуцируются к значениюодного из четырех числовых типов(целому,длинному
целому,единичной точности,двойной точности).
Примерами числовых выражений являются:
37
37/15
a
37/ф
sqr(37/a)
sqr(s+d)/a)*sin(37/a)
При формировании числовых выражений вы должны знать,что определен-
ные операции будут выполняться первыми.Ниже дан список порядка вычилений
выражения.Возведение в степень имеет наивысший приоритет;импликация-наи-
меньший.
.возведение в степень
.отрицание
.умножение,деление с плавающей точкой(*,/)
.деление нацело()
.модуль (mod)
.сложение,вычитание(-+)
.операторы отношения (<,<=,=>,>,<>)
.not (не)
.and (и)
.or (или)
.xor (исключающее или)
.eqv (эквивалентность)
.imp (импликация)
Например выражение 3+6/3 дает при вычислении 5 ,а не 3.
Поскольку деление имеет более высокий приоритет,чем сложение,опе-
рация деления выполняется первой.
При обработке операций с одинаковым приоритетом Т.Б. следует слева
направо.Например, в выражении 4-3+6 вычитание выполняется раньше сложения.
Операции внутри скобок имеют наивысший приоритет и всегда выполня-
ются первыми;внутри скобок выполняется стандартный порядок предпочтения.
Операторы
Числовые операторы классифицируются по трем главным группам:
арифметические,отношения,логические.
Арифметические операторы
Они обеспечивают выполнение обычных математических операций.Арифме-
тические операторы Т.Б. перечислены в порядке их предпочтения в таблице:
---------------------------------------------------------------
оператор действие пример
---------------------------------------------------------------
^ возведение в степень 10^3
---------------------------------------------------------------
- отрицание -16
---------------------------------------------------------------
*,/ умножение ,деление 45*19,45/19
с плавающей точкой
- 57 -
---------------------------------------------------------------
mod модуль 45mod19
---------------------------------------------------------------
\ деление нацело 45\19
---------------------------------------------------------------
+,- сложение ,вычитание 45+19,46-23
---------------------------------------------------------------
Пара этих операторов требует небольшого обьяснения.Обратной косой
чертой (\)представляется деление нацело.При делении нацело операнды округля-
ются до целых и получается усеченное частное от деления без остатка;напри-
мер ,5\2 равно 2,а 9\10 равно нулю.
Остаток от деления нацело можно определить с помощью оператора mod
.(Следует заметить ,что оператор mod имеет законное действие только для
коротких целых).Действие оператора mod подобно делению нацело,за исключе-
нием того,что выдается остаток от деления нацело,а не частное;например , 5
mod равно 1.
Операторы отношения
Операторы отношения дают вам возможность сравнивать значения двух
строк или чисел (но не значения каждого) для получения булева результата
TRUE (истинно) или FALSE (ложно) .Результат сравнения назначается как це-
лое значение -1,если отношение истинно и 0 если отношение ложно.Например,
PRINT 5>6,5<6,(5<6)*15
дает распечатку 0,-1,-15.Хотя они могут использоватьсяв любом
арифметическом выражении (например a-(b>c)/13,числовые результаты выдавае-
мые операторами отношения,главным образом6используются в операторе IF или
другом операторе,обеспечивающем принятие решения для обработки сужде-
ния,касающегося программной последовательности действий.Операторы отноше-
ния перечислены в таблице:
---------------------------------------------------------------
оператор отношение пример
---------------------------------------------------------------
= равенство X=Y
<> несходство X<>Y
< меньше чем X<Y
> больше чем X>Y
<= меньше чем или равно X<=Y
>= больше чем или равно X>=Y
----------------------------------------------------------------
Когда в каком -то выражении комбинируются арифметические операторы
и операторы отношения,арифметические операции всегда выполняются первы-
ми.Например,4=5<4*3 вычисляется как -1(истинно),потому что арифм.операции
выполняются до операции отношения,которая в конце концов тестирует истин-
ность утверждения 9<12.
Логические операторы
Логическими операторами выполняются логические (булевы) операции
над целыми.При использованиие с операторами отношения они дают вам возмож-
ность настраивать сложные тесты ,подобные:
IF DAY>29 END MONTH=2 THEN "ERROR IN DATE"
Этот оператор обеспечивает выполнение логического И над целыми ре-
зультатами,выдаваемыми двумя операторами отношения.(Оператор AND имеет
меньший приоритет ,чем операторы отношения. "<"и"=",поэтому в скобках не-
обходимости нет).Например,если DAY=30,а MONTH=2,оба оператора отношения
дают TRUE(-1).Принципы представления двоичных целых таковы,что -1 имеет
значение &HFFFF (все биты установлены);представление 0 есть &H0000,т.е.
все биты обнулены.Далее оператор AND выполняет операцию логического И над
этими двумя TRUE результатами:
1111 1111 1111 1111
and
1111 1111 1111 1111
-------------------
1111 1111 1111 1111 давая результат TRUE (ненулевой)
- 58 -
Операция OR (логическое ИЛИ) выдает TRUE ,если один или более ее
аргументов истинны,а результат FALSE(ложно) -если оба аргумента ложны.
Операция XOR(исключающее ИЛИ) выдает истинно,если значения различ-
ны и ложно ,если значения одинаковы.
-1 xor -1 есть false
5>6 xor 5<7 есть true
Функция EQV(эквивалентность) противоположна xor.Она выдает истин-
но,если два логических значения одинаковы при тестировании и возвращает
ложно ,если это не так:
-1 eqv 0 есть false
-1 eqv -1 есть true
Оператор IMP(импликации) выдает ложно ,только если первый операнд
истинно,а второй ложно:
-1 IMP -1 есть true
0 imp -1 есть true
Следует заметить ,что логические операторы работают с целыми,но не
с длинными целыми или значениями с плавающей точкой.Если операнды логичес-
кого выражения не могут быть преобразованы в целые,возникает переполнение:
X=500000
IF X OR Y THEN GO EXIT
Этот оператор IF дает ошибку переполнения если X не может быть ус-
пешно преобразовано в целое.
Битовые манипуляции
В длополнение к созданию сложных тестов,логические операторы поз-
воляют управлять основными битовыми образчиками их целых операндов.Наибо-
лее общими операциями являются AND,OR,XOR-маскирование.
AND-маски используются для очистки выбранных битов целых количеств
без воздействия на другие биты.Например,чтобы очистить 2 бита наибольшей
значности в целом значении &H3FFF ;т.е. маска содержит все единицы ,кроме
тех битовых позиций,которые вы желаете сделать нулевыми:
1001 0111 0000 0000 &H9700
and
0011 1111 1111 1111 &H3FFF (маска)
--------------------
0001 0111 0000 0000 &H1700 (результат)
OR- маской устанавливаются выбранные биты целого без воздействия на
другие биты,чтобы установить два бита наибольшей значности в &H9700,
используется OR-маска &HC000;т.е. маска содержит все нули,кроме
битовых позиций,которые вы желаете сделать единичными:
1001 0111 0000 0000 &H9700
or
1100 0000 0000 0000 &HC000
--------------------------
1101 0111 0000 0000 &HD700
XOR-маской дополняются (реверсируются) выбранные биты целого коли-
чества без воздействия на его другие биты.Например,чтобы получить дополне-
ние 2 битов наибольшей значности в &h9700,используется XOR с маской
&HC000;т.е. со всеми нулями ,кроме позиций,подлежащих дополнению:
1001 0111 0000 0000 &H9700
xor
1100 0000 0000 0000 &HC00
-------------------------
0101 0111 0000 0000 &H5700
Операции XOR обычны для графики,поскольку они позволяют обьету пе-
ремещаться ,не нарушаясь по сложному фону.Проделайте одно XOR-маскирование
того же обьекта на том же месте для его стирания,восстановливая его фон в
его первоначпльне состоянии .
Строки и операторы отношения
Т.Б. дает вам возможность сравнивать строчные данные.Строчные вы-
ражения можно тестировать на равенство,а также на "больше чем" и "меньше
чем" при алфавитном упорядочении.
- 59 -
Два строчных выражения равны,если они содержат точно одни и те же
литеры точно в одном и том же порядке.Например:
a%="cat"
print a$=cat",a$="cets",a$="cat"
Строчное упорядочение базируется на двух критериях,причем в следу-
ющем порядке:
(1) основных значениях в коде ASCII содержащихся в них литер и
(2) длине.Например,А меньше В,поскольку код ASCII для А есть
65,что меньше кода В ,равного 66.Заметим,однако,что в меньше А ,поскольку
код ASCII для каждой буквы нижного регистра больше соответствующей буквы
верхнего регистра.При сортировке смешанной информации верхнего и нижнего
регистра вы можете выбирать использование функций UCASE$ или LCASE$ для
удержания регистровых различий от влияния на сортировку.
Длина вовлекается в рассотрение только если обе строки идентичны
до длинны более короткой из них,причем более короткая оценивается как
меньшая,а длинная как большая;например,"cat"меньше ,чем "cats".
Подпрограммы,функции и процедуры
Структура программы на Т.Б. может быть упрощена посредством ис-
пользования подпрограмм,процедур и функций.Подпрограмма -это снабженный
меткой набор инструкций,подлежащих исполнению,(ссылка на которую осуществ-
ляется так же,как подрограмму),которая выполняет какую-то существенную
важную часть вашей главной программы.Функция-это набор стандартных прог-
рамм,которые выдают строчный или числовой результат,обычно имеющий отноше-
ние к параметрам,подаваемых в функцию.Помещая сложный и/или часто исполь-
зуемый код в вашу программу.
Процедуры Т.Б. и определяемые пользователем функции превосходят
проедлагаемые подпрограммами упрощения структур.Хотя миллионы Бейсик-прог-
рамм написаны с использованием GOSUB/RETURN,как их главного организацион-
ного устройства,мы постоянно рекомендуем вам принять эти более передовые
структуры.
Процедуры и функции в Т.Б. дают истинную реккурсивность,подавая
параметры и обеспечивая доступ к локальным,статистическим и глобальным пе-
ременным.Если вы никогда не имели опыта в получении выгод от передачи па-
раметров,использования нескольких переменных и реккурсивности,вы приобри-
тете его,попытавись сами задавать все это.
Процедуры и функции скорее похожи друг на друга ,чем различны.Наи-
более очевидное различие между ними состоит в том,что функции возвращают
значение и поэтому возбуждаются не явно ,появляясь в выражениях с "FN",до-
бавляемым перед ними.Процедуры не возвращают значение и должны возбуждать-
ся явно с помощью оператора CALL.
Например:
A=W+FNCUBERROOT(C) 'вызов функции
CFKK ONTCHAR(A) 'вызов подпрограммы
Подпрограмма
Подпрограммами,состоящими из снабженных метками групп операто-
ров,которые оканчиваются оператором RETURN,реализуется традиционный метод
подразделения Бейсик- программ.
Чтобы исполнить подпрограмму вы можете воспользоваться оператором
GOSUB(идти к подпрограмме) для указания метки,ассоциируемой с первым опе-
ратором подпрограммы.Когда встречаются операторы RETURN,управление возвра-
щается к оператору следующему непосредственно после вызывающего подпрог-
рамму GOSUB.Например:
GOSUB ADDMONTHS(сложение по месяцам)
PRINT TOTAL (печатать итог)
ADDMONTHS:
FOR I=1 TO 12
TOTAL=TOTAL+MONTH(1)
NEXT I
RETURN
- 60 -
Функции
Имеется два типа функций:заранее определенные функции(такие как
COS,SIN,LEFT$),которые определяются языком,и функции, определяемые пользо-
вателем,которые могут быть одно или многострочными.(Более детально о зара-
нее определенных функциях см.специальные рубрики в главе 5 "Словарь-спра-
вочник Т.Б.").
Синтаксис определения однострочной функции имеет следующий вид:
DEF FN идентификатор [список параметров]=выражение,где идентифика-
тор есть определяемое пользователем имя специального выражения.
Список параметров-это опциональная ,разделяемая запятыми,последо-
вательность из одного или более идентификаторов,которыми представляются
обекты данных,подлежащие отправке в функцию,когда она вызывается во время
прогона.(Для любой функции вы ограничиваетесь 16 параметрами).Выражение
определяет обработку,необходимую для получения значения,возвращаемого фун-
кцией.Рассмотрим,например,метеорологическую программу,в которой постоянно
должно осуществляться преобразование между градусами цельсия (которые
обычно используются внутри самой программы) и градусами форенгейта(которые
отображаются на экране и принимаются с клавиатуры).Однострочные функ-
ции-просто благо для программ такого типа:
DEF FNCTOF(градусы С)=1.8*градусы С)+32
DEF FNTOC(градусы F)=(градусы F-32)*.555555
Чтобы отобразить переменную,которая посредством преобразования
всегда удерживает значения в градусах цельсия,используется FNTOF(читается
как функция С от F) в любом операторе,которое может принимать числовое вы-
ражение;например,PRINT :
TEMP=100
PRINT FNCTOF(TEMP)
Чтобы преобразовать ваши значения из градусов фаренгейта в градусы
цельсия ,используется FNFTOC:
INPUT "ENTER TIDAY'S HIGH",TH (ввод "ввести сегодняшний максиму:"TH)
TEMP=FNFTOC(TH)
Многострочные функции Т.Б. играют более значительную роль 6чем до-
пускается простыми однострочными функциями И.Б..Т.Б. допускает распределе-
ние функций по многим программным строкам и ее эффективное использование
подобно программе,которой тоже случается возвращать значения.Формальный
синтаксис для многострочной функции выглядит следующим образом:
DEF FN идентификатор [список переменных]
[заявление переменных]
.
.
.
[EXIT DEF]
[FN имя функции=выражение]
END DEF
где идентификатором заявляется имя функции.Список параметров-это
опциональный,разделяемый запятыми,перечень формальных параметров,которыми
представляются переменные,подлежащие подаче в функцию,когда она вызывается.
В порядке иллюстрации,рассмотрим многострочную функцию
FACTORAIAL(факториал).(6!=1*2*3*4*5*6=720)
Факториал не входит в набор встроенных матоператоров Т.Б. ,но мно-
гострочные функции покрывают этот пробел:
100 DEF FNFACTORIAL(X%)
110 LOCAL I%,TOTAL#
120 IF X%<0 OR X%>170 THEN FNFACTORIAL#=-1:EXIT DEF
130 TOTAL#=1
140 FORI%=X% TO 2 STEP -1
150 TOTAL#=TOTAL#*I%
160 NEXT I%
170 FNFACTORIAL#=TOTAL#
180 END DEF
FNFACTORIAL демонстрирует структуру многострочной функции(нумера-
ция строк включена, чтобы мы могли ссылаться на различные строки по их но-
мерам в процессе обсуждения-они ,конечно,опциональны).
- 61 -
Определения функции заключены в скобки,образуемые операторами DEF
FN и END DEF.
В строке 180 функции дается ее имя и следовательно тип(# -означает
двойную точность).FNFACTORIAL имеет формальный параметр как единичное це-
лое,X%.
В строке 110 заявляется пара "локальных " переменных ,I% и
TOTAL#.Локальные переменные это временные структуры,существующие и выдан-
ные только в пределах определений функций и процедур.(подробно они обсуж-
даются позднее в разделе,озаглавленном "локальные переменные").
В строке 120 выполняется проверка ошибки в аргументе,подаваемом в
FNFACTORIAL.Нет места попыткам вычислять факториал отрицательного числа
или факториал такого значения аргумента,при котором результат получается
вне значения двойной точности,в этих случаях вы определяете возвращаемое
значение функции как -1 и выход из определения.Программа ,в которой ис-
пользуется FNFACTORIAL должна уметь распознать,что возвращаемое значение
-1 представляет условие ошибки,и соответственно себя вести.(Между про-
чим,0! определяется равным 1).
EXIT DEF предназначен для функции ,что и RETURN для подпрограммы:с
его помощью управление возвращается к оператору ,которым функция ранее вы-
зывалясь.Следует заметить ,что EXIT DEF необязателен,если у вас не возник-
нет необходимости в возврате до момента достижения конца функции.
Строками с 130 по 160 определяется алгоритм вычисления факториалов
эта часть многострочной функции можетбыть сколь угодно длинной или сколь
угодно короткой,в зависимости от необходимости.
В строке 170 определяется возвращаемое факториалом значение пос-
редством назначения имени.Как ни удивительно,назначение не является син-
таксическим требованием для определения функции.Если вы не выполняете наз-
начения имени функции,то возвращаемое значение будет неопределенно.
Определение FNFACTORIAL завершается оператором ENDDEF в строке
180.
Интересно ,сколько перестановок возможно с игральными картами:
PRINT FNFACTORIAL# (52)
дает результат 8.065817094388Е069
Поскольку FNFACTORIAL определяется как имеющий формальный пара-
метр,аргументы с плавающей точкой перед их передачей в функцию округляются
до целых;например FNFACTORIAL(2.7) есть то же самое,что и
FNFACTORIAL(3).Если вы вызываете FNFACTORIAL с числом большим,чем может
обработать стандартная программа Т.Б.,обеспечивающая преобразование к це-
лым(более 32767 или менее -32768),то во время прогона вы получите сообще-
ние об ошибке 6,переполнение.
Тот же процесс реализуется применительно к аргументам встроенных
функций Т.Б.,которые ожидают подачи целых аргументов;например:
LOCATE 2.7,1 обеспечит установку курсора на строке 3.
Сравнение формальных и актуальных параметров
Переменные,которые появляются в списке параметров определения фун-
кции,называются формальными параметрами.Они служат только для определения
функции и полностью отделены от других переменных в программе с теми же
именами.В целях иллюстрации рассмотрим эту программу:
100 DEF FNAREA(X,Y)=X*Y
110 X=56
120 PRINT X,FNAREA(2,3),X
Переменная X в строке 110 и 120 этой программы не имеет отношения
к формальному параметру X ,который определяется в функции площадь в первой
строке.Когда прогоняется эта программа,X сохраняет свое значение по обе
стороны результата обращения к FNплощадь:оба раза распечатывается 56.
Значения,которыми функция обеспечивается в период прогона,иногда
называется актуальными параметрами.В последнем примере актуальными пара-
метрами,называемыми в FNплощадь были константы 2 и 3.Так же просто акту-
альными параметрами могут быть переменные:
A=2:B=3
PRINT FNAREA(A,B)
Файлы
- 62 -
Как только вы создали программу или накопили данные,к которым вам
вновь потребуется доступ,следующий шаг состоит в том,чтобы сохранить
их.При хранении ваших данных вы создаете файл,который может использоваться
для ввода и вывода.Существуют три типа файлов,которые вы можете соз-
дать:последовательные,произвольного доступа и двоичные.Здесь мы рассмотрим
каждый из этих типов ,но прежде обратим внимание на то,как именовать файлы
и/или справочники (которые содержат несколько файлов или субсправочников).
Как граждане мира MS-DOS,файлы ,которые вы создаете и к которым
реализуете доступ с использованием Т.Б.,должны подчиняться DOS-соглашениям
об имяобразовании.Имена файлов состоят из двух частей ,отделяемых точкой:
ИМЯ ФАЙЛА.УДЛ
где имя файла может быть от одной до восьми литер,а УДЛ-удлинение
опционального типа,включающее в себя до трех литер.Если имя файла длинее
восьми литер,Т.Б. автоматически его замечает и добавляет в конце точку.Ес-
ли,например,вы вводите
TESTINGDATA (тестирование данных)
Это превращается в
TESTINGD (тестирование Д.)
Если строка имеет точку,которая отделяет имя файла от его удлине-
ния, но само имя длинее восьми литер,Т.Б. добавляет удлинение:
VERYLONGFILENAME.TBS
превращается в
VARYLONG.TBS
Если вы используете удлинение с более чем тремя литерами,лишние
литеры замечаются:
TESTING'.DATA
становиться
TESTING'.DAT
Имена файлов могут состоять из следующих литер:
А-Z 0-9 ()[]@#^%&_/'-
Следует заметить ,что литера пробела использоваться не может,а
буквы нижнего регистра автоматически преобразуются в буквы верхнего регис-
тра.Ниже дпны примеры законных имен файлов:
MYFIRST.TBS
MYIST.TBS
MY_ABC.(1)
10-25-51.XX&
В дополнение к операторам создания,чтения,записи файлов,Т.Б. рас-
полагает средствами выполнения из программы функций утилит,подобный утили-
там DOS.Оператором NAME осуществляется перенаименование файлов.Оператором
KILL-стирание файлов.Оператором MKDIR создаются справочники.CHDIR меняет
задействованный справочник.RMDIR стирает справочник.Не существует команды
COPY ,вместо ее используйте приемы двоичного файла (или SHELL для возбуж-
дения COMMAND.COM).
Имена файлов ,используемые в операторе Т.Б. (например
,KILL,OPEN),должны быть в строчной форме;например:
KILL "MYFILE.BAK"
A$="MYFILE.BAK":KILL A$
но не
KILL MYFILE.BAK
Справочники и имена проходов
В MS-DOS 2.0 и выше (Т.Б. и создаваемые с его помощью программы не
могут прогоняться на более ранних версиях) форматообразованием гибкого или
жесткого диска создается справочник фиксированного размера,известный как
корневой.Входы в корневой справочник могут представлять собой и файлы и
дополнительные справочники (называемые субсправочниками).
Подобно обычным файлам,субсправочники имеют свои собственные стан-
дартные файловые имена и удлинения,в результате чего получается система
файлов и справочников, представляющее собой повернутое вершиной вниз дерево.
В верхней части системного дерева находится корневой справочник
имя которого заранее определяется как одна обратная косая черта ([).
- 63 -
Файлы в дереве специфицируются посредством указания цепочки спра-
вочников,или имени прохода который к ним ведет.
Имена проходов образуются посредством перечисления субсправочников,ведущих
к файлу,отделяемых друг от друга обратной косой чертой .Например,
C:\TURBO\BASIC\GAMES\CHESS.BAS
Ведущая обратная косая черта указывает,что проход начинается у
корневого справочника,в противоположность текущему справочнику.DOS удержи-
вает след текущего справочника (известного как задействованный или спра-
вочник по умолчанию),по которому пойдет поиск файлов,когда вы не специфи-
цируете проход.Если имя прохода не начинается с обратной косой четрты ,то
им описывается проход относительно текущего справочника,если текущим явля-
ется \TURBO\BASIC ,оба следущие описания точно определяют местоположение
CHESS.BAS
GAMES CHESS.BAS
или \TURBO\BASIC\GAMES\CHESS.BAS
В каждом субсправочнике,при перечислении из DOS ,указываются два
специальных файла :"." и ".." имя файла с одной точкой указывает справоч-
ник,подлежащий включению в перечень как субсправочник.Имя файла с двумя
точками обеспечивает ссылку на родительский файл этого справочника.
Приемы хранения файлов
Т.Б. представляется три различных способа хранения информации на
диске и нахождения ее на нем:ввод /вывод последовательных,произвольных и
двоичных файлов .У каждого из ниж есть преимущества и недостатки,поэтому
какой из них окажется лучшим,для вас в работе зависит от вашей области
применения.
Краткий экскурс в управление базами данных
Традиционная номенклатура программирования подразделяет файлы дан-
ных на отдельные записи,каждая из которых состоит из одного или более по-
лей.Например,в программе перечня почтовой рассылки каждая запись в файле
данных представляет лицо.В каждой записи имеются поля,содержащие особые
сведения об этом лице.Например,штат и ZIP-код(код по программе зонального
усовершенствования почтовой системы США)-этг два поля,которые вы можете
найти в файле перечня почтовой рассылки.При бумажном представлении строки
соответствуют записям,колонки-полям:
-----------------------------------------------------------------
имя адрес город штат ZIP класс оклад
-----------------------------------------------------------------
KATI GARVEY 1010э.редвурд сиу-сити айвова 51103 73 0.00
ЭНДРУ РИЧ 37АНДЕРСОН-РОУ хЬюСТОН ТЕхАС 77018 58 500.00
-----------------------------------------------------------------
Этот файл почтовых отправлений бывших школьников имеет три запи-
си,по семь полей в каждой.
По причинам,которые мы кратко поясним,обычно делается различие
между числовыми и строчными полями,в этом номере последние три поля явля-
ются числовыми ,остальные строчными.
Последовательные файлы
Командами последовательных файлов Т.Б. создаются текстовые фай-
лы:файл литер кода ASCII с парами возврат каретки/подача строки,разделяю-
щими записи.
Вполне вероятно,что наилучшим поводом для применения последова-
тельных файлов является степень их портативности для других программ,язы-
ков программирования и компьютеров.По этой причине вы часто можете видеть
в последовательных файлах некий общий знаменатель обработки данных:они мо-
гут считываться программами для пословной обработки и редактирования,и по-
сылаться через серийные устройства коммутации к чужим компьютерам.
Идея,на которой базируется последовательные файлы,сама по себе
проста:записать в них , как если бы они представляли собой экран,и считы-
вать из них,как если бы они являлись клавиатурой.
- 64 -
Создавайте последовательный файл, применяя следущие шаги:
1.OPEN (открыть)файл в режиме последовательного OUTPUT(выво-
да).
Последовательные файлы имеют две опции для подготовки файла к вы-
воду:
OUTPUT:если файл не существует,создается новый файл.Если файл уже
существует,его содержимое стирается,а затем он трактуется как новый файл.
2.Вывести данные в файл.Для записи данных в последовательный файл
используют WRITE# (записать),PRINT# (напечатать) или PRINT USING# (напеча-
тать,используя).
3.CLOSE (закрыть) файл.Оператором CLOSE закрывается некоторая пе-
ременная файла после завершения программой всех операций ввода/вывода.
Чтобы считать последовательный файл:
1.OPEN файл в режиме последовательного INPUT (вывода).
2.считывать данные из файла,используя операторы Т.Б. INPUT ,INPUT$
,LINE INPUT#.
3&CLOSE файл.Оператором CLOSE закрывается некоторая файловая пере-
менная после завершения программой всех операций ввода/вывода.
Отрицательной стороной последовательных файлов явл. то ,что вы об-
ладаете только последовательным доступом к вашим данным.Вы получаете за
один раз доступ к одной записи,начиная с первой.Это означает,что вы желае-
те получить последнюю запись из последовательного файла с 23000 запи-
сей,вам приднтся пройти через первые 22999 записей.
Пoэтому последовательные файлы лучше всего подходят к таким облас-
тям применения,в которых осуществляется последовательная обработка(напри-
мер подсчет слов,проверка орфографии,печать почтовых меток в файловом по-
рядке) или в которых все данные можно держать в памяти одновременно.Это
дает вам возможность считывать файл за один проход при запуске программы и
записывать его весь в конце.В промежитке между началом и концом доступ к
информации может осуществляться через временные произвольного доступа ис-
ходные условия,реализуемые в виде числовых и строчных массивов.
Последовательные файлы органически подходят для таких ситуаций в
базе данных,когда длина индивидуальной записи переменна.Например,предполо-
жим,что список питомцев имеет поле коментариев.Некоторые люди могут иметь
коментариев на 100 байтов и более;другие ,возможно большинство не имеют их
вовсе.Последовательными файлами эта проблема решается без пустых трат дис-
кового пространства.
С использованием Т.Б. можно создавать два типа последовательных
файлов :(1) последовательные файлы с разделителями полей,где каждое поле в
каждой строке файла отдкляется спецлитерами ,и (2) безразделительные пос-
ледовательные файлы,где каждое поле выглядит совершенно так же ,как если
бы его данные отображались на экране или расчитывались на печатающем
устройстве.Эти два типа файлов создаются с помощью операторов WRITE# и
PRINT#,соответственно.(Используйте INPUT#,INPUT$ или LINE INPUT# для счи-
тывания информации из одного из типов последовательного файла).
Последовательные файлы с разделителями полей
Взглянув на последовательный файл ,созданный Т.Б.,вы можете заме-
тить,что данные в нем разделяются запятыми,а любая строчка заключается в
двойные кавычки-точно в той форме,в которой осуществляется поиск данных с
использованием оператора INPUT#.(Двойные кавычки,окружающие строки,удержи-
вает вас от попадания в затруднительное положение в связи с запятыми,со-
держащимися в строках.Числа не нуждаются в кавычках,поскольку они записы-
ваются без запятых).
Рассмотрим следущую программу и исполним ее:
'зтой программой открывается последовательный файл
'для вывода ею записывается пара строк различных
'типов данных в файл с использованием оператора
' write#
OPEN "SEQUENTI.BAS" FOR OUTPUT AS #1
STRINGVARIABLE$="THIS IS STRING OF TEXT"
INTEGER%=1000
FLOATINGPOINT!=30000.1234
когда файл создается для считывания с помощью оператора INPUT#,ис-
- 65 -
пользуется оператор WRITE# ,а не PRINT#&
Безразделительные последовательные файлы
В безраздилительном последовательном файле данные выглядят в точ-
ности так,как если бы они отображались на экране с использованием PRINT
или распечатывались на печатающем устройствес использованием оператора
LPRINT.Рассмотрим и исполним следущую программу:
'эта программа открывает посл.файл для вывода
'она записывает пару строк различных типов данных в файл ,исполь-
'зую оператор PRINT# и PRINT#USING.
OPEN "SEQUENTI.BAS" FOR OUTPUT AS #1
STRINGVARIABLE$="Это строка текста"
INTEGER%=1000
FLOATINGPOINT!=30000.1234
PRINT# 1,STRINGVARITABLE$,INTEGER%,FLOATINGPOINT!
STRINGVARITABLE$="Это другая строка"
INTEGER%=-32767
FLOATINGPOINT!=123454321
PRINT#1,USING "#####&##.##^^^^";INTEGER%_
STRINGVARIABLE$,FLOATINGPOINT!
CLOSE #1
END
Содержимое файла SEQUENTI.BAS выглядит следущим образом:
это строка текста 1000 30000ю12306875
-32767другая строка 12.35E+03
Важно обратить внимание на то ,что в данном случае существует фор-
мат данных,и на то как происходит считывание .Если вы попытаетесь исполь-
зовать тот же оператор INPUT#,что и во втором примере программы,Т.Б. выда-
ет ошибку периода прогона.Т.Б. будет считывать слово "Это" первой строки
как строчную переменную и попытается считать следущие два слова как две
числовые переменные.Вместо этого вы должны использовать INPUT$ илиLINE
INPUT#.
Следущая программа считывает последовательный файл ,который был
создан программой из последнего примера:
' эта программа открывает последовательный файл для ввода
'она считывапет пару строк различных типов данных из файла с ис-
'пользованием операторов LINE INPUT# и INPUT$
OPEN "SEQUENTI.BAS" FOR INPUT AS #1
STRINGVARIABLE$=" "
STRINGVARIABLE$=INPUT$(80,1)
PRINT STRING VARIABLE$
LINE INPUT #1,STRINGVARIABLE$
PRINT STGINGVARIABLE$
CLOSE #1
END
Ниже представлены операторы и функции Т.Б. ,которые управляют вво-
дом/выводом последовательных файлов:
-------------------------------------------------------------
оператор /функция операция
-------------------------------------------------------------
CLOSE прекращаются операции над файлом(ах)
EOF возврат сигнала о достижении конца файла
INPUT# читывание записи(строки текста)в указанную пере
менную
INPUT$ считывание N литер в строчную переменную
LINE INPUT# считывание целой строки в строчную переменную
OPEN открывается файл для ввода/вывода
PRINT# осуществляется печать в файл как если бы это было печат
PRINT#USING ающее устройство или экран
WRITE в файл записываются данные ,разделяемые запятыми
--------------------------------------------------------------
Произвольные файлы
- 66 -
Файлы произвольного доступа состоят из записей,доступ к которым
возможен в любой последовательности.Это означает,что данные храняться точ-
но так ,как они появляются в памяти,в результате чего достигается экономия
времени при обраьотке хранения (по причине отсутствия необходимости в
трансляции),как призаписи файла,так и при его считывании.
Вообще говоря,произвольные файлы являются лучшим решением проблем
организации баз данных,чем последовательные файлы,хотя и они не без недос-
татков.Один из них -произвольные файлы не слишком транспортабельны.Вы не
можете заглянуть в них с помощью редактора или набрать их каким-то осмыс-
ленным образом на экране.Фактически,для перемещения произвольного файла
Т.Б. к другому компьютеру или для другого языка вам ,вероятно,потребуется
написать какую-то трансляционную программу считывания произвольного файла
и вывода текстового(последовательного ) файла.Поскольку в И.Б. для значе-
ний с плавающей запятой используется нестандартный формат МИКРОСОФТ, а в
Т.Б. стандартные соглашения IEEP для плавающей точки.Вы не сможете считы-
вать поля с плавающей точкой из произвольных файлов,созданных в И.Б.,с
помощью программы на Т.Б., и наоборот без какой-то дополнительной работы.
Нами предусмотрено четыре специальные функции для выхода из этого
затруднения:CUMS и CVMD для переключения числовых полей в формате МИКРО-
СОФТ в переменные единичной и двойной точности в строки формата МИКРО-
СОФТ,которые можнозатем записывать в файл.
Главное преимущество произвольных файлов выражено в их имени:в лю-
бое время доступна каждая запись файла.Например,в базе данных из 23000
бывших питомцев программа может идти прямо к записи 22709 или 11663 без
считывания всех других.Эта возможность делает их единственным выбором для
организации больших файлов,а вероятно и лучшим выбором для маленьких,осо-
бенно тех,которые имеют относительно постоянные длины записей.
Произвольные файлы могут быть причиной бесполезного расходования
дискового пространства,посколько оно распределяется с ориентацией на наи-
большее возможное в каждой записи поле.Например,включение поля комментари-
ев в 110 байтов приводит к занятию каждой записью дискового пространства
110 байтов,даже если его использует только одна из тысячи записей.
Другая крайность состоит в том,что если имеют постояную длину,осо-
бенно если они содержат в большинстве своем числа,на произвольных файлах
может экономить пространство в обьеме ,большем того,который дает последо-
вательная форма. В эквивалентном файле кажый элемент одного и того же типа
(целое,длинное целое и т.д.)занимает одно и то же количество дискового
пространства.Например,для каждого из следущих значений требуется 4 байта:
0
1.660965Е-27
15000.1
641
623000000
В отличие от этого,в последовательном файле для чисел потребуется
столько байтов,сколько они занимают при распечатке в литерах ASCII,плюс
один байт для разделительной запятой.Например,
WRITE# 1,0:0 занимает 3 байта
PRINT# 1,0:0 занимает 6 байтов
PRINT# 1.66.56E-27 занимает 13байтов
Умеренной ценой ,которую вы платите за выигрыш от использования
произвольных файлов,является некоторая дополнительная обработка,необходи-
мая для получения строк и чисел при выводе,а такие при вводе в той фор-
ме,которая может обрабатываться стандартными программами средствами произ-
вольных файлов.
Вы можете создавать ,записывать и считывать произвольные фай-
лы,прибегая к следующим шагам:
-открыть и специфицировать длину каждой записи
OPEN FILESPEC AS [#] имя файла LEN=записи.размер
Параметром LEN Т.Б. указывается ,что это файл произвольного досту-
па.В отличии от последовательного файла,вы не заявляете о его открытии для
ввода или вывода,поскольку произвольный файл можно одновременно считывать
и записывать.
-исполнить оператор FIELD для определения маппирования последова-
тельностью строчных переменных (после ее обработки они становяться "пере-
менными поля")
- 67 -
FIELD имя файла,ширина AS-строчной переменной[ширина AS строчной
пер.]...
данный буфер представляет собой загрузочный склад данных,подлежа-
щих записи в этот конкретный файл или считывания из него.Для данного про-
извольного файла оператор FIELD долежо исполняться 6по крайней мере ,один
раз.
-Чтобы записать в файл ,используйте LSET и RSET для загрузки долж-
ны быть преобразованы в строчную форму с помощью подходящей после чего
можно использовать LSET или RSET.Наконкц для записи в файл на специфициро-
ванной вами позиции используется PUT.
-Чтобы считать запись из файла ,используется GET ,числовые пере-
менные вашей программы загружаются из подходящих переменных буфера.Прежде
чем вы сможете что-то с этим сделать,числовые данные должны быть преобра-
зованы из строчной формы с помощью одной из функций преобразования(напри-
мер CVS для единичной точности).
-По окончании CLOSE (закрыть) файл.
Ниже перечислены операторы и функции Т.Б.,используемые для управ-
ления считыванием и записью произвольных файлов:
----------------------------------------------------------------
оператор/функция операция
----------------------------------------------------------------
CLOSE закрыть файл
CVI,CVL,CVS,CVD преобраз.переменную поля в соответств
ующий тип
FIELD определить переменную поля
GET считать запись
LOC определить номер записи,считываемой послед
ней
LSET,RSET назначить переменную поля
MKI$,MKL$,MKS$,MKD$ преобразовать спец. числовые типы в форму,кото
рая может быть назначена переменной поля
MKMS$,MKMD$,CVMS,CVMD спец. функции для трансляции формата МИКРОСОФТ
OPEN открыть файл,как произвольный
PUT записать запись
----------------------------------------------------------------
пример:
'программа считывания из базы данных перечня почтовых отправлений
'пользователь вводит номер записи;программа отражает все поля
'для этой записи
' этой программой не могут считываться последовательные файлы
OPEN "ADDRESS.DTA " AS #1 LEN=81
FIELD #1 25 AS ИМЯ$,25 AS АДРЕС$,18 AS ГОРОД$,2 AS КЛАСС$,4 AS_
ВКЛАД$
INPUT "какую запись вы желаете видеть",номер_записи
GET #1,номер_записи
PRINT "данные для записи"номер_записи
PRINT "имя: "имя$
print "адрес :"адрес$
PRINT "город/штат/zip"город$,штат$,cvl(zip$)
PRINT "класс :"cvi(класс$)
PRINT "самый последний вклад:"cvl(вклад$)
предостережение :НЕ используйте переменную поля с левой стороны
оператора назначения.Назначением переменной поля осуществляется разьедине-
ние переменной с назначенным ей буфером.Например:
после ZIP$=AS
переменная поля ZIP$ более не относиться к буферу,который был ей
назначен в операторе FIELD.Следовательно операторами LSET и RSET она обр
атно выдаваться не будет.
Двоичные файлы
Прием обработки двоичных файлов в Т.Б. есть расширение И.Б.,кото-
рое дает вам возможность открывать любой файл как числовую последователь-
ность байтов вне зависимости от литер ASCII,соображении о различии строк и
чисел,длины записи,возвратов каретки или чего-либо еще.
- 68 -
При двоичном подходе к проблеме файла,вы его считываете и записы-
ваете,специфицируя какие байты записать и куда в файле они должны пой-
ти.Это похоже на услуги,обеспечиваемые вызовами DOS-системы для считывания
и записи файлов.
За гибкость всегда приходится платить.Файлы двоичного режима тре-
буют ,чтобы вами была проделана вся работа по решению того,что куда
идет.Двоичный режим может быть наилучшей опцией при работе с выравниными
файлами,которые не привязаны к формату ASCII;например,файлы DBASE или
LOTUS 1-2-3.
Конечно вы должны знать точную структуру файла,еще до того ,как
попытаетесь разбить его на числа и строки,согласуемые с Т.Б..
Каждый файл,открываемый в двоичном режиме,имеет назначенный пози-
ционный индикатор,который указывает место в файле6которое будет считывать-
ся или записываться следующим.Для установки позиционного индикатора ис-
пользуется оператор SEEK,а для считывания-функция LOC.
Двоичные файлы доступны следующим образом:
1.OPEN файл в BINARY режиме.Вам нет необходимости специфицировать
будете заниматься считыванием или записью-вы можете не делать ни того ,ни
другого.
2.Чтобы считать файл,используется SEEK для позиционирования файло-
вого указателя на байте,который вы желаете считывать.Затем,для считывания
специфицированного числа литер (от 1 до 32767) в строчной переменной,ис-
пользуется оператор GET$.
3.Чтобы записать файл,загружается строчная переменная с подлежащей
записи информацией.Затем,для спецификации строчных данных и точки в фай-
ле,с которой она должна записываться,используется оператор PUT$.
4.По окончании,CLOSE (закрыть файл).
Ниже перечислены операторы и функции Т.Б. для управления чтением и
записью двоичных файлов.
---------------------------------------------------------------
оператор/функция операция
---------------------------------------------------------------
CLOSE закрыть файл
GET$ считывается специфицируемое число начиная
с поисковой позиции
LOC определяется поисковая позиция в файле
LOF возвращается длина файла
OPEN открывается файл и заявляется,что он двоичный
PUT$ записывается специфицируемое число байтов,начиная
с поисковой позиции
SEEK перемещается поисковый идентификатор
---------------------------------------------------------------
Устройство ввода/вывода
Т.Б. поддерживает так называемые файлы устройств,т.е. аппаратные
устройства,такие как клавиатура,экран и печатающее устройство,как если бы
они были последовательными файлами.Каждое поддерживаемое устройство имеет
зарезервированное файловое имя,которое оканчивается двоеточием:
---------------------------------------------------------------
имя функция
---------------------------------------------------------------
KYBR:(клавиатура) клавиатура может открываться для ввода.считыв
ание из файла устройства KYBR: подобно использованию INKEY$
SCRN:(экран)экран может открываться для вывода записи в SCRN: по-
добно PRINTING(распечатке)
LPT1-3: устройства строчной печати 1-3
COM1-2: коммуникационные устройства 1 и 2
---------------------------------------------------------------
Например:
OPEN "SCRN:"FOR OUTPUT AS $ 1:PRINT #1,"HELLO"(открыть "экран:"для
вывода AS #1 ,"алло")
имеет тот же эффект ,что и PRINT "HELLO"
а
OPEN "KYBRD:FOR INPUT AS #1:INPUT #1,AS#1:INPUT #1,A$,B$
- 69 -
(открыть "клавиатура " для ввода AS #1:ввод#1,a$,b$
есть то же самое,что и
INPUT A$,B$
Графика
Когда она подходит к отражаемой на экране информации,программа,ге-
нерированная Т.Б.,должна работать в рамках ограничений,дозволенных ей ап-
паратным дисплейным оборудованием.Т.Б. поддерживает три главных класса ви-
део-интерфейсов на РС и совместимых с ними:
монохромный дисплейный адаптер,который годиться только для монох-
ромного текста,а также цветной /графичкский адаптер(CGA) и улучшенный гра-
фический адаптер (EGA),каждый из которых может давать графику в цвете и
черно-белую
-----------------------------------------------------------------
адаптер режим экрана формат текста примечания
-----------------------------------------------------------------
монохром 0 80 колонок 80х25 литер с 4 атрибутами
(нормальный,яркий,мерцающий
с подчеркиванием)
-----------------------------------------------------------------
CGA 0,1,2 40/80 колонок до 16 цветов(только в тексто-
вом режиме);до 4 цветов в
графическом режиме.Разрешающая
способность экрана 64х200
пиксел
------------------------------------------------------------------
EGA 0,1,2,7,8,9,10 40/80колонок разрешающая способность экрана
до 640х350 пиксел.До 16 цве-
тов из 64-цветной палитры в за-
висимости от памяти EGA)
-------------------------------------------------------------------
В соответствии с художественными талантами этих видео-плат,Т.Б.
может выбирать любой режим с помощью оператора SCREEN или WIDTH.
Текстовые режимы
В 80 -колонном текстовом режиме экран состоит из 25 строк по 80
литерных позиций в каждой,нумеруемых от 1 до 25(сверху вниз)и от 1 до 80
(слева направо).В режиме 40-колонного текста(именующемся на адаптерах
CGA/EGA)экран состоит из 25 строк по 40 литер.Каждая позиция каждой строки
может содержать в таблице литерного набора приложения F.
!\ !
! \ !
! строки (1-25) строка 25 !
! / колонка 80 !
! / \ !
!-----------------------------------------------------------#!25
Строка 25 зарезервирована для отображения программных клавиш.
Вообще говоря,вы помещаете литеры на экран ,перемещая курсор в же-
лаемое положение с помощью оператора LOCATE,а затем используйте PRINT .Эк-
зотические литеры которые трудно генерировать на клавиатуре ,можно полу-
чать с помощью функции CHR$.
25-я строка экрана заслуживает специального рассмотрения:операто-
ром KEY она загружается описаниями функциональных клавиш.Чтобы защитить
эти описания клавиш вы не выключаете отображение функциональных клавиш с
помощью KEY OFF.
Для монохромных адаптеров оператор COLOR можно использовать с
целью создания специальных эффектов,таких как инверсия и уменьшение ви-
део-интенсивности,а также подчеркивание и/или мерцание текста.В случае
адаптера CGA/EGA ,оператор COLOR используется для выбора того цвета,кото-
рый будет отображаться при выводе посредством оператора PRINT.
В текстовом режиме адаптеры CGA/EGA поддерживают до восьми страниц
- 70 -
отображения;отображаемая страница устанавливается с помощью оператора
SCREEN.
Графические режимы
Т.Б. имеет полный комплект программ для графического вычерчивания
точек,линий и фигур на экране в различном цвете.Если увас нет подходящего
аппратного видео-оборудования,такого как CGA/EGA ,эти команды не будут ра-
ботать так ,как здесь описано.(это приводит к ошибке вызова незаконной
функции).
В графическом режиме экран трактуется как сетка малых точек,или
пиксел,любая из которых может включаться (как белая или какого-то цвета)
или выключаться (в цвете фона,обычно черном).Пикселы идентифицируются их
положением на (X,Y) сетке,началом координат которой по умолчанию является
верхний левый угол экрана.Значение Х представляет собой расстояние по го-
ризонтали от левой кромки экрана,а значение Y -расстояние по вертикали от
верхней кромки экрана.Следует заметить,что это представление для Y являет-
ся обратным по отношению к обычной декартовской геометрии,в которой мень-
шие значения Y получаются по мере перемещения сверху вниз.
В зависимости от выбранного режима (а возможно и от размера ви-
део-памяти вашей установки)горизонтальная разрешающая способность может
быть 320 или 640 пиксел,тогда как по вертикали эти величины состовляют 200
или 350 .Эта комбинация определяет также число возможных цветов(2/*/16) и
максим. количество видео-страниц(1/2/4/8).Нумерация пиксел индексируется
от нуля,что отличается от нумерации рядов и колонок текста,которая начина-
ется с единицы.
(0,0)! !(319,0)
! <-------320 пиксел по горизонтали-----> !
! !
! !
! 200 пиксел по горизонтали !
! !
!(0,199)----------------------------------------------(319,199)
Каждый пиксел имеет ассоциированное с ним цветовое значение(или
атрибут) в диапазоне от 0 до макс. в конкретном режиме.Цвет,получающийся
по каждому значению,находится под управлением операторов COLOR и PALETTE.
Точка последней ссылки
После большинства графических операций некий кончик паза отображения
"парит " над какой -то X,Y-координатой экрана.Положение этого паза называ-
ется точкой последней ссылки или LPR.Когда вы впервые возбуждаете графи-
ческий режим с помощью оператора SCREEN,LPR устанавливается в центре экрана.
Определенные чертежные команды способны принимать LPR как коорди-
натный аргумент.Например,Если оператором LINE задается только точка расс-
тояния,линия вычерчивается между LPR и специфицированной точкой расстоя-
ния.Далее эта точка становиться LPR.
Абсолютные и относительные координаты
Большинством графических операторов Т.Б. могут специфицироваться
координаты как в относительной,так и в абсолютной форме.
В абсолютной форме координатной парой (X,Y) точно описывается ,где
должна произойти операция,например,PSET(50,75) обеспечивает включение пик-
села,находящегося на расстоянии 50 пиксел от левой и на 75 пиксел от верх-
ней кромок экрана.
В относительной форме координата специфицируется относительно LPR
и представляет собой приращение от LPR по горизонтали и вертикали.Для раз-
личия этой формы и стандартных абсолютных координат в ней используется
ключевое слово STEP.например,если LPR есть (60,75):
PSET(10,20) специфицирует точку (10,20)
PSET STEP (10,20) специфицирует точку (70,95),находящуюся на 10
- 71 -
дальше и 20 ниже LPR.Отрицательные относительные координатные значения
специфицируют точку выше и левее LPR.
Переопределение экранных координат
Если вам неудобна эта адресная система,для изменения маппирования
пары(X,Y) ,задаваемой в операторах графики и вычерчиваемой на экране пик-
селами,используйте оператор WINDOW(окно).
Например:
WINDOW (-1,1)-(1,-1)
переопределяет экранные координаты к наиболее подходящей декарто-
вой плоскости аналитической геометрии,с началом координат в средней части
и значениями Y ,возрастающими при перемещении вверх.После этого
оператора WINDOW оператор PSET(0,0) включает физический пиксел (100,16)
PSET (-1,-1) дает самый нижний и самый левый пиксел экрана,а PSET (5,5)
включает физический пиксел (220,50) в середине верхнего правого квадра-
та.применяя окно можно значительно упрастить генерирование математических
диаграмм и графиков.
Оператор VIEW дает вам возможность создавать активный регион или
"окно" на экране графики и оптимально специфицировать координаты относи-
тельно верхнего угла окна. Вне окна вы не можете манипулировать пикселами.
В число графических команд входят следущие:
-------------------------------------------------------------
команда функция
-------------------------------------------------------------
CIRCLE вычертить всю или часть окружности
COLOR выбрать цветовую палитру или цвет фона
DRAW мини-чертежный язык
GET загрузить числовой массив с пиксел-информацией с экр
ана
LINE вычертить линию или рамку ,заданную двумя точками
PAINT заполнить замкнутую зону сплошным цветом или образчиком цвет
овой гаммы
PALETTE выбор одного или более цветов палитры
PALETTE USING изменить все коды палитры одним оператором
PMAP выполнить маппирование
POINT возвратить информацию о точке или точке последней ссылки
PRESET установить точку графика
PUT копировать содержимое числового массива на экран
SCREEN выбор графического режима
VIEW заявить активную зону для графических операций
WINDOW определить координаты окна
---------------------------------------------------------------
Глава 5
Словарь-справочник ТУРБО-БЕЙСИКА
200 с лишним команд ТУРБО-БЕЙСИКА можно сгруппировать соответственно
их синтаксическому классу в функции,операторы,системные переменные и метао-
ператоры.
Функции (заранее определенные в отличие от определяемых пользователем)
возвращают значение и потому должны использоваться внутри выражений.Для
большинства из них требуются один или более аргументов;например:
t=cos(3.1) -числовая функция с 1 числовым аргументом
t$=left$("cat",2) -строчная функция с 1 строчным и одним числовым ар-
гументами
Операторы-это неделимые строительные блоки,образующие программы.Опера-
торы должны появлятся в строке,занимая ее целиком,или с разделяющими смеж-
ные операторы двоеточиями,например:
CIRCLE (160,100),50 -чертить окружность
CALL Mysub(x,y,z) -вызвать процедуру
a=a+1 -присвоение (см. оператор LET)
Системные переменные являются заранее определенными идентификаторами
для доступа и управления определенной системой информации,например:
a$=DATE$ -считать системную дату
TIME$="00:00" -установить системное время
Метаоператоры представляют собой директивы компилятору.Если быть точ-
ными,они не являются частью языка, но вместо этого работают на другом уров-
не,управляя поведением компилятора,например:
$INCLUDE "module1.tbs" -загрузка и обработка включаемого файла
$STACK &H1000 -см.размер стека
Метаоператоры,подобно субменю опций компилятора,управляют компилятором
во время компиляции,а не компьютером во время прогона.Метаоператорам пред-
шествует знак доллара ($) для отличия их от обычных операторов.В строке мо-
жет быть только один метаоператор и,в отличии от некоторых других компили-
рованных Бейсиков,они не помещаются внутрь REMARKS(замечаний).
Формат справочника
-------------------
Каждый вход справочника содержит описание,синтаксис,общие замечания и
пример использования оператора,функции или процедуры.Где это приемлемо,свя-
занные входы снабжены перекресными ссылками,оговорены любые ограничения
применения,а также отмечены любые различия в использовании их в Турбо-Бей-
сике и интерпретаторе Бейсика.
Ниже приведены соглашения,касающиеся синтаксического описания,исполь-
зуемого в алфавитном порядке команд.
Числовое выражения
-------------------
Числовая константа,числовая функция или числовая переменная,либо их
комбинация,в которой используются арифметические,логические операторы и
операторы отношения.Иногда специфицируется тип числового выражения,например
целое выражение:
---------------
16
X
16^X
SIN(3.14159)
SIN(X/(16*X))
Строковое выражение
--------------------
Строковая константа,строковая переменная или строковая функция,либо их
комбинация ,опционально включающая в себя оператор сцепления,знак
плюс(+).Например:
"CAT"
a$+"CAT"
LEFT$(a$+"CAT$",4)
- 73 -
Спецификация файла
-------------------
Строчное выражение описывающее имя файла MS-DOS (восемь литер с опцио-
нальным трехлитерным расширением,которому предшествует точка,регистр без-
различен),возможно включающее в себя спецификацию привода и/или прохода.За
исключением случаев снабженных замечаниями,имена файлов должны выражаться
как строчные переменные,либо заключаться в двойные кавычки,например:
"MAYFIRST.BAS"
"turbobas\myfirst.bas"
"a:\turbobas\myfirst.bas"
Проход
-------
Строчное выражение,описывающее законный субсправочник на зарегистриро-
ванном приводе.Например:
"\TURBOBAS"
"GAMES"
LPR
----
"Точка последней ссылки"(LPR) используется как неявное координатное
значение в некоторых графических операциях и устанавливается большинством
операторов графики .
Метка
------
Метка представляет собой либо алфавитно-цифровую метку,либо номер
строки,идентифицирующие программную строку.Номера строк и метки более или
менее взаимозаменяемы в синтаксисе Турбо-Бейсика,за исключением того,что
метки должны появляться в строке сами по себе,как таковые.
Типографические особенности
----------------------------
Курсивом указывают зоны команд,подлежащие заполнению специальной ин-
формацией области применения,например:
REG register,value
Текстом в литерах верхнего регистра обозначается часть команды,которая
должна присутствовать дословно,например:
RESUME NEXT
Квадратные скобки ([]) обозначают ,что заключенная в них информация
является опциональной,например:
OPEN filispec as [#]filenum
означает,что вы можете включать знак номера (#) перед номером файла в
операторе OPEN (открыть),либо отказаться от него по вашему выбору.Поэтому
законны обе следущие команды:
OPEN "cust.dta" AS 1
OPEN "cust.dta" AS #1
Фигурными скобками ({}) указывается выбор двух или более опций,одна из
которых должна использоваться обязательно.Опции разделяются вертикальной
чертой.Например:
KEY {on!off}
означает,что законны оба заявления KEY ON и KEY OFF,а само по себе KEY
незаконно.
Многоточием (...)отмечается,что часть команды может повторится столько
раз,сколько необходимо.Например:
READ variable[,variable]...
означает,что одним оператором READ может отрабатываться множество пе-
ременных,разделяемых запятыми:
READ a$
READ a$,b$,a,b,c
Три вертикально расположенные точки указывают на пропуск одной или бо-
лее строк программного текста:
FOR n=1 to 10
.
- 74 -
.
.
NEXT n
Метаоператор $COM
------------------
Функция $COM распределяет пространство для приемного буфера последова-
------- тельного входного устройства.
Синтаксис $COM n size
---------
Замечания n указывает коммуникационный адаптер (1 или 2),а size (размер)
--------- есть целая константа,определяющая емкость буфера для этого
адаптера (от 0 до 32767).По умолчанию-256.Значение по умолчанию может уста-
навливаться и храниться в меню опций.Значения по умолчанию могут изменяться
метаоператорами в программе.
Ограничения Размер буфера специфицируемый в операторе $COM,должен
----------- находиться в диапазоне от 0 до 32767.Интерпретаторный
Бейсик будет располагать буфер одного и того же размера для обоих
коммуникационных входных устройств,если они существуют.В Турбо-Бейсике
размеры этих двух буферов устанавливаются независимо.
Различия При возбуждении в интерпретаторном Бейсике эта функциональность
--------- доступна только через параметры камандной строки.
Пример 'оператор $COM используется для изменения пространства по
'умолчанию,распределяемого для буферов последовательных
'входных устройств.Настроить подпрограмму для обработки
'COM- ввода
$COM 1 1024 'настраивается буфер ввода 1 К
ON COM(1) GOSUB получить комввод
COM(1) ON 'включить обработку COM ввода
OPEN "COM1" AS #1 'oткрыть переменную файла как COM1
PRINT "Нажмите любую клавищу для завершения программы"
'пока клавиша еще не нажата
WHILE NOT INSTAT
LOCATE 2.1
PRINT TIME$ 'отобразить время
WEND
Пример 'оператор $COM используется для изменения пространства по
'умолчанию,распределяемого для буферов последовательных
'входных устройств.Настроить подпрограмму для обработки
'COM- ввода
$COM 1 1024 'настраивается буфер ввода 1 К
ON COM(1) GOSUB получить комввод
COM(1) ON 'включить обработку COM ввода
OPEN "COM1" AS #1 'oткрыть переменную файла как COM1
PRINT "Нажмите любую клавищу для завершения программы"
'пока клавиша еще не нажата
WHILE NOT INSTAT
LOCATE 2.1
PRINT TIME$ 'отобразить время
WEND
END 'конец программы
ПолучитьКомввод : 'обработать COM-порт прерывание
'считать ввод из буфера COM-порта
INPUT #1,КомПортВвод (заголовок %)
RETURN
КонецВвода: 'конец COM-порт ввода
PRINT "Достигнут конец ввода"
END 'конец программы
Метаоператор $DYNAMIC
----------------------
Функция $DYNAMIC заявляет ,что размещение массива по умолчанию
-------- должно быть динамическим.
Синтаксис $DYNAMIC
----------
Замечания Метаоператор $DYNAMIC не имеет аргументов и
---------- заявляет, что тип размещения массивов по умолчанию должен быть
динамическим.Пространство для динамических массивов распределяется во время
прогона.Для ликвидации массива используйте оператор ERASE.Динамические мас-
сивы дают более эфективное использование памяти.
Массивы можно заявлять как динамические с помощью ключевого слова DYNAMIC
- 75 -
или аргументов выражениа в операторе DIM.Массивы с переменными размера-
ми,которые заявдяются как общие или локальные в процедуре,либо функ-
ции,всегда динамические.
СМ.также DIM
-------- ERASE
FRE
$STATIC
Пример 'настроить обработчик ошибок
------- ON ERROR GOTO ОшибокОбработчик
'отобразить память,имеющуюся в массивном пространстве
PRINT FRE(-1)
DIM БольшойМассив(10000) 'заявить дин.массив
БолшойМассив(6666)=66
PRINT FRE(-1)
PRINT БольшойМассив(6666)
END 'конец прогона
Ошибокобработчик:
PRINT "ошибка типа " ERR;
PRINT "произошла по адресу" ERADR
END
Метаоператор $EVENT
--------------------
Функция $EVEN управляет генерированием кода отслеживания событий.
--------
Синтаксис $EVEN {ON!OFF}
---------
Замечания Если ваша программа содержит какое-либо средство захвата событий
--------- определенного сорта (например,ON KEY,ON COM),то $EVENT по умолча-
нию ON (вкл.),что приводит к генерированию компилятором кода проверки события
между всеми операторами вашей прграммы.Если в программе не предусмотрено
отслеживание,то $EVENT находится в состоянии OFF (выкл.) и код события не
генерируется.
$EVENT дает вам возможность управлять тем,какие части программы
будут проходить без проверки событий.Если существует какая-то зона,где мак-
симальная скорость важнее ответа на случайное событие,то заключайте эту
часть программного кода в скобки,образуемые метаоператорами $EVENT OFF и
$EVENT ON.
Пример: 'пример события
ON TIMER(1) gosub ПотеряВремени
timer on
print "Медленный цикл"
x=таймер
for i=1 to 10000
timer on
print "Медленный цикл"
x=таймер
for i=1 to 10000
i=i+i-i
next i
y=таймер
print "Время цикла есть" y-x
$event off
print "быстрый цикл"
x=таймер
for i=1 to 10000
i=i+i-i
next i
y=таймер
print "время цикла естьЭ" y-x
end
ПотеряВремени:
- 76 -
for j=1 to 1000:j=j+j-j:next j:print
return
Метаоператоры $IF/$ELSE/$ENDIF
------------------------------
Функция $IF,$ELSE и $ENDIF определяют частм программы,подлежащие компилиро-
-------- ванию или от него уклоняющиеся (часто этот способ называют условным
компилированием).
Синтаксис $IF константа
--------- .
.операторы
.
[$else
.
.операторы]
.
$ENDIF
Замечания Константа-это именованная константа или постоянное значение.Если
--------- константа не нулевая (TRUE),то операторы между $IF и $ELSE
компилируются,а операторы между $ELSE и $ENDIF не компилируются.
Если Константа нулевая (FALSE),то операторы между $IF и $ELSE
игнорируются,а находящиеся между $ELSE и $ENDIF компилируюся.$ELSE устанав-
ливается опционально,но $ENDIF требуется всегда.Операторы условной компиля-
ции могут вкладываться до уровня глубиной 256.
Пример %ЦветнойЭкран=1 'установка именованной константы на ненулевое
'значение указывает работу на цветном экране
'установка нулевого значения указывает работу в монохромной системе
$if %ЦветнойЭкран
def seg=&HB800 'адрес памяти графического экрана
$else
def seg=&HB000 'адрес памяти монохромного экрана
for i%=0 to 4000 step 2
poke i%,asc("A") 'заполнить экран буквами "A"
next i%
'хранить все 4000 байтов видео-прогона
bsave "$if.dta",0,4000
end
Метаоператор $INCLUDE
---------------------
Функция $INCLUDE включает текстовый файл
--------
Синтаксис $INCLUDE файласпец.литерал
---------
Замечания Используйте $INCLUDE для компилирования текста другого файла
--------- вместе с текущим файлом.ФайлаСпец.литерал это строчная констан-
та,а представляемый его файл должен следовать соглашениям DOS об имени фай-
ла и в то же время представлять собой исходный файл Турбо Бейсика.Если для
включенного файла не специфицируется его имя,предполагается расширение .BAS.
Механизм $INCLUDE вызывает трактовку компилятором включаемого файла таким
опбразом,как если бы он физически существовал в первоначальном тексте в
данной точке.Это дает вам возможность разрывать вашу программу на управляе-
мые куски.Принцип рабочий файл/главный файл Турбо Бейсика относится к
$INCLUDE.В иллюстративных целях рассмотрим файлы CALCAREA.BAS и CONST.BAS:
Файл CALCAREA.BAS
print "программа вычисления площади круга"
- 77 -
print " если вы находите эту программу полезной"
print "пожалуйста вышлите 3500 долларов"
print "Франк Борланд"
print "Скатте Валлей,СА95066"
print "-------------------------------------------------"
$include "CONST.BAS"
input "ввести радиус",r
print "площадь ="pi*r*r
Файл CONST.BAS
'общецелевые константы
pi=ANT(1)*4
%истинно=-1
%ложно=0
%максX=319
%максY=199
Чтобы компилировать эту программу CALCAREA должен быть сделан "главным
файлом",посколько это файл с оператором $INCLUDE .Рабочий файл двигается
туда и обратно по отношению к любому другому,в зависимости от нужд редакти-
рования (т.е если имеет ошибки).Вне зависимости от текущего рабочего фай-
ла,компилирование всегда начинается с CALCAREA (главного файла).(Более де-
тально см.в разделе "Главное меню" гл.3)
Когда компилятор Турбо Бейсика встречает метаоператор $INCLUDE в строке 7
файла CALCAREA ,он загружает и начинает считывать из CONST.BAS .Когда этот
код исчерпывается,компилятор захватывает оставленное им место в первона-
чальной программе.
$INCLUDE может вкладываться на глубину 5;т.е включаемый файл может иметь
свои $INCLUDE.
Пример 'хранить следущее в файле "example.inc"
-------- sub СкажиАлло 'процедура вывод
print "Алло"
end sub
'далее следунт главная программа
$include "example.inc" 'включить исходный файл
call СкажиАлло
end
Метаоператор $INLINE
---------------------
Функция $INLINE заявляет внутристрочный машинный код во внутристрочной суб-
------- процедуре.
Синтаксис $INLINE [Список байтов][файлспец.литерал]
---------
Замечания $INLINE может быть только в пределах тела внутристрочной субпро-
--------- цедуры.
Список байтов - это последовательность целых значений в диапазоне
от 0 до 255,подлежащих кодированию непосредственно в обьектном коде в дан-
ной точке.
ФайлСпец.литерал-это имя файла,который содержит код,в который
вставляется внутристрочная.Этот код должен быть переопределяем,а также дол-
жен защищать и восстанавливать следующие регистры:стековый сегмент(SS),сте-
ковый указатель (SP),базовый указатель (BP),сегмент данных (DS).Внутрист-
рочный код может иметь ссылку на пораметры с использованием относительной
адресации BP.Более подробная информация содержится в приложении А "Числовые
соображения" и приложении С "Интерфейс языка ассемблера".
Ппример sub визг inline
'$inline вызывает выдачу визга звуковым излучателем
- 78 -
$inline &HBA,&H00,&H07,&HE4,&H61,&H24,
$inline &HFC,&H34,&H02,&HE6,&H61,&HB9,
$inline &H40,&H01,&HE@,&HFE,&H4A,&H74
$inline &H02,&HF2
end sub
call визг
end
Метаоператор $SEGMENT
---------------------
Функция $SEGMENT заявляет новый кодовый сегмент.
--------
Синтаксис $SEGMENT
---------
Замечания Используйте "безаргументные" метаоператоры $SEGMENT для разрыва
вашей исходной программы,когда компилятор сообщает,что превышено ограниче-
ние 64К для кодового сегмента:ERROR 409 segment overflow press<ESC> (ошибка
409 переполнение сегмента нажмите <ESC>)
Все,что находится после метаоператора $SEGMENT,будет помещено в новый ко-
довый сегмент.В результате любой оператор управления программой
(GOSUB,GOTO),передающее управление черезэту границу,будет реализовать меж-
сегментное перемещение,вызов или переход,для которого требуется несколько
больше времени и стекового пространства.Этот эффект можно минимизиро-
вать,размещая операторы $SEGMENT там,где в программе проходят естественные
линии деления ее на части; например между главными подпрограммами или глав-
ной программой и кодом возбуждения или завершения.
В программе на Турбо Бейсике может быть до 16 кодовых сегментов.Данные
состояниа компилирования ,распечатываемые после его завершения,будут пока-
зывать размер каждого сегмента,отделяемого косой чертой(/).
Примечание :Вы не можете использовать оператор $SEGMENT в структурирован-
ном блоке: for/next,do/loop,while/wend,if block.
Пример sub Процедура1
print "это пустая процедура"
end sub
$segment 'определить второй сегмент
sub Процедура2
print "это другая пустая процедура"
end sub
$segment 'определить третий сегмент
sub Процедура3
print "Это другая пустая процедура"
end sub
call Процедура1
call Процедура2
call Процедура3
end
Метаоператор $SOUND
-------------------
Функция $SOUND заявляет емкость фонового музукального буфера
--------
Синтаксис $SOUND размер буфера
---------
Замечания Размер буфера-это числовая константа,которая указывает нотную ем-
--------- кость фонового буфера оператора PLAY от 1 до 4096.Увеличение ем-
кости буфера до максимального числа нот,которые вы намерены играть в данной
программе,исключает необходимость отслеживания счетчика нот (и соответству-
ющнго ухудшения качества исполнения).
- 79 -
Для каждой ноты требуется 8 байтов памяти;по умолчанию емкость равна 32
нотам или 256 байтам.Значение по умолчанию можно менять и хранить,пользуясь
входом музыкального буфера меню опций.Значения по умолчанию преодолеваются
включенными в код метаоператорами.
Метаоператор $STACK
--------------------
Функция $ STACK заявляет размер стека периода прогона.
--------
Синтаксис $STACK отсчет
---------
Замечания Отсчет -числовая константа от 1024 до 32 К.$STACK определяет
--------- сколько памяти в период прогона будет выделено на стек.Стек
используется для адресов возврата во времени вызовов подпрограмм и в
структурированных операторах,а также для локальных переменнных многострочных
функций.По умолчанию (минимальный) размер состовляет 1024 (400Н) байтов.
Вы можете пожелать размещить больше стекового пространства,если ваша прог-
рамма ненормально структурированта,в ней используются большие локальные пе-
ременные или выполняется реккурсивность.Если вы подозреваете что программа
выбегает за стековое пространство,перекомпилируйте ее с опцией тестирования
стека из меню опций.Программа ,генерированная с этим отладочным переключа-
телем во включенном состоянии,перед входом в подпрограммы,процедуры и функ-
ции всегда проверяет наличное стековое пространство.Значения по умолчанию
продлеваются включенными в код метаоператорами.
Вы можете проверять для себя величину стекового пространства с
помощью функции FRE(-2).
СМ. также FRE
Пример 'дается стек 4096 байтов
$stack &H1000
print fre(-2) 'отображается величина наличного стекового прост-
'ранства
Метаоператор $STATIC
---------------------
Функция $STATIC заявляет ,что размещаемый по умолчанию массив должен быть
-------- статическим.
Синтаксис Метаоператор $STATIC не имеет аргументов и заявляет ,что массив
--------- будет статического типа
Пространство для статических массивов распределяется во время ком-
пилирования.Массивы постоянных размеров являются статическими всегда,за иск-
лючением случаев заявления массива как локального для процедуры или функции
,либо если один и тот же массив имеет более одного размера.
Статические массивы невозможно стирать .Оператором ERASE каждый элемент
массива только возбуждается в ноль или ноль-строку.
Следует заметить,что метаоператор $STATIC ,несмотря на косметическое подо-
бие,не имеет ничего общего с оператором STATIC,которое определяет специаль-
ный тип локальной переменной в процедурах и функциях.В режиме умолчания ком-
пилятора-$STATIC.
CМ. также
DIM
$DYNAMIC
/Ш print "быстрый цикл"
x=таймер
for i=1 to 10000
i=i+i-i
next i
y=таймер
print "время цикла естьЭ" y-x
end
ПотеряВремени:
- 76 -
for j=1 to 1000:j=j+j-j:next j:print
return
Метаоператоры $IF/$ELSE/$ENDIF
------------------------------
чная память ",fre(-1)
'теперь ее меньше
erase a
print "Наличная память",fre(-1)
'никакого отличия нет,поскольку А не перераспределяется,а только
'обнуляется
erase b
print "наличная память ",fre(-1)
'больше памяти,поскольку динамические массивы перераспределяются
end
Функция ABS
-----------
Функция ABS возвращает абсолютное значение
-------
Синтаксис Y=ABS(числовое выражение)
---------
Замечания ABS возвращает абсолютное значение числового выражения.Абсолютное
--------- значение X указывает его величину вне зависимости от знака.Напри-
мер,абсолютное значение -3 равно 3;абсолютное значение +3 есть 3 .
Пример 'ABS возвпащает текущее расстояние от исходной точки,беря абсол.
------- 'значение расстояния
'назначить местоположение
Местоположение=-6.5
'отобразить текущее местоположение
print "текущее местоположение ",Местоположение#
'отобразить тек.расстояние от исходной точки
print "расстояние от исх.точки ",abs(Расстояние#)(Местоположение#)
Функция ASC
-----------
Функция ASC возвращает код ASCII первой литеры строки.
-------
Синтаксис Y=ASC(строчное выражение)
---------
Замечания ASC возвращает код ASCII (от 0 до 255) первой литеры строчного вы-
--------- ражения.Чтобы преобразовать целое в литерную строку,используйте
функцию CHR$,которая при подаче ASCII-значения дает одно-литерную строку.
Ограничения Строчное выражение ,подаваемое в ASC не может быть нулевой(пус-
----------- той) строкой,иначе генерируется ошибка 5 (вызов незаконной функ-
ции).
см. также CHR$
Пример print "ASCII- значение А есть",asc("А")
Функция ATN
-----------
Функция ATN определяет тригонометрический арктангенс.
-------
- 81 -
Синтаксис Y=ATN(числовое выражение0
---------
Замечания ATN определяет арктангенс (инверсию тангенса) числового выраже-
--------- ния.ATN выдает результат двойной точности.
Результат,как и во всех операциях с углами в Турбо Бейсике,предс-
тавляется в радианах,а не в градусах.Радианы -это единици угловых измерений
т.е математически более удобна,чем градусы.Когда углы специфицируются в гра-
дусах в диапазоне от 0 до 360 ,их спецификация в радианах лежит в диапазоне
от 0 до 2п ,при 0 рад7 на полож. оси X и возрастанием против часовой стрел-
ки.Это дает положительную ось Y (90градусов) при п/2 радиан,отрицательную
ось X (180 градусов) при п радиан и отрицательную ось Y (270 градусов) при
3п/2 радиан. 90=п/2рад.
^
!
!
180=п рад !
------------!----------->0=0рад.
!
!
!
!
270=3п/2 рад.
Если вы более тяготеете к градусам,радианы можно преобразовать в градусы
посредством умножения значения в радианах на 57.2958.Например ,арктангенс
0.23456 есть
ATN (.23456) радианы
=0.230395 радианы
=(0.230395*57.2958)градусы
=12.2градусы
Преобразовывайте градусы в радианы посредством умножения на 0.0174533.Нап-
ример,
14 градусы
=(0.0174533*14) радианы
=0.24435 радианы
Вместо того,чтобы запоминать коэффициенты преобразования радианы/граду-
сы,вычисляйте их для себя запомнив их взаимосвязь:2п радиан равны полной ок-
ружности,т.е 360 градусам,так что 1 радиан есть 180/п градусов,и наоборот ,1
градус равен п/180 радиан.
Вам в качестве справки :п с 16-тизначной точностью есть 3.141592633589793
Это значение можно вычислить из выражения
pi#=4*atn(1)
Градус-радианные и радиан-градусные преобразования являются хорошим прило-
жением для однострочных функций.
см. также COS
SIN
TAN
Пример 'вычислить значение pi,используя atn
pi#=4*atn(10
print pi#
Оператор BEEP
-------------
Функция BEEP обеспечивает звучание излучателя звука.
--------
Синтаксис BEEP играет тон 800 гц через динамик в течении 0.25 сек.Опцио-
--------- нальый числовой аргумент вызывает отсчет BEEP-сигналов.BEEP имеет
то же действие,что и литера колокольчика ASCII (код7) при выводе на экран;
например,print CHR$(7).Более мелодичные тоны можно создавать с помощью опе-
раторов SOUND и PLAY.
- 82 -
см. также PLAY
SOUND
Пример BEEP 2 'привлеч внимание пользователя
Функция BIN$
------------
Функция BIN$ двоичнную строку как эквивалент числа
-------
Синтаксис s$=bin$(числовое выражение)
---------
Замечание Числовое выражение лежит в диапазоне от -32768 до 65535.Перед соз-
--------- данием строки любая дробная часть округляется.Если числовое
выражение отрицательно,число возвращается в форме двоичного дополнения.
см также HEX$
OCT$
Пример ' в этом примере отображаются десятичное и двоичное значение для чисел
'от -5 до 5
print using "двоичный эквивалент -##=&";i%,bin$(i%)
next i%
end
Оператор BLOAD
Функция BLOAD загружает в память файл создаваемый с помощью оператора BSAVE.
-------
Синтаксис BLOAD файласпец.[,адрес]
---------
Замечания Файласпец-это строчное выражение,специфицирующее файл для загруз-
--------- ки,которое должно удовлетворять стандартным соглашениям DOS об на-
именовании файлов.Адрес -опциональное числовое выражение от 0 до 65535,кото-
рое указывает в какое место текушего сегмента должен быть загружен файл.Если
адрес опускается ,BLOAD помещает файл по адресу из которого он был изначаль-
но взят на хранение с помощью оператора BSAVE.
Если адрес задается,он преодолевает хранимую с файлом адресную ,информа-
цию,генерированную оператором BSAVE.Поскольку не делается никакой проверки
адреса в BLOAD,вполне возможна небрежная загрузка файла в верхнюю часть DOS
и /или в вашу программу и разрушение системы.
Ограничения BLOAD не будет осуществлять непосредственную загрузку памяти
----------- EGA(улучшенного графического адаптера).
см также BSAVE
DEF SEG
Пример rem загрузить графический экран
def seg &HB800
bload "картинка",0
Оператор BSAVE
--------------
Функция BSAVE сохраняет некоторый диапазон данных на диске
--------
- 83 -
Синтаксис BSAVE файласпец,адрес,длина
---------
Замечания Файласпец-строчное выражение6специфицирующее файл,в который подле-
--------- жат записи данные.Файласпец должно следовать стандартным
соглашениям DOS об именовании файлов.Адрес-это числовое выражение в диапазо-
не от 0 до 65535,указывающее смещаемую часть адреса,с которого файласпец бу-
дет сохраняться (см оператор def seg).Длина есть число байтов для хранения
,от 0 до 65535.BSAVE обеспечивает хранение некоторого диапазона памяти на
диске (эффективно храниться цифровая выборка указанного диапазона во время
BSAVE).Файлы,создаваемые с помощью BSAVE,можно потом перегружать с помощью
команды BLOAD ;опционально файлы можно перегружать по другому адрксу,чем за-
нятый при BSAVE.BSAVE и BLOAD часто используются для хранения и загрузки эк-
ранных образов посредством непосредственного считывания и записи памяти дис-
плея.Дисплейный буфер Монохромного Дисплейного Адаптераимеет длину 4000 бай-
тов и начинается на смещении 0 сегмента &HB000.Дисплейный буфер для Цветного
Графического Адаптера состовляет 4000 байтов в текстовом режиме (SCREEN 0) и
16384 байта как в режимах графики средней и высокой разрешающей способнос-
ти;оба начинаются на смещение 0 в сегменте &HB500.
Ограничения Перед исполнением оператора BSAVE программист должен явно уста-
----------- новить сегмент,который должен будет храниться на диске,
используя оператор DEF SEG.
см также BLOAD
DEF SEG
Пример 'BSAVE заполняет экран буквами А и обеспечивает хранение на диске
for i%=1 to 2000
print "A"
next i%
'определить экран для BSAVE
def seg=&HB000
'хранить монохромный видео-экран
bsave "text.pic",0,4000
' удвоенное число литер поскольку имеются атрибуты
end
Оператор CALL
-------------
Функция CALL вызывает процедуру (подпрограмму0
-------
Синтаксис CALL процимя[(список параметров)]
---------
Замечания Процимя-это имя процедуры6определяемое где-то в прогрмме с помощью
--------- оператора SUB .Список параметров есть опциональный список разделя-
емых запятыми переменных,выражений и /или констант,передаваемых в Проци-
мя.Существует три типа SUB-процедур:STATIC,стандартные процедуры и
INLINE.Предыдущее обсуждение применимо ко всем типам;однако способ,которым
компилятор обрабатывает списки параметров ,зависит от типа SUB-процедуры.Ко-
личество и тип аргументов,подаваемых в процедурутребует согласованности со
списком параметров в определении Процимя;иначе возникаетошибка несогласован-
ности параметрав периода компиляции.Если SUB-процедура является процедурой
INLINE,числоаргументов переменно и никакая проверка набора параметров не вы-
полняется.Сама процедура SUB INLINE ответственна за то как узнать или опре-
делить количество и тип параметров в нее неподаваемых.(Более подробно о SUB
INLINE см в приложении С "Интерфейс языка ассемблера").Когда процедурные ар-
гументы подаются посредством ссылки (т.е являются переменными),они доступны
изменению вызвынной процедурой.Когда переменная заключена в скобки,она пода-
ется значением и исходное значение изменено быть не может.Следует заме-
тить,что выражения и константы всегда подаются значением.Аргументы массивов
- 84 -
специфицируются с использованием пустого набора скобок посде имени массива .
Целые массивы всегда подаются посредством ссылки.Например:
CALL СуммаМассив (а()) 'подать массив а в СуммаМассив
CALL СуммаМассив (а(3)) 'подать элемент 3 массива а в СуммаМассив
см также $INLINE
SUB
Пример DIM Массив (1) 'заявить массив из 2 элементов
SUB ТестПроцедура (i%,l&,s!,d#,e,a(1))
'эта процедура просто выводит значения каждого подаваемого в нее
' параметра
print i%;l&;s!;d#;e;a(0)
end sub
Целое%=1
ДлинноеЦелое&=2
ЕдиничнаяТочность!=4
Массив(0)=5
call ТестПроцедура (Целое%,ДлинноеЦелое&,ЕдиничнаяТочность!,Двой-
наяТочность#,целое%^2,Массив())
end
Оператор CALL ABSOLUTE
----------------------
Функция CALL ABSULUTE возбуждает подпрограмму языка ассемблера.
-------
Синтаксис CALL ABSOLUTE адрес(список параметров)
---------
Замечания Адрес-это числовой скаляр,содержащий смещение внешней подпрограм-
--------- мы,подлежащей возбуждению .Сегмент определяется самым последним
заявлением DEF SEG .Адрес должен находится в диапазоне от -32768 до
65535.Отрицательные значения будут преобразовываться компилятором в положи-
тельные. Формой списка параметров поддерживается совместимость с интерпрета-
тором Бейсика посредством подачи на стек коротких целых параметров.Только
эта форма допускает подачу целых.(См.приложение С "Интерфейс языка ассембле-
ра".Буфер регистров загружается на поцессорные регистры как раз перед CALL
ABSOLUTE или CALL INTRRUPT и отпрвляются обратно на хранение сразу же после
прогона.В любое данное время буфер содержит состояние процессора,в котором
он находился при компилировании самой последней внешней процедуры .
Буфер регистров доступен с помощью оператора и функции REG,в которых ис-
пользуется числовой аргумент для ссылки на соответствующий регистр,как пока-
зано ниже:
----------------------------------------------------------------------------
Аргумент регистра Регистр
----------------------------------------------------------------------------
0 Флаги
1 АХ
2 ВХ
3 СХ
4 DX
5 SI
6 DI
7 BP
8 DS
9 ES
----------------------------------------------------------------------------
REG,как оператор, загружает выбранный элемент буфера регистров ука-
занным целым значением:
REG 2,&H1000 'загрузить 1000H на ВХ буфера регистров
REG ,как функция,возвращает значение выбранного элемента буфера
регистров:
PRINT REG (2) 'вывести значения из ВХ буфера регистров
Программист ответственнен за защиту регистров сегмента данных
- 85 -
(DS),сегмента стека (SS),указателя базы (BP),указателя стека (SP)
см также CALL INTERRUPT
DEF SEG
REG
Пример defint a-z
dim a(100)
dim ЗаполненияПодпрограмма (10)
ЗаполненияПодпрограмма (0)=&HF2FC
ЗаполненияПодпрограмма (1)=&HCBAA
reg 1,-1
reg 3,101*2
reg 9,varseg(a(0))
reg 6,varptr(a(0))
def seg=varseg(ЗаполненияПодпрограмма (0))
print a(1)
while not instat:wend
ЗаполнитьАдрес=varptr(ЗаполненияПодпрограмма(0))
call absolute ЗаполнитьАдрес '(reg)
print a(1)
end
Оператор CALL INTERRUPT
-----------------------
Функция CALL INTERRUPT вызывает системное прерывание
--------
Синтаксис CALL INTERRUPT n
---------
Замечания Целым выражением n представляется прерывание для вызова в диапазо-
--------- не от 0 до 255.Как раз перед получением управления обработчиком
прерываний регистры процессора загружаются значениями из буфера машинных ре-
гистров.При возврате ,осуществляемом обработчиком прерываний,буфер принимант
значения из процессорных регистров.В любое данное время буфер содержит сос-
тояние регистров процессора в том виде,в котором находились эти регистры при
компилировании самого последнего внешнего вызова или оператора REG.
В справочном руководстве по технике DOS содержится полная информация о
многих функциях,доступных через механизм CALL INTERRUPT.Программист ответст-
веннен за защиту регистров стекового сегмента (SS) и стекового указателя (SP).
Ограничения Перед исполнением оператора CALL INTERRUPT подходящие регистры
центрального процессора должны быть возбуждены через оператор REG.После ис-
полнения оператора CALL INTERRUPT к значениям процессорных регистров должен
быть обеспечен доступ через функцию REG.
см также CALL ABSOLUTE
REG
Пример 'call interrupt исполняет обслуживание DOS прерываний
$include "regnames.inc"
reg %ax &H0200
'ah=02 шестнадцатиричная функция станд. DOS-вывода литерала
reg %ox,reg(%ox)and&HFF02
'DL=02 шестнадцатиричное DH остается тем же
'DL:=литера для вывода
call interrupt &H21 'вызов прерывания 21
Функция CDBL
------------
Функция CDBL преобразует число в формат двойной точности
-------
Синтаксис y=CDBL(числовое выражение)
---------
- 86 -
Замечания CDBL преобразует числовыю переменную или числовое выражение в фор-
мат двойной точности.Используйте CDBL для исключения случаев переполнения
целых в выражениях,где комбинируются целые операнды и операнды с плавающей
точкой,например:y#=(z%+x%)/a#
Это выражение будет приводить к переполнению ,если (z%+x%) больше
32767.Чтобы избежать этого,используйте CDBL для принудительного преобразова-
ния одной из целых переменных в форму двойной точности.Это вызовет оценку
всего выражения в двойной точности.
y=(CDBL(z%)+X%)/a#
Ограничения Диапазон выражения,подаваемого в CDBL должен находится в преде-
----------- лах законного диапазона для числа двойной точности.
см также CINT
CLNG
CSNG
Пример 'CDBL полезен для предотвращения ошибок периодо прогона
x%=2000
y%=2000
z#=cdbl(x%)*y%
print x%,y%,z#
end
Функция CEIL
------------
Функция CEIL возвращает наименьшее целое,которое больше или равно аргументу
--------
Синтаксис y=CEIL(числовое выражение)
---------
Замечания Функция CEIL преобразует числовыю переменную или выражение в це-
--------- лое,возвращия наименьшее целое,которое больше или равно аргументу .
Различия Этой функции в Интерпретаторном Бейсике нет.
---------
см также CINT
FIX
INT
Пример for i!=-2.5 to 2.5 step 0.5
print using "CEIL-значение ### есть ###":i!,ceil(i!)
next i!
end
Оператор CHAIN
--------------
Функция CHAIN возбуждает модуль цепочек Турбо Бейсика (создаваемой как .TBC
------- или .EXE-файл)
Синтаксис CHAIN файласпец
---------
Замечания Файласпец-это строчное выражение ,которое следует стандартным
--------- DOS-соглашениям об наименовании файлов,и представляет модуль цепо-
чек Турбо Бейсика (расширение .TBC).Если расширение опускается,предполагается
.TBC.Поэтому ,если вы хотите специфицировать .EXE-файл,к имени файла необхо-
димо добавить .EXE.Переменные перечисляемые как COMMON (общие),подаются и
текущей программой,и программой назначения в программу назначения.
В фазе тестирования вызывающая программа должна комполороваться в .EXE
- 87 -
-файл, так как вы не можете реализовать цепочку из самого Турбо Бейсика.Вызы-
ваемая программа должна компилироваться на диск как модуль цепочек (.EXE или
.TBC-файл) .Если аргументы в операторе COMMON в вызывающей и вызываемой
программах не совподают (например,переменные с плавающей точкой в одном мес-
те и челые в другом),возникает ошибка периода прогона.Турбо-Бейсик не под-
держивает опции CHAIN Интерпретаторного Бейсика,ориентированные на нумерацию
строк,включая DELETE (стереть),MERGE (соединить) и CHAIN (цепочка)номерстроки.
Поскольку вы не можете специфицировать номер строки в модуле цепочек назна-
чения,исполнение начинаеися всегда от начала.При трансляции обработанной
CHAIN системы программ Интерпретаторного Бейсика на Турбо-Бейсик,вы можете
обнаружить ,что расширенное использование памяти Турбо-Бейсиком позволяет
консолидировать отдельные модули в единую программу,исключая необходимость
реализации цепочек.
Ограничения Образование цепочек возможно ,только когда программа использует-
---------- ся из DOS;т.е. из .EXE-файла.MERGE,DELETE,ALL и CHAIN по номеру
строки не поддерживаются.
Различия В Турбо-Бейсике образование цепочек делается из одной компилирующей
-------- программы в другую,которая уже компилирована в .TBC или .EXE-файл.
см также COMMON
Пример 'рассмотрим PROG1 ,которая образует цепочку к PROG2:
prog1.bas
'заявить переменные ,подлежащие подаче в организуемую цепочкой
'программу:скалярные переменные единичной точности a и b и целый
'массив с%
dim c%(3000)
a=65:b=13:c%(2000)=12
common a,b,c%(1)
'специфицировать #размеров в массиве
chain "prog2"
'заявить переменные ,подлежащие приему из возбуждающей программы
'они должны быть в том же порядке, иметь тот же тип6но не обяза-
'тельно то же имя
common x,y,z%(2000)
когда prog1.exe возбуждается из DOS,она будет автоматически вво-
дить модуль prog2.tbc и исполнять его,распечатывая значения,назна-
ченные в prog1.Когда prog2 окончивается6возврат осуществляется в
DOS ,а не в prog1.
Оператор CHDIR
--------------
Функция CHDIR изменяет текущий справочник (DOS-команда CHDIR или CD)
--------
Синтаксис CHDIR проход
---------
Замечания Проход-это строчное выражение,соответствующее DOS -соглашениям о
--------- проходах (описанных в разделе "Файлы" глава 4)
Если проход не указывает какой-то законный справочник,возникает
ошибка 76 периода прогона,"Проход не найден".Оператор CHDIR изменяет текущий
(задействованный по умолчанию справочник).Это аналогично действию команды
CHDIR из DOS,за исключением того,что невозможна аббревиатура,подобная
CD.Прогоном программы ,которая меняет справочник,из Турбо-Бейсика также ме-
няет задействованный справочник Турбо-Бейсика.
Пример INPUT "Новый справочник :",Проход$
CHDIR Проход$
end
- 88 -
Функция CHR$
------------
Функция CHR$ преобразует ASCII-код в однолитерную строку
-------
Синтаксис s$=CHR$(целое выражение)
---------
Замечания CHR$ возвращает однолитерную строку,единственная литера которой
--------- имеет целое выражение в ASCII-коде со значением от 0 до 255.CHR$
дополняет функцию ASC,которая возвращает ASCII -код первой литеры строки.
CHR$ удобна для создания литер,которые трудно ввести с клавиатуры,таких как
графические литеры экранного вывода и упрвляющие последовательности для
вывода на печать.Значение целого выражения ,подаваемое в CHR$ ,должно лежать
в диапазоне от 0 до 255. Использование аргумента вне этого диапазона вызывает
ошибку 5 периода прогона,вызов незаконной функции.
см также ASC
Пример 'CHR$ отображает на экране литерный набор ASCII
for i%=0 to 255
print using "i":chr$(i%):
'отобразить ascii литеру ,представляемую i%
next i%
end
Функция CINT
------------
Функция CINT преобразует свой аргумент в целое
-------
Синтаксис y=cint(числовое выражение)
---------
Замечания Функция CINT преобразует числовую переменную или выражение в целое
--------- округляя дробную часть числового выражения.Если числовое выражение
находится вне диапазона от -32768 до 32767 ,то возникает ошибка переполнения
(ошибка 6 периода прогона).Это преобразование выполняется косвенным пу-
тем,посредством назначения целой переменной или вызовом процедуры 6либо фун-
кции,которая принимает целый аргумент.
Различия В отличии от Интерпретаторного Бейсика,Турбо-Буйсик не всегда окру-
-------- еляет дробную часть числа в сторону увеличения.Если дробная часть
числа равна 0.5 округление осуществляется в сторону четного числа.
см также CDBL
CEIL
CLNG
CSNG
Пример for i!=0.0 to 5.0 step 0.2
print using "cint числа #.#=#":i!,cint(i!)
next i!
end
Оператор CIRCLE
---------------
Функция CIRCLE обеспечивает вычерчивание окружности или части окружности.
--------
- 89 -
Синтаксис CIRCLE (x,y),радиус[,цвет[,начало,конец[,вид]]]
---------
Замечания (x,y)-координаты центра окружности,которые могут специфицироваться
--------- в абсолютной или относительной форме(с использованием STEP.)
(Более детальную информацию об абсолбтных и относителбных коорди-
натах см в разделе о графике Главы 3 ).
Радиус -это числовое выражение ,задающий размер окружности.
Цвет -целое выражение,определяющее цвет окружности.Приемлемыми
значениями являются 0-3 в графике средней разрешающей способности(по умолча-
нию -3) и 0-1 в графике с высокой разрешающей способностью (по умолчанию
-1).Цветом по умолчанию является наивысший возможный цвет того режима,в ко-
тором вы находитесь.Использование цветового аргумента вне этих диапазонов
дает ошибку 5 периода прогона,вызов незаконной функции.(Более подробную ин-
формацию о выборе цветов см в описании оператора COLOR).
Начало и конкц являются опциональными числовыми параметрами,опре-
деляющими начальную и концевую точки подлежащей вычерчиванию дуги6которые
специфицируются в радианах (см описание радианов в описании оператора
ATN).Используйте их,когда желаете вычертить только часть окружности.Если на-
чало и конец опускаются ,вычерчивается целая окружность .Например:
SCREEN 1:pi=4*atn(1)
CIRCLE (160,100),50,3,0,pi
обеспечивает вычерчивание белого полукруга от 0 радиан до п радиан.
Отрицательные значения начало и конец вызывают вычерчивание тор-
то-образных ;т.е. кромки дуги автоматически соединяются с центральной точ-
кой.Например :
SCREEN 1:pi=4*atn(1)
CIRCLE (160,100)50,,-pi/4,-pi/2
обеспечивает вычерчивание 45-градусного куска торта от п/4 радиан
до п/2 рад., который показан на рис. ниже7Чтобы начать клин на положительной
X-оси,используется отрицательное число,несколько меньше нуля6а не просто -0
(например ..0001) .
Вид -это числовое выражение,управляюшее тем,насколько круглой или
овальной будет окружность.По умолчанию в средней разрешающей способности его
значение равно 5/6 (0.833333),а в зависимости от вышей конкретной комбинации
дисплецной платы/видео-монитора,вам может потребоваться повозиться с этими
значениями (либо отрегулировать ваш монитор) для получения круглых окружнос-
тей.LPR после вычерчмвания окружности находится в ее центре.
Пример 'Эта программа демонстрирует возможности CIRCLE
'изменение местоположения радиуса,цвета,видового отношения.С по-
'мощью CIRCLE можно также вычерчивать дуги и клинья,полезные для
'игр "пак-ман"
pi#=4*atn(1)
screen 1
for радиус%=1 to 20 'увеличивать размер окружности
колер%=радиус%mod4 'рассчитать цвет изображения
circle (250,150),радиус%,колер% 'центр в 250,150
next радиус%
circle (220,60),50,1,-(pi#*5/4),-pi#*3/4) 'тело пак-ман и глаз
circle step (-5,-25),5,1
радиус%=50
'эллипс может давать иллюзию сферы ...
for вид=0 to 2.0 step 0.09
circle (90,100),радиус%,,,,вид
next вид
- 90 -
end
Оператор CLEAR
--------------
Функция CLEAR очищает переменную память
-------
Синтаксис CLEAR
---------
Замечания CLEAR -это команда без параметров,которая устанавливает числовые
--------- переменные в ноль,а строчные переменные в нуль-строку.CLEAR
выключает любое отслеживание событий ,которое находтся во включенном
состоянии (такие как музыка, которая может быть задействована оператором PLAY)
и повторно возбуждает массивную и строчную память.
Примечание: Оператор CLEAR внутри цикла будет очищать счетчикбвы-
зывая бесконечный цикл.
Для выборочного освобождения массивов в памяти пользуйтесь оператором ERASE.
Ограничения Турбо-Юейсик не поддерживает динамическую установку стека и сег-
----------- ментов данных;в этом операторе нет поэтому соответствующих
параметров.
Различия Различия между операторами CLEAR Интерпретаторного Бейсика и Тур-
-------- бо-Бейсика происходит,главным образом ,из различий между компилято-
рами и интерпретаторами.Интерпретаторный Бейсик дает вам возможность динами-
чески устанавливать пространство стека и данных там ,где пространство стека
и данных Турбо-Бейсика фиксируется во время компилирования.
см также ERASE
$STACK
Пример 'эта программа демонстрирует что может делать CLEAR
dim массив$(1) 'заявить массив строк
play "mb l1 efgabcdef" 'играть музыку в фоне
on pen gosub ПераДержатель 'настроить отслеживание светового пера
on strig(0) gosub КнопкиОдержатель 'настроить отслеживатель ручки
' управления
'возбудить строчные данные
Массив$(0)="это строка в Массиве$(0)"
Массив$(1)="это строка в Массиве$(1)"
'отобразить строчные данные
print using "Массивный элемент 1:&":Mассив;(0)
print using "Массивный элемент 2&":Массив$(1)
input "нажмите <enter>(ввод)для исполнения оператора CLEAR":Пусто$
clear 'делается очистка
' существующие строчные данные более не отображаются
print using "Массивный элемент 1:&":Массив$(0)
print using "Массивный элемент 2:&":Массив$(1)
print "строчные переменные теперь пусты"
end
ПераДержатель:'определить пустую метку для ловушки светового пера
return
КнопкиЩдержатель :'определить пустую метку для ручки управления
return
Функция CLNG
------------
- 91 -
Функция CLNG обеспечивает преобразование в длинное целое
--------
Синтаксис y=CLNG(числовое выражение)
---------
Замечания CLNG преобразует числовую переменную или выражение в длинное целое
--------- посредством округления дробной части ее аргумента.Если числовое вы-
ражение находится вне диапазона от -2в степени31 до (2в степени31)-1 (приб-
лизительно от -2 до 2 боллионов),возникает ошибка 6 периода прогона,Перепол-
нение.
Ограничения Числовое выражение ,подаваемое в фуекцию CLNG должно находится в
----------- законном диапазоне длинных целых.
Различия Этой функции нет в больщинстве Интерпретаторных Бейсиков,поскольку о
-------- ни не поддерживают длинные целые.
см также CDBL
CINT
CSNG
FIX
INT
Пример print clng(2.0E9),clng(33.4),clng(-121.9),clng(100251.6)
------ end
Функция CLOSE
-------------
Функция CLOSE закрывает файл или устройство
--------
Синтаксис CLOSE[[#]файлнам[,[#]файлнам]...]
---------
Замечания CLOSE оканчивает взаимосвязь номера файла и файла,установленного в
-------- операторе OPEN (открыть),и закнчивает ввод/вывод в этот файл.Буфер
файла наполняется и ,если файлнам представляет файл (а не устройство),коман-
дой DOS CLOSE выполняется на нем для обновления справочника.Хороша привычка
периодически закрывать файлы ,которыя записываются программой.Это дает уве-
ренность в том ,что записывается вся информация,а вход этого файла в спра-
вочнике операционной системы правильно обновляется в случае последующего
сбоя питания или какого-то другого затруднения.CLOSE без спецификации номера
файла закрывает все открытые устройства и файлы (то же самое делают
RESET,END,STOP и RUN).
см также END
OPEN
STOP
Пример 'открыть файл назначенный печатающему устройству
open "lpt1:" as#1
print#1,"это тест"
close#1
open "закрыть Ф.ОДН" as#1
open "закрыть Ф.ДВА" as#2
print#1 "это тест"
print#2 "это тест"
close
end
- 92 -
Оператор CLS
------------
Функция CLS очищает экран
--------
Синтаксис В текстовом режиме CLS очишает экран до цвета фона и обеспечивает
--------- позиционирование курсора в исходном положении в левом верхнем углу
(ряд 1,колонка 1).CLS в графическом режиме очищает экран до фонового цве-
та.LPR оказывается в центре экрана,либо (160,100),либо (320,100),в зависи-
мости от того ,является текущий режим средней или высокой разрешающей спо-
собности,соответственно.
Если уже был исполнен оператор VIEW ,CLS очищает только обзорно -приемное
окно.Чтобы стереть весь экран,сначала воспользуйтесь VIEW без аргументов для
выключения обзорного окна,а затем CLS-для очистки экрана.
см также COLOR
SCREEN
VIEW
Пример 'cls очищает экран до фонового цвета
print "Это тест оператора CLS"
input "Нажать <enter> для очистки экрана...",Пусто$
color 10,1
cls
end
Оператор COLOR (графический режим)
----------------------------------
Функция COLOR устанавливает цвета для графических операций
--------
Синтаксис Для SCREEN 1:COLOR[задний фон][,(палитра)]
--------- Для SCREEN 7,8,9,10:COLOR[передний фон][,[задний фон]]
Замечания Задний фон -это целое выражение от 0 до 63,специфицирующее цвет
--------- фона. Палитра-это целое выражение от 0 до 1,обеспечивающее выбор
двухцветной палитры.Передний фон целое выражение от 1 до 15.Аргументы этой
команды определяют фоновый цвет экрана и палитру из четырех цветов ,которые
будут использоваться в последующих чертежных операторах.После того ,как вы
уже определили палитру и цвет фона с помощью оператора COLOR,цвет отдельных
обьектов попадает под управление различных команд графики (CIRCLE,LINE и т.д.)
В режиме высокой разрешающей способности на Цветном Графическом Адаптере
единственными возможными цветами являются черный и белый.Следовательно опе-
ратор COLOR не имеет значения в этом режиме и попытка его использования при-
водит к ошибке 5 периода прогона ,Вызов незаконной функции.
SCREEN 1
Фон 0-255:фактически используемый цвет фона есть фон MOD16.Следовательно
фон 1 и 16 дают один и тот же результат.
Палитра 0-255:выбирается заранее определенная палитра ,как показано на ниже
-----------------------------------------------
цвет палитра 0 палитра 1
-----------------------------------------------
1 зеленый цинковый
2 красный анилиновый
3 коричневый белый
-----------------------------------------------
Четными числами обеспечивается выбор палитры 0,а нечетными -палитры 1 по
умолчанию.Палитра 0 дает вышей программе возможность создавать обьекты в зе-
леном ,красном6коричневом цветах.Палитроц 2 предлагаются цвета цинковый,ани-
линовый и белый.
SCREEN 7 и 8
- 93 -
Только EGA(усовершенствованный графический адаптер):цвета зависят от теку-
щей палитры.Передний фон 1-15:выбираемый цвет используется как для записи
литер ,так и для чертежной графики.Задний фон 0-15:выбирает цвет фона.
SCREEN 9
Передний фон 1-15:выбранный цвет используется для записи литер и для чер-
тежной графики.Если ваш EGA имеет память 64К,можно использовать тоько значе-
ния из диапазона 103.Задний фон 0-63:выбирается фоновый цвет.
SCREEN 10
Передний фон 1-3:выбранный цвет используется и для записи литер и для чер-
тежной графика;1=черный,2=мерцание,3=высокая интенсивность.Цвет переднего
фона 0 приводит к ошибке Вызов назаконной функции.
Для изменения атрибутов умолчания используйте оператор PALETTE:
Задний фон 0-8:выбранный цвет используется в качестве фона.
Примечание: Значение цвета 0 для любой палитры есть цвет фона,специфицируе-
мого в этом операторе,а цвет переднего фона по умолчанию определяется макси-
мальным атрибутом.
Ограничения В экране режима 2 оператор COLOR вызвращает ошибку 5 периода
----------- прогона,Вызов незаконной функции.
Пример 'эта программа демонстрирует оператор COLOR в графическом режиме
'переключить на граф.режим средней разрешающей способности
'установить палитру 0
screen 1
color .0
for радиус%=1 to 20 'увеличить размер окружности
колер%=радиус%MOD4 'расчет цвета изображения
circle (160,100),радиус%,колер% 'отобразить окружность
next радиус%
delay 2
color .1 'изменить палитру
delay 2
'установить палитру и цвет фона и очистить экран
color 6,0:cls
'вычертить красную окружность в серкдине экрана
circle (160,100),50,2
delay 2
end
Оператор COLOR (текстовый режим)
--------------------------------
Функция COLOR устанавливает цвет текста
-------
Синтаксис COLOR[передний фон][,[задний фон][,бордюр]]
---------
Замечания передний фон -это целое выражение от 0 до 31,специфицирующее цвет
--------- литер.Задний фон - это целое выражение от 0 до 7,специфицирующее
цвет фона.Бордюр-это целое выражение от 0 до 15,которое определяет цвет бор-
дюра.Если какой-то из этих параметров находится вне указанного диапазона ,то
возникает ошибка 5 периода прогона,вызов незаконной функции,Для стандартных
видео-плат Цвета/Графики в список выбора вашего фона входят
0 черный 8 серый
1 голубой 9 светло-голубой
2 зеленый 10 светло-зеленый
3 цинковый 11 светло-цинковый
4 красный 12 светло-красный
5 анилиновый 13 светло-анилиновый
6 коричневый 14 желтый
7 белый 15 белый высокой интенсивности
Литеры могут делаться мерцающими посредством установки переднего
фона в желаемый цвет плюс 16.Например ,установка переднего фона 22 (6+16)
- 94 -
дает мерцающие коричневые литеры.
Адаптеры монохромного изображения не могут отображать цвет,поэтому значения
переднего фона интерпретируются следующим образом:
0 черный
1 подчеркивание
2-7 белый
8 черный
9 подчеркивание высокой интенсивности
10-15 высокая интенсивность
16 черный
17 подчеркивание черным
18-23 мерцание
24 черный
25 высокая интенсивность,подчеркивание,мерцание
26-31 высокая интенсивность,мерцание
Значения заданного фона от 0 до 6 дают черный фон.Значения 7 соответствует
белому фону.
Примечание:На любом Адаптере литеры становятся невидимыми,когда передний
фон равен заднему фону.
Улучшенный графический Адаптер может отображать 16 цветов из палитры,вклю-
чающей в себя 64 цвета.
Ограничения параметр бордюра не оказывает влияния на EGA с улучшенным мони-
------------ тором.
Пример 'Эта программа демонстрирует оператор COLOR
'в текстовом и графическом режимах
'отобразить таблицу атрибутов
for задний%=0 to 7
for передний%=0 to 15
color передний%,задний%
print using "###":задний%*16+передний%
next передний%
next задний%
for задний%=0 to 7 'отобразить таблицу всех атрибутов
for передний%=16 to 31 'с мерцанием
color передний%,задний%
print using "###":задний%*16+передний%-16
next передний%
next задний%
end
Оператор COM(n)
---------------
Функция COM(n) управляет отслеживанием событий на последовательных входных
------- устройствах .
Синтаксис COM(n){on!off!stop}
---------
Замечания n-число коммуникационных адаптеров,подлежащих отслеживанию (1 или 2)
--------- Оператор COM(n) ON дает возможность отслеживания подпрограм-
мой,специфицированной в предыдущем операторе ON COM(n).
После COM(n) ON Турбо- Бейсик осуществляет проверку между исполнением каж-
дого оператора с целью просмотра поступления каких-либо литер на специфици-
риванное входное устройство.Если обнаруживается,что такое событие уже прои-
зошло,вызывается подпрограмма специфицированная в операторе ON COM(n).
Если COM(n) в режиме OFF,активность на последовательном адаптере n игнори-
руется.Отслеживание коммуникаций прекращается после оператора COM(n)
STOP;однако любая активность запоминается,так что когда исполняется оператор
- 95 -
COM(n) ON ,происходит немедленный захват поступившего.Для увеличения или
уменьшения размера COM буфера используйте метаоператор $COM.
см также ON COM(n)
Пример 'Демонстрируется оператор COM(n).Эта программа не будет ничего отобра
'жать ,если ваш адаптер COM1 не получает ввода
'Настроить подпрограмму для обработки COM-ввода
on com(1) gosub ПолучитьКомВвод
'разместить массив 5К для хранения ввода
dim КомПортВвод (5*1024)
'разместить указатель на следующем имеющемся буферном пространстве
ЗаголовокПрт%=0
'и следующий для печати
КонецПрт%=0
'включить обработку COM-ввода
com(1) on
'настроить буфер ввода 1К
$com1 1024
'открыть файловую переменную,как com1
open
open "com1" as#1
print 'нажать любую клавишу для прекращения программы"
'пока клавиша не нажата
while not instat
'если буфер не пуст
if КонецПрт%<>ЗаголовокПрт% then
'отобразить ввод
print "Ком-порт ввод:";КомПортВвод(КонецПрт%)
'шаг к следущему месту в буфере
КонецПрт%=КонецПрт%+1
end if
locate 2.1
print time$
wend
end
'обработать ком-порт прерывание
ПолучитьКомВвод:
'читать ввод из Ком-Порт буфера
input#1.КомПортВвод(ЗаголовокПрт%)
'указать следущее буферное пространство
ЗаголовокПрт%=ЗаголовокПрт%+1
return
КонецВвода:'окончить ком-порт ввод
print "Достигнут конец ввода ..."
end
Функция COMMAND$
----------------
Функция COMMAND$ возвращает командную строку ,используемую для запуска програ
------- ммы из DOS
Синтаксис s$=COMMAND$
---------
Замечания COMMAND$ возвращает все,что было набрано в DOS-подсказке,в прцессе
-------- возбуждения программы ,за исключением имени самой программы (неко-
торые руководства ссылаются на этот текст,называя его "трейледом").Исполь-
зуйте COMMAND$ для накопления аргументов периода прогона,таких как имена
файлов и опции программы.Рассмотрим ,например,DOS-команду:
FASTSORT cust.dta cust.new
где FASTSORT (быстрая сортировка)есть созданная Турбо-Бейсиком .EXE прог-
рамма.Когда FASTSORT получает управление,COMMAND$ будет удерживать все,что
было набрано в DOS подсказке после имени самой программы,т.е. в данном слу-
- 96 -
чае строку "cust.dta cust.new".Что делать с этой строкой (возможна разбивка
COMMAND$ на файлаимя1 и файлаимя2 и сортировка содержимого файлаимя1 в новый
файл файлаимя2) остается для решения в соответствии с определением FASTSORT.
Для тестирования программы ,в которой используется COMMAND$ ,в пределах
Турбо-Бейсика, применяется опция строки параметров из меню опций для установ-
ки возвращаемой COMMAND$ строки.
Ограничения Максимальная длина DOS-командной строки- 127 литер
-----------
Пример 'Эта программа демонстрирует функцию COMMAND$
print "Параметром командной строки ,подаваемой в эту программу яв-
'ляются
print command$
Компилируйте эту программу в память и прогоняйте дважды,каждый раз
меняя ввод параметров в меню опций.
Оператор COMMON
---------------
Функция COMMON заявляет одну или более переменных,подлежащих подаче в соедине
------- ную цепочкой программу.
Синтаксис COMMON переменная[,переменная]...
---------
Замечания Переменная-это массивная или скалярная переменная,которая должна
--------- быть сделана доступной следующей соединяемой цепочкой программе.
Массивы специфицируйте посредством включения числа размеров в скобках после
имени переменной.Операторы COMMON могут подаваться в любом месте программы и
их может быть более одного но данная переменная может появляться только один
раз.Совпадающие операторы COMMON должны появляться в программе ,к которой
привязывается цепочка.Имена переменных ,используемых в операторе COMMON не
имеют значения ,но их количество и тип важны.Если переменные,заявленные как
общие в возбуждающей программе не совпадают по типу и количеству с перемен-
ными,заявленными как общие в принимающей программе ,то генерируется ошибка
рериода прогона.
Различия Турбо-Бейсик не поддерживает параметр CHAIN ALL ,обеспечиваемый Ин-
-------- терпретаторным Бейсиком.Каждую переменную ,общий доступ к которой
должны иметь связываемые в цепочку программы,вы должны заявлять
непосредственно.При специфицировании в Турбо-Бейсике в качестве общей пере-
менной массива ,необходимо специфицировать число измерений этого массива.В
Интерпретаторном Бейсике совпадающие COMMON не требуется,поскольку COMMON в
нем необходимы только из CHAIN ,а внутрь CHAIN в них нет необходимости.Сдру-
гой стороны Турбо-Бейсик требует ,чтобы переменные в каждом операторе COMMON
были правильно упорядочены.Другими словами,имена переменных в главной прог-
рамме и программе-цепочкемогут отличаться ,но типы переменных должны совпа-
дать.Правильным является следущее употребление COMMON :
'Главная программа
COMMON i%,Массив(1),j#
'Цепная программа
COMMON Цел%,ДействМасс(11),Двтчн#
Ограничения Турбо-Бейсик не поддерживает преодолеваемое CHAIN ALL COMMON Ин-
----------- терпретаторного Бейсика.
Пример 'Эта программа демонстрирует оператор COMMON
------ 'Чтобы исполнить эти программы выполняйте следущее
'(1) компилировать первую программу в .EXE-файл
'(2)компилировать вторую программу в .TBC-файл
'(3) при DOS подсказке исполнить первую программу
'Программа хозяин.Компилировать эту программу в .EXE-файл
dim СтарыйМассив$(1) 'заявить двустрочный массив
- 97 -
СтарыйМассив$(0)="Это первая строка массива"
СтарыйМассив$(1)="Это вторая строка массива"
СтароеЦелое%=12345
СтароеДлинноеЦелое&=123450000
СароеЕдиничнойТочности!=12345.12345
СтароеДвойнойТочности#=1.0E+300
'специфицировать переменные ,которые являются общими для программ
'хозяин и слуга
common СтарыйМассив(),СтароеЦелое%,СтароеДлинноеЦелое&,СтароеДвой-
нойТочности#
chain "Слуга.TBC" 'цепочка для программы слуга
end
'Программа Слуга.Компилировать эту цепочку в .TBC-файл
common НовыйМассив(),НовоеЦелое%,НовоеДлинноеЦелое&,НовоеЕдинич-
нойТочности!,НовоеДвойнойТочности#
print НовыйМассив(0)
print НовыйМассив(1)
print НовоеЦелое%,НовоеДлинноеЦелое&,НовоеЕдиничнойТочности!,Ново-
еДвойнойТочности#
Функция COS
-----------
Функция COS возвращает тригонометрический косинус
-------
Синтаксис y=COS(числовое выражение)
---------
Замечание Числовое выражение-это угол,специфицируемый в радианах.Чтобы преоб-
--------- разовать радианы в градусы ,умножайте на 180/n.Для преобразования
градусов в радианы умножайте на n/180(См.обсуждение радианов в
описании функции ATN).COS возврвщает значение двойной точности.
См.также ATN
SIN
TAN
Пример pi=atn(1)*4
for i%=0 to 360 step 45
print using "Косинус ### градусов=##.##":i%,cos(pi#/180*i%)
next i%
end
Функция CSNG
------------
Функция CSNG преобразует числовое выражение в его эквивалент единичной точ-
------- ности .
Синтаксис y=CSNG(числовое выражение)
---------
Замечания CSNG преобразует числовое выражение или переменную в форму с плава-
--------- ющей точкой единичной точности.CSNG обычно используется для предот-
вращения промежуточного переполнения при обработке целых операндов.
См.также CDBL
CINT
CLNG
Пример print csng (&HFFF),csng(12345.1234),csng(&HF000)
- 98 -
Функция CSRLIN
--------------
Функция CSRLIN возвращает текущее положение курсора по вертикали (номер ряда)
-------
Синтаксис y=csrlin
---------
Замечания CSRLIN возвращает целое от 1 до 25,представляющее текущее положение
--------- по вертикали (номер ряда) курсора.Для считывания курсорного положе-
ния по горизонтали (номер колонки) используйте функцию POS.
Оператором LOCATE курсор перемещается в специфицируемые строку и колонку
См.также LOCATE
POS
Пример Кол=pos 'сохранить ряд курсора
Ряд=csrlin 'сохранить колонку курсора
cls
locate Ряд,Кол 'восстанавливается курсорная позиция
end
Функции CVI,CVL,CVS,CVD
-----------------------
Функции CVI,CVL,CVS,CVD преобразуют строчные данные,считываемые из произволь-
------- ных файлов,в числовую форму.
Синтаксис y%=cvi(2байтовая строка)
--------- y&=cvl(4 байтовая строка)
y!=cvs(4 байтовая строка)
y#=cvd(8 байтовая строка)
Замечания CVI преобразует 2-байтовую строку в целое.CVL преобразует 4-байто-
--------- вую строку в длинное целое.CVS преобразует 4-байтовую строку в зна-
чение единичной точности.CVD преобразует 8-байтовую строку в значе-
ние двойной точности.Применительно к способу обработки Турбо-Бейсиком произ-
вольных файлов,числовые значения должны перед их записью на диск транслиро-
ваться в строку,а при считывании файла-обратно в числа.Не путайте эти функции
(предназначенные только для обработки произвольных файлов )с функцией VAL ,ко-
торая принимает строку вроде "3.7"и превращает ее в число.
См.также MKD$
MKI$
MKL$
MKS$
Пример 'Эта программа создает файл данных произвольного доступа и записывает
'в него некоторые данные.Затем эти данные считываются обратно
'с преобразованием в приемлемую форму с использованием описанных вы-
'ше функций
'открыть файл произвольного доступа
open "r",#1,"cvsld.dta",18
field #1,2 as Целое$,4 as ДлинноеЦелое$,4 as ЕдиничнаяТочность$,8 as
ДвойнаяТочность$
МаксЦелое%=32767
'записать данные в файл,преобразовать их и назначить в буфер перед
'записью в файл данных
for i%=1 to 5
- 99 -
lset Целое$=mki$(i%)
lset ДлинноеЦелое$=mkl$(i%+clng(МаксЦелое%))
lset ЕдиничнаяТочность$=mks$(csng(i%*csng(МаксЦелое%)))
lset ДвойнаяТочность$=mkd$(МаксЦелое%^i%)
put #1,i%
next i%
for i%=1 to 5 'считать данные из файла
get #1,i% 'отобразить их на экране
print cvi(Целое$),cvl(ДлинноеЦелое$),cvs(ЕдиничнаяТоч-
ность$),cvd(ДвойнаяТочность$)
next i%
clise#1
end
Функции CVMD,CVMS
-----------------
Функция CVMD и CVMS преобразует строчные переменные,считываемые из произвол
------- ьных файлов в формате Микрософт,в числовую форму.
Синтаксис y!=CVMS(4-байтовая строка)
--------- y#=CVMD(8-байтовая строка)
Замечания CVMS (Convert Microsoft Singl-precision string) преобразует 4-бай-
--------- товую строку,представляющую значение единичной точности в формате
Микрософт,в значение единичной точности в формате IEEE Турбо-Бейси-
ка.CVMD(Convert Microsoft Double -precision string) преобразует 4-байтовую
строку,представляющую значение двойной точности в формате IEE Турбо-Бейси-
ка. Эти функции предусмотрены исклбчительно для совместимости с существующими
файлами Интерпретаторного Бейсика.
Пример 'открыть файл произвольного доступа
open "cvmd.dta" as#1 len=12
field#1,4 as Единичная$,as Двойная$
for i=1 to 5 'записать некоторые данные в файл
'преобразовать данные и назначить файл данных
lset Единичная$=mkms$(i)
lset Двойная$=mkmd$(i^i)
put #1.1
next i
for i=1 to 5
get #1,1
print cvms(Единичная$),cvmd(Двойная$)
next i%
print cvs(x$),cvms(x$)
close #1
end
Оператор DATA
-------------
Функция DATA заявляет константы для операторов READ.
-------
Синтаксис DATA константа[,константа]...
---------
Замечания Константа-это числовая или строчная константа.Числовые константы
--------- могут быть с плавающей точкой или целые и опционально могут выра-
жаться как шестнадцатиричные или восьмеричные.Строчные константы не должны
заключаться в кавычки,если они не содержат разделители(запятые либо двоето-
-100 -
чия) или значащие передние либо концевые пустоты,и могут свободно размещать-
ся вперемежку с числовыми константами.Например:
DATA Тако,.79,куриный предел,2.29,.29
Программа может содержать много операторов DATA и они не обязательно долж-
ны быть следующими друг за другом строками.Каждое может содержать столько
констант,сколько умещается в строке
Во время прогона операторы READ получают доступ к константам
DATA слева направо и сверху вниз в том порядке ,в каком они появляются в ис-
ходной программе.Большинство общих ошибок ,ассоциируемых с оператором DATA и
READ получается из-за несинхронности и попыток загрузить строчныю данные в
числовую переменную;в результате генерируется ошибка 2 (синтаксическая ошиб-
ка). К сожалению вы не получаете информацию об ошибке при загрузке числовой
константы в строчную переменную,даже если это не то ,что вы намеревались
сделать.
команда RESTORE позволяет вам повторно считывать константы из первого опе-
ратора или любого специфицированного оператора DATA.Если вы пытаетесь реали-
зовать READ большое число раз,чем имеет констант ваша программа,это приводит
к ошибке 4 (вне данных).
Ограничения Вы не можете использовать в операторах DATA литеры с непрерывным
----------- подчеркиванием .Не пользуйтесь единичной кавычкой (') для комен-
тирования оператора DATA,поскольку Турбо-Бейсик может принять ее за послед-
ний вход ,а ваш комментарий за часть данной одной длинной строчной констан-
ты.Например:
"Кнопки","собаки" и "свиньи'список животных."
Вы можете ,однако ,безопасно использовать для этой цели :REM:
См.также READ
RESTORE
Пример 'Эта программа демонстрирует использование оператора DATA
sub ОбработкаРезультатов(СтудентаИмя$,СтудентаСредний%)
local Всего%,Бал%,i%
Всего%=0
read СтудентаИмя$
for i%=1 to 10
read Бал%
Всеге%=Всего%+Бал%
next i%
СтудентаСредний%=Всего%\10
end sub
for Студент%=1 to 3
call ОбработкаРезультатов(Симя$,Средний%)
print using "&'s средний равен ###";симя$,средний%
next Студент%
end
Ваши результаты:
DATA В.Перри,78,65,35,79,86,93,79,85,99,96
DATA П.Ватсон ,98,94,70,88,99,100,75,96,100,95
DATA М.Чикконе,65,59,75,82,56,79,82,76,69,89
Системная переменная DATE$
--------------------------
Функция DATE$ устанавливает и устанавливает системмную дату.
-------
Синтаксис DATE$=s$ (установить дату в соответствии с информацией в s$)
--------- s$=DATE$ (s$ содержит теперь информацию о дате)
Замечания Системная дата устанавливается назначением правильно сформирован-
--------- ного строчного значения в DATE$.Назначение DATE$ строчной пере-
менной делает системную дату доступной для обработки.DATE$ возвращает 10-ли-
терную строку в форме мм-дд-гггг,где мм-месяц,дд-день,гггг-год.
-101 -
Чтобы изменить дату ,ваша строка должно иметь формат даты одного
из следующих видов:
мм-дд-гггг
мм/дд/гг
мм-дд-гггг
мм/дд/гггг
Например :"10-25-86" устанавливает системную дату на 25 октября 1986 года.
Ограничения Год ,назначенный в системной переменной DATE$ должен лежать в
----------- диапазоне 1980-2099 .
См.также TIME$
Пример 'отобразить текущую системную дату
print "текущая системная дата";DATE$
input "пожалуйста ,введите новую дату в форме мм-дд-гг";НоваяДата$
DATE$=НоваяДата$
print "Текущая системная дата установлена на ",DATE$
end
Оператор DECR
-------------
Функция DECR сбрасывает переменную.
-------
Синтаксис DECR переменная[,размер]
---------
Замечания Переменная-это численная переменная ,а размер-опциональное число-
--------- вое выражение,которое указывает значение,которое должно вычитаться
из переменной.Если размер опускается,используется 1.
DECR-лучший способ сбрасывания переменной .Для приращения пере-
менной используйте оператор INCR.
См.также INCR
Пример i%=15
j%=500
while i%>0
print i%,j%
decr i%
decr j%,5 'сбросить значение на 5
wend
end
Оператор DEF FN/END DEF
-----------------------
Функция DEF FN/END DEF определяет функцию.
-------
Синтаксис Единичная строка:
--------- DEF FN идентификатор[(список аргументов)]=выражение
Многострочная:
DEF FN идентификатор[(список аргументов)]
[LOCAL список переменных]
[STATIC список переменных]
[SHARED список переменных]
.
.
.
[EXIT DEF]
-102 -
[FN идентификатор=выражение]
END DEF
Замечания Идентификатор- этоуникальное имя,которое должно ассоциироваться с
--------- функцией и следовать соглашению об наименовании меток и переменных
(т.е. представлять собой букву ,за которой следует любое число букв и/или
цифр).Список аргументов -это опциональная,разделяемая занятыми последова-
тельность формальныхпараметров.Параметры ,используемые в списке аргумен-
тов,служат только для определения функции:они не имеют взаимосвязи с другими
переменными программы,имеющими те же имена.скобки DEF FN и END DEF и имя по-
добной субпрограмме группы операторов называется функцией.Функции может оп-
ционально подаваться один или более аргументов по назначению.Функции возвра-
щают значение(тип которого управляется соответсвенно имени функции,как если
бы это была переменная ) и поэтому могут вызываться из любого оператора,ко-
торое способно принимать значение подходящего типа.
Оперделение функций и программный поток
---------------------------------------
Положение определений функций не имеет значения.Функция может быть опреде-
лена в строке1 или строке 1000 программы,вне зависимости от того,где она ис-
пользуется и вам нет необходимости пропускать программный поток непосредст-
венно через функцию в качестве шага возбуждения (что вы обязаны делать с од-
нострочными функциями в Интерпрет.Бейсике).Компилятор просматривает ваши оп-
ределения,где бы они ни были.
Также,в отличии от подпрограмм,исполнение не может неожиданно "приняться"
за функцию.Для всего,что касается исполнительного прохода программы,опреде-
ления функций и процедур невидимы.Например:
t=fnВыдатьШтат
def fnВыдатьШтат
print "Выдаю из fnВыдатьШтат"
end def
Когда исполняется эта четырех строчная программа,сообщение появляется
только один раз,посколтку ВыдатьШтаты вызывается только в первой строке.
Определения функций должны трактоваться как изолированные острова кода;ни
переходов в них,ни переходов из них с помощью оператора GOTO,GOSUB или
RETURN не существует.Однако в пределах самих определений такие операторы су-
ществуют .
Следует заметить ,что определения функций и процедур нельзя гнездо-
вать,т.е. незаконно определять процедуру или функцию внутри процедуры или
функции(кажд-е определение процедуры или функции может содержать вызовы дру-
гих процедур).
Заявления локальных переменных(только многострочные функции)
------------------------------------------------------------
Чтобы заявить локольные переменные в пределах функции,перед любыми исполь-
зуемыми операторами в определении используйте оператор LOCAL.Например
LOCAL a%,b#,БольшойМассив%()
создает три локальных переменных:a%,b#,(целое и двойной точности соответс-
твенно) и массив БольшойМассив%.Затем массив должен быть надлежащим образом
образмерен:
DIM DYNAMIC БольшойМассив%(1000)
Синтаксические и разделяемые переменные
---------------------------------------
По умолчанию,переменные которые используются в определении функций,имеют
атрибут SHARED(разделяемые);т.е. они являются глобольными для остальной
программы. Поскольку это умолчание может измениться ,вы обязаны затрачивать-
усилия на заявление каждой используемой в функции переменной.
Заявляйте переменные с атрибутом STATIC ,если важно чтобы переменная не
теряла своего значения прикаждом возбуждении ,но еще могла быть изменена
только внутри функции.
Определение многострочной функции обычно включает в себя назначение иден-
тификатору функции и должно завершатся END DEF.Если вы делаете выбор не
включать назначение идентификатору функции ,то значение возвращаемое из фун-
кции неопределенно.
Используйте для возвращения из функции где-то в ином месте,чем в конце
ее,оператор EXIT DEF.
-103 -
См.также LOCAL
SHARED
STATIC
Пример $STACK &H&FFF
Всего=1
def fn факториал%(i%)
'Эта функция вычисляет факториал параметра i%
Всего=Всего*i%
if i%>1 then
Саб%=fnфакториал%(i%)
endif
fnфакториал%=Всего
end def 'конец функции fnфакториал
print "Ввести число,которое вы желаете обсчитать"
input "факториал:",j%
print fnфакториал%(j%)
end
Операторы DEFINT,DEFLNG,DEFSNG,DEFDBL,DEFSTR
--------------------------------------------
Функция Заявляют тип идентификаторов переменных по умолчанию.
--------
Синтаксис DEFтип буквенный диапазон[,буквенный диапазон]...
---------
Замечания Тип представляет один из пяти типов переменных Турбо-Бейси-
--------- ка:INT(целое),LNG(длинная целая),SNG(единичной точности),DBL
(двойной точности) и STR(строчная).Буквенный диапазон-это либо одна алфавитная
литера (от а до z,регистр безразличен),либо диапазон букв(две буквы,
разделенные тире;например ,А-М).
Оператор DEFтип сообщает компилятору ,что переменные и определяемые пользо-
вателем функции ,начинающиеся со специфицированных букв или диапазона
букв,будут определенного типа. Это дает вам возможность использовать перемен-
ные,иные ,чем с плавающей точкой единичной точности,в вашей программе без
включения идентификаторов типа (например, %,#)
По умолчанию,когда компилятором обнаруживается имя переменной без идентифи-
катора типа,оно предполагается переменной с плавающей точкой единичной точ-
ности.Например,в приведенном ниже операторе и n и m полагаются имеющими еди-
ничную точность:
n=m+16
Если ,однако,Этому оператору предшествовало DEFINT n,m ,то n,m должны быть
целыми,как и любая другая переменная 6имя которой начинается с n или m верх-
него или нижнего регистра.
Исполнение DEFтип в Турбо-Бейсике отдичается от исполнения в Интерпрет.Бей-
сике.Интерпретатор судит о типе соответственно тому,где появился оператор
DEFтип в порядке исполнения программы.Турбо-Бейсик,как компилятор,рассматри-
вает положение DEFтип в исходном файле.Например,при исполнении этой программы:
10 goto 30
20 defint a-m
30 j=45.3:print j
интерпрет.Бейсик никогда не заметит заявление типа в строке 20.Когда он
добирается до j в строке 30 это j становится переменной единичной точности и
не читается как 45.3.Турбо-Бейсик ,наоборот,принимает решение о типе пере-
менной во время компиляции вне зависимости от исполнительного прохода(о ко-
тором во время компилировании ничего не известно).Необходимо позаботится
только отом ,чтобы оператор DEFINT физически появился до появления j впервые
,в результате чего jоказывается целой переменной и распечатывается 45.
Ограничения Оператором DEFтип будет переопределяться тип любых соответствую-
----------- щих переменных ,которые уже используются в программе.Программа
следующего примера демонстрирует этот крайне важный момент.
-104 -
Пример i=39567.999
print "число ед.точности",i
defsng i
print "целое число",i
defdbl a-c
deflng j-z
a=32767.1
z=-1
i=&H8FFF
print "три разных типа",f,z,i
end
Оператор DEF SEG
----------------
Функция DEF SEG определяет сегмент данных,подлежащих использованию оператор
------- ами BLOAD,BSAVE,CALL,ABSOLUTE,PEEK и POKE.
Синтаксис DEF SEG [=числовое выражение]
---------
Замечания Числовое выражение может находится в диапазоне от 0 до 65535.
--------- DEF SEG определяет сегмент памяти в котором будут специфицировать-
ся ответвления последущими операторами
BLOAD,BSAVE,CALL,ABSOLUTE,PEEK,POKE.Сегмент -это адресующая конструкция,ис-
пользуемая процессорами семейства Интел 86.Адреса должны специфицироваться
двумя целыми,сегмент и ответвление в сегмент.
DEF SEG без аргумента возвращает значение сегмента к его значению по умоча-
нию на момент запуска.первые 256 байтов сегмента по умолчанию содержат ин-
формацию ,используемую системой поддержки времени прогона вашей программы.В
этом сегменте есть один интересный адрес при ответвлении &HF4E.Значения
вставленные командой POKE по этому адресу изменяют текст записанный на экра-
не в любом графическом режиме.Цвет зависит от того ,в каком режиме вы нахо-
дились.Другой полезный адрес в сегменте данных по умолчанию находится в
ячейке 0 и 1.Это слово содержит сегмент строк Турбо-Бейсика.
См.также COLOR
Пример 'Эта программа заполняет экран буквами А ,вставленными непосредстве
' нно в видео-память.определить функцию ,которая устанавливает адрес
'видео-памяти .Получить тип видео платы от пользователя
def fn ВидеоЭкран%
local ЭкранаТип%
print "тип экрана ?"
input "[1 для моно,2 для цветного]",ЭкранаТип%
select case ЭкранаТип%
case 1
fn ВидеоЭкран%=&HB000
case 2
fn ВидеоЭкран%=&HB800
end select
end def
def seg=fnВидеоЭкран%
for i%=0 to 4000 step 2
poke i%,asc("A")
next i%
end
Оператор DELAY
--------------
Функция DELAY вставляет паузу
-------
-105 -
Синтаксис DELAY секунды
---------
Замечания секунда-это числовое выражение,определяющее число секунд паузы,вы-
--------- полняемой Турбо-Бейсиком перед использованием следущего операто-
ра.Примечание:DELAY принимает аргументы с плавающей точкой,а дробные задерж-
ки можно специфицировать с разрешением примерно 0.054.
Использование DELAY ,а не программного цикла ничегонеделания,сказывается на
программах,которые прогоняются на машинах с разной скоростью обработки(т.е.
базирующихся на 8088 по сравнению с базирующимися на 80286,или 6Мгц по срав-
нению с 8Мгц).
Пример print "Нажмите любую кнопку для завершения программы"
while not instat
locate 10,30
print time$
delay 5
wend
end
Оператор DIM
------------
Функция DIM заявляет массив
-------
Синтаксис DIM{static!dynamic}переменная(подстрочный индекс)[,перемен-
--------- ная(подстрочный индекс )]...
DIM {static!dynamic}переменная(мин:макс)[,мин:макс]...)[,пере-
менная(мин:макс)[,мин:макс]...)]...
Замечание Переменная -это идентификатор,используемый для массива.Подстрочный
--------- индекс- это разделяемый запятыми список одного или более целых вы-
ражений,определяющий размеры массива.DIM заявляет массивные переменные и оп-
ределяет их размер и число измерений.В порядке улучшения синтаксиса интерп-
ретаторного Бейсика,Турбо-Бейсик дает вам возможность определять диапазон
значений подстпрочных индексов(мин:макс),а не только верхний предел,например:
DIM B(50:60)
создает массив из 11 элементов единичной точности,нумеруемых от 50 до
60.Оператором
DIM C(50:60,25:45)
создается двумерный массив с общим числом элементов 11*21.
Синтаксис диапазона можно расширять на многомерные массивы:
DIM рождения(1800:1899,1:12)
Для определения наименьшего элемента в массиве можно также использовать
связанные операторы OPTION BASE,хотя диапазонный механизм более мощное и
предпочтительное средство.
Когда программа используется впервые,Турбо-Бейсик устанавливает каждый
элемент числового массива в 0,а строчные массивы-в нуль-строку(длина=0).Если
программа запускается вновь с помощью оператора RUN,числовые массивы повтор-
но устанавливаются в ноль ,а строчные массивы в ноль-строку.
Если массивная переменная используется без предшествующего оператора
DIM,максимальным подстрочным индексом является значение 10 по умолчанию,как
если бы включили (10) в ваш оператор DIM.Однако предпочтительно в практичес-
кой работе заявлять каждый массив явно.
Минимальное значение ,которое можно использовать в качестве подстрочного
индекса в амссивах,есть 0,если не специфицируется иное с помощью команды
OPTION BASE.
Опциональные аргументы STATIC и DYNAMIC управляют ,соответственно,тем
,будет ли пространство для массива заранее распределяться компилятором,или
подлежит распределению динамически.Если этот аргумент опускается ,массивы по
умолчанию размещаются как статические,если уже не задан метаоператор
$DYNAMIC,если в заявлении DIM не используется какое-либо выражение,если имя
-106 -
массива не появляется в двух операторах DIM или если массив не заявлен ло-
кальным в процедуре либо функции.
Переключатель проверки границ ,доступный через меню опций,вызывает созда-
ние компилятором кода,которым проверяется приемлемость подстрочных индексов
при всякой ссылке на массив.
Различия Турбо-Бейсик_ дает возможность программисту специфицировать началь-
ный и конечный индексы массива.Интерпретаторный Бейсик размещает все массивы
динамически,но Турбо-Бейсик будет пытаться разместить их статически(во время
компилирования),что делает их более быстродоступными.Вы можете явно преодо-
левать тип используемого размещения.
См.также $DYNAMIC
FRE
$STATIC
Пример %МаксРазм=20
%МинРазм=1
dim Массив%(%МинРазм:%МаксРазм)
for счетчикi%=%МинРазм TO %МаксРазм
Массив%(счетчикi%=%Минразм to %МаксРазм
Массив%(счетчикi%)=int(rnd*10)
next счетчикi%
end
Оператор DO/LOOP
----------------
Функция DO/LOOP -это цикл с текстом TRUE (истинно) или FALSE (ложно) в верх
------- ней и/или нижней части цикла.
Синтаксис DO[{WHILE!UNTIL}выражение]
--------- .
. операторы [EXIT LOOP]
.
[LOOP!WEND][{WHILE!UNTIL}выражение]
Замечания Выражение-это числовое выражение ,в котором ненулевые значения
--------- представляют TRUE,а нулевые-FALSE.
DO и LOOP представляют собой строительные элементы циклов для всех случа-
ев.Они позволяют вам создавать циклы с тестированием условия завершения в
верхней части цикла ,в нижней его части и в обоих местах.Оператор DO всегда
должен быть в паре с оператором LOOP в нижней части цикла.Несоврадение DO и
LOOP приводит к ошибкам периода компилирования.
Используйте WHILE и UNTIL для добавления какого-то теста к DO/LOOP .Исполь-
зование резервированного слова WHILE удобно при необходимости повторения
цикла ,если выражение ИСТИННО и его прекращении ,если выражение ЛОЖНО.UNTIL
вызывает противоположный эффект,т.е. цикл будет прекращаться ,если условие
ИСТИННО,и будет повторятся ,если оно ЛОЖНО.
Например: DO WHILE a=13
.
.ОПЕРАТОРЫ
.
LOOP
исполняет операторы между DO и LOOP,пока а равно 13.
DO UNTIL a=13 -
.
.ОПЕРАТОРЫ
.
LOOP
исполняет операторы между DO и LOOP ,пока а не равно 13.
В любой точке DO/ LOOP вы можете включать оператор EXIT/LOOP.Это эквивалент-
но GOTO к оператору ,которое выполняется после завершения LOOP.(Более под-
-107 -
робно см.в описании оператора EXIT).
Обратите внимание на то ,что это DO/LOOP:
DO WHILE A<B
.
.
.
LOOP
имеет тот же эффект ,что и цикл WHILE/WEND:
WHILE A<B
.
.
.
WEND
Хотя компилятором не реализуется забота о подобных вещах,делайте отступ для
операторов между DO и LOOP на пару пробелов.Это помогает яснее представить
структуру цикла.
Пример DO 'Эта программа ждет нажатия клавиши
LOOP UNTIL INSTAT
END
Оператор DRAW
-------------
Функция DRAW обеспечивает вычерчивание контуров на графическом экране.
-------
Синтаксис DRAW строчное выражение
---------
Замечания DRAW дает графику обьектов на графическом экране в соответствии с
--------- командами,заключенными в строчный аргумент ,который в него подается.
В действительности " строчное выражение" есть программа для интерпретаторного
"языка" DRAW.Оператор DRAW обеспечивает исполнение командных строк для полу-
чения изображений на экране во многом также как и PLAY исполняет командные
строки для создания музыки.
-----------------------------------------------
Перемещение Команды
-----------------------------------------------
Un Переместить вверх
Dn Переместить вниз
Ln Переместить влево
Rn переместить вправо
En Переместить вверх и вправо
Fn Переместить вниз и вправо
Cn Переместить вниз и влево
Hn Переместить вверх и влево
-----------------------------------------------
n -расстояние перемещения(см.Sn,масштабный коэффициент,обсуждае-
мый ниже).
Перемещение всегда начинается в LRP и соответственно регулирует LRP(LRP оз-
начает "точка последней посылки") и определяе последнюю точку ,на которую
ссылались определенные чертежные операторы.Более детальную информацию см. в
разделе графики ГЛАВЫ 4).
Например:
DRAW "D10R5"
обеспечивает вычерчивание L-образной формы (вниз 10,вправо
5),начиная с LPR.При этом LPR устанавливается в последнем задействованном
пикселе.
Мx,y обеспечивает перемещение в координату x,y.Если перед x стоит знак
плюс или минус ,перемещение относительное,иначе оно абсолютное,например:
DRAW "D10R5 M30,50"
обеспечивает вычерчивание L-формы ,а затем доводит ее линией до
-108 -
пиксела(30,50).
Любой команде перемещения могут предшествовать следующие префиксы:
В -обеспечивает перемещение без графического изображения
N -обеспечивает перемещение ,но также возврат в исходное положе-
ние по окончании.
Например:
DRAW "BM180,20NU10ND101L10NR10"
обеспечивает перемещение без вычерчивания в пиксел (180,20),а
затем вычерчивание знака плюс
Другие команды
--------------
An- обеспечивает установку угла n.Значение n может лежать в диапазоне от 0
до 3,где 0 соответствует 0 градусов,1-90 градусам,2-180 градусам и
3-270 градусам.
TAn-обеспечивает поворот на n градусов.Значение n может находится в диапа-
зоне от -360 до +360 градусов.Если n положительно ,поворот осуществляется
против часовой стрелки,а если n-отрицательно ,то по часовой стрелке.Значения
вне законного диапазона вызывают ошибку 5 периода прогона.
Cn-обеспечивает вычерчивание в цвете n.Относительно диапазона n 6сверяй-
тесь с оператором PALETTE в каждом режиме отображения.Цветом по умолчанию
является наивысший законный атрибут.
Sn-обеспечивает установку масштабного коэффициента как n/4,где n может ле-
жать в диапазоне от 0 дл 255.Например,если n=8,масштабный коэффициент равен
2.В операторе DRAW осуществляется умножение масштабного коэффициента на ар-
гументы при U,D,L,R,E,F,G,H и относящихся к ним командам М для определения
крайнего размера обьектов.По умолчанию n равно 4,что дает масштабный коэффи-
циент равный 1(т.е. без мастабирования).Видовое отношение дисплея которым вы
пользуетесь определяется взаимосвязью X и Y.На идеальном ,несуществующим
дисплее с видовым отношением 1/1 точка в направлении X имеет ту же длинну
,что и в направлении Y.Однако дисплеи для IBM-компьютеров имеют следущие ви-
довые отношения:
----------------------------------------------------------------
Монитор-адаптер Экран 1 Экран 2 Экран 7/8/9 Экран 10
----------------------------------------------------------------
Цветной 5/6 5/12 нет нет
Улучшенный 5/6 5/12 8.76/12 нет
Улучшенный моно нет нет нет 9.57/12
----------------------------------------------------------------
X VARPRT$(переменная) обеспечивает исполнение субстроки,т.е.ис-
полняет вторую командную строку из первичной DRAW строки.X-команда в чем-то
подобна GOSUB;например:
DRAW "X"+VARPRT$(x$)
P цвет ,граница стартует на текущей (x,y) координате и обеспечивает за-
полнение цветом ЦВЕТ,останавливаясь на зонах цвета ГРАНИЦА.
В каждом случае аргумент n,x или y может быть либо константой либо пере-
менной в форме
=VARPRT$(переменная);
Например:
DRAW "e15"
то же ,что и
а=15
DRAW "e="+VARPRT$(a)
DRAW игнорирует пробелы в своей командной строке-вы можете пожелать ис-
пользовать их ,чтобы сделать вашу DRAW-программу более читабельной.
Ограничения Турбо-Бейсик не распознает имена переменных в DRAW строках.Поэ-
тому вы должны для доступа к содержимому переменных в пределах DRAW-строки
во время прогона пользоваться VARPRT$(n).Вместо DRAW "U=I%"
используйте DRAW "U="+VARPRT$(I%)
Пример screen 1
домик$="u20 c5 e20 h5 d20 l30
draw домик$
draw "be3"
draw "p1,3"
-109 -
for i%=1 to 280 step 40
draw "m="+varprt$(i%)+",40"
draw домик$
next i%
end
Оператор END
------------
Функция END завершает исполнение программы или определяет конкц структурного
------- блока.
Синтаксис END[{DEF!IF!SELECT!SUB}]
---------
Замечания END без аргументов завершает исполнение программы.Оператор END
--------- можно размещать где угодно в программе и их может быть более одного.
Обнаружение END вызывает закрытие прораммой всех открытых файлов и возврат в
DOS (или в Турбо-Бейсик,в зависимости от того откуда была запущена программа
в работу).END компилятором строго не требуется,хотя практически его исполь-
зовать рекомендуется.Если программа выходит ,исполнив все операторы,достига-
ется тот же эффект.
END ,за которым следуют резервированные слова DEF,IF,SUB,SELECT,определяют
конец структурного блока.
См.также DEF
IF
SELECT
STOP
SUB
Пример sub ПустаяПроц
print "алло"
endsub
def fn ПустаяФункц$
end def
input "Исполнить процедуру или функцию[1или2]";Который%
if Который%>0 then
select case Который%
case 1
call ПустаяПроц
end
case 2
print fnПустаяФункц$
end
case else
print "Был сделан незаконный выбор"
end select
end if
end
Оператор ENDMEM
---------------
Функция ENDMEM возвращает адрес конца физической памяти.
-------
Синтаксис y=ENDMEM
---------
Замечания ENDMEM возвращает длинное целое ,представляющего адрес последнего
--------- байта физической памяти.ENDMEM в сочетании с MEMSET можно исполь-
зовать для размещения пространства в высокой памяти для программ на языке
ассемблера.Пока используется программа ,находящаяся в памяти,ENDMEM в дейст-
вительности возврващает конец физической памяти минус размер символьной таб-
-110 -
лицы.Когда Турбо-Бейсик осуществляет компилирование в память ,он обеспечива-
ет хранение символьной таблицы по наивысшему адресу памяти.
См.также MEMSET
Пример PRINT "Конец адресуемой памяти равен:",endmem
end
Оператор ENVIRON
----------------
Функция ENVIRON модифицирует информацию в таблице среды.
-------
Синтаксис ENVIRON строчное выражение
---------
Замечания Строчное выражение определяет имя параметра,подлежащего измене-
--------- нию,добавлению или стиранию,и собственно информацию о новом
параметре.Эти две части должны разделятся знаком равенства(=).
ENVIRON и родственная ему функция ENVIRON$ используютяс для конфигурации
среды,подлежащей подаче в программы,исполняемые через оператор SHELL.(Под-
робную информацию см. в описании оператора SHELL и команды SET в справочном
руководстве по DOS) .
Например:ENVIRON "PATH=\TURBOBAS"
устанавливает DOS-параметр PATH на "TURBOBAS".Следовательно про-
пущенная через SHELL копия COMMAND.COM будет автоматически искать справочник
\TURBOBAS для нахождения файлов,которых нетв текущем справочнике.Чтобы стереть
параметр из таблицы среды ,после знака рквенства ставится только двоеточие
(:):
ENVIRON "PATH=:"
стирает из таблицы среды параметр прохода(PATH)
Ограничения Вы не можете расширять пространство среды.Чтобы добавлять новые
----------- входы вы должны освободить пространство,стирая существующие вхо-
ды.
См.также ENVIRON$
SHELL
Пример PRINT ENVIRON$("PATH")
ENVIRON "PATH=\"
Функция ENVIRON$
----------------
Функция ENVIRON$ выдает параметр таблицы среды
-------
Синтаксис s$=ENVIRON$(строка параметров)
--------- s$=ENVIRON$(n)
Замечания Строка параметров -это строчное выражение,содержащее пара-
--------- метр,подлежащий выдаче. n- целое выражение в диапазоне от 1 до
255.ENVIRON$ и родственный ей оператор ENVIRON используются для конфигуриро-
вании среды,подлежащей подаче в программы,используемые через оператор
SHELL.Если используется строчный аргумент ,ENVIRON$ возвращает текст,который
следует за строкой параметров в таблице среды.Следует заметить ENVIRON$ де-
лает различие букв верхнего и нижнего регистров.Если строка параметров не
обнаруживается или за знаком равенства никакой текст не следует,возврашается
нуль-строка.Если используется числовая форма ,ENVIRON$ возвращает строку,со-
держащую n-ый параметр,считая от начала таблицы.Если n-го параметра нет,воз-
вращается нуль-строка.
-111 -
Функция EOF
-----------
Функция EOF возвращает состояние конца файла.
-------
Синтаксис y=EOF(ФайлНом)
---------
Замечания ФайлНом-это значение,специфицированное при открытии файла.
---------- EOF возвращает TRUE (-1) ,если на специфицированном файле был
достигнут конец файла;иначе возвращается FALSE (0).EОF законна только для
дисковых файлов,открытых для последовательного доступа и для коммуникацион-
ных файлов .Возвращение функцией EOF (-1) для коммуникационных файлов озна-
чает ,что буфер пуст.
Пример OPEN "TEXT.DTA" FOR INPUT AS #1
верх:
IF EOF(1) THEN
PRINT C"записей (строк) в файле TEXT.DTA"
ENDIF
INPUT#1,пусто$
C=C+1
GOTO верх
'или ,более элегантно
OPEN "TEXT.DTA" FOR INPUT AS #1
WHILE NOT EOF(1)
INPUT#1 пусто$
INCR c
WEND
PRINT c" записей (строк в файле TEXT.DTA":END
Функция ERADR
-------------
Функция ERADR возвращает адрес самой последней ошибки.
-------
Синтаксис y=ERADR
---------
Замечания ERADR возвращает значение длинного целого ,представляющего положе-
--------- ние самой последней ошибки .ERADR есть некоторое значение програм-
много счетчика ,которое выводилось бы ,но не выведено ,поскольку не включи-
лось отслеживание ошибок(т.е. его можно можно использовать посредством вклю-
чения выбора ошибок из меню опций для нахождения положения в исходной прог-
рамме того оператора,которое генерирует ошибку).
ERADR предназначена в качестве функции некоторой последней пересортировки в
подпрограммах обработки ошибок.Если какая-то подпрограмма ошибок не распола-
гает схемой обработки конкретной ошибки,вы ,по крайней мере ,можете вывести
код ошибки(ERR) и ERADR на экран,и таким образом сообщить вашим пользовате-
лям о необходимости отчитаться о случившимся.
См.также ERL
ERR
ERROR
ON ERROR
Пример ON ERROR GOTO ЛОВУШКА
DIM X%(10)
FOR I%=1 TO 10
READ X%(I%) 'СЧИТАТЬ X 10 РАЗ
PRINT X%(I%) '
-112 -
NEXT I%
'В ПАМЯТИ НЕДОСТАТОЧНОЕ ЧИСЛО ЭЛЕМЕНТОВ ДАННЫХ
DATA 1,2,3,4,5,6,7
END 'СЛЕДУЮЩИЙ ОБРАБОТЧИК ОШИБОК ВЫВОДИТ НОМЕР И АДРЕС ОШИБКИ
ЛОВУШКА :
LOCATE 10,15
'ВЫВЕСТИ СООбЩЕНИЕ В СЕРЕДИНЕ эКРАНА
PRINT "ОШИбКА ТИПА "ERR" ПРОИЗОШЛА ПО АДРЕСУ "ERADR
LOCATE 11,15
PRINT "ПОжАЛУЙСТА ,ОТМЕТЬТЕ ЭТИ ЗНАЧЕНИЯ И СВЕРТЕСЬ С РУКОВОДСТ-
ВОМ"
END
Оператор ERASE
--------------
Функция ERASE стирает динамические массивы и повторно устанавливает статиче
-------- ские.
Синтаксис ERASE имя массива[,имя массива]...
---------
Замечания Имя массива -это имя того массива(вов),который вы желаете повторно
--------- установить или исключить из размещения .Следует заметить,что пус-
тые скобки не должны входить в ИМЯ МАССИВА.Если ИМЯ МАССИВА относится к ди-
намическому массиву,его пространство в памяти освобождается и это имя масси-
ва в дальнейшем можно образмерить вновь с помощью другого оператора DIM.Если
ИМЯ МАССИВА относится к статическому массиву ,при стирании с помощью ERASE
его элементы просто очищаются в 0(или в нуль-строку ,для строчных массивов).
Ограничения Вы не можете стереть массив ,который никогда не существовал,или
----------- в случае динамических массивов уже был стерт.
Различия Турбо-Бейсик дает возможность создания статических массивов ,кото-
-------- рые быстрее динамических массивов.Интерпретаторный Бейсик допускает
только динамические массивы.
См.также CLEAR
DIM
$DYNAMIC
FRE
$STATIC
Пример ON ERROE GOTO ОшибокОбработчик
PRINT FRE(-1)
DIM DYNAMIC БольщойМассив(10000)
БольшойМассив(6666)=66
PRINT FRE9-10
ERASE БольшойМассив
PRINT FRE(-1)
'этот оператор будет возвращать ошибку ,если программа будет
'прогоняться с включенной проверкой границ
PRINT БольшойМассив(6666)
END
ОшибокОбработчик:
PRINT "ошибка типа "ERR
PRINT "произошла по адресу "ERADR
END
Функции ERDEV,ERDEV$
--------------------
Функция ERDEV,ERDEV$ возвращают информацию о приводном устройстве.
-113 -
-------
Синтаксис y=ERDEV
--------- y=ERDEV$
Замечания Когда возникает ошибка устройства ,целая функция ERDEV возвращает
--------- информацию об ошибке в своем младшем байте .Этот байт представляет
код ошибки INT24.Старший байт содержит биты 15,14,13,3,2,1 и 0 атрибутного
слова устройства.ERDEV$ содержит имя устройства :8 байтор для литерных уст-
ройств и 2-для блочных устройств.(См.более детальную информацию в техничес-
ком справочном руководстве по IBM DOS).
Пример ON ERROR GOTO ОшибокОбработчик
PRINT "Открыть путь на устройство А и нажать любую клавишу..."
WHILE NOT INSTAT:WEND
FILES "A:\"." "
END
ОбработчикОшибок:
PRINT USING "Угрожающая ошибка ## имела место на & ":ERDEV,ERDEV$
RESUME NEXT
Функции ERL,ERR
---------------
Функция ERL И ERR возврашают строку и код самой последней ошибки.
-------
Синтаксис y=ERL
--------- y=ERR
Замечания ERL возврашает номер строки самой последней ошибки.Если ошибка
--------- произошла в операторе без номера строки ,ERL возвращает номер
ближайшей нумерованной строки в направлении к началу программы.Если между
точкой ошибки и началом программы нумерованных строк нет,ERL возвращает 0.
ERR возвращает номер самой последней ошибки периода прогона.Тестируйте ее
в подпрограммах отслеживания ошибок с целью исполнения кода,подходящего для
произошедшей ошибки по типу.
Примечание: Операторы ERL RESUME и RESUME NEXT приводят к генерированию
компилятором 4-байтового указателя для каждого оператора в программе.Следо-
вательно программисты,имеющие дело с размером генерируемых ими кодов,должны
принимать это во внимание.При использовании RESUME [строка#] генерируется
единственная инструкция перехода.ERL обычно используется в отладочных целях
,поэтому все это ,вероятно имеет небольшое значение.
Различия Правила ,касающиеся того ,с какой стороны относительного оператора
--------- сравниваемый по ERL номер должен находится,неприемлемы для Тур-
бо-Бейсика.Это связано с тем ,что в Турбо-Бейсике нет инструкции RENUM.Кроме
того,В Турбо- Бейсике неприемлен результат ERL Интерпретаторного Бейсика,по-
лучающийся при возникновении ошибки во время исполнения оператора DIRECT MODE.
См.также ERADR
ERROR
ON ERROR
Пример ON ERROR GOTO Ловушка
DIM X%(10)
FOR I%=1 TO 10
40 READ X%(I%)
PRINT X%(I%)
NEXT I%
'имеется недостаточное число элементов данных
70 DATA 1,2,3,4,5,6,7
80 END
90 Ловушка:
IF ERL=40 THEN
-114 -
RESTORE
RESUME
ELSE
PRINT "Неизветсная ошибка":END
ENDIF
Оператор ERROR
-------------
Функция ERROR вынуждает ошибку периода прогона.
-------
Синтаксис ERROR ОшибкиКод
---------
Замечания ОшибкиКод-это целое выражение от 0 до 255.Если ОшибкиКод-заранее
--------- определенный код ошибки (см.приложение Е),то ERROR вызывает такое
поведение вашей программы,как если бы произошла ошибка.Это предусмотрено
для отладки подпрограмм отслеживания ошибок .
Чтобы определить ваши собственные коды ошибок,используйте в ОшибкиКод такие
значения ,которые не используются Турбо-Бейсиком.Если вы не определяете про-
цедуру обработки ошибок для этих новых потребительских кодов ошибок,Тур-
бо-Бейсик отображает сообщение:
Ошибка n в программном счетчике:адрес
(Error n at pgm-ct :адрес)
где n-код ошибки,адрес-значение из программного счетчика процес-
сора во время обнаружения ошибки .
Пример DEF FN функ%=(x%)
IF x%>65 THEN
ERROR 5 'ошибка вызова незаконной функции
ELSE
FNфунк%=x%+100
ENDIF
END DEF
PRINT FNфунк(65) 'вызвать ошибку незаконного вызова функции
Оператор EXIT
-------------
Функция EXIT преждевременно оставляет какую либо структуру.
-------
Синтаксис EXIT{SELECT!DEF!FOR!IF!LOOP!SUB!WHILE}
---------
Замечания Оператор EXIT позволяет вам оставлять структурный оператор или
--------- определение процедуры и функции в каком-то ином месте,чем ее ко-
нец.Тип структуры,подвергаемой действию оператора EXIT,должен включать в се-
бя,как составную часть,оператора EXIT в соответствии со следущим списком:
--------------------------------------------------
EXIT-опция Подвергаемая EXIT структура
--------------------------------------------------
SELECT Оператор SELECT
DEF Определение функции
FOR Цикл FOR/NEXT
IF IF-блок
LOOP Цикл DO/LOOP
SUB Определение процедуры
WHILE Цикл WHILE/WEND
--------------------------------------------------
При использовании EXIT можно сэкономить на беспорядочных GOTO.
-115 -
Ограничения Когда EXIT используется для выхода из функции,вы должны назна-
----------- чать функции результат до исполнения EXIT.
Пример 'Эта программа демонстрирует все операторы EXIT.Для прекращения исп
'олнения используются и процедура и функция.
SUB Управление (Выб%,Пусто%)
SELECT CASE Выб%
CASE 1
' использовать оператор CASE для сообщения пользователю чего-то о
'вводимом числе
SELECT CASE Пусто%
CASE<0
PRINT "Число меньше нуля"
'выити из оператора SELECT CASE
EXIT SELECT
CASE >0
PRINT "Число больше нуля"
EXIT SELECT
CASE ELSE
PRINT "Число равно нулю"
END SELECT
EXIT SUB
CASE 2
IF Пусто%<0 THEN
PRINT "Число меньше нуля"
EXIT IF
ELSEIF Пусто%>0 THEN
PRINT "Число больше нуля"
EXIT IF
ELSE
PRINT "Число равно нулю"
ENDIF
END SELECT PRINT "Вы выбрали число 2"
END SUB
DEF FN Циклы(Выб%)
'Параметр подаваемый в функцию ,указывает какое EXIT будет ис-
'полняться .Каждая цикловая структура делает одно и то же,чтобы
'продемонстрировать как может использоваться EXIT для завершения
'исполнения цикла.Мы также демонстрируем как можно использовать
'EXIT для выхода из функции.EXIT DEF используется для выхода из
'первых двух случаев выбора.Это предотвращает исполнение опера-
'торов вывода на экран.
'назначить значение результату функции
FNциклы=-1
SELECT CASE Выб%
CASE 1
'использовать EXIT ,чтобы оставить этот цикл,вместо того,чтобы
'позволить ему завершится нормально
FOR I%=1 TO 32767
PRINT RND(Пусто%)
EXIT FOR
NEXT I%
EXIT DEF
CASE 2
DO
PRINT RND(Пусто%)
EXIT LOOP
LOOP
EXIT DEF
CASE 3
WHILE 1
PRINT RND(пусто%)
EXIT LOOP
WEND
END SELECT
-116 -
PRINT "Вы исполнили выбор случая 3"
END DEF
'начать главную программу
'сделать три вызова циклов , выбирая каждый раз иной из имеющихся
PRINT FNЦиклы(1)
PRINT FNЦиклы(2)
PRINT FNЦиклы(3)
INPUT "Введите число:"Пусто%
FOR Счетчик%=1 to 2
CALL Управление(Счетчик%,Пусто%)
CALL Управление(Счетчик%,Пусто%)
NEXT Счетчик%
END
Функции EXP,EXP2,EXP10
----------------------
x x x
Функция EXP возвращает e ;EXP10- 10 ;EXP2- 2 .
------
Синтаксис EXP:
--------- y=EXP(x)
EXP2:
y=EXP2(x)
EXP10:
y=EXP10(x)
Замечания EXP возвращает e встепени x,где x-числовое выражение ,а e-основа-
--------- ние натуральных логарифмов,равное приблизительно 2.718252.Тот же
результат вы получите с помощью оператора e^x.Только с помощью EXP вы можете
вычислить само e :e=EXP(1)
EXP2 возвращает 2 в степени x ,где x -числовая переменная или
выражение.Тот же результат вы можете получить с помощью выражения 2^x.
EXP10 возвращает 10 в степени x ,где x числовая переменная или
выражение.Тот же результат вы можете получить с помощью выражения 10^x.
EXP,EXP2,EXP10 возвращают результат двойной точности.
Пример FOR I=1 TO 10
PRINT USING "Экспонента ##=####^^^^":I,EXP(I)
NEXT I
END
Оператор FIELD
--------------
Функция FIELD определяет переменные поля в буфере файла произвольного досту
------- па.
Синтаксис FIELD [#]Файланом,ширина AS строчная переменная.
---------
Замечания Файланом-это номер,используемый ,когда файл открывается,ширина-это
--------- число байтов, распределяемой для переменной поля,а строчная пере-
менная-это сама переменная поля.
Однажды используемые в операторе FIELD строчные переменные приобретают ста-
тус "переменная поля".Они должны назначаться при подготовке записи в указан-
ный файл произвольного доступа только с использованием RSET и LSET.
Ограничения Идентификатор ,используемый в операторе FIELD,никогда не должен
----------- применяться с левлй стороны в оперпторе присваивания.Если это
происходит,то данный идеттификатор более не идентифицируется с определени-
яим полей файла произвольного доступа.
-117 -
См.также LSET
RSET
Пример OPEN "FIELD.DTA" FOR OUTPUT AS #1 LEN=18
FIELD #1,2 AS Целое$,4 AS ДлинноеЦелое$,4 AS ЕдиничнаяТоч-
ность$,8 AS ДвойнаяТочность$
FIELD #1,2 AS A$,4 AS B$,4 AS C$,8 AS D$
МаксЦелое%=32767
FOR I%=1 TO 5
LSET Целое;=MKI$(I%)
LSET ДлинноеЦелое$=MKL$(I%+CLNG(МаксЦелое%))
LSET ЕдиничнаяТочность$=MKS$(CSNG(I%*CSNG(МаксЦелое%)))
LSET ДвойнаяТочность$=MKD$(МаксЦелое%-I%)
PUT #1,I%
NEXT I%
FOR I% TO 5
GET #1,I%
PRINT CVI(A$),CVL(B$),CVS(C$),CVD(D$)
NEXT I%
CLOSE #1
END
Оператор FILES
--------------
Функция FILES отображает содержание справочника (подобно DIR -команде DOS).
-------
Синтаксис FILES [файласпец]
---------
Замечания Файласпец-это строчное выражение ,следующее соглашениям DOS об
--------- именовании файлов,и может опционально включать в себя специфика-
тор привода и информацию о проходе.Если файласпец опускается,отображаются
все файлы текущего справочника.
Файласпец может содержать свободно определяемые литеры:?,*,аналогично
DIR-команде из DOS.
FILES *.*
дает перечень всех файлов текущего справочника.
FILES *.BAS
дает перечень исходных файлов Турбо-Бейсика.
В конце FILES ,отображается число свободных байтов на устройстве ,содержа-
щем текущий справочник.Файлы субсправочника указуваются суффиксом DIR.
Ограничения Спецификация несуществующего привода или справочника в операто-
----------- ре FILES будет вызывать ошибку периода прогона.
Пример INPUT "Введите привод и справочник ,по которому вы желаете иметь п
еречень":Спр$
FILES Спр$
END
Функция FIX
-----------
Функция FIX дает усечение целого.
-------
Синтаксис y=FIX(числовое выражение)
---------
Замечания FIX отсекает дробную часть аргумента и возвращает целую (в отличии
-118 -
--------- от CINT и INT ,которые выполняют округление).
См.также CEIL
CINT
INT
Пример FOR I=50 TO 52 STEP RND
PRINT USING "Целая часть ##.##=##":x,FIX(x)
NEXT I
END
Операторы FOR/NEXT
------------------
Функция FOR и NEXT определяют цикл с автоматическим наращиванием (или умень-
------- шением).
Синтаксис FOR переменная=x TO y [STEP z]
--------- .
.
.
NEXT [переменная[,переменная]...]
Замечания Переменная-это числовая переменная,служащее счетчиком цикла,тогда
--------- как x,y,z-это числовые выражения,определяющие условия начала и ос-
тановки цикла.X-начальное значение счетчика,y-конечное значение счетчика
счетчика,а z-опциональное значение наращивания.
Операторы между FOR и NEXT используются в режиме повторения.при каждом
проходе через цикл переменная наращивается на z .Если z опускается,то шаго-
вое значение по умолчанию равно 1.Цикл завершается ,когда значение счетчика
больше или равно y (или ,для отрицательного z ,меньше или равно y)7
Циклы FOR/NEXT прогоняются быстрее всего прицелых переменных,как перемен-
ной счетчика,так и константах x,y,z.Корпус цикла пропускается полностью,если
начальное значение x меньше y.Циклы FOR/NEXT могут гнездоваться в других
циклах FOR/NEXT.убедитесь в том ,что используются уникальные переменные
счетчиков и обеспечиваете гарантию появления оператора NEXT внутреннего цик-
ла ранее NEXT внешнего цикла.
Этот цикл имеет пересечение циклов и не будет компилироваться:
FOR n=1 TO 10
FOR m=1 TO 20
.
.
.
NEXT n
NEXT m
Если множество циклов оканчивается в одной и той же точке,достаточно един-
ственного оператора NEXT,содержащего каждую переменную счетчика:
FOR n=1 TO 10
FOR m=1 TO 20
.
.
.
NEXT m,n
Переменная счетчика в операторе NEXT может опускаться вовсе,но если вы
включаете ее,она должна быть правильной.
Например:
FOR n=1 TO 10
.
.
.
NEXT
Хотя компилятор не заботится о таких вещах,делайте уступ в операторах
FOR/NEXT на два или три пробела для разметки структуры цикла.Используйте
оператор EXIT FOR с целью покинуть цикл FOR/NEXT до его завершения.
Если обнаруживается NEXT без соответствующего FOR ,возникает ошибка 1 .
-119 -
Пример FOR I%=1 TO 10
PRINT "Для цикловой итерации "I%
NEXT I%
PRINT "Нажмите любую клавишу ..."
WHILE NOT INSTAT
WEND
FOR I% TO 50 STEP -5
PRINT "Для цикловой итерации"(45-I%)\5
NEXT
END
Функция FRE
-----------
Функция FRE возвращает величину свободной памяти ,имеющейся для вашей прог-
------- раммы .
Синтаксис y=FRE({строчное выражение!-1!-2})
---------
Замечания FRE со строчным аргументом возвращает длинное целое,представляю-
--------- щее число байтов свободной RAM( с помощью произвольного доступа)
в строчной памяти.FRE(-1) возвращает свободную RAM в пространстве массивов
вашей прораммы.FRE(-2) говорит как много места осталось в стеке.
Различия Функция FRE Турбо-Бейсика дает больше информации,чем аналогичная
-------- функция Интерпретаторного Бейсика.Оператор FRE в Интерпретаторном
Бейсике возвращает величину наличной памяти в сегментах данных Бейсика;сле-
довательно вызов FRE (S$) и FRE(0) возвращают одно и то же число.
Однако,поскольку Турбо-Бейсик обеспечивает больше памяти ,в которой рабо-
тает,его оператор FRE имеет больше функций.Турбо-Бейсик имеет отдельный
строчный сегмент ;следовательно FRE(S$) возвращает наличное строчное прост-
ранство.Турбо-Бейсик имеет большое (64К) массивное пространство,поэтому
FRE(-1) возврашает наличную память для массивов.И Турбо-Бейсик поддерживает
процедуры и реккурсивность,поэтому FRE(-2) возвращает наличное стековое
пространство.
Пример ON ERROR GOTO ОшибкиОбработчик
PRINT FRE ("Строчное Пространство"),FRE(-1),FRE(-2)
DIM DYNAMIC БольшойМассив(10000)
БольшойМассив(6666)=66
'отобразить память,имеющуюся в сегментах строк,данных и стека
s$="abc...z"
PRINT FRE("Строчное пространство"),FRE(-1),FRE(-2)
'эта программа дает ошибку ,если прогоняется с включенной при-
вязкой границ
PRINT БольшойМассив(6666)
END
ОшибкиОбработчик:
PRINT "Ошибка типа "ERR"произошла по адресу "ERADR
END
Оператор GET (файлы)
--------------------
Функция GET обеспечивает считывание записи из произвольного файла.
-------
Синтаксис GET [#]файланом[,записином]
---------
Замечания Файланом-это номер файла ,под которым он был открыт,а записином-
--------- запись подлежащая считыванию от 1 до 16777215 ---------
-120 -
Если записином опускается,то считывается следущая по порядку запись (после
специфицированной самым последним GET или PUT).
Пример OPEN "GET.DTA" AS #1 LEN 18
FIELD #1,2 AS Целое$,4 AS ДлинноеЦелое$,4 as ЕдиничнаяТочность$,8 as
ДвойнаяТочность$
FIELD #1,2 AS a$,4 AS B$,4 AS C$,8 AS D$
МаксЦелое%=32767
FOR I% TO 5
LSET Целое$=MKI$(I%)
LSET ДлинноеЦелое$=MKL$(I%+CLNG(МаксЦелое%))
LSET ЕдиничнаяТочность$=MKS$(CSNG(I%*CSNG(МаксЦелое%)))
LSET ДвойноеЦелое$=MKD$(МаксЦелое%^I%)
PUT #1,I%
NEXT I%
FOR I%=1 TO 5
GET #1,I%
PRINT CVI(A$),CVL(B$),CVS(C$),CVD(D$)
NEXT I%
CLOSE #1
END
Оператор GET (графика)
----------------------
Функция GET обеспечивает считывание всего или части графического экрана в м
------- ассив.
Синтаксис GET (x1,y1)-(x2,y2),Массив
----------
Замечания (x1,y1) и (x2,y2) специфицируют верхнюю левую и нижнюю правую гра-
--------- ницы зоны графического экрана,подлежащей обработке оператором
GET.Массив -это числовой массив.
GET и его дополнительная команда PUT исползуются сначала для считывания ,а
затем для записи графических изображений на экран.Единственное ограничение
накладываемое на числовой массив,который используется для хранения считывае-
мых с экрана данных,состоит в том ,что он должен быть достаточно большим для
этого.Для расчета размера массива ,необходимого для хранения заданной доли
экрана,используйте следующую формулу:
Необходимо байтов:4+INT((x*битов на пиксел+7/8)*y,где y и x-горизонталь-
ный и вертикальный размеры захватываемой зоны.
Битов на пиксель-константа,относящееся к режиму :
2-для средней
1-для высокой разрешающей способности.
--------------------------------------
Экран Битов на пиксель
--------------------------------------
1 2
2 1
7 4
8 4
9 4
10 2
--------------------------------------
Например для хранении изображения при средней разрешающей способности 35
пикселей шириной и 45 высотой вам необходим массив
4+int((32*2+7)/8)*45 байтов или 409 байтов.409 байтов представля-
ют собой целый массив из 205 элементов,следовательно массив заявляемый с по-
мощью оператора размера DIM буфер%(204),примет проделанную работу.Помните
,что по умолчанию каждый массив имеет нулевой элемент;так что в массиве бу-
фер% имеется 205 двухбайтовых элементов,от 0 до 204,т.е всего 410 байтов).
Турбо-Бейсик хранит графические данные в следущем формате:
буфер%(0): число битов по горизонтали
-121 -
буфер%(1)%число битов по вертикали
буфер%(2)
.
. Собственно графическая информация
.
буфер%(204)
В силу особенности организации дисплейной памяти,оживление работы на базе
GET и PUT идет быстрее ,если вы выбираете зоны экрана,выровненные по байто-
вым границам.Для средней разрешающей способности используйте значения x
кратное 4;для высокой разреш.способности -кратное 8.
Базисная стратегия использования GET и PUT для живой обработки обьекта от
точки А до точки В состоит в следущем:
Чертить обьект
GET обьект в массив
позиция=старая ячейка=точка А
DO UNTIL позиция =точка В
PUT XOR обьект в старой ячейке
позиция=позиция + приращение
PUT XOR обьект в позиции
задержать,если необходимо
старая позиция=позиция
LOOP
Пример 'разместить буфер для хранения графического образа
DIM Буфер%(143)
'Переключить на графический режим среднего разрешения
SCREEN 1
CIRCLE (16,16),8,2 'чертить окружность
GET (0,0)-(31,31),Буфер% 'получить окружность
'копировать все на экран
FOR I%=0 TO 9
PUT (I%*32,100),Буфер%
NEXT I%
END
Функция GET$
------------
Функция GET$ считывает строку из файла,открытого в режиме BINARY (двоичном).
-------
Синтаксис GET$ [#]файланом,счетчик,строчная переменная
---------
Замечания Счетчик -это целое выражение в диапазоне от 0 до 32767.
--------- GET$ считывает счетчик байтов,начиная с текущей файловой пози-
ции(которая может быть установлена оператором SEEK),из файла номер файланом
и назначает считанное строчной переменной. файл файлном должен быть открыт в
режиме BINARY.После обработки GET$ текущая файловая позиция будет продвинута
вперед на счетчик байтов.
GET$,PUT$ и SEEK обеспечивают низкоуровневую альтернативу приемов обработ-
ки последовательных и произвольных файлов,которая дает вам возможность иметь
с файлами дело на байтовой основе.
См.также OPEN
PUT$
SEEK
Пример SUB создатьФайл
'GET$ открывает файл и записывает в него 256 литер
LOCAL I%
OPEN "GET.DTA" FOR BINARY AS #1
FOR I%=0 TO 256
-122 -
PUT$ #1,I%,CHR$(I%)
NEXT I%
END SUB
DEF FNЧитатьЭл$(Начало%,Размер%)
LOCAL времСтр$,Лит$,I%
SEEK 1,Начало%
GET$ #1,Размер%,ВремСтр$
FNЧитатьЭл$=ВремСтр$
END DEF
CALL Создатьфайл
PRINT "Введите строчную точку [0...255] и сколько"
PRINT "байтов данных [0...255] вы желаете
PRINT "считать из файла ",Ст%,Рз%
PRINT FNчитать Эл$(Ст%,Рз%)
END
Оператор GOSUB
--------------
Функция GOSUB возбуждает подпрограмму
-------
Синтаксис GOSUB метка
---------
Замечания Оператор GOSUB вызывает переход Турбо-Бейсика к оператору ,имеюще-
--------- му перед собой метку ,после предварительного обеспечения хранения
текущего адреса в стеке.Использование RETURN возвращает управление к опера-
тору ,следущему за GOSUB .Процедуры и функции Турбо-Бейсика могут выполнять
работу подпрограмм с добавлением выигрыша в реккурсивности,подачи параметров
и локальных и статических переменных.
См.также DEF FN
SUB
RETURN
Пример PI#=ATN(1)*4
радиус =55
GOSUB РасчетПлощади
радиус=13
GOSUB РасчетПлощади
END
РасчетПлощади:
Площадь=PI#*радиус^2
PRINT Площадь
RETURN
Оператор GOTO
-------------
Функция GOTO направляет программный поток к оператору идентифицируемуму мет-
------- кой .
Синтаксис GOTO метка
---------
Замечания GOTO вызывает безусловное смещение программного потока к коду
--------- идентифицирумому меткой.При умеренном использовании операторы GOTO
представляют собой быстрое и эффективное средство программирования.При без-
заботном использовании они загромождают программу переплетениями,в которых
невозможно разобраться( особенно через месяц и годы после написания ).В сов-
ременной практике программирования стремятся минимизировать применение GOTO
с помощью подпрограмм,процедур и функций,а также структурных операторов ,та-
-123 -
ких как FOR/NEXT,WHILE/WEND,DO/LOOP,IF BLOCK и SELECT.Уменьшению применения
GOTO также способствует оператор EXIT.
См.также EXIT
Пример x=0
Начало:
x=x+1
IF x<20 THEN
GOTO Распечатать
END IF
END
Распечатать:
PRINT "Переменная x="x
GOTO Начало
Функция HEX$
------------
Функция HEX$ преобразует число в его шестнадцптиричный строчный эквивалент.
-------
Синтаксис s$=HEX$(числовое выражение)
---------
Замечания числовое выражение может находиться в диапазоне от -32768 до
--------- 65535.Любая дробная часть числового выражения округляется перед
созданием строки.Если аргумент HEX$ отрицателен ,то эта функция возвращает
двоичное дополнение числа.
См.также BIN$
OCT$
Пример PRINT HEX$(65535)
PRINT HEX$(-1)
Оператор IF
-----------
Функция IF тестирует условие и изменяет программный поток,если условие удовл
------- етворяется.
Синтаксис IF целое выражение[,] THEN оператор(ы)
--------- [ELSE оператор(ы)]
Замечания Если целое выражение TRUE используются операторы следущие после
--------- THEN и любого опционального ELSE.Если выражение FALSE ,то исполня-
ются операторы после ELSE.Если опциональная статья ELSE опускается ,исполне-
ние продолжается со следущей строки программы.
Обычно целое выражение будет результатом,возвращаемым оператором отноше-
ния,хотя и не всегда,как показано ниже:
IF ПринтерВкл THEN LPRINT Ответ$
Здесь оператор lprint используется только ,"флаговая переменная Принтервкл
имеет ненулевое значение.Перед ключевым словом ELSE не должно появляться
двоеточие;например,следущий оператор компилироваться не будет:
IF a<b THEN c=d:ELSE e=f
Оператор IF и всеассоциируемые с ним операторы ,включая следущие после ELSE
должны появляться в одной и той же логической строке.Поэтому следущее неза-
конно:
IF a<b THEN t=15:w=13:v=23
ELSE t=17:w=16:v=15
поскольку компилятор трактует вторую строку как совершенно новый оператор,не
связанный с находящимся выше него .Если количество выших операторов больше
,чем можно разместить в одной строке,вы должны воспользоваться литерой ука-
-124 -
зания непрерывности строки,подчеркиванием (_) ,применяемой для разделения
единой логической строки на нескоько физических строк.Например:
IF a<b THEN t=15:w=16:v=23_
ELSE t=17:w=16:v=15
однако лучшая альтернатива состоит в использовании блокового оператора IF
. Вы можете использовать блоковый оператор IF такжк для формирования многост-
рочного ряда IF -операторов.
Различия Турбо-Бейсик имеет расширенный оператор IF THEN ELSE для обеспечи-
вания множества строк кода в структцре IF THEN ELSE .Турбо-Бейсик обеспечи-
вает также операторы ELSEIF ,ENDIF для блокового IF -оператора.
См.также IF блок
SELECT
Пример INPUT "Введите число",x
IF x>100 THEN PRINT "Большое число" ELSE_
PRINT "Малое число"
END
Блоковый оператор IF
--------------------
Функция IF блок создает ряд IF-операторов
-------
Синтаксис IF целое выражение [,] THEN
.
.
.Операторы
[ELSEIF целое выражение [,] THEN
.
.
. Операторы]
[ELSE
.
.
.Операторы]
ENDIF
Замечания IF блок -это расширение Интерпретаторного Бейсика ,позволяющее
--------- осуществлять множество тестов на множестве строк.
При исполнении операторов IF блока проежде всего проверяется истинность вы-
ражения в операторе IF.Если FALSE проверяется по порядку кождый следущий
оператор ELSEIF.Как только находится TRUE ,Турбо-Бейсик исполняющий операто-
ры следующие за соответствующим THEN ,осуществляет переход к оператору сле-
дующему за оператором ENDIF без проведения дальнейших тестов.Операторы после
опциональной статьи ELSE исполняются,если ни один из ранее проведенных тес-
тов не оказался успешным.
Следует заметить ,что в первой строке IF блока после ключевого слова THEN
ничего не может быть ,таким образом компилятору сообщается ,что это IF блок
,а не обычный оператор IF.
Операторы IF блока могут гнездоваться,т.е. любые операторыпосле любого
THEN могут содержать IF блоки.(Полезно делать отступ операторов,находящихся
под управлением каждого теста на пару пробелов,как показано в следущем ниже
примере.
Блоковые операторы IF должны оканчиваться END IF.Заметьте,что END IF запи-
сывается с пробелом ,а ELSEIF без пробела.
См.также SELECT
Пример: RANDOMIZE TIMER
БанкРулетки=100:Ставка=5:ЗначЗадержки=.5
-125 -
WHILE NOT INSTAT 'нажать клавишу останова
Рулетка=INT(RND(1)*6)+INT(RND(1)*6)+2
PRINT STRING$ (30."_")
PRINT Рулетка:DELAY ЗначениеЗадержки
IF Рулетка=2 OR Рулетка=3 OR Рулетка=12 THEN PRINT "вы проиграли"
БанкРулетки=БанкРулетки+Ставка
ELSE
PRINT "ваша точка есть" Рулетка
Неточка=-1
WHILE Неточка
СледРулетка=INT(RND(1)*6)+INT(RND(1)*6)+2
PRINT СледРулетка:DELAY ЗначениеЗадержки
IF Рулетка=СледРулетка THEN
PRINT "Вы проиграли"
БанкРулетки=БанкРулетки+Ставка
Неточка=0
ELSEIF СледРулетка=7 THEN
PRINT "Вы проиграли"
БанкРулетка=БанкРулетка-Ставка
Неточка=0
'закончить IF рулетка=блок СледРулетка
END IF
WEND
END IF
WEND
Оператор INCR
-------------
Функция INCR наращивает значение.
-------
Синтаксис INCR числовая переменная[,размер]
----------
Замечания Размер-это опциональное числовое выражение,которым указывается
--------- значение добавляемое к специфицированной переменной.Если размер
опускается,используется 1.
INCR - это быстрый способ приращения переменной без применения оператора
присваивания.
Различия Этого оператора в Интерпретаторном Бейсике не существует.
--------
См.также DECR
Пример I%=-15
J%=-500
WHILE I%<0
PRINT I%,J%
INCR I%
INCR J%,5
WEND
END
Функция INKEY$
--------------
Функция INKEY$ считывает клавиатуру без эхо-обработки литеры.
--------
-126 -
Синтаксис s$=INKEY$
---------
Замечания INKEY$ возвращает строку из 0,1 или 2 литер,отражающую состояние
--------- буфера клавиатуры.
Нуль-строка (LEN(s$)=0) означает ,что буфер пуст.Строка длиной (LEN(s$)=1)
означает ,что строка содержит ASCII- значение клавиши нажатой самой послед-
ней;например ,13 для Enter(ввод),65 для A.
Двумерная строка (LEN(s$)=2) означает ,что была нажата не ASCII -клави-
ша.Первая литера в этой строке имеет значение 0,а вторая-код расширенной
клавиатуры-представляет одну из клавиш не ASCII -клавиатуры,такую как
Home(исходное),PgDn(страница вниз) или клавиши стрелки (см.диаграмму кодов
расширенной клавиатуры в приложении F).
Если нажимается определенная функциональная клавиша (см.оператор KEY),то
INKEY$ возврашает последовательность литер (по одной на каждое возбуждение
INKEY$),которая содержит литеры,которые получились бы при их независимом на-
боре.INKEY$ как пуленепробиваемое устройство для получения пользовательского
ввода в вашу программу без ограничений оператора INPUT .Поскольку INKEY$ не
ожидает литеру,подлежащую нажатию до возвращения результата ,вы в большинст-
ве случаев будете использовать ее внутри цикла низкоуровневой подпрограм-
мы,непрерывно проверяющей и строящей строку ввода,подлежащую проверке подп-
рограммами более высокого уровня.
INKEY$ подает все удары по клавиатуре включая клавиши управления,такие как
Таб,Enter,Backspace в вашу программу без их отображения или обработки ,но
при следующих исключениях :
- Ctrl-Break (управление-разрыв) завершает программу ,если опция разрыва
клавиатуры не была выключена во время компилирования программы.
- Ctrl-Alt-Del (управление-изменить-стереть) вызывает повторную установку
системы.
- Shift-PrtSc (сдвиг-вывод на экран)выполняет сброс экрана.
См.также INSTAT
--------
Пример PRINT "Введите несколько литер,за которыми следует <Enter>:"
WHILE лит$<>CHAR$(13)
лит$=INKEY$
ВводаСтрока$=ВводаСтрока+лит$
WEND
PRINT ВводаСтрока
END
Функция INP
-----------
Функция INP считывает с внешнего устройства ввода/вывода.
-------
Синтаксис y=INP(портаном)
---------
Замечания INP возврашает байт ,считываемый с устройства внешнего ввода/выво-
--------- да портаном ,где портаном указывает аппаратное устройство внешнего
ввода и должен иметь значение в диапазоне от 0 до 65635.
INP полезна для считывания информации о состоянии,представляемой различными
аппаратными подсистемами,такими как коммуникационные устройства(См.техничес-
кое справочное руководство по Вашему компьютеру о назначении внешних устрой-
ств).
Для записи на внешний ввод/вывод используйте оператор OUT.
См. также OUT
Пример 'эта программа издает вопль посредством считывания регистра сост
'ояния и тумблерного переключения (включения и выключения ) би-
тов,которыми управляется звукогенератор.
'считать значение внешнего ввода 61 шестнадцатиричное
-127 -
СостояниеРег%=INP(&61)
СостояниеРег%=СостояниеРег% AND H00FC
'маскировать считанное значение
' сделать длину тона достаточной для слуха
FOR I=1 TO 1000
СостояниеРег%=СостояниеРег% XOR 2
OUT &H61,СостояниеРег%
Задержка .001
NEXT I
END
Оператор INPUT
--------------
Функция INPUT дает пользовательскую подсказку о необходимости назначить зна-
------- чения одной или более переменных.
Синтаксис INPUT[;][строка-подсказка{;!,}]список переменных.
---------
Замечания Строка-подсказка-это опциональная строчная константа.Список пере-
--------- менных-это разделенная запятыми последовательность из одной или
более строчных либо числовых переменных.
INPUT ожидает пользовательского ввода данных с клавиатуры и назначает эти
данные одной или более переменных.
Если после строки-подсказки вы включаете точку с запятой ,Турбо_Бейсик вы-
водит после строки знак вопроса.Использованием вместо этого запятой вызывает
подавление знака вопроса.
Ваш ввод должен совпадать с типом переменных в операторе INPUT ;т.е. нечис-
ловые литеры неприемлемы для числовых переменных.Если ввод не совпадает
,Турбо-Бейсик будет требовать повторного ввода информации.Например,введение
нечисловых литер в числовую приводит к сообщению
?Redo from start (Переделать с начала)
Если дается подсказка на более ,чем одну переменную в единственном операто-
ре INPUT,ваш ответ на каждую из них должен отделяться запятыми.
Если точка с запятой появляется сразу после ключевого слова INPUT,курсор
будет оставаться в той же самой строке после нажатия вами Enter для заверше-
ния ответа.Иначе на дисплей посылается пара возврат каретки/подача строки.
Различия Турбо-Бейсик допускает разделение вводимой информации в ответ на
оператор INPUT либо пробелами,либо запятыми.Интерпретаторный Бейсик требу-
ет,чтобы весь ввод разделялся запятыми.
Пример INPUT "Ведите ваш возраст и вес:",Возраст,Вес
PRINT USING "Вам ### лет и ваш вес ###";_
Возраст,Вес
END
Оператор INPUT #
---------------
Функция INPUT # загружает переменные данные из файла последовательного дос-
------- тупа.
Синтаксис INPUT #файланом,список переменных
---------
Замечания Файланом-это номер ,который дается при открывании файла ,а список
--------- переменных-это разделяемая запятыми последовательность из одной
или более строчных либо числовых переменных.
Файл может быть дисковым,последовательного входного устройства (COM n) или
клавиатурным (KYBD).
Данные в файле должны совпадать по типу с переменными 6определяемыми в опе-
раторе INPUT #.Переменная должна появляться сразу ,как только была набрана
-128 -
вами в ответ на оператор INPUT;т.е. она должна отделяться запятыми с возвра-
том каретки в конце.Это тот путь,которым оператором WRITE # создаются файлы.
См.также WRITE #
Пример SUB Сделатьфайл
OPEN "INPUT#.DTA" FOR OUTPUT AS #1
Строчнаяпеременная$="я вернусь"
Целая%=1000
Плавающаяточка!=30000.1234
WRITE #1
CLOSE 1
END SUB
SUB Читатьфайл
OPEN "INPUT#.DTA" FOR INPUT AS #1
Строчнаяпеременная$=" "
Целая%=0
Плавающаяточка!=0
'читать одну строку текста из файла последовательного доступа
INPUT #1,Строчнаяпеременная$,Целая%,Плавающаяточка!
PRINT Строчнаяпеременная$,Целая%,Плавающаяточка!
CLOSE #1
END SUB
CALL Сделатьфайл
CALL Читатьфайл
END
Функция INPUT$
--------------
Функция INPUT$ считывает специфицированное число литер с клавиатуры или из
------- файла.
Синтаксис s$=INPUT$(n)[,[#]файланом])
---------
Замечания n-это число литер,подлежащих считыванию,а файланом-файл,из которого
--------- должно происходить считывание.Если файланом опускается,считывается
клавиатура.
Если используется клавиатура,литеры на экране не появляются и все они пода-
ются в строку назначения.Главным достоинством INPUT # по отношению к другим
приемам считывания файла или клавиатуры является то ,что она позволяет вам
принимать все литеры ,включая литеры управления.
Режим двоичного файла дает этот аттрибут несколько более гибким способом.
Примечание: Определение клавиши и комбинации клавиш (например,клавиши функ-
ций и управления курсором ) не возвращают значение ASCII .Когда нажимается
такая клавиша ,INPUT$ обеспечивает простановку CHAR$(0);INKEY$ не имеет это-
го ограничения.
См.также INKEY$
Пример OPEN "INPUT#.DTA" FOR INPUT AS #1
s$=INPUT$(15,#1);
print s$
close #1
end
Функция INSTAT
--------------
-129 -
Функция INSTAT возвращает состояние клавиатуры.
-------
Синтаксис y=INSTAT
---------
Замечания INSTAT возвращает информацию о состоянии клавиатуры.Если какая-то
--------- клавиша уже нажата, INSTAT возвращает -1;иначе она возвращает
0.INSTAT не реализует перемещение клавишного удара из буфера,т.ч. если даже
она возвращает TRUE(-1),она будет продолжать возвращать TRUE до тех пор ,по-
ка клавишный удар не будет перемещен с помощью INKEY$ или другой команды
считывания клавиатуры.
См.также INKEY$
Пример WHILE NOT INSTAT
LOCATE 1,1
PRINT "Ожидание клавиши..."
WEND
PRINT INKEY$
END
Функция INSTR
-------------
Функция INSTR осуществляет поиск по строке некоего образчика.
-------
Синтаксис y=INSTR([n,]целевая строка,строка-образчик)
---------
Замечания n-это целое выражение в диапазоне от 1 до 32767,целевая строка и
--------- строка-образчик любые строчные переменные,выражения или константы.
INSTR$ возвращает позицию строки-образчика в целевой строке.Если стро-
ки-образчика в целевой строке нет INSTR возвращает 0.Если включается опцио-
нальный параметр n ,поиск начинается с позиции n в целевой строке.Если стро-
ка-образчик есть нуль(длина 0),INSTR DJPDHFOFTN 1 (или n ,если этот параметр
специфицировался).
INSTR чувствительна к регистру.
Пример 'получить пользовательский ввод
LINE INPUT "Пожалуйста введите строку:";ПустаяСтр$
PRINT "Теперь введите субстроку,которая существует в ";
INPUT "Первая строка: ";СубСтр$
PRINT USING "Строка "&" существует,начиная с ";СубСтр$:
PRINT USING "Местоположение ### в &":_
INSTR (1,ПустаяСтр$,СубСтр$),ПустаяСтр$
END
Функция INT
-----------
Функция INT преобразует числовое выражение в целое.
-------
Синтаксис y=INT(числовое выражение)
---------
Замечания INT возвращает наибольшее целое,меньше или равно числовому выраже-
--------- нию .
См.также CEIL
CINT
FIX
Пример PRINT "X","INT(X)"
-130 -
FOR N=1 TO 6
READ X#
PRINT X#,INT(X#)
NEXT N
DATA 3.1,-3.1,3.5,-3.5,3.6,-3.6
END
Оператор IOCTL,функция IOCTL$
-----------------------------
Функция IOCTL и IOCTL$ обеспечивают коммуникацию с возбудителем устройства.
-------
Синтаксис IOCTL[#]файланом,строчное выражение
---------
s$=IOCTL$[#]файланом
Замечания файланом- это номер файла желаемого возбудителя устройства.Строчное
--------- выражение содержит информацию,подлежащую посылке на
возбудитель.Формат строчной информации,посылаемой на возбудитель устройства
или принимаемой с него,является функцией самого возбудителя.
IOCTL посылает данные на возбудитель устройства.IOCTL$ считывает данные с
возбудителя устройства.
При необходимости более подробной информации консультируйтесь с разделом о
возбудителях устройств технического справочного руководства по IBM DOS.
Оператор KEY
------------
Функция KEY устанавливает и отображает содержимое клавиши функций и опре-
------- деляет значения отслеживающих ловушек клавиш.
Синтаксис KEY{ON!OFF!LIST}
--------- KEY n,строчное выражение
KEY n,CHR$(сдвигасостояние)+CHR$(сканкод)
Замечания KEY ON и KEY OFF включают и выключают отображение функциональных
---------- клавиши в нижней части экрана.Заметьте ,что включение отображения
не оказывает действия на определения функциональных клавиш.KEY LIST на экран
текущие определения функциональных клавиш.Когда отображаются функциональные
клавиши ,25-ая строка никогда не прокручивается и попытка разместить в этой
строке курсор приводит к ошибке 5.
KEY n,строчное выражение посылает в строчное выражение функциональную кла-
вишу n,где строчное выражение имеет длину 15 литер или менее (в строке сос-
тояний появляются только первые 6),чтобы закрыть доступ к функциональной
клавише,назначайте ей нуль-строку.Возврат каретки в строке (CHR$(13)) отоб-
ражается как маленькая стрелка влево.
KEY n,CHR$(сдвигасостояние)+CHR$(сканкод) ассоциирует клавишу (или комби-
нацию клавиш с некоторым числом (n,от 15 до 20) для отслеживания клавиш с
помощью последующих операторов ON KEY и KEY (n) ON.Формат определяется сле-
дущим образом:
-сдвигасостояние-это целое выражение в диапазоне от 0 до 255
,которое управляет ответной реакцией на слежение за состоянием клавиш Ctrl
,Caps Lock,Num Lock,Alt и обеих Shift.
-сканкод-числовое выражение от 1 до 83 ,которым определяется
клавиша для отслеживания в соответствии с таблицей кодов сканирования из
приложения F.Заметьте,что клавиши 59-68,72,75,77 и 80 уже отслеживаются (это
функциональные клавиши и клавиши управления курсором),так что их определение
не оказывает действия.
Для построения значения сдвигасостояния пользуйтесь следущей таблицей:
----------------------------------------------------
Клавиша-модификатор Двоичное значение Гекс-значение
-131 -
----------------------------------------------------
Right Shift 0000 0001 01
Left Shift 0000 0010 02
Ctrl 0000 0100 04
Alt 0000 1000 08
Num Lock 0010 0000 20
Caps Lock 0100 0000 40
----------------------------------------------------
Предположим в качестве примера,что мы желаем отследить
"Shift-Escape";т.е. мыхотим иметь определенную подпрограмму дляполучения уп-
равления всякий раз ,когда клавиша Escape нажимается вместе с одной из кла-
виш Shift.Прежде всего мы должны построить маску сдвига -состояния.Вы хотите
распознавать обе клавиши Shift,поэтому должны сложить маски для обе-
их:01H+02H=03H.Далее вы можете проконсультироваться по таблице кодов скани-
рования приложения F и обнаружить ,чтo клавиша Escape имеет код сканирования
1.О вашем плане Турбо-Бейсику сообщает следущий оператор
KEY 15,CHR$(&03)+CHR$(1)
Вы обязаны использовать значение клавиши 15,поскольку первые 14 ранее оп-
ределены для представления функциональных клавиш и клавиш управления курсо-
ром.Теперь вы определяете подпрограмму отслеживания ,которая Будет вызывать-
ся при всяком нажатии Shift-Esc:
ON KEY(15) GOSUB ShiftEscape
где ShiftEscape-это метка в начале отслеживающей подпрограммы.Наконец,вы
включаете отслеживание для клавиши 15 с помощью оператора:
KEY(15) ON
См.также KEY(n)
ON KEY
Пример FOR N%=1 TO 10
READ A$
KEY N%,A$+CHR$(13)
NEXT N%
KEY LIST
KEY ON
WHILE NOT INSTAT
WEND
DATA Help,Enter,Edit,Change,Report,Print,Setup
DATA DOS Copy,Quit
END
Оператор KEY(n)
---------------
Функция KEY(n) включает или выключает отслеживание отдельной клавиши.
--------
Синтаксис KEY(n){ON!OFF!STOP}
----------
Замечания n-это отслеживаемая клавиша,целое выражение от 1 до 20 в соответ-
--------- ствии со следущей таблицей:
--------------------------------------------------
n Клавиша
--------------------------------------------------
1-10 Функциональные клавиши 1-10
11 Курсор вверх
12 Курсор влево
13 Курсор вправо
14 Курсор вниз
15-20 Клавиши,отслеживаемые оператором KEY
--------------------------------------------------
KEY(n) ON включает отслеживание клавиши n.Это означает,что между всеми опе-
раторами делается проверка с целью посмотреть,не была ли нажата клавиша n;и
-132 -
если это имело место ,исполнение программы отклоняется на подпрограмму,специ-
фицированную в операторе ON KEY для этой клавиши.
KEY(n) OFF запрещает отслеживание клавиши n.
KEY(n) STOP также запрещает отслеживание клавиши n ,но обеспечивает запоми-
нание случая нажатия данной клавиши 6так что,если далее используется оператор
KEY ON,захват в ловушку возникает немедленно.
См.также $EVENT
ON KEY
Пример: KEY ON
KEY 1,"Алло"+CHR$(13)
KEY 2,"Досвидания"+CHR$(13)
KEY 10,CHR$(13)
'НАСТРОИТЬ ОТСЛЕЖИВАНИЕ ДЛЯ F10
ON KEY(10) GOSUB Досвидания
'включить отображение F10
KEY(10) ON
INPUT "Нажать F1:";Пусто$
INPUT "Нажать F2:";Пусто$
Print "Теперь нажать F10..."
WHILE NOT INSTAT:WEND
END
Досвидания:
KEY(10) OFF
' теперь литерная строка назначенная для F10 будет воспроизво-
'диться
PRINT "Нажмите F10 для ухода из программы..."
RETURN
Оператор KILL
-------------
Функция KILL стираетфаил (подобно DOS-команде DEL)
--------
Синтаксис KILL файлспец
---------
Замечания Файлспец-это строчное выражение,представляющее файл или файлы,под-
--------- лежащие стиранию,которое может опционально включать в себя имя
прохода и/или свободно определяемой литеры.KILL аналогично DOS-команде DEL
(ERASE).
Подобно DEL,оператором KILL нельзя стирать справочник.Используйте вместо
него RMDIR после предварительного стирания всех файлов справочника.
Пример : ON ERROR GOTO ФайлаОшибка
INPUT "Ведите файл для стирания",Файлаимя$
IF Файлаимя$ <>" " THEN
KILL Файлаимя$
END IF
END
ФайлаОшибка:
PRINT "ошибка";
PRINT Ошб "произошла при стирании файла"
END
Функция LBOUND
--------------
Функция LBOUND возвращает наинизшую возможную границу (наименьший подстрочн
------- ый индекс для специфицированного размера массива.
Синтаксис LBOUND (массив[,размерность])
---------
-133 -
Замечания Массив -это имя массива ,подлежащего образмериванию.Размерность
--------- представляет целое от 1 до числа измерений массива .Вы можете оп-
ределять размер массива,используя LBOUND и UBOUND.Чтобы определить верхнюю
границу какой-то размерности массива,применяйте UBOUND.
Если вы не специфицируете диапазон подстрочных индексов(см.оператор
DIM), нижней границей по умолчанию является 0.Вы можете преодолевать нижнюю
границу по умолчанию,применяя оператор OPTION BASE.
См.также DIM
OPTION BASE
UNBOUND
Пример DIM Массив%(1900:2000,10:20)
PRINT "Нижняя граница массива по
размерности 2 есть";LBOUND(Массив%,2)
Функция LCASE$
--------------
Функция LCASE$ возвращает строку только в нижнем регистре.
-------
Синтаксис s$=LCASE$(строчное выражение)
---------
Замечания LCASE$ возвращает строку равную строчному выражению,за исключением
--------- того,что все буквы верхнего регистра строчного выражения будут
преобразованы в нижний регистр.
См.также UCASE$
Пример PRINT LCASE$("Для чего этот АРБУЗ?")
Функция LEFT$
-------------
Функция LEFT$ возвращает самые левые n литер строки.
-------
Синтаксис s$=LEFT$(строчное выражение)
---------
Замечания n- это целое выражение,которым специфицируется число литер строч-
--------- ного выражения,которые должны быть возвращены.n должно находится
в диапазоне от 0 до 32767.
LEFT$ возвращает строку ,содержащую n самых левых литер ее строчного выра-
жения.Если n больше или равно длине строчного выражения,возвращается все
строчное выражение.Если n=0 ,LEFT$ возвращает нуль-строку.
См.также MID$
RIGHT$
Пример PRINT LEFT$ ("Hello out there in the universal",5)
Функция LEN
-----------
Функция LEN возвращает длинну строки.
-------
Синтаксис y=LEN(строчное выражение)
---------
Замечания LEN возвращает значение от 0 до 32767,представляющее число литер
--------- в строчном выражении.Следует отметить ,что этот диапазон значи-
-134 -
тельно расширен по сравнению с максимальной длинной строки 255 литер в Интер-
претаторном Бейсике.
Пример INPUT USING "Длина строки =###";LEN(ПустаяСтр$)
END
Оператор LET
------------
Функция LET назначает значение переменной.
-------
Синтаксис [LET] переменная=выражение
----------
Замечания Переменная-это строчная или числовая переменная ,а выражение
--------- должно быть соответствующего типа (т.е. строчная для строчных пе-
ременных и числовая для числовых переменных.)
LET в операторах назначения проставляется опционально и практически обычно
опускается.
Пример INPUT "Ввести строку :",ПустаяСтр$
LET темпстр$=ПустаяСтр$
PRINT темпстр$,ПустаяСтр$
END
Оператор LINE
-------------
Функция LINE обеспечивает вычерчивание линии или опционально заполненной ра
------- мки.
Синтаксис LINE [(X1,Y1)]-(X2,Y2)[,[цвет[,B[F]][,образчик]]
---------
Замечания (X1,Y1) и (X2,Y2)-это координаты двух точек на графическом экране
--------- которые могут специфицироваться в абсолютной или относительной
форме .(Более подробно об абсолютных и относительных координатах см.главу
4).Цвет -это целое выражение ,описывающее цвет,в котором должнавычерчиваться
линия или рамка.Образчик-целая маска,управляющая тем,как вычерчивается линия
или рамка.
Чтобы вычертить линию до точки (x,y) от LPR в цвете по умолчанию,набирайте
LINE -(x,y)
Чтобы вычертить ту же линию в другом цвете ,набирайте
LINE -(x,y),2
Чтобы вычертить линию от точки (x1,y1) до (x2,y2)
LINE (x1,y1)-(x2,y2)
Чтобы вычертить рамку с верхним левым углом (x1,y1) и нижним в (x2,y2)
LINE (x1,y1)-(x2,y2),,B
Чтобы заполнить рамку атрибутом 2
LINE (x1,y1)-(x2,y2),2,BF
Чтобы вычартить несплошную линию ,включайте аргумент образчик.
--------
Точечная линия ,образчик &HAAAA(двоичное число 1010 1010 1010 1010)Необхо-
димо заметить ,что образчик не оказывает действия на заполняемые рамки.
LINE (x1,y1)-(x2,y2),,,маскированияслово
После оператора LINE ,LPR оказывается во второй из двух точек в операторе.
См.также FILL
Пример 'вычертить на экране диагональную линию
SCREEN 1,0
LINE (0,0)-(319,199)
'вычертить горизонтальную пунктирную линию
LINE (0,100)-(319,100),,,&HCCCC
'вычертить 50-пиксельный квадрат ,заполненный цветом 2,с вер-
-135 -
'хним левым углом в (10,20)
LINE (10,20)-(60,70),2,BF
'поиграйте в соединение точек
READ X,Y
PSET (X,Y)
FOR N=1 TO 11
READ X,Y
LINE -(X,Y)
NEXT N
LOCATE 9.9
PRINT "ORLAND"
END
DATA 10,20,50,20,55,25,55,40,50,45,10,45
DATA 50,45,55,50,55,65,50,70,10,10,10,20
Оператор LINE INPUT
-------------------
Функция LINE INPUT считывает строку с клавиатуры в строчную переменную,игнор
------- ируя разделители.
Синтаксис LINE INPUT [;][строка-подсказка;]строчная переменная
---------
Замечания Строка-подсказка -это опциональная строчная подсказка подлежащая
--------- посылке на экран перед ожиданием вашего ответа. Строчная переменная
это переменная ,которая будет загружаться данными ,которые вы вводите на
клавиатуре .Используйте LINE INPUT вместо INPUT ,когда вы намереваетесь вво-
дить строчную информацию,которая содержит разделители(например запятые),кото-
рые иначе создали бы путаницу в операторе INPUT.Например:
INPUT "Введите адрес пациента:";a$
будет давать сбой ,если адрес содержит запятую
LINE INPUT принимает запятые без проблем.
Если за оператором LINE INPUT следует точка с запятой,то когда нажимается
Enter в конце вводимой строки ,на дисплей не посылается возврат каретки(т.е7
курсор остается в той же строке).
Пример PRINT "Ведите несколько полей ввода в которых вы не нуждаетесь"
LINE INPUT "позаботтесь об их разделении";ПустаяСтр$
print ПустаяСтр$
END
Оператор LINE INPUT#
--------------------
Функция LINE INPUT# считывает строку из последовательного файла в строчную
------- переменную ,игнорируя разделители.
Синтаксис LINE INPUT#файланом,строчная переменная
---------
Замечания ФайлаНом-это номер файла для считывания,а строчная переменная-
--------- это строчная переменная, в которую осуществляется загрузка.
LINE INPUT# подобна LINE INPUT за тем исключением ,что данные считываются
не с клавиатуры а из последовательного файла.Из файла считывается текущая за-
пись,которая загружается в строчную переменную.Так же как LINE INPUT ,исполь-
зуйте LINE INPUT# для собирания данних которые имеют разделительные лите-
ры(запятые)вперемежку с данными.
Если данные файла были записаны с помощью оператора WRITE#,они уже правиль-
но разделены и лучшим способом их считывания является оператор INPUT#
Пример SUB СделатьФайл
OPEN "LINEINP#.DTA" FOR OUTPUT AS #1
СтрочнаяПеременная$="Не спокойно в Ривер-Сити"
-136 -
Целое%=1000
Плавающаяточка!=30000.1234
PRINT #1,Строчнаяпеременная$,Целое%,Плавающаяточка!
CLOSE #1
END SUB
SUB Читатьфайл
'открывается последовательный файл для ввода
'используются LINE INPUT# и INPUT$ для считывания
'из файла строк различных типов данных
OPEN "LINEINP#.DTA" FOR INPUT AS #1
СтрочнаяПеременная=""
LINE INPUT#1,СтрочнаяПеременная$
PRINT СтрочнаяПеременная$
CLOSE #1
END SUB
CALL СделатьФайл
CALL Читатьфайл
END
Функция LOC
-----------
Функция LOC возвращает текущую позицию в файле.
-------
Синтаксис y=LOC(файланом)
---------
Замечания Файланом-это значение ,под которым был открыт файл.Поведение LOC
--------- зависит от режима ,в котором был открыт файл.
Если файланом-это файл произвольного доступа ,то LOC возвращает номер пос-
ледней записанной или считанной записи.
Если файланом-это файл последовательного доступа ,то LOC возвращает число
128 байтовых блоков,записанных или считанных с момента открытия файла.Как
обычно ,LOC возвращает один блок для файлов ,которые уже открыты,но еще не
записывались и не считывались.
Если файланом-это двоичный файл,LOC возвращает SEEK-файловую позицию.
Для коммуникационных файлов LOC возвращае число литер в буфере ввода.
Пример OPEN "LOC.DTA" FOR BINARY AS #1
PUT$ #1 "ТурбоБейсик"
PRINT LOC(1)
CLOSE
END
Оператор LOCAL
--------------
Функция LOCAL определяет локальные переменные в процедуре или функции.
--------
Синтаксис LOCAL список переменных
---------
Замечания Оператор LOCAL законен только в определениях процедур и функций и
--------- должен появляться для любых исполнительных операторов в ассоции-
руемом с ними определении .LOCAL определяет одну или более переменных как "ло-
кальные" в рамках процедуры или функции.Локальная переменная может иметь то же
имя,что и другие переменные в других частях программы,а также имя ,одинаковое
с другими локольными переменными в определении других процедур или функций
без какого-то бы ни было их отрицательного взаимовлияния;они являются отдель-
ными переменными.
Чтобы заявить локальный массив ,включайте в заявлении его идентификатор и
-137 -
пустой комплект скобок в список переменных,а затем в следущем DIM операторе
образмеривайте массив.Локальные переменные размещаются в стеке и возбуждаются
в ноль(для строчных переменных используется нуль-строка) прикаждом вызове
включающей их в себя процедуры или функции.Незаявленным переменным процедур
по умолчанию дается статический атрибут,тем неменее мы рекомендуем явно опре-
делять каждую переменную.
См.также DIM
SHARED
STATIC
Пример SUB Локальные
LOCAL a(),i%
DIM DYNAMIC a(10:20)
FOR i%=10 to 20
a(i%)=i%
NEXT i%
END SUB
Заявление LOCATE
Функция LOCATE позиционирует курсор и/или определяет форму курсора.
----------
Синтаксис LOCATE [ред] [,[колонка] [,[курсор][,пуск][,останов]]]
----------
Замечания Ряд - это целое выражение, определяющеестроку экрана, в ко-
--------- торой должен позиционироваться курсор (1-25). Колонка специ-
фицирует колонку (1-80). Курсор - числовое значение, которое управля-
ет тем, будет или нет курсор видимым(0-означает невидимый;1-видимый). 25-ая
строка недоступна, если не выведено из активного состояния отображение фун-
кциональных клавиш (см.о заявлении KEY OFF).
Пуск и останов - это целые выражение, которые управляют размером кур-
сора и представляют сколь много строк сканирования будет занимать кур-
сор.Верхней строкой сканирования является строка 0; нижней - строка 7 для
цветных/графических Адаптеров и строка 13 для монохромных адаптеров.
LOCATE наиболее часто используется перед заявлением PRINT для управле-
ния прохождением вывода на экран.
См. также KEY OFF
-----------
Пример CLS
-------
CRSLIN и POS
INPUT "Ввести координаты X и Y:", X%, Y%
'позиционировать курсор и изменить его форму
LOCATE X%,Y%,1,4,5
PRINT "Hi";
WHILE NOT INSTAT: WEND "ждать клавишу
END ' конец программы
Функция LOF возвращает длину файла.
--------
Синтаксис y =LOF(файланом)
-----------
Замечания файланом - это номер, под которым был открыт файл.
-----------
LOF возвращает длину указанного файла в байтах.Для комму-
никационных файлов LOF возвращаетт размер наличного пространства в коммуни-
кационном буфере.
Пример OPEN"TB.EXE" FOR BINARY AS#1
--------
PRINT "Размер турбо-Бейсика равен";LOF(1)
CLOSE #1
END
Функция LOG,LOG2 и LOG10
-----------------------------
Функция LOG возвращает натуральный (с основанием е) логарифм;LOG2 воз-
вращает логарифм основания 2; LOG10 - логарифм основания 10.
Синтаксис LOG:
-----------
y=LOG (числовое выражение)
LOG2:
y=LOG2(числовое выражение)
LOG10:
y=LOG10(числовое выражение)
Замечания LOG возвращает натуральный логарифм (с основанием е, где
е=2,718282..... )своего аргумента.Если числовое выражение меньше или равно
0, это дает ошибку 5 пер. прогона, вызов незаконной функции. Натуральный
-139 -
логарифм x есть показатель степени, в которую должно быть возведено основа-
ние е для получения значения x.
LOG,LOG2 и LOG10 возвращают результат двойной точности.
Пример FOR I!=1 TO 50 STEP 2.5
-------- PRINT USING "Натуральный логарифм ##=## : I!, LOG(I!)
NEXT I!
END 'конец программы
Функция LPOS
-------------
Функция LPOS возвращает "курсорную позицию" буфера печатающего устрой-
ства.
Синтаксис y=LPOS (печатающее устройство)
-----------
Замечание
---------
Печатающее устройство - это целое выражение от 0 до 3, обес-
печивающее выбор печатающего устройства из следующего списка:
0,1 LPT1
2 LPT2
3 LPT3
LPOS сообщает сколько литер уже послано на печатающее устроцство с мо-
мента вывода последней литеры возврата каретки.
См.также POS
Пример 'назначить ширину печатающего устройства
-------- 'для именованных констант
%Шир = 80
'отобразить литеры ASCII и расширенного ASCII
'на экране и печатающем устройстве.
FOR I%=0 TO 255
IF (I%>32) THEN
PRINT USING "1"; CHRS(I%);
END IF
' передвинуться на следующую строку, если имеет место выход за
отведенное пространство IF LPOS(0)=%Шир THEN
LPRINT CHRS(13)+CHRS(10)
END IF
NEXT I%
END конец программы
Заявления LPRINT,LPRINT USING
---------------------------------
Функция LPRINT и LPRINT USING посылает данные на печатающее устройство
(LPT1:).
Синтаксис LPRINT [список выражений [;] ]
----------- LPRINT USING формат строка; список выражений
Замечания Список выражений - это ряд числовых и/или строчных выраже-
ний разделяемых запятыми либо точкой с запятой.Формат-строка содержит ин-
формацию о формате печати.
LPRINT и LPRINT USING выполняют те-же действия что PRINT и PRINT
USING, за исключением того, что список выражений посылается на печатающее
устройство, а не на экран.
Примечание: По умолчанию Турбо-Бэйсик вставляет пару возврат карет-
ки/подача строки после распечатки в одной строке 80 литер.
Эта характеристика может быть изменена с помощью заявления WIDTH(ширина)
См.также LPOS
PRINT USING
WIDTH
-140 -
Пример LPRINT USING"## -это мое счастливое число"; 7
--------
END
Заявление LSET
-----------------
Функция LSET перемещает срочные данные в буфер произвольного файла.
--------
Синтакси LSET переменная поля = строчное выражение
----------
Замечания LSET и родственное ему заявление RSET перемещают строчную ин-
формацию в переменные поля, определяемые как принадлежащие буферу произ-
вольного файла.
Если длина строчного выражения меньше размера переменной поля, специ-
фицированной в заявлении FIELD, LSET выравнивает его в левую сторону этого
поля, заполняя оставшуюся часть пробелами.
Это означает, что пробелы добавляются после последней литеры строчного
выражения, так что послеLSET- назначения LEN (переменной поля) становится
равной ширине, определенной в соответствующем заявлении FIELD.
RSET осуществляет выравнивание с помощью пробелов вправо ( пробелы до-
бавляются перед первой литерой строчного выражения).
LSET и RSET могут также использоваться для форматообразования вывода
на экран или печатающее устройство.
а $=$ (20)
RSET a$="Правое выравнивание"
PRINT a$
См. также FIELD
LEN
RSET
Пример OPEN "LSET.DTA" AS#1 LEN=18
--------
Определить имена и размеры полей файла FIELD1,2 AS Файл цел $, 4ASФайл
Длин $, - 4AS Файл Един $, & AS Файл Двойн $
'назначить переменные полей и осуществить запись в файл произвольного
доступа FOR Счетчик% =1 TO S
LSET Файл Цел $=MX1$ (счетчик %)
LSET Файлдлин$=MXL $(счетчик %^2)
LSET Файлtlby$=MXS $(счетчик %^2.1)
lset ФайлДвойн$=MXD $ (счетчик %^4.4)
PUT 1,счетчик %
NEXT счетчик %
CLOSE 1 'закрыт файл
END 'конец главной программы
Заявление MEMSET заявляет верхнее ограничение памяти
----------
Синтаксис MEMSET адрес
----------
Замечание Адрес - это длинное целое выражение, определяющее абсолютный
адрес верхней границы памяти Турбо-Бейсика.Адрес должен быть меньше коли-
чества памяти, установленной в системе.Практически адрес обычно вычисляется
путем вычитания некоторой константы из значения, возвращаемого функцией
ENDMEN.
MEMSET сконструировано для установки отдельной памяти для подпрограммы
на языке ассемблера. Если Турбо-Бейсик не в состоянии удолетворить запрос в
силу либо неподходящего аргумента, либо недостаточности памяти, возникает
ошибка 7 периода прогона, вне памяти.
См. также ENDMEN
Пример PRINT FRE (-1) 'отобразить наличное пространство для массивoв
-141 -
--------
'хранить 128 байтов в верхней части памяти
MEMSET ENDMEN - &H80
PRINT FRE (-1) 'отобразить наличную память
END 'конец программы
Заявление MID$
--------------
Функция MID$ возвращает литерную строку.
------------
Синтаксис S$=MID$ (строчное выражение, n[,m] )
----------
Замечания n и m - это числовые переменные или выражения, которые могут
лежать в диапазоне от 1 до 32767 и от щ до 32767 соответственно.
MID$ как функция, возвращает m-литерную строку, начиная с n-ой литеры
строчного выражения. Если m опускается или справа от n-ой литеры строчного
выражения менее m литер, выдаются остальные литеры строчного выражения
вплоть до n-ой и включая ее.Если n больше длины строчного выражения ,MID$
возвращает нуль-строку.
См. также LEFT$
Заявление MID$
RIGHT$
Пример INPUT 'Ввести строку:", Пустая стр$
-------- Врем.Стр$ = Пустая Стр$
PRINT Пустая Стр $
'резервировать порядок литер, используя функцию и заявление
MID$ одновременно.
FOR I% = 1 TO LEN (Пустая стр%)
MIDS (Пустая Стр %, I%,1) = MIDS (Врем Стр $,- (LEN (ВремСтр
$)- I%) + 1,1)
NEXT I%
PRINT Пустая Стр%
END 'конец программы
Заявление MID$
-----------------
Функция MIDS замена литеры строки
------------
Синтаксис MID$ (строчнаая переменная, n[,m] )= строка-замена
---------------
Замечание n и m - это числовые переменные или выражения, которые могут
находиться в диапазоне от 1 до 32767 и от 0 до 32767,соответственно.
Как заявление, MID$ заменяет m литер строчной переменной, начиная с
литерной позиции n, сожержимым строки-замены.
Если m включается, оно определяет сколько литер строки-замены вставля-
ется в строчную переменную. Если опускается, используется вся строка-заме-
на.MID$ никогда не изменяет длину строки.
См. также LEFT$
Функция MID$
RIGHT$
Пример 'MID$, заявление
в $ = "Ураган Камилла"
MID$ (в $,8) = "Карла--" 'опущен опциональный параметр m
PRINT в $
Заявление MKDIR
-----------------
Функция MKDIR создает субсправочник (подобно DOS-команде MKDIR)
Синтаксис MKDIR проход
--------
-142 -
Замечания Проход - это строчное выражение, описывающий подлежащий соз-
---------- данию справочник (см. информацию об именах и проходах файло
в в главе 4)
MKDIR (делать справочник) создает субсправочник, специфици-
руемый проходом.Если вы пытаетесь создать справочник, который уже существу-
ет, возникает ошибка 5 периода прогона, вызов незаконной функции.
Пример 'построить обработчик ошибок
ON ERROR GOTO Спр ошибка
PRINT "Пожалуйста введите справочник который вам нравится";
INPUT "Создать:", Спр Имя $
MKDIR Спр Имя $ 'создать справочник
END 'конец программы
СпрОщибка:
------------- PRINT "Возникла проблема в создании справочника"
END
Функции MKI$, MKL$, MKS$, MKD$
-------------------------------
Функция MKI$,MKL$,MKS$,MKD$ преобразуют числовые данные в строки (для
вывода в произвольные файлы)
Синтаксис S$=MKI$ (целое выражение)
---------
S$=MKL$ (длинное целое выражение)
S$=MKS$ (выражение единичной точности)
S$=MKD$ (выражение двойной точности)
Замечания Функция MK (делать) представляет собой часть процесса обра-
ботки получения числовых значений в файлы произвольного доступа.Поскольку
заявления, которые записывают информацию в буфер произвольного файла(LSET и
RSET) работают только со строками, числовые данные должны транслировать-
ся,перед их обработкой заявлением PUT в произвольный файл, в строчную фор-
му.MKI$(i) возвращает двухлитерную строку, состоящую из двух битовых значе-
ний, которые Турбо-Бейсик использует для внутреннего представления целого
значения i. Функция MKL$ возвращает 4-байтовый строчный эквивалент длинного
целого. MKS$ возвращает 4-байтовый эквивалент значения единичной точнос-
ти.MKD$ возвращает 8-байтовый строчный эквивалент значения двойной точнос-
ти. Дополнительные функции CVI, CVL, CVD используются, когда произвольные
файлы считываются. Не путайте эти функции с STR$ и VAL , которые соответст-
венно обращают числовые выражения в распечатываемые формы и наоборот:
i=123.45
a$=STR$(i): в$=MKS$(i)
'a$ содержит что-то, стоящее размещения на экране; в $ не содержит
PRINT a$, в$
См. также СVD
--------- CVI
CVL
CVS
Пример OPEN "MKILSD.DTA" AS#1 LEN=18
------- 'определить имена и размеры полей
FIELD 1, 2AS файла цел$, 4AS файла длин$, 4AS файла един$, 8AS
файла двойн$
'назначить значения полям и осуществить запись в файл произволь-
ного доступа
FOR счетчик% = 1TOS
LSET Файла Цел$= MKI$ (счетчик%)
LSET Файла Длин$= MKL$ (счетчик %^2)
LSET Файла Един$=MKS$ (счетчик %^2.1)
LSET Файла Един$=MKD$ (счетчик %^4.4)
PUT 1, счетчик %
NEXT счетчик %
CLOSE 1 'закрыть файл
END 'конец главной программы
-143 -
Функции MKMD$,MKMS$
--------------------
функция MKMD$ и MKMS$ преобразуют числовые данные в строки формата
Микрософт
Синтаксис S$=MKMS$ (выражение единичной точности)
---------- S$\MKMD$ (выражение двойной точности)
Замечания Функции MKM ( делать Микрософт) предусмотрены лишь для сов-
---------- местимости с существующими произвольными файлами, которые
содержат значения с плавающей точкой в формате Микрософт.
MKMS$ создает 4-байтовую строку формата Микрософт из значения единич-
ной точности; MKMD$ делает 8-байтовую Микрософт-форматную строку из задан-
ного значения двойной точности.
См.также CVMD
--------- CVMS
Пример
-------- 'открыть файл произвольного доступа
OPEN "CVMD.DTA" AS#1 LEN=12
FIELD#1, 4AS Единич.$, & AS Двойная $
МаксЦелое% =32767
FOR I%=1 TO 5 'записать данные в файл
LSET ДвойнаяS = MKMD$ (I%+МаксЦелое %)
PUT#1, I%
NEXT I%
FOR I% = 1TO 5 'читать данные из файла
GET#1, I% 'отобразить на экране
PRINT CVMS (Единичная$), CVMD (Двойная $)
NEXT I%
CLOSE#1 'закрыть файл
END 'конец программы
Функция и заявление MTIMER
------------------------------
Функция MTIMER считывает или повторно устанавливает микротаймер.
Синтаксис
---------- Функция:
y=MTIMER
Заявление
MTIMER
Замечания
---------- MTIMER сконструированы для измерения истекшего времени, гл
авным образом для очень коротких операций. Это дает значительное улучшение
разрешающей способности; однако точность резко падает по истечение 54 мил-
лисекунд.
Как функция MTIMER возвращает число микросекунд, истекших с момента
самого последнего заявления MTIMER. Точность MTIMER лежит в пределах при-
мерно двух микросекунд. Как заявление MTIMER повторно устанавливает микро-
таймер в ноль.
Ограничения Заявление и функция MTIMER используются в паре. Вы должны
выдать заявление MTIMER, а затем вызвать функцию для получения результата.
Последующие ссылки на зту функцию будут давать значение ноль, если вы вновь
не запустили микротаймер с помощью заявления MTIMER.
MTIMER и SOUND/PLAY используют канал 2 таймерного типа 8255 и яиляются
взаимоисключающими. Поэтому исполнения заявленной SOUND или PLAY между за-
-144 -
явлениями и функцией MTIMER вынудит повторную установку микротаймера на
ноль истекшего времени.
Пример
-------- 'возбудить таймер
MTIMER
PI#=ATN(1) * 4 'вычислить "пи"
'получить значение таймера
Истекшее Время % = MTIMER
PRINT USING "Израсходовано #### миллисекунд";
PRINT "на расчет значения "пи" "
END 'конец программы
Заявление NAME
----------------
Функция NAME
------------ Обеспечивает переименование файла (подобно DOS-функции
REN)
Синтаксис NAME файласпец1AS файласпец2
----------
Замечания Файласпец1 и файласпец2 - это строчные выражения, удолет-
---------- воряющие DOS-соглащениям об наименовании проходов и файлов.
Операция NAME обеспечивает передачу данных, представляющих файлспец1, файлу с
именем файлспец2. Так как файлспец2 может содержать имя прохода, существует
возможность перемещения данных из одного справочника в другой, но до тех
пор, пока вы не пытаетесь осуществить перенаименование с одного диска на
другой.
Пример
------- INPUT "Введите имя файла для перенаименования:",
Старое имя $
INPUT "Введите новое имя файла:", Новое имя $
выдаются старое имя $, Новое имя $
NAME Старое имя $ AS Новое имя $
END ' конец программы
Функция OCT$
-------------
Функция OCT$ возвращает строку , представляющую восьмеричную (с ос-
------------ нованием 8) форму числового выражения.
Синтаксис S$=OCT$ (числовое выражение)
----------
Замечания Числовое выражение находится в диапазоне от -32768 до 65535.
---------- OCT$ возвращает строку, представляющую восьмеричную форму
своего целого аргумента. Если числовое выражение имеет дробную часть, перед
преобразованием оно округляется. Для преобразования значений в шестнадцати-
ричные или двоичные строки применяйте функции HEX$ и BIN$, соответственно.
См.также BIN$
--------- HEX$
Пример PRINT OCT$(-1)
------- PRINT OCT$(65535)
-145 -
Заявление ON COM(n)
--------------------
Функция ON COM(n) заявляет подпрограмму отслеживания событий на
------------------- последовательном входном устройстве.
Синтаксис ON COM(n) GOSUB метка
----------
Замечания n-это номер (1 или 2) коммуникационного адаптера ( пос-
---------- ледовательного входного устройства), подлежащего считыванию
Метка идентифицирует подпрограмму отслеживания. Если метка есть номер О
особой строки, отслеживание запрещается.
Заявление ON COM(n) не оказывает действия до тех пор, пока коммуника-
ционные события не оказываются доступными данному последовательному входно-
му устройству, что обеспечивается подходящим заявлением COM ON. Если заяв-
ление COM ON однажды уже исполнено, проверка имеет место между исполнениями
каждого следующего заявления с целью установить, не поступила ли какая-либо
литера на специфицированное последовательное входное устройство. Если это
произошло, выполняется GOSUB к назначенной подпрограмме.
См. также Приложение В,"Отслеживание событий"
---------
Заявление ON ERROR
--------------------
Функция ON ERROR специфицирует стандартную программу обработки ошибок
------------------ и включает отслеживание ошибок.
Синтаксис ON ERROR GOTO метка
------------
Замечания Метка идентифицирует первую строку подпрограммы отслежива-
--------- ния ошибок. Однажды включенная обработка ошибок с помощью
этого заявления обеспечивает переход к вашему коду обработки ошибок при
возникновении любых ошибок периода прогона вместо обычного отображения со-
общения об ошибке и прекращения исполнения. Для продолжения исполнения ис-
пользуйте заявление RESUME (возобновить).
Чтобы запретить отслеживание ошибок используйте ON ERROR GOTO O. Вы
можете воспользоваться этим приемом если возникает ошибка, для которой у
вас нет определенного прохода на восстановление ; вы также можете остано-
вить свой выбор на отображении в этот момент содержимого ERL (строка пос-
ледней ошибки)
Если вы прогоняете EXE-программу из DOS с выключенным отслеживанием
ошибок, любая ошибка периода прогона вызывает выдачу сообщения о ее возник-
новении и прекращение исполнения программы. Сообщение имеет форму:
EROR ошибкином at pgm-ctr = адрес
(ошибка) (при программном счетчике)
Если программа запущена в рамках Турбо-Бейсика и происходит ошибка, вы
переводитесь в редактор на местоположение ошибки . В строке состояний будет
содержаться краткое описание ошибки периода прогона:
ERROR ошибкином : сообщение об ошибках
(ошибка)
См. также ERADR
---------- ERL
ERR
ERROR
RESUME
Пример 'настроить обработчик ошибок
-------- ON ERROR GOTO ошибок обработчик
WHILE I 'этот цикл оканчивается ошибкой
-146 -
I =10/0 'это вызывает ошибку периода прогона
WEND
Ошибок обработчик
------------------
PRINT "Обработчик захватил ошибку периода прогона"
PRINT ERR, "в строке" ERL
END
Заявление ON/GOSUB
-------------------
Функция ON/GOSUB вызывает одну из нескольких возможных подпрограмм
---------------- в соответствии со значением числового выражения.
Синтаксис ON n GOSUB метка [,метка]....
----------
Замечания n - это числовое выражение в диапазоне от 0 до 255, а метка
---------- идентифицирует заявление на ветвление к ней. n определяет к
какой из меток осуществляется переход (например если n=4, получает управле-
ние четвертая метка в списке). Если n равно 0 или больше, чем число меток в
списке, Турбо-Бейсик продолжает исполнение следующего по порядку заявления.
Каждая подпрограмма должна оканчиваться ключевым словом RETURN для
обеспечения возобнавления с того заявления, которое следует непосредственно
за заявлением ON/GOSUB.
Многопутевое ветвление может также реализоваться с помощью заявлений
SELECT и IF-блоковое, причем они более гибкие, чем ON/GOSUB.
Пример FOR I% = 1 TO 3
------ ON I% GOSUB обработчик один, обработчик два, обработчик три
NEXT I%
END 'конец главной программы
Обработчик один
----------------
PRINT "Обработчик номер" , I%
RETURN
Обработчик два
----------------
PRINT "Обработчик номер", I%
RETURN
Обработчик три
---------------
PRINT "Обработчик номер", I%
RETURN
Заявление ON/GOTO
------------------
Функция ON/ GOTO направляет программный поток по одному из нескольких
возможных мест назначения на основе значения числового выражения.
Синтаксис ON n GOTO метка [,метка]....
----------
Замечания n - это числовое выражение в диапазоне от 0 до 255, а метка
идентифицирует заявление программы на ветвление к ней.
n определяет к какой из меток осуществляется переход (например, если
n=4 то управление получает четвертая метка в списке).
Если n равно нулю или больше числа меток в списке , Турбо-Бейсик про-
должает исполнение следующего по порядку заявления.
-147 -
С большей гибкостью многопутевое ветвление может быть реализовано с
помощью заявлений SELECT и IF-блоковое.
Пример FOR I% =1 TO3
------- ON I% GOTO обработчик один,обработчик два, обработчик три
Обратно:
NEXT I%
END 'конец главной программы
Обработчик один
----------------
PRINT "Обработчик номер", I%
GOTO обратно:
Обработчик два
---------------
PRINT "Обработчик номер"
GOTO Обратно:
Обработчик три
----------------
PRINT "Обработчик номер", I%
GOTO Обратно
Заявление ON KEY (n)
---------------------
Функция ON KEY (n) заявляет подпрограмму отслеживания с целью получе-
------------------- ния его управления , если нажимается особая клавиша.
Синтаксис ON KEY (n) GJSUB метка
----------
Замечания Метка идентифицирует первое значение подпрограммы отслежива-
ния, а n - это целое выражение в диапазоне от 1 до 20, которым описывается
подлежащая отслеживанию клавиша в соответствии со следующей таблицей.
---------------------------------------------------------------
n Клавиша
---------------------------------------------------------------
1-10 Функциональные клавиши F1-F10
11 Курсор вверх
12 Курсор влево
13 Курсор вправо
14 Курсор вниз
15-25 Клавиши, определяемые заявлением KEY
30 Функциональная клавиша F11
31 Функциональная клавиша F12
-----------------------------------------------------------------
Заявление ON KEY не имеют действия до тех пор, пока клавишные события
не разрешаются заявлением KEY ON. Если заявление KEY ON однажды уже испол-
нено, Турбо-Бейсик осуществляет проверку между исполнениями каждого после-
дующего заявления с целью установить, имело ли место нажатие специфициро-
ванной клавиши. Если это произошло, Турбо-Бейсик выполняет GOSUB к назна-
ченной подпрограмме.
Проверка клавиши n выключается заявлением KEY(n) OFF. Используйте за-
явление KEY для определения отслеживания клавиши, которая не является функ-
циональной или клавишей управления курсором.
Для высококачественного управления генерированием Турбо-Бейсиком кода
проверки событий пользуйтесь метазаявлением $EVENT.
См. также $EVENT
---------- KEY (n)
-148 -
Пример 'Эта программа демонстрирует заявление KEY(n)
------- 'включить проверку клавиш
KEY ON
'назначить строки для клавищ
KEY 1, "Алло" + CHR$(13)
KEY 2, "Досвидание" + CHR$(13)
KEY 10, CHR$ (13)
' в дополнении к назначенной для этого строке
'построить отслеживание клавиши для F10
ON KEY(10) GOSUB Досвидание
'включить отслеживаниеF10
KEY(10) ON
'получить пользовательский ввод
INPUT "Нажмите F1:";Пусто$
INPUT "Нажмите F2:";Пусто$
PRINT "Теперь нажмите F10...."
' когда пользователь нажимает теперь F10 ,будет вызываться
подпрограмма Досвидание
WHILE NOT INSTAT:WEND 'ждать клавишу F10
END 'конец программы
Досвидание:
KEY LIST 'перечислить определенные в данный момент клавиши.
KEY(10) OFF 'выключить отслеживание
'теперь когда пользователь нажимает F10, будет
воспроизводиться литерная строка, назначенная клавише
PRINT "Нажмите теперь F10 для того, чтобы покинуть прог-
рамму ......"
RETURN
Заявление ON PEN
----------------
Функция ON PEN заявляет подпрограмму отслеживания с целью получения
---------------- его управления если задействуется световое перо
Синтаксис ON PEN GOSUB метка
----------
Замечания Метка идентифицирует новое заявление подпрограммы обработки
световогого пера. Заявление ON PEN не имеет действия до тех пор, по-
ка события светового пера не разрешаются заявлением PEN ON. Если заявление
PEN ON уже исполнено, осуществляется проверка между всеми последующими за-
явлениями с целью проверки, было ли задействовано световое перо. Если это
так, вызывается назначенная подпрограммая.
Проверка светового пера выключается заявлением PEN OFF. После захвата
светового пера, с целью удержать от повторного вызова подпрограммы отслежи-
вания из нее самой ( и переполнение стека), используется неявное заявление
PEN STOP . При закрытии подпрограммы обработки посредством RETURN автома
тически выполняется PEN ON , если стандартная подпрограмма не исполняет яв-
ное заявление PENN OFF.
Для более качественного управления генерированием Турбо-Бейсиком кода
проверки событий пользуйтесь метазаявлением $EVENT
См. также $EVENT
--------- PEN
Пример ON PEN GOSUB ПераОбработчик 'установить обработчик событий
-------
PEN ON 'включить отслеживание событий
PRINT "Нажмите для останова любую клавишу..."
WHILE NOT INSTAT
WEND
END 'конец программы
ПераОбработчик
-149 -
---------------
FOR I% = 1TO 9
PRINT PEN (I%)
NEXT 1
RETURN
Заявление ON PLAY
-----------------
Функция ON PLAY заявляет подпрограмму отслеживания с целью получения
---------------- его управления , если буфер фоновой музыки содержит
менее специфицированного числа нот.
Синтаксис ON PLAY (нотсчетчик) GOSUB метка.
----------
Замечания Нотсчетчик - это целое выражение , а метка идентифицирует
---------- первое заявление в подпрограмме музыкального сопровождения.
Заявление ON PLAY не имеет действия до тех пор, пока проверка нот не
разрешается заявлением PLAY ON. Если PLAY ON уже исполнено, Турбо-Бейсик
осуществляет проверку между исполнениями каждого последующего заявления с
целью проверить не меньше ли осталось нот в музыкальном буфере, чем значе-
ние нотсчетчика. Если это так, Турбо-Бейсик выполняет GOSUB к назначенной
подпрограмме.
Проверка музыкального буфера выключается заявлением PLAY OFF. После
музыкальной ловушки исполняется неявное заявление PLAY STOP с целью удер-
жать вызов подпрограммы отслеживания повторно из нее самой (и заполнения
стека). При закрытии подпрограммы обработки посредством RETURN автоматичес-
ки выполняется заявление PLAY ON, если ранее в подпрограмме не было испол-
нено явное заявление PLAY OFF.
Событие PLAY не отслеживается, если при исполнении PlAY ON буфер уже
пуст. Для управления генерированием кода проверки событий пользуйтесь мета-
заявлением $EVENT. Для установки размера буфера фоновой музыки пользуйтесь
метазаявлением $SOUND.
См.также $EVENT
-------- PLAY(заявление)
$SOUND
Пример Эта программа демонстрирует ON PLAY (n)
------- 'разместить 30 байтов пространства звукового буфера
$SOUND 100
'включите проверку звуковых событий
PLAY ON
настройке проверку буфера музыкального сопровождения
ON PLAY (S)GOSUB наполнить игры буфер
НотыS = "GEAFDCFECFEDGGG "
'играть октавы со 2 по 4
Игры СтрS ="MB"
FOR октава % =2 TO 4
Октава S ="0" + STR$(октава%)
Игры СтрS = ИгрыСтрS + ОктаваS + НотыS
NEXT Октава %
PLAY Игры СтрS
DO
LOOP UNTIL INSTAT
CLEAR
END 'конец программы
Наполнить игры буфер
---------------------
PRINT Игры СтрS
PLAY Игры cтрS
RETURN
-150 -
Заявление ON STRIG
-------------------
Функция ON STRIG заявляет подпрограмму отслеживания кнопки управления.
------------------
Синтаксис ON STRIG (n) GOSUB метка
---------
Замечания Метка идентифицирует первое заявление подпрограммы обработки
--------- "нажатой кнопки", а n - это целое выражение, указывающее
подлежащую отслеживанию кнопку в соответствии со следующей таблицей:
---------------------------------------------------------------
n Кнопка
---------------------------------------------------------------
0 Кнопка 1, ручка управления А
2 Кнопка 1, ручка управления В
4 Кнопка 2, ручка управления А
6 Кнопка 2, ручка управления В
----------------------------------------------------------------
Заявление ON STRIG не имеет действия до тех пор, пока события на кноп-
ках управления не разрешаются с помощью заявления STRIG ON. Если STRIG ON
уже выполнено, проверка осуществляется между исполнениями всех последующих
заявлений с целью проверить, не была ли нажата указанная кнопка. Если это
так, вызывается назначенная подпрограмма.
Для выключения проверки указанной кнопки управления используется заяв-
ление STRIG OFF.
После захвата события исполняется заявление STRIG STOP c целью пре
дотвратить повторный вызов подпрограммы отслеживания из нее самой (и запол-
нение стека). Закрытие подпрограммы обработки с помощью RETURN вызывает ав-
томатическое исполнения заявления STRIG ON, если ранее подпрограммой уже не
исполнено явное заявление STRIG OFF. Для качественного генерирования кода
проверки событий используйте метазаявление $EVENT.
См. также $EVENT
--------- STRING (n)
Пример Ноль X =1
-------- Ноль Y =1
Один Z
Два Y =1
ЧетыреХ=3
Четыре Y=1
ШестьХ=Y
ШестьY=1
'настроить обработчики событий
ON STRIG (0) GOSUB переключить ноль
ON STRIG (2) GOSUB переключить два
ON STRIG (4) GOSUB переключить четыре
ON STRIG (6) GOSUB переключить шесть
'включить проверку событий
STRIG (0) ON
STRIG (2) ON
STRIG (4) ON
STRIG (6) ON
'пока кнопка не нажимается , отображать текущие координа-
ты ручек управления
WHILE NOT INSTAT
LOGATE 15,15,0
PRINT STICK (0), STICK (1);
WEND
END 'конец программы
Переключить ноль:
LOGATE нольX,нольY
-151 -
PRINT "Кнопка 1"
LOGATE 15,15,0
RETURN
Переключить два:
LOGATE ДваХ, ДваY
PRINT "Кнопка2"
LOGATE 15,15,0
RETURN
Переключить четыре:
LOGATE четыре Х, четыре Y
PRINT "Кнопка 4 "
LOGATE 15,15,0
RETURN
Переключить шесть:
LOGATE шесть Х, шесть Y
PRINT "КНОПКА 4"
LOGATE 15,15,0
RETURN
Заявление ON TIMER
-------------------
Функция ON TIMER заявляет подпрограмму отслеживания с целью получения
----------------- управления каждые n секунд.
Синтаксис ON TIMER(n) GOSUB метка
----------
Замечания Метка указывает первое заявление подпрограммы обработки
--------- "истекшего времени", а n - целое выражение, указывающее ко-
личество секунд ожидания от 1 до 86400 (24 часа)
Заявление ON TIMER не имеет действия до тех пор, пока оно не разреша-
ется заявлением TIMER ON. Если TIMER ON уже исполнено начинается внутренний
отсчет секунд и между исполнениями каждого заявления делается проверка ис-
течения числа секунд, идентифицированного в заявлении. Если время истекло,
вызывается подпрограмма, назначенная меткой.
Заявление TIMER OFF включает проверку времени. После ловушки исполня-
ется неявное заявление TIMER STOP для предотвращения повторного вызова под-
программы отслеживания из нее самой (и заполнение стека). При закрывании
подпрограммы обработки посредством RETURN автоматически выполняется заявле-
ние TIMER ON , если подпрограмма ранее не исполняет явное заявление TIMER
OFF. Это означает, что счетчик секунд повторно устанавливается в ноль после
таймерной ловушки.
Для управления генерированием кода проверки событий используется мета-
заявление $EVENT.
См. также $EVENT
------------ TIMER
Пример ON TIMER(1) GOSUB отобразить время
------- настроить ловушку таймера
'включить проверку таймерного события
TIMER ON
'ожидать нажатия клавиши
WHILE NOT INSTAT: WEND
END 'конец программы
Отобразить время:
LOGATE 1,70
PRINT TIME$: RETURN
Заявление OPEN
---------------
Функция OPEN подготавливает файл или устройство считывания или зписи.
-------------
Синтаксис OPEN файлспец [FOR режим] AS[#]файланом [LEN=размерзаписи]
---------- или OPEN режимная строка,[#]файланом, файласпец [,размер
-152 -
записи]
Замечания Режим может быть одним из следующих:
---------- OUTRUT специфицируется последовательный файл для записи в
него;
INPUT - специфицируется последовательный файл для считывания из него;
APPEND- специфицируется последовательный файл для добавления к нему;
RANDON- специфицируется произвольный файл для считывания или записи;
BINARY- специфицируется двоичный файл для считывания или записи;
Режимная строка это строчное выражение, первая (и обычно единственная)
--------------- литера которого может быть одной из следующих:
0 специфицируется режим последовательного вывода
I специфицируется режим последовательного ввода
А специфицируется режим последовательного вывода в конец файла.
R специфицируется режим произвольного ввода/вывода
В специфицируется режим двоичного ввода/вывода
Файланом может быть любым целым числом. Для увеличения или уменьшения
этого значения используйте DOS - заявление FILES в файле CONFIG.SYS (см.бо-
лее подробную информацию в справочном руководстве по DOS)
Файланец - это строчное выражение специфицирующее имя файла, подлежа-
щего открыванию, и, опционально, спецификация привода и/или прохода.
Размер записи - это целое выражение, лежащее в диапазоне от 1 до 32767
и специфицирующее длину в байтах каждой записи файла произвольного досту-
па.По умолчанию, размер записи:128 байтов.
Главная функция OPEN состоит в привязке номера (файланом) к файлу или
физическому устройству и в подготовке устройства для считывания и/или запи-
си. Этот номер, а не имя файла, используется в каждом заявлении, имеющем
ссылку на файл. Содержимое заявление OPEN есть информация, указывающая "ре-
жим файла"; т.е. способы, посредством которых будет осуществляться доступ к
файлу: последовательный (для ввода, вывода в новый файл или вывода в сущес-
твцющий файл), произвольный и двоичный. Заявление OPEN обычно уравновешива-
ется согласованным с ним заявлением СLOSE (закрыть)
Две формы команды отличаются только степенью многословности:
OPEN "Мой файл.dta " FOR OUTRUT AS#1
имеет то-же действие,что и :
OPEN "0",#1 "мой файл.dta "
Попытка открыть для Ввода несуществующий файл вызывает ошибку 53 пери-
ода прогона, Файл не обнаружен. Если вы пытаетесь открыть несуществующий
файл для вывода , добавления, произвольного доступа или двоичных операций,
то он создается.
См. также OPEN COM
---------
Пример 'эта программа подразделяется на пять процедур. Различие между
процедурами состоит в режиме в котором открывается файл и способе манипу-
лирования данными файла.
DEF FN дать клавишу $ (сообщ$)
PRINT Сообщ $, " нажмите любую клавишу чтобы продолжить ..."
WHILE NOT INSTAT:WEND
FN дать клавишу $ =INKEY $
END DEF 'конец процедуры дать клавишу
SUB последовательный вывод
'этот файл открывается для последовательного вывода и в него записыва-
ются некоторые данные
КлавишиНаж $=FN Дать клавишу $ (теперь для последовательного вывода)
'открыть последовательный файл для вывода
OPEN "OPEN.DTA" FOR OUTRUT AS#1
Целое % =12345
Время стр$="История делается ночью"
'записать данные в последовательный файл
WRITE#1,Времстр$,целое%*2,врем стр$, целое %\2
CLOSE 1 закрыть файл
END SUB 'конец процедуры " последовательный вывод".
SUB последовательное добавление
'файл открывается для последовательного вывода. Однако данные в этом
случае добавляются в конце файла.
Клавиши Наж$ = FN дать клавишу $ (теперь немного добавим)
-153 -
'открыть последовательный файл для добавления данных
OPEN "OPEN.DTA"FOR APPEND AS#1
Целое %=32123
Врем Стр$ ="Наилучшее видение есть .... М.Форбе"
'добавить данные
WRITE#1,ВремСтр$, Целое%*0,2,Врем Стр$, Целое%\2
CLOSE 1 'закрыть файл
END SUB 'конец процедуры "последовательное добавление"
SUB Последовательный Ввод
-------------------------
Файл открывается для последовательного ввода, а данные которые считы-
ваются, отображаются на экране.
КлавишиНаж $=FN Дать клавишу $("теперь считаем обратно")
'открыть последовательный файл и читать из него
OPEN"OPEN.DTA" FOR INPUT AS#1
' читать первую строку используя LINE INPUT#
LINE INPUT #1,ВремСтр$
PRINT ВремСтр$
'использовать INPUT$ для считывания остальной части файла по одной ли-
тере
ВремСтр$=" "
WHILE NOT EOF(1) 'проверка конца файла
ВремСтр$ = ВремСтр$ + INPUT$(1,1)
WEND
PRINT ВремСтр $
CLOSE 1 'закрыть файл
КлавишиНаж $=FN Дать клавишу $(" ")
END SUB 'конец процедуры Последовательный ввод
SUB Двоичный ВВ
'файл открывается для двоичного ввода/вывода.
'данные считываются с использованием GET$.
'SEEK явно перемещает файловый показатель до конца файла и вы записы-
ваете те-же данные обратно в файл.
Клавиши Наж$ = FN ДатьКлавишу $ (теперь для двоичного ввода и вывода)
'открыть двоичный файл, читать из него
OPEN "OPEN.DTA" FOR BINARY AS#1
ВремСтр$=" "
Использовать GET$ для считывания данных и их хранения в строке
WHILE NOT EOF (1)
GET$ 1,1 Лит $
ВремСтр$ =ВремСтр $ + Лит$
WEND
PRINT ВремСтр $
'переместить файловый указатель в конец файла
SEEK 1, LOF (1)
'PUT$ копирует данные обратно в двоичный файл
FOR I% = 1 TO LEN (ВремСтр$)
PUT$ 1, MID$ (ВремСтр$,I%,1)
NEXT I%
CLOSE 1 'закрыть файл
КлавишиНаж$ = FN ДатьКлавишу $ (" ")
END SUB 'конец процедуры Двоичный ВВ
SUB Произвольный ВВ
'открыть файл для произвольного ввода/вывода.
'использовать FIELD для заявления буфера для утверждения данных, кото-
рые записываются и считываются.
GET и PUT считывают и записывают данные. Заметьте, что перед выполне-
нием GET для хранения данных в буфере в буфере файла используются 'LSET и
RSET.
КлавишиНаж$ = FNДатьКлавишу$ (теперь для произвольного ввода/вывода)
'открыть файл произвольного доступа
OPEN "OPEN.DTA" AS #1 LEN=1
FIELD 1,1 AS Лит$ 'определить 1-байтовый буфер
ВремСтр$ = " "
-154 -
ВремРазмер% =LOF (1) 'хранить размер файла
'используя GET, считать файл целиком
FOR I% = 1 TO ВремРазм%
GET 1, I%
ВремСтр$ = ВремСтр$ + Лит$ 'хранить данные
NEXT I%
'PUT копирует данные обратно в произвольный файл
FOR I% = LEN (ВремСтр$) TO1 STEP-1
LSET Лит$ = MID$ (ВремСтр$, I%,1)
PUT 1, LOF (1) 'вывод до конца файла
NEXT I%
CLOSE 1 'конец процедуры Произвольный файл
'печать главной программы
CALL Последовательный вывод
CALL Последовательное добавление
CALL Последовательный ввод
CALL Двоичный ВВ
CALL Произвольный ВВ
END 'конец программы
Заявление OPEN COM
-------------------
Функция OPEN COM открывает и конфигурирует коммуникационное высшее
------------------- устройство.
Смнтаксис OPEN " COM n [боды][,четность][,данные][,останов][опции]"
---------- AS [*] файланом [LEN кол]
Замечания n - указывает надлежащее открыванию последовательное внешнее
---------- устройство ввода/вывода. Боды-это целая константа, специфи-
цирующая скорость коммуникации: законными скоростями являются
75,110,150,300,600,1200,1800,2400,4800 и 9600 (по умолчанию 300)
Четность - это единственная литера, специфицирующая статус четности в
соответствии со следующими определениями:
S четность по пробелу (бит четности всегда 0)
О нечетный параллелизм
М маркированная четность(бит четности всегда 1)
Е четный параллелизм
N без четности (игнорируется на применяемых литерах и опускается на
передаваемых литерах)
По умолчанию - четный параллелизм.
Данные - это целая константа от 5 до 8, специфицирующая число битов
данных. По умолчанию 7.
Останов - это целая константа от 1 до 2, специфицирующая число битов
------- данных. о умолчанию бит останова 1(для бодовых скоростей 75 и
110 эта константа равна 2)
Файланом - это целое выражение, которым специфицируется числовая панель
--------- через которую вы осуществляете доступ к коммуникационному
внешнему устройству ввода/вывода.
Кол - это максимальное число байтов, котрое можно считывать с коммуни-
кационного устройства или записывать на него с помощью GET и PUT; по умол-
чанию - это 128. Данное значение не может быть больше размера буфера для
этого внешнего устройства, который устанавливается с помощью метазаявления
$COM.
Заявление OPEN COM включает в себя блок опций, который управляет обра-
боткой строки состояний, четностью и обработкой возврата каретки/подачи
строки.
Опции = [,RS][,CS[м сек]][,DS[м сек]][,CD[м сек]][,LF][,DF]
RS подавляет строку RTS. CS [м сек] управляет CTS. DS [м сек] управля-
ет DSR. CD [м сек] управляет CD. LF вызывает добавление литера подачи стро-
ки к каждой литере возврата каретки. PE включает проверку четности.
Аргумент м сек онций CS,DS,CD может лежать в диапазоне от 0 до 65535 и
специфицирует сколь долго ( в миллисекундах ) Турбо-Бейсик будет находиться
-155 -
в состоянии ожидания перед возвращением ошибки Устройство на Перерыве. Если
этот аргумент равен 0 или опускается, то проверка строки состояния не вы-
полняется. По умолчанию м сек равен 1000 для СS и DS и 0 для CD
См. также COM
--------- $COM
ON COM
Пример ' разместить строчный массив для хранения, ввода DIM КомПортВ-
вод$ (1)
$COM1 1024 'построить 1 К буфер ввода
OPEN "COM1" AS#1 LEN = 1
PRINT "нажмите любую клавишу для завершения программы ...."
WHILE NOT INSTAT 'пока клавиша еще не нажата
'если в наличии есть какой-либо ввод
IF LOF (1) > 0 THEM
'читать все что имеется в буфере ком. устройства
КомПортВвод$(0) = INPUT$ (1, LOF(1))
Отобразить ввод
PRINT "Ввод Ком-устройства:", КомПортВвод $(0)
END IF
WEND
END 'конец программы
Заявление OPTION BASE
----------------------
Функция OPTION BASE устанавливает минимальное значение для подстрочных
-------------------- индексов массивов .
Синтаксис OPTION BASE целое выражение
---------
Замечания Целое выражение может находиться в диапазоне от 0 до 32767.
---------- OPTION BASE управляет тем, какое значение подстрочного ин-
декса относится к первому элементу переменных массива.Нап-
ример, после OPTION BASE 1, заявляющее массив x с помощью
заявления DIM x(20) устанавливает отдельную память для 20
элементов (от1 до 20), а не 21, устанавливаемое по умолча-
нию(от 0 до 20).
Хотя вы можете использовать OPTION BASE для управления диапазонами
подстрочных индексов, Турбо-Бейсик предлагает более мощный способ че-
рез заявление DIM.
Ст. также DIM
--------------
Пример 'разместить массив из трех целых
------- DIM Первый массив % (2)
'установить начальный индекс любого заявленного массива
OPTION BASE 1
'разместить массив из двух целых
DIM Второй массив % (2)
FOR I% = 0 TO 2
'нет нулевого индекса; проверка на 0
IF I% > 0 THEN
Второй массив % (I%)=I%
END IF
Первый массив % (I%) =I%
NEXT I%
FOR I% =0 TO2
' нет нулевого индекса; проверка на ноль
IF I% >0 THEN
PRINT Второй массив
END IF
PRINT Первый массив% (I%)
NEXT I%
END ' конец программы
-156 -
Заявление OUT
--------------
Функция OUT обеспечивает запись на внешнее устройство ввода/вывода
------------
Синтаксис OUT портном, целое выражение
----------
Замечания OUT посылает байтовое значение (от 0 до 255) на аппаратное
--------- внешнее устройство вывода портном, где портном - это целое
выражение от 0 до 65535.
OUT необходимо для управления различными аппаратными подсистемами, та-
кими как коммуниеационный или видео-адаптер. Используемое неправильно
OUTможет легко разрушить систему.
Пример 'программа делает вопль звукоизлучателя посредством считывания
--------- регистра состояний и тумблерного переключения ( включить и
выключить) битов, которые управляют звукоизлучателем.
'считать значение в Порт 61 шестнадцатиричное
СостояниеРег % = INP (&H61)
СостояниеРег % = СостояниеРег % AND &HOOFC
'маскировать считываемое значение
'сделать тон достаточно длительным для слухового восприятия
FOR I = 1 TO 1000
СостояниеРег % = CостояниеРег% XOR 2 ' тумблерное переключение звуко-
излучателя
OUT &H61, СостояниеРег% 'вывод нового состояния
DELAY.001
NEXT I
END
Заявление PAINT
----------------
Функция PAINT обеспечивает заполнение замкнутой зоны экрана выбранным
------- цветом
Синтаксис PAINT(x,y) [I,цвет][I,граница][,фон]
---------
Замечания (x,y) - координаты исходной точки в замкнутой зоне, подлежа-
--------- щей заполнению. Если исходная точка в пределах замкнутой
зоны, то заполняется ее внутренняя часть. Если исходная точка вне
замкнутой зоны, то будет заполняться поверхность экрана с наружной
стороны замкнутой зоны. Цвет - может быть либо числовым, либо строч-
ным выражением. Если это числовое выражение, им специфицируется атт-
рибут (цвет) которым будет осуществляться заполнение.Если это строка,
то она содержит информацию маски, которая вызывает заполнение с по-
мощью какого-то графического образчика, а не сплошным цветом.Если вы
не специфицируете цвет, используется цвет нужного фона.
Граница - это цвет бордюра заполняемой вами фигуры. Действие PAINT
прекращается всякий раз, когда на пути встречается цвет границы.
Фон - это опциональная строчная маска, используемая когда вы желаете
перекрасить зоны. Фоновая маска представляет собой некий черепичный
пластик перехода при проверке уже закрашенных зон.
С помощью заявления PAINT можно заполнять любую замкнутую форму, вне
зависимости от ее сложности. Турбо-Бейсик выбирает байт, подлежащий
графической обработке, с использованием формулы y mod tike length (y
mod черепицы длина) . Обеспечивает уверенность в замкнутости подлежа-
щего заполнению режима, поскольку при "утечке" заполнителя может ока-
заться испорченной вся ваша картина.
Если аргумент цвет числовой, PAINT заполняет форму указанным
цветом, останавливаясь на пикселах с атрибутом граница или атрибутом
цвет. Если цвет - строчное выражение, то для определения образчика,
которым подлежит заполнению зона, используется принцип "черепицы".
Образчик, представляемый строчными значениями аргументов цвета, имеет
1-байтовую ширину(4 пиксела при средней и 8 пикселов при высокой сте-
пени разрешения) и от 1 до 64 байтов длину(т.е. от 1 до 64 строк ска-
-157 -
нирования по вертикали). При черепичной обработке цвет должен предс-
тавляться в таком формате:
CHR$(&Hnn) + CHR$(&Hnn) ...
Маска базируется на основных битовых значениях цвета, причем первая
литера представляет первую строку образчика, вторая литера - вторую
строку и т.д.
Например, следующий образчик представляет образчик в виде шахмат-
ной доски(50% серого) в режиме высокой разрешающей способности:
10101010 (первый байт)
01010101 (второй байт)
Чтобы заполнить какую-либо зону этой шахматной доской, строится стро-
ка с подходящей информацией маски. Прежде всего преобразуйте двоичную
флрму в шестнадцатиричную:
10101010 = &HAA
01010101 = &H55
Теперь конструируйте двухсимвольную строку, используя CHR$:
Образчик $=CHR$(&HAA) + CHR$ (&H55)
Далее заявление
PAINT (50,50), образчик $
Обеспечивает заполнение серой (шахматная доска) краской
Фон - используется для определения условия останова, когда заполня-
ется уже обработанная образчиком зона. Если операция заполнения попа-
дает на пиксел, который согласуется с соответствующим битом в фоне,
то заполнение не прекращается, даже этот пиксел имеет цвет границы.
При черепичной обработке число цветовых аттрибутов в каждом экр-
ранном режиме определяет каким образом конструируется экранный образ-
чик. Помните, что число битов на пиксел коррелируется с числом цвето-
вых аттрибутов в любом данном экранном режиме. Для вычисления коли-
чества битов на пиксел вы можете воспользоваться следующей формулой:
LOG (X) = Y,
2
где X равно сумме цветовых аттрибутов вашего экрана, а Y равно числу
битов на пиксел.
Черепичная обработка в Экране 1.
При средней разрешающей способности , используя приведенную выше
формулу, X равно 4 пикселам (которые представляются 1 черепичным бай-
том средней разрешающей способности), поэтому Y равно 2 битам на пик-
сел. Поскольку каждый пиксел имеет соответствующий цветовой аттрибут,
он будет занимать 2 бита черепичного байта для описания 1 вывода 4
аттрибутов.
В следующей таблице показаны десятичные и шестнадцатиричные значе-
ния, которые соответствуют каждому аттрибуту:
---------------------------------------------------------------------
Цветовая Аттрибут Образчик Образчик
палитра в двоичном в двоичном в шестнадцатиричном
---------------------------------------------------------------------
0
зеленый 01 01010101 &H55
красный 10 10101010 &HAA
коричневый 11 11111111 &HFF
----------------------------------------------------------------------
1
цинковый 01 01010101 &H55
анилиновый 10 10101010 &HAA
белый 11 11111111 &HFF
-----------------------------------------------------------------------
Черепичная обработка на Экране 2
Имеется 1 бит на пиксел при высокой разрешающей способности, позволя-
ющий каждую черепицу представлять &-пиксельным экраном. Где бы маска
не оценивалась значением 1, на графике появляется точка. Строка может
содержать до 64 байтов.
Образчик вызывается одинаковым образом по всей протяженности зоны,
-158 -
определяемой границей.Когда граница не определяетмя, обработанным об-
разчиком оказывается весь экран.
Черепичная обработка в Экранах 7,8,9,10
Для этих улучшенных экранных режимов черепичный образчик представ-
ляет собой изобретение некоторого приема хранения и интерпретации
строки, как стека 8-битовых блоков, известных в совокупности как
бит-плоскость. В каждом экранном режиме, за исключением режима 10,
для которого требуется 2 бит-плоскости, для определения 1 черепичного
байта необходимо 4 бит-плоскости.
Пример 'вот как используются черепичные образчики
------- SCREEN 1:CLS
'определить диагональный образчик для диагональных линий
TIL$ = CHR$(&H40)+CHR$(&H40)+CHR$(&H10)+CHR$(&H10)+CHR$(4)+
CHR$(4)+CHR$(1)+CHR$(1)
CIRCLE(100,100),50
PLANT(100,100),TIL$
'определить черепичный образчик-шахматная доска
TIL2$=CHR$(&HAA)+CHR$(&HAA)+CHR$(&H80)+CHR$(&H80)+CHR$(&H80)+
CHR$(&H80)+CHR$(&H80)+CHR$(&H80)
CIRCLE (225,100),50
PLANT (225,100),TIL2$
Заявление PALETTE, PALETTE USING
---------------------------------
Функция PALETTE и PALETTE USING позволяет вам менять один или более цв
------------------------------- етов в политре (чтобы воспольэоваться
этими заявлениями, у вас должен быть улучшенный графический
Адаптер)
Синтаксис PALETTE (атрибут, цвет)
---------- PALETTE USING имя целого массива( индекс в массиве)
Замечания Аттрибутом представляется цвет в палитре. Цвет - это факти-
чески отображаемый цвет, которым замещается аттрибут в па-
литре. Отображаемый на вашем экране цвет зависит от уста-
новки экранного режима и аппаратного дисплея(см.заявление
SCREEN). Заявление PALETTE дает вам возможность менять цвет
текста или графики имеющейся в данный момент на экране и
это изменение оказывает также действие на любые последующие
тексты или графику. Это подручное средство, освобождающее
вас от необходимости перечерчивать текст или графику, если
вы вдруг пожелаете изменить цвет(см. раздел примеров)
PALETTE позволяет вам также маннировать число цветов в палитре более
15. Вы даже можете отображать текст как невидимый на фоне,а
затем изменить палитру для цвета текста, чтобы сделать его
внезапно видимым.
Если в заявлении PALETTE аргументы не специфицируются, палитра уста-
навливается в заранее определенные цвета умолчания.
Заявления PALETTE USING позволяет вам модифицировать всю палитру в це-
лом посредством одного заявленияя. Имя целого массива име-
нует массив. При установке вашей палитры используйте индекс
в массиве для указания первого элемента массива ( в боль-
шинстве случаев вы будете специфицировать в качестве индек-
са в массиве 0). Добивайтесь уверенности в том, что размер
вашего целого массива достаточно велик для хранения всех
шестнадцати входов палитр после индекса в массиве. Любой
аттрибут в палитре находится в паре с цветом из целого мас-
сива. Использование в качестве цветового аргумента -1 в
массивном входе приводит к тому, что спаренный аттрибут не
изменяется: однако все другие отрицательные значения для
цвета незаконны. Ниже представлен список диапазонов аттри-
бутов и цветов для различных экранных режимов и мониторов:
-159 -
Таблица 5-1 Диапазоны цветов и аттрибутов
-----------------------------------------------------------------------
Режим Монитор Диапазон аттрибутов Диапазон цветов
-----------------------------------------------------------------------
0 Моно/EGA 0-15 0-2
0 Цветной/EGA 0-31 0-15
1 Цветной/EGA 0-3 0-15
2 Цветной/EGA 0-1 0-15
7 Цветной/EGA 0-15 0-15
8 Цветной/EGA 0-15 0-15
9 EGA(64 K) 0-3 0-15
9 EGA (>64K) 0-15 0-63
10 MONO/EGA 0-3 0-8
Моно - монохромный
EGA - Улучшенный графический адаптер /ВМ
-----------------------------------------------------------------------
Ограничения Для заявлений PALETTE и PALETTE USING требуется улучшенный
----------- Графический Адаптер (EGA)
Cм. также COLOR
--------- DRAW
SCREEN
Пример 'ниже показано как применить PALETTE для изменения цвета
------- графики ( и текста) без перечеркивания или повторного отобра-
жения графики.
SCREEN 8 'установить 16-цветный режим ECA 640x200
PALETTE 'установить цвета палитры EGA по умолчанию
LINE (10,10) -(630,190),1,BF 'чертить рамку, заполнить ее го-
лубым
DO
FOR I% = 2 TO 14
PALETTE 1, I% 'изменить цвет рамки с голубого
DELAY,2 'задержать чтобы видеть изменения
NEXT I%
LOOP UNTIL INSTAT 'производятся изменения до нажатия клавиши
END
Функция PEEK
-------------
Функция PEEK возвращает байт, хранимый в специфицированной ячейке
------------- памяти
Синтаксис y=PEEK(отступ)
----------
Замечания Отступ - это числовое выражение от 0 до 65535, представляю-
---------- щее 16-битовый отступ в текущем сегменте, установленном са-
мым последним заявлением DEF SEG. Возвращаемое значение мо-
жет быть в диапазоне от 0 до 255. PEEK и дополняющее его
заявление POKE представляют собой низкоуровневые уходы из
определяемого в Турбо-Бейсике использования памяти. Одной
из областей применения PEEK и POKE является формирование
массивов байтов для такого применения, где не трубуется
полного, от -32768 до 32767 диапазона целых массивов.
См. также DEF SEG
--------- POKE
Пример DIM массивов % (5) 'разместить массив из 6 целых
------- DEF SEG =ПЕРСЕГ (массив%(0) )
'используйте POKE, возбудить массив
-160 -
FOR I% = 0 TO 11
POKE I%, &HFF
NEXT I%
'используйте PEEK, отобразить состояние массива
FOR I% = 0 TO 11
PRINT HEX$ (PEEK (I%) _
NEXT I%
END
Фуцнкция PEN
--------------
Функция PEN считывает состояние светового пера.
------------
Синтаксис y=PEN (опция)
----------
Замечания Опция - это числовая опция, которая управляет информацией,
--------- возвращаемой PEN, в соответствии со следующей таблицей:
---------------------------------------------------------------------
Опция Действие
----------------------------------------------------------------------
0 Перо вниз с момента последней проверки?
(-1= до; 0=нет)
1 X-координаты, при которой последний раз задействовалось перо
2 Y-координата, при которой последний раз задействовалось перо
3 Текущее значение переключателя (-1=вниз; 0=вверх)
4 Самая последняя X-координата
5 Самая последняя Y-координата
6 Ряд в котором последний раз задействовалось перо
7 Колонка, в которой последний раз задействовалось перо (1-80)
8 Самый последний ряд (1-24)
9 Самая последняя колонка (1-80)
-----------------------------------------------------------------------
Перед выполнением любого запроса функции PEN световое перо должно быть
включено с помощью заявления PEN ON.
Пример ON PEN GOSUB Пераобработчик 'построить обработчик событий
------ PEN ON 'включить отслеживание событий
PRINT 'нажмите для останова любую клавишу
WHILE NOT INSTAT
WEND
END
Пераобработчик:
FOR I% = 1 TO 9
PRINT PEN (I%)
NEXT I%
RETURN
Заявление PEN
--------------
Функция PEN управляет проверкой событий светового пера.
-161 -
--------
Синтаксис PEN (ON [OFF] STOP)
----------
Замечания Заявление PEN управляет проверкой событий светового пера.
--------- Перед выполнением любых запросов функций пера световое перо
длжно быть включено с помощью PEN ON. Исполнение PEN ON
также обеспечивает доступ к отслеживанию событий светового
пера с помощью подпрограммы, указываемой в заявлении ON PEN.
PEN ON запрещает функцию PEN и включает проверку событий пера.
PEN STOP отключает отслеживание событий пера, но события пера запоми-
наются, что если позднее выдается PEN ON, немедленно проис-
ходит захват события в ловушку.
См. также ON PEN
----------
Пример 'эта программа демонстрирует заявление PEN ON
------- ON PEN GOSUB Пераобработчик
'настроить обработчик событий
PEN ON 'включить отслеживание событий
PRINT 'нажмите для останова любую клавишу
WHILE NOT INSTAT
WEND
END
Пераобработчик
FOR I% = 1 TO 9
PRINT PEN (I%)
NEXT I%
RETURN
Функция PLAY
------------
Функция PLAY возвращает число нот, содержащихся в буфере фоновой музы-
----------- ки
Синтаксис y=PLAY (x)
----------
Замечания X- это пустой числовой аргумент.
PLAY возвращает число нот,
---------- имеющееся в буфере фоновой музыки в ожидании исполнения.
Если музыка должна исполняться на переднем фоне или не должна
исполняться вовсе, PLAY возвращает 0.
См. также $SOUND
---------
Пример 'играть до-ре-ми-фа и считать оставшиеся ноты
------- PLAY " MB CDEFG "
Вновь:
-----
n=PLAY (1) 'можно играть(что-нибудь)
PRINT n "нот осталось в буфере"
IF n=0 THEN PRINT "Буфер пуст": END
GOTO вновь
Заявление PLAY
-------------------
Функция PLAY создает музыку
----------------
Синтаксис PLAY строчное выражение
---------------
Замечания PLAY представляет собой интерпретаторный мини-язык, который
------------- делает для музыки то же самое, что DRAW для графики. PLAY
дает вам возможность определять музыкальные пассажи, как последо-
вательность литер в строчном выражении, и исполнять их через звукоизлу-
-162 -
чатель компьютера.
Имеется $4 ноты, соответствующие большинству клавиш пианино в ди-
апазоне тремя октавами ниже среднего С но одной нотой меньше , чем че-
тыре октавы выше среднего С. Ноты могут представляться их числовым зна-
чением (1-84) или в письменной нотации ( т.е. от А до G с диезами и бе-
молями, а также с информацией об октаве)
Например, PLAY N44" играет ноту 44, т.е. G выше среднего С, PLAY
"036" играет С в третьей октаве(ту же ноту).
Заявления музыкального определения можно группировать в длинные
составные последовательности:
PLAY "03FGA"
играет три ноты (F,C,A) в октаве 3.
Пробелы музыкальным интерпретатором игнорируются и могут использо-
ваться для обеспечения четкого представления структуры командной строки.
Команды
Следуюшие одно и двухлитерные команды образуют язык заявления PLAY.
нота-буква [(# 1+1 - )]
Играть ноту нота-буква: нота-буква - это буква от А до G (регистр
безразличен). Включением опционального диеза (# или +) либо бекара (-)
после нота-буквы осуществляется выбор эквивалента черной клавиши пиани-
но.Вы не можете полутонировать ноту для получения какой-то белой клави-
ши; например, "F-" незаконно.
Nn
Играть ноту n, где n-числовое представление ноты от 1 до 84. Нота
1 это самое низкое с на пианино; 84 - самое высокое в. Среднее с это
нота 37. Нота О не дает звука и может использоваться в качестве паузы.
Оn
Выбирается октава n, где n может быть 0-6. Каждая октава начина-
ется с С и оканчивается В. Среднее С есть первая нота октавы 3. По
умолчанию - октава 4.
>n
Перемещение текущей октавы вперед на 1 и играть ноту n. Если те-
кущая октава 6 (наивысшая октава) то остается шестая октава.
<n
Понижение текущей октавы и играть ноту n. Если октава О (наиниз-
шая октава) то остается нулевая октава.
Ln
Установить продолжительность нот, следующих далее, в соответствии
с таблицей:
L1 целая нота
L2 половинная нота
L4 четвертная нота
L8 одна восьмая
L64 одна шестьдесят четвертая
Приемлмы и промежуточные значения (L5 это законное заявление про-
должительности звучания). Наибольшее допустимое значение для n есть 64.
Рn
Паузы для n ударов (где n представляется в периодах времени, спе-
цифицированных в последней команде L)
Помещение точки после ноты вызывает ее исполнение в полтора раза
дольше ее нормального значения. Например, снабженная точкой четвертная
нота имеет общую продолжительность звучания в четвертную и восьмую доли
ноты.
Может использоваться более чем одна точка.
Вторая точка действует
на пару нота- точка как нечто целое; например, снабженная двумя точками
четвертная нота играется на 1.5 (1.5 * 1/4) удара. Точками также можно
регулировать длину паузы.
Tn
Устанавливается тема, где n - число четвертных нот в минуту, ко-
торое может находиться в диапазоне от 32 до 255. По умолчанию - 120.
MF
-163 -
"Музыкальный передний фон" приводит к тому что музыка, создавае-
мая заявлением PLAY прогоняется на переднем фоне (т.е. следующее заяв-
ление вашей программы не будет исполняться пока не завершится исполне-
ние музыкального сопровождения).
МВ
" Музыка заднего фона" приводит к тому, что исполнение музыки сох-
раняется, даже если ваша программа не делает ничего другого. По умолча-
нию Турбо-Бейсик имеет 32-нотный буфер для игры на заднем фоне, который
может быть удлинен с помощью заявления $SOUND. См. также заявление PLAY
ON и ON PLAY с помощью которых можно периодически инспектировать испол-
нение музыки заднего фона и при необходимости добавлять новые ноты.
MN/MI/MS
В зависимости от этой установки ноты могут выдерживаться либо тремя
четвертями времени, специфиуируемого L (MS : "Музыкальное стокатто), либо
семью восьмыми времени специфиуируемого L (MN "Нормальная музыка"), либо
полным временем, специфицируемым L (ML : "Музыкальное легато")
X VARPTR$ (строчная переменная) (исполнить субстроку)
X (исполнить) - команда дает вам возможность вставлять субстроку в
заявление PLAY как музыкальную подпрограмму; например в:
aS = "CDE " PLAY "EDEX" + VARPTR$ (aS)
играются ноты EDECD и E в указанном порядке.
Переменные аргументы
В каждой команде PLAY аргумент может быть постоянным значением или
специфицироваться в форме = VARPTR$ (переменная), где переменная - это
числовая переменная. Примечание: Интерпретаторный Бэйсик позволяет специ-
фицировать в игровой строке имена переменных. Например, PLAY "T =x; уста-
навливает темы для содержимого переменной x. Хотя было бы прекрасно, если
бы это делалось, но в Турбо-Бейсике такая возможность не реализуется, пос-
колько именная информация, ассоциируемая с переменной x во время прогона
нет. Вместо этого вы должны пользоваться описанным выше приемом VARPTR$ .
См. также ON PLAY
PLAY ON
$SOUND
Пример первая строка $ = 0314cl2ee18el4eedcfl1<A"
------- вторая строка $ = 03l8cccl4edl2<Al4Al1 <1>c"
третья строка $ = l4cl10ff.fl1e"
PLAY "T150" скорость до темпа
FOR n = 1 TO4
PLAY первая строка $
NEXT n
PLAY вторая строка $ + третья строка $
Функция PMAP
------------
Функция PMAP транслирует физические координаты в мировые и наоборот.
Синтаксис y = PMAP (x, опция)
-----------
Замечания x -это координата точки подлежащей маппированию, а опция -
это целое выражение от 0 до 3, которое управляет функцией PMAP следующим
образом.
--------------------------------------------------------------------
Опция Действие
--------------------------------------------------------------------
0 Маппировать мировую координату x в физическую координату x
1 Маппировать мировую координату y в физическую координату y
2 Маппировать физическую координату x в мировую координату x
3 Маппировать физическую координату y в мировую координату y
-164 -
--------------------------------------------------------------------
PMAP осуществляет масштабирование, специфицируемое самым последним
заявлением WINDOW без размещения чего-либо на экране.
См. также WINDOW
---------
Пример "Переключить на графический экран средней размещающей способ-
ности
SCREEN 1
"определить декартово начало в средине экрана с исходным диапазоном
значений x и y, которые получаются больше при перемещении вверх, а не вниз.
WINDOW (-1000, 1000) - (1000, -1000)
PMAP может теперь осуществлять масштабирование между декартовым эк-
раном и физическими пикселами
PSET (PMAP (0,0), PMAP (0,1),2
PSET (PMAP (50,2),PMAP (50,3)),2
PEINT PMAP (0,0),PMAP(0,1),PMAP(50,2),PMAP(50,3)
END
Функция POINT
--------------
Функция POINT возвращает цвет пиксела или информацию об LPR.
Синтаксис Первая форма
--------- цвет = POINT (x,y)
Вторая форма:
y= POINT (опция)
Замечания В первой форме (x,y) специфицирует координаты графического
пиксела средней или высокой разрешающей способности. POINT возвращает атт-
рибутное значение (цвет) пиксела в точке (X,Y). Если либо x, либо y лежат
вне диапазона, POINT возвращает 1.
Во второй форме опция - это числовые переменная или выражение, кото-
рое управляет действием POINT в соответствии со следующей таблицей:
-------------------------------------------------------------------
Опция Действие
-------------------------------------------------------------------
0 Возвращается текущая физическая x- координата
1 Возвращается текущая физическая y-координата
2 Возвращается текущая мировая x-координата
3 Возвращается текущая мировая y-координата
----------------------------------------------------------------------
Первая форма POINT полезна просто для оживления пиксела вовремя. Ис-
пользуйте POINT для считывания цветафонового окружения пиксела, подлежаще-
го перезаписи во временную память. Затем с помощью PSET устанавливайте
точку в цвет перемещающегося обьекта. И наконец , для стирания точки, воз-
вращайте ее в первоначальный цвет.
См. также PSET
---------
Пример "включить графический режим среднего разрешения SCREEN1
-------- CIRCLE (160,100),50,2 " отобразить окружность
поставить точку в центре окружности
PSET (160,100),1
"отобразить цвет точки и ее положение
PRINT POINT (160,100)
PRINT POINT (0),POINT (1)
END
Заявление POKE
----------------
Функция POKE записывает байт по специфицируемому адресу
-------------
Синтаксис POKE отступ, значение
----------
-165 -
Замечания Отступ - это адрес в диапазоне числовых значений от 0 до 65535.
---------- Значение - это значение байта , подлежащего записи по адресу
в диапазоне от 0 до 255. Отступ относится к сегменту, определенному
самым последним заявлением DEF SEG.
POKE записывает значения байтового размера по указанному адресу и
является низкоуровневым уходом из нормального использования памяти в Тур-
бо-Бейсике. POKE не выполняет проверку ошибок, поэтому при неправильном при-
менении этой команды не трудно разрушать DOS и иливашу прграмму.
См. также PEEK
---------
Пример DIM Массив % (5) разместить массив из 6 целых
------ DEF SEG = VARSEG (Массив %(0) )
возбудить массив используя POKE
FOK I% = 0 TO 11
POKE I%, &HFF
NEXT I%
отобразить содержимое массива, используя PEEK
FOR I% = 0 TO 11
PRINT HEX$ (PEEK (I%) )
NEXT I%
END
Функция POS
------------
Функция POS возвращает горизонтальное положение курсора (номер ко-
лонки)
Синтаксис y = POS (x)
----------
Замечания x - это пустой числовой аттрибут. Возвращаемое POS значе-
ние лежит в диапазоне от 1 до 80 и представляет собой горизонтальное (но-
мер колонки) положение курсора. Для получения положения курсора по верти-
кали пользуйтесь функцией CSRLIN
Для перемещения и сокрытия курсора пользуйтесь заявлением LOGATE.
См. также CSRLIN
---------- LOGATE
LPOS
Пример " пострить обработчик событий
------- ON TIMER (1) GOSUB отобразить часы
" включить отслеживание событий
TIMER ON
" пока не нажата клавиша
PRINT "Нажмите для останова любую клавишу"
WHILE NOT INSTAT
WEND
END
Отобразить часы
----------------
Старое X%=POS
Старое Y%=CSRLIN
LOGATE 1,72,1
PRINT TIME$
LOGATE старое Y%, старое X%,1
RETURN
Заявление PRESET
-------------------
Функция PRESET обеспечивает представление точки на графическом экра-
не.
Синтаксис PRESET (x,y) [,цвет]
----------
Замечания (x,y) - это координаты точки, изображаемой на графическом
экране, которые могут задаваться как в абсолютной, так и в относительной
-166 -
форме. Цвет - это целое выражение, определяющее цвет, который должна иметь
точка. На цветной атрибут распространяются обычные ограничения режима.О
законных диапазонах аттрибута в каждом экранном режиме см. в описании за-
явления PALETTE. Если цвет специфицируется, PEESET и дополняющая его ко-
манда PSET работает идентично. Различие между ними состоит в том, что
PRESET имеет значение 0 цвета по умолчанию (цвет заднего фона), тогда как
умолчанием для PSET является максимально возможное значение аттрибута того
режима, в котором вы находитесь. Другими словами без цветовых аргументов
PSET включает пикселы, а PRESET их выключает.
См. также PSET
----------
Пример "включить графический режим среднего разрешения
-------- SCREEN1
FOR I% = 0 TO 359
FOR I% = 0 TO 199
DELAY 0.01
PSET (I% ,I%)
NEXT J%
NEXT I%
FOR I% = 0 TO 359
FOR J% = 0 TO 199
DELAY 0.01
PRESET (I%,J%)
NEXT J%
NEXT I%
END
Заявление PRINT
----------------
Функция PRINT посылает данные на экран
-------
Синтаксис PRINT [список выражений ] [;]
---------
Замечания Список выражений - это ряд числовых и/или строчных выраже-
ний, разделяемые точками с запятой, пробелами или запятыми. Если список
выражений не оканчивается точкой с запятой, Турбо-Бейсик после информации
списка выражений выводит возврат каретки. Если список выражений опускает-
ся, PRINT выводит только возврат каретки.
PRINT использует пунктуацию, разделяющую элементы списка выражений,
для определения того, как осуществлять размещение на экране.
Зоны экранного вывода
Для быстрого и аккуратного вывода Турбо-Бейсик подразделяет экран на
"зоны экранного вывода" (принт-зоны) по 14 колонок каждая. Использование
запятой между элементами списка выражений вызывает экранный вывод каждого
из них с начала следующей зоны. Точкк с запятой или пробел между элемента-
ми вызывает вывод каждого последующего элемента непосредственно за преды-
дущим вне зависимости от принт-зон.
Если заявление PRINT оканчивается запятой, точкой с запятой или фун-
кциями SPC либоTAB, следующее заявление PRINT будет осуществлять вывод в
ту-же строку. Иначе следующее заявление PRINT начинает вывод с самой левой
колонки следующей строки. За числовым значением всегда следует пробел. По-
ложительным числам также предшествует пробел; отрицательным числам пред-
шествует знак минус.
Заявление PRINT можно представлять аббревиатурно, как знак вопроса
( набора признака сомнения, появление которого относится ко временам ин-
терпретаторов времен оно):
?" Алло "
означает то-же самое, что PRINT "Алло"
См. также LPRINT
----------- LPRINT USING
PRINT USING
SPC
TAB
-167 -
Пример М=2
-------- PRINT "Строки и числа - это "М" возможности того,";
"запятые в качестве разделителей дают размещение данных в
14-колонных принт-зонах
A=1
B=2
C=3
PRINT A,B,C, "текст"
" пробелами и точками с запятыми в качестве разделителей
обеспечивается вывод данных потоком
PRINT A;B;C; "текст"
END
Заявление PRINTA и PRINT USING
--------------------------------
Функция PRINT и PRINT USING записывают форматную информацию в файл
---------------------------
Синтаксис PRINT# файланом, [ USING форматная строка;] список выраже-
ний [;]
Замечания Файланом - это значение под которым был открыт файл. Фор-
матная строка- это опциональная последовательность форматизующих литер (
описанная в заявлении PRINT USING). Список выражений - это ряд числовых
и/или строчных выражений , подлежащих выводу в файл.
PRINT# посылает данные в файл точно так, как PRINT посылает их на
экран. Поэтому если вы не проявете специальную заботу, можно бесполезно
потерять массу дискового пространства на пробелы, в которых нет необходи-
мости, либо, что еще хуже, установить поля так тесно друг к другу, что не
сможете разобрать их по отдельности, когда позднее будет осуществляться их
обработка заявлением INPUT#.
PRINT#1 1,2,3
посылает
1 --------- 2-------- 3
в файл #1. Вследствии существования 14-колонной принт-зоны между ли-
терами в файл посылаются избыточные пробелы. С другой стороны,
PRINT#1 1;2;3
посылает в файл 1 - 2 - 3 и вы не можете считывать отдельные число-
вые значения из это записи, посколько для INPUT# требуются в качестве раз-
делителей запятые. Самым верным способом разделения полей являются помеще-
ние между ними запятых; например PRINT#1, 1","2","3 обеспечивает запись в
файл 1,2,3 в виде пакета, в котором теряется наименьшее пространство, и
который легко читается заявлением INPUT#.
Заявлением WRITE# поля разделяются запятыми автоматически.
Пример SUB делать файл
------- INPUT# открывает последовательный файл для вывода
" с использованием WRITE# он записывается строками различно-
го типа данных.
" назначить файловую переменную #1
OPEN "INPUT#.DTA" FOR OUTPUT AS #1
"определить несколько переменных и возбудить их
Строчная переменная $="Я вернусь"
Целая % = 1000
Плавающая точка. = 30000.1234
" записать строку текста в последовательный файл
WRITEN1, строчная переменная $, цела%, плавающая точка.
CLOSE 1 " закрыть файловую переменную
END SUB " конец процедуры делать файл
SUB читать файл
Зта процедура открывает последовательный файл для ввода.С
использованием INPUT из файла читаются строки различного типа данных.
"назначить файловую переменную #1
OPEN INPUT#.DTA" FOR INPUT AS #1
-168 -
Строчная переменная $ =" " определить несколько переменных и
возбудить их
Целое % = 0
Плавающая точка = 0
" читать строку текста из последовательного файла
INPUT# 1, строчная переменная $, целая %, плавающая точка.
PRINT строчная переменная $,целая%, плавающая точка.
CLOSE#1 "закрыть файловую переменную
END SUB "конец процедуры читать файл
CALL делать файл
СALL читать файл
END
Заявление PRINT USING
----------------------
Функция PRINT USING посылает на экран форматную информацию
-------------------
Синтаксис PRINT USING форматная строка; список выражений [;]
---------------------
Замечания Форматная строка - это строчная константа или переменная
----------- которой описывается как образуется формат информации, со
держащейся в списке выражений. Список выражений - это строчная или числовая
информация, подлежащая выводу на экран, разделяемая запятыми, пробелами
или точками с запятыми. PRINT USING игнорирует пунктуацию в списке выраже-
ний.
Форматизация строчных полей .
Чтобы вывести на экран первые n литер строки: если форматная строка
состоит из обратных косых черт (\), заключающих в себе 0 или более пробелов,
то Турбо-Бейсик выводит на экран столько литер строки вывода, сколько оп-
ределяет длину форматной строки ( включая обратные косые черты). Например,
если форматная строка имеет вид "\" (нет пробелов, длина=2), то выводятся
две литеры; для "\--\" (два пробела, длина =4) выводится четыре литеры.
a$ = "кошки и собаки"
PRINT USING '\ --\"; a$; PRINT USING "\ \";a$
Форматная строка "!" вызывает вывод заявлением
PRINT USING точно по одной литере в строке вывода:
a$ = "кошки и собаки"
PRINT USING "!";a$
Чтобы распечатать всю строку в качестве форматной строки используйте
амперсанд (&)
a$ = "кошки и собаки"
PRINT USING "&'; a$
Форматизация чисел
Знаками номера (#) в форматной строке представляются цифры числа.
Затем, для указания форматообразования, такого как число цифр справа от
десятичной точки, соответствующим образом размещаются десятичные точки и
другие специальные литеры ( например, знаки доллара) Например:
PRINT USING "##.##"; 3.14159, .01032
PRINT USING "+##.##; 12.0101, -6.2
(включается знак перед числом)
PRINT USING "##.##-";12.0101, -6.2
(включается знак минус после числа, если оно отрицательно)
PRINT USING "$$##.##"; 12.0101
(выводится знак доллара вместе с числом)
PRINT USING "**##.##"; 12.0101
(заполняются передние пределы звездочками)
PRINT USING "**$##.##"; 12.0101
(комбинация двух выше упомянутых)
PRINT USING "#.#### ^^^^ "; 34567.12
(4 знака вставки означают использование научной натации)
-169 -
PRINT USING "-###.##"; 12.1010
(подчеркивание, предшествующее заранее определяемой формообразующей
литеры, вызывает дословный вывод литеры, а не ее использование для целей
форматообразования)
Если значение слишком велико для вывода на экран в специфицированном
формате, впереди вывода проставляется знак процента(%):
PRINT USING "#.#;27.4
Заявление PSET
---------------
Функция PSET обеспечивает построение точки на графическом экране.
------------
Синтаксис PSET (x,y) [,цвет]
--------------
Замечания (x,y) -это координаты точки, появляющейся на графическом
экране, которые можно заявлять в абсолютной и относительной форме. Цвет -
это целое выражение, которым определяется цвет точки. Для атрибута цвет
применимы нормальные режимные ограничения.При средней разрешающей способ-
ности приемлемы цветовые значения от 0 до 3; при высокой разрешающей спо-
собности возможны цветовые значения только 0 и 1.
Если цвет специфицируется, PSET и дополняющее его заявление PRESET
работают идентично. Различие между ними состоит в том, что PRESET имеет
цветовое значение по умолчанию 0 ( цвет заднего фона), тогда как PSET по
умолчанию дает максимально допустимое значение этого аттрибута (т.е. 3 в
режиме средней разрешающей способности и 1 в высокой). Другими словами,
без цветовых аттрибутов PSET включает пикселы, а PRESET их выключает.
См. также POINT
---------- PRESET
Пример " включить графический режим средней разрешающей способности
------- SCREEN 1
FOR I% = 0 ТО 359
FOR J% = 0 ТО 199
DELAY 0,01
PSET (I%,J%)
NEXT J%
NEXT I%
FOR I% = 0 ТО 359
FOR J% = 0 ТО 199
DELAY 0.01
PRESET (I%,J%)
NEXT J%
NEXT I%
END
Заявление PUT
--------------
Функция PUT записывает одну запись в произвольный файл.
-----------
Синтаксис PUT [#] файланом [, записи номер]
-----------
Замечания Файланом - это значение, специфицируемое при обработке фай
ла заявлением OPEN. Записи номер - числовое выражение, описывающее подлежа-
щую выяснению в файл запись, которое может находиться в диапазоне от 1 до
16777216.
PUT представляет собой дополнение заявления GET и обеспечивает поме-
щение в файл произвольного доступа одной записи. Запись номер является оп-
циональным аттрибутом. Если он опускается, Турбо-Бейсик использует значе-
ние, использовавшееся в последнем заявлении PUt или GET, добавляя 1.
Пример "открыть файл произвольного доступа
OPEN "GET.DTA" AS#1 LEN=18
"сделать по два определения поля для каждого элемента поля
-170 -
FIELD #1, 2AS Целое$, 4AS Длинное Целое $,4AS Единичная
точность $, 8AS Двойная точность $
FIELD#1,2AS A$, 4AS B$, 4AS C$, 8AS D$
Макс. целое % = 32767
FOR I% = 1 ТО 5 " записать несколько данных в файл
"перед записыванием в файл данные преобразовать и назначить
в буфер
LSET Целое $ = MKI$ (I%)
LSET Длинное Целое $ = MKI$(I%=CLNG (макс целое %))
LSET Единичная точность$=MKS$ (CSNG(I%*CSNG(максцелое %)))
LSET Двойная точность$ = MKD$(максцелое% ^ I%)
PUT#1,I%
NEXT I%
FOR I% = ! ТО 5 читать данные из файла
GET #1,I% отобразить их на экране
PRINT CVI (A$),CVL(B$), CVS(C$), CVD(D$)
NEXT I%
CLOSE#1 закрыть файл
END
Заявление PUT (графика)
-----------------------
Функция PUT обеспечивает отображение на графическом экране содержи-
мого числового массива.
Синтаксис PUT(x,y), массив [,опция]
----------
Замечания ( x,y ) - это координаты верхнего левого уровня угла пря-
моугольника, в который будет передаваться массив; они могут специфициро-
ваться либо в абсолютной, либо в относительной форме . Массив - это число-
вой массив, который содержит графические данные для размещения на экране.
Опция - это одно из резервированных слов, перечисляемых ниже, с по-
мощью которых осуществляется управление тем, как содержащаяся в массиве
информация будет прилагаться к уже имеющейся на экране:
----------------------------------------------------------------------
Опции PUT Действие
----------------------------------------------------------------------
PSET Карта точной копии образа в массиве
PRESET Карта копии заполнения образа в массштабе
XOR Выполнение операции XOR между образом в массиве и экраном
OR Выполнение операции OR между образом в массиве и на экране
AND Выполнение операции AND между образом в массиве и на экране
----------------------------------------------------------------------
Опция PSET вызывает помещение данных массива на экран точно в том
виде, в котором они первоначально заложены заявлением GET вне зависимости
от того, что есть в данный момент на экране. PRESET картографирует на эк-
ране образ дополнения. Например, если в каком-то пикселе оригинальные дан-
ные имели аттрибут 3, копирование через PUT на экране с атрибутом PRESET
будет давать для этого пиксела аттрибут 0 и наоборот. Точно также аттрибут
1 будет преобразовываться в аттрибут 2 и наоборот.
Опции AND,OR,XOR обеспечивают выполнение логических операций между
каждым пикселом в регионе назначения до PUT и данными в буферном масси-
ве.Когда перемещающиеся обьекты пересекают сложные задние фоны, особенно
полезна операция XOR; фактически это делается по умолчанию. Первый PUT XOR
обеспечивает вычерчивание обьекта на экране. Второе применение в том же
месте восстанавливает фон в его предыдущее состояние.
Базисная стратегия всех оживлений, основанная на GET и PUT состоит в
следующем:
DRAW обьект в прямоугольной зоне
GET обьект в массив
DO
ERASE обьект с его старого места
PUT обьект на новое место
LOOP
-171 -
Пример: " разместить буфер для хранения образа графики
DIM Буфер % (143)
"включить графический режим среднего разрешения
SCREEN 1
CIRCLE (16,16),8,2 "чертить окружность
GET(0,0) - (31,31), Буфер% "получить окружность
"копировать все это на экран
FOR I% = 0 TO 9
PUT (I%*32,100), Буфер %
NEXT I%
END
Функция PUT$
-------------
Функция PUT$ записывает строку в файл двоичного режима.
------------
Замечания PUT$ записывает содержимое строчного выражения в файл,оп-
ределяемый как файланом на позиции, определяемый заявлением SEEK для этого
файла. Файл должен быть открыт в режиме BINARY.
См. также GET
---------- OPEN
SEEK
Пример OPEN "BASIC.DOC" FOR BINARY AS1
------- PUT$ #1,BASIC - компиляторы- это 99% работы
PUT$#1, "в поте лица и 1% вдохновения"
CLOSE#1
END
Заявление RANDOMIZE
--------------------
Функция RANDOMIZE задает генератор случайных чисел.
------------------
Синтаксис RANDOMIZE [числовое выражение]
--------------------
Замечания Если числовое выражение опускается, исполнение программы о
станавливается и пользователь получает подсказкус на значение задания при
встрече с заявлением RANDOMIZE.
RANDOMIZE NUMBER SEED?
(Зададите начальное число генерирования случайных чисел)
О случайных числах.
Без повторного задания значения. возвращаемые функцией RND, случай-
ными не являются вовсе; для данного начального значения функция RND всегда
возвращает одну и ту-же последовательность значений.
Без повторного зада-
ния моделирование игры в кости будет воспроизводиться одним и тем-же спо-
собом при каждом новом прогоне программы.
Удобный способ обеспечивать уникальным каждый прогон (полагая,что
ваша программа не прогоняется каждый день в одно и то-же время) состоит в
использовании функции TIMER для обеспечения значения задания:
RANDOMIZE TIMER
Другой прием состоит в использовании заявления микротаймера с тонкой
разрешающей способностью (MTIMER) для задания времени задержки, ассоцииру-
емой с нажатием на клавишу при запуске программы. Ею далее используется
это значение для задания генератора случайных чисел:
MTIMER
PRINT "Чтобы начать нажмите любую клавишу ..."
WHILE NOT INSTAT: WEND
RANDOMIZE MTIMER
См. также RND
-------------
Пример возбудить микротаймер
------ MTIMER
-172 -
PRINT "Чтобы начать нажмите любую клавишу...."
WHILE NOT INSTAT
WEND
ПУСТО $ = INKEY$
"задать генератор случайных чисел
RANDOMIZE MTIMER
FOR I% = 1 TO 5 STEP RND (1.5)
PRINT I%
IF INSTAT THEN STOP
NEXT I%
END
Заявление READ
----------------
Функция READ загружает переменные из содержимого заявления DATA.
------------
Синтаксис READ переменная[,переменная]....
---------------
Замечания Переменная - это числовая или строчная переменная.
---------- READ загружает указанные переменные из констант, появляю-
щихся после заявления DATA. Во время прогона READ осуществляет доступ к
константам заявлений DATA в том порядке, в котором они появляются. Боль-
шинство обычных ошибок, ассоциируемых с заявлениями DATA и их считыванием,
получается из-за нарушения синхронности и попыток загрузить строку в чис-
ловую переменную. Если это случается, выдается синтаксическая ошибка
(ошибка 2 периода прогона).
Вы не получите информацию об ошибке, если ваша программа ошибается в
другом направлении, т.е. когда она загружает числовую константу в строчную
переменную.
Если вы пытаетесь обрабатывать заявлением READ большее число раз,
чем имеет констант ваша программа, Турбо-Бейсик выдает ошибку 4 периода
прогона , Вне Данных.
Заявление RESTORE позволяет вам повторно считывать константы из пер-
вого или любого специфицированного заявления DATA.
См.также RESTORE
---------
Пример " эта программа демонстрирует заявление READ
------- SUB обработки результата (студента имя $, студента средний %)
LOCAL Итог%, Значение%,,I%
Итог % = 0
READ студента имя $
FOR I% = 1 TO 10
READ значение %
Итог % = Итог% + значение %
NEXT I%
Студента средний % = итог%\10
END SUB
FOR студент% = 1 TO 3
CALL обработка результата (С имя $,средний %)
PRINT USING "& средний равен ###";Cимя $,средний %
NEXT студент%
END
Функция и заявление RFG
------------------------
Функция REG устанавливает значение в буфере регистров или возвращает
его.
Синтаксис Функция y=REG(регистр), регистр y=REG регистр, значение
----------
Замечания Регистр указывает процессорный регистр в соответствии со
--------- следующей таблицей
-173 -
---------------------------------------------------------------------
Номер Регистр
---------------------------------------------------------------------
0 Флаги
1 Ax
2 Bx
3 Cx
4 Dx
5 SI
6 DI
7 BP
8 DS
9 ES
--------------------------------------------------------------------
Если регистр вне диапазона 0-9, генерируется ошибка 5 периода прого-
на,вызов незаконной функции.
Значение - это числовое переменное или числовое выражение в диапазо-
не от 0 до 65535. REG как функция возвращает значение выбранного эле-
мента в "буфере регистров". REG как заявление вызывает загрузку указан-
ным целым значением выбранного элемента буфера регистров.
Используйте REG для подачи информации в подпрограммы на языке ассем-
блера и для получения ее из этих подпрограмм. Буфер регистров загружа-
ется в процессорные регистры непосредственно перед вызовом ABSOLUTE или
INTERRUPT. Они возвращаются на хранение сразу-же после прогона. В любое
данное время буфер содержит состояние процессорных регистров в том ви-
де, в каком они находились по завершению самой последней внешней подп-
рограммы.
Пример DEFINT a-z
------- DIM a (100)
DIM заполнение подпрограммы (10)
Заполнение подпрограммы (0)=&HF2FC
Заполнение подпрограммы (1) = &HCBAA
REG 1,-1
REG3,101^2
REG9,VARSEG [a(0)]
REG6, VARPTR [a(0)]
DEF SEG = VARSEG (заполнение подпрограммв (0) )
PRINT a(1)
WHILE NOT INSTAT:WEND
Заполнение адр. = VARPTK (заполнения подпрограмма(0))
CALL ABSOLUTE заполнение адр "(REG)
PRINT a (1)
END
Заявление REM
--------------
Функция REM отделяет замечания (комментарии)программиста
-----------
Синтаксис REM комментарий
----------
Замечания Комментарий - это любая последовательность литер. В отли-
чие от трактовки комментариев в Турбо-Бейсике, REM замечания появляются
только в исходной версии программы и следовательно ни коим образом не
воздействуют на исполнение.
Примечание: Комментарий может позволяться в строке, не содержащий
других заявлений, но он должен быть последней составляющей этой строки.
Например, следующая строка не работает:
REM теперь сложить числа:а = b+c
Посколько компилятор не может отделить где кончается комментарий и
начинается заявление.Правильно так:
a = b+c: REM теперь складываются числа.....
-174 -
Альтернативным разделителем комментария является одинарный знак ка-
вычки("). Когда используется единичная кавычка, для отделения замечаний
от других заявлений в той-же строке двоеточие не требуется.
Не пользуйтесь единичной кавычкой для отделения комментариев после
заявления DATE. Вместо этого используйте :REM.
Комментарии компилятором игнорируются и не занимают места в обьект-
ных программах, поэтому щедро ими пользуйтесь.
Пример REM эта программа демонстрирует заявление REM
------- PRINT "эта программа демонстрирует заявление REM
REM "END"
END
DATA 1,2,3,Я вернусь! :REM комментарий
Заметьте,что единичная кавычка не трактуется как комментари,й.
Заявление RESET.----------------
Функция RESET закрывает и убирает все дисковые файлы.
--------------
Синтаксис RESET
---------------
Замечания RESET - это то-же, что заявление CLOSE без аргументов.
Заявление RESTORE
------------------
Функция RESTORE позволяет вновь считывать константы заявлений DATA.
---------------
Синтаксис RESTORE [метка]
------------------
Замечания Метка - опциональный аргумент, указывающий заявление DATA,
к которому будет иметь доступ следующее заявление READ. RESTORE вы-
зывает повторную установку Турбо-Бейсиком его счетчика заявлений DATA
таким образом, что когда встречается следующее заявление READ, вновь
используйте первый элемент первого (или указанного) заявления.
См. также READ
----------
Пример "считать несколько данных и восстановить указатель данных
------ READ A$,B$
RESTORE
"считать еще несколько данных
READ C$,D$
"отобразить данные
PRINT A$,B$,C$,D$
"поставит указатель данных на первые данные после метки
RESTORE еще данные
" считать и отобразить данные
READ A$,B$
PRINT A$,B$
END
"определить несколько данных
DATA Кошка Собака
Еще данные:
DATA Обезьяна Гну
Заявление RESUME
-----------------
Функция RESUME повторно запускает исполнение после обработки ошибки.
---------------
Синтаксис RESUME [(0INEXTIметка)]
------------------
Замечания RESUME и RESUME O вызывает возобновление исполнения с за-
явления, которое вызвало ошибку. RESUME NEXT вызывает возобновление ис-
-175 -
полнения с заявления, непосредственно следующего за вызвавшим ошибку.
RESUME метка вызывает возобновление исполнения с кода идентифицируе-
мого меткой.
Если заявление RESUME встречается когда программа не находится в
подпрограмме отслеживания ошибок, это приводит к возникновению ошибки
20 периода прогона. Возобновление без ошибки.
Примечание: Заявление ERL, RESUME,RESUME NEXT вызывает генерирование
компилятором 4-байтового указателя для каждого заявления программы. По-
этому программисты, интересующиеся размером генерируемого или кода,
должны принимать это во внимание. Использование заявления RESUME [стро-
ка#] генерирует инструкцию перехода. ERRL обычно используется для от-
ладки, поэтому сказанное имеет к нему, вероятно, малое отношение.
Пример " установить ловушку ошибок
------- ON ERROR GOTO Ошибкиобработчик
"это заявление вызывает ошибку периода прогона
I# = LOG (-1)
PRINT "Была отслежена ошибка...."
END
Ошибкиобработчик
-----------------
PRINT "Ошибка" FRR "при" ERL
RESUME NEXT
Заявление RETURN
-----------------
Функция RETURN обемпечивает возврат из подпрограммы в вызывающую
программу.
Синтаксис RETURN [метка]
----------
Замечания Метка идентифицирует строку, к которой вы опционально мо-
жете направить поток программных кодов.
RETURN прекращает выполнение подпрограммы и передает управление за-
явлению, следующему непосредственно за вызовом GOSUB.
Опциональная метка конструируется для облегчения возврата из подп-
рограмм отслеживания и обработки ошибок. RETURN метка отбрасывает адрес
верхней части стека и выполняет заявление GOTO к заявлению, идентифицируе-
мому меткой. В некоторых версиях Бейсика эта операция выполняется с по-
мощью POP и GOTO.
При RETURN без GOSUB, ему предшествующего, будут вызываться неожи-
данные и трудно прослеживаемые ошибки.
Мы настоятельно рекомендуем для вы-
явления подобных ошибок включать тестирование стека в вытягиваемых вниз
меню опций.
См. также GOSUB
---------- GOTO
Пример См. пример в описании GOSUB
-------
Функция RIGHT$
--------------
Функция RIGHT$ возвращает n самых правых литер целевой строки.
--------------
Синтаксис s$=RIGHT$ (строчное выражение,n)
----------
Замечания n- это целое выражение, специфицирующее число литер в
строчном выражении, подлежащих возврату, оно может находиться в диапазоне
от 0 до 32767.
RIGHT$ возвращает указанное число литер из ее строчного аргумента,
начиная с правой стороны и работая влево. Если n больше длины строчного
выражения, возвращается все строчное выражение.Если n равно 0, RIGHT$ воз-
вращает ноль-строку.
-176 -
См. также LEFT$
--------- MID$
Пример RIGHT$ ("ДЖОН ДЖОНС",5)
Заявление RMDIR
---------------
ФУНКЦИЯ RMDIR снимает справочник (подобно DOS команде RMDIR)
--------------
Синтаксис RMDIR проход
---------
Замечания Проход - это строка стандартного описания прохода. RMDIR
снимает справочник указываемый проходом. Зто заявление эквивалентно
DOS-команде RMDIR (за исключением того, что оно не может представляться
аббревиатурно). К нему применимы те-же ограничения, а именно то, что проход
специфицирует законный, пустой справочник.
Если справочник не пуст, возникает ошибка 75 периода прогона, ошибка
доступа к прходу/файлу.
Пример "настроить обработчик ошибок
------ ON ERROR GOTO ошибкообработчик
INPUT "Вводимое имя снимаемого справочника:",D$
RMDIR D$ " снимается справочник
END
Ошибкообработчик:
PRINT "Ошибка" ERR "при" ERADR
RESUME NEXT
Функция RND
------------
Функция RND возвращает случайное число
--------
Синтаксис y=RND (числовое выражение)
Замечания RND возвращает случайное значение двойной точности между 0
и 1 . Числа, генерируемые RND, в действительности случайными не являются,
а представляют собой результат применения алгоритма псевдослучайного пре-
образования начального или задающего значения. При одном и том-же задающем
значении RND алгоритм Турбо-Бейсика всегда дает одну и ту-же цепочку "слу-
чайных" чисел.
Качество работы RND зависит от опционального числового значения, ко-
торое вы обеспечиваете в качестве аргумента. При отсутствии аргумента или
с положительным аргументом RND генерирует следующее число последователь-
ности, базирующееся на ее начальном задающем значении.
При аргументе равном 0 функция RND повторит число, генерированное
последним.
Отрицательный аргумент вызывает перезадание генератора случайных чи-
сел таким образом, что последующее использование RND без аргумента или с
положительным аргументом дает новую последовательность значений.
Как правило используйте при запуске вашей программы RANDOMIZE TIMER
для получения новой последовательности значений с помощью заявления RND.
Не применяются нулевой или отрицательные аргументы, если вы не преследуюте
цель наблюдать за особыми эффектами, вызываемыми этими значениями чтобы
получить случайные целые между 1 и n, включая границы, применяйте следую-
щий прием: случайное число % =INT (RND=n)+1
Еще лучше создавать его как функцию:
DEF FN Случцел%(x%)=INT (RND*x%)+1
См. также RANDOMIZE
---------
Пример FOR I=1 TO 10 STEP 1.34
-------- PRINT USING "###.##^^^^";RND(x!)
NEXT I!
END
-177 -
Заявление RSET
----------------
Функция RSET перемещает строчные данные в буфер произвольного файла.
Синтаксис RSET переменная поля=строчное выражение
---------
Замечания RSET и LSET перемещают строчные данные в "переменные по-
ля", которые уже определены в предыдущем заявлении FIELD , как принадлежа-
щие буферу произвольного файла. Если длина строчного выражения меньше раз-
меров переменной поля, специфицируемой в заявлении FIELD, это поле вырав-
нивается заявлением RSET вправо посредством заполнения пробелами. Это оз-
начает, что пробелы вставляются перед первой литерой строчного выражения
таким образом, чтопосле операции RSET параметр LEN (переменной поля) оста-
ется равным ширине, определенной в соответствуюшем заявлении FIELD.
LSET осуществляет левое выравнивание заполнением пробелами (пробелы
добавляются после последней литеры строчного выражения)
RSET можно также использовать для образования формата вывода на эк-
ран или печатающее устройство:
a$ = пробел$(20)
RSET a$ = "Выравнять вправо"
PRINT a$
См. также LSET
---------
Пример OPEN "RSET.DTA"AS#1 LEN = 18
------- " определить имена и размеры полей файла
FIELD 1,2 AS Заполнить целым $, 4AS заполнить длинным $, 4 AS
заполнить еденичным$, 8 AS заполнить двойным $
"назначить несколько значений полям и поместить запись в файл
произвольного доступа
FOR счетчик %=1 TO 5
RSET заполнить целым $=MKI$(счетчик %)
RSET заполнить длинным $=MKL$(счетчик%^2)
RSET заполнить еденичным$=MKS$(счетчик%^2.1)
RSET заполнить двойным$=MKD$(счетчик%^4.4)
PUT1, счетчик %
NEXT счетчика %
CLOSE 1 "закрыть файл
END
Заявление RUN
--------------
Функция RUN повторно запускает программу
------------
Синтаксис RUN[файласпец]
----------
Замечания RUN без аргумента вызывает повторный запуск самой програм-
мы на Турюо-Бейсике. Все числовые переменные (включая элементы массивов)
повторно устанавливаются в 0, а строчное переменное - в нуль-строку.
Если включается файласпец, этот аргумент представляет собой строчное
выражение для имени файла. TBC или EXE (получаемый с помощью цепочки меню
опций или при усиановке компилирования EXE). Если файласпец не имеет удли-
нения, предполагается TBC; если удлинение есть, оно и используется. Если
прогон или установление цепочки на EXE-файле, вы должны явно добавлять к
имени вашего файла удлинение EXE.
Пример "компилировать программу в файл, вызываемой
------- MASTER.EXE
"ввести имя SLAVE в ответ
" на эту подсказку
INPUT "введите имя программы для RUN:",N$
RUN N$ "прогнать указанную программу
END
"компилировать эту программу в SLAVE.TBC с компилированием
на вход цепочки из меню опций
PRINT "Теперь мы в программе SLAVE"
-178 -
END
Функция SCREEN
----------------
Функция SCREEN возвращает код ASCII литеры специфицированного ряда и
колонки
Синтаксис y=SCREEN (ряд,колонка[,опция])
-----------
Замечания Ряд и колонка - это целые выражения, которые могут быть в
диапазоне от 1 до 25 и от 1 до 80,соответственно.
Функция SCREEN представляет собой копию функции POINT графических
режимов для режимов текстовых. Она возвращает информацию о литере в специ-
фицированных ряду и колонке; например, SCREEN1,1 возвращает код ASCII ли-
теры в ряду 1, колонке 1.
Если опциональный параметр опция устанавливается в 1, это будет воз-
врат функций SCREEN хранимого атрибута(по адресу ряд, колонка), а не литеры.
Пример LOGATE 10,10
------ PRINT "ASCII"
"Кодом ASCII для "A" является 65; аттрибутом отображения по
умолчанию (белое на черном) является 7
PRINT SCREEN (10,10),SCREEN(10,10.1)
END
Заявление SCREEN
-----------------
Функция SCREEN устанавливает режим экранного отображения .
---------------
Синтаксис SCREEN[режим][,[цветафлаг]][,[а-страница]][,[в-страница]]
-----------------
Замечания Режим-это целое выражение в диапазоне от 0 до 10, имеющее
следующее децствие:
---------------------------------------------------------------------
Режим Действие
---------------------------------------------------------------------
0 Установить текстовый режим без измерения ширины
1 Устанавливается графический режим со средней разрешающей спо-
собностью; изменения ширины на 40
2 Устанавливается графический режим с высокой разрешающей способн
остью; изменение ширины на 80
7 Устанавливается режим со средней разрешающей способностью на EGA
допускающий 16 цветов и 640x200 пиксел
8 Устанавливается режим с высокой разрешающей способностью на EGA,
допускающий 16 цветов и 640x200 пиксел
9 Устанавливается улучшенный режим высокой разрешающей способности
на EGA c улучшенным дисплеем; допускается 4 или 16 цветов ( в
зависимости от памяти EGA) из палитры в 64 цвета и 640x350 пиксел.
10 Устанавливается режим высокой разрешающей способности на EGA с
моно хромным монитором; разрешается 4 аттрибута и 640x350 пиксел
----------------------------------------------------------------------
Цветафлаг управляет тем, будет ли цветовая информация подаваться на
композитные мониторы,которые подключаются к композитному устройству ви-
део-выхода цветного /геометрического адаптера. В текстовом режиме значени-
ем FALSE(0) цвет выключается. В графических режимах средней разрешающей
способности цвет значением FALSE включается.
а-страница-это целое выражение в диапазоне от 0 до 7буправляющее
страницей текста,подлежащей записи, когда PRINT и другие команды вывода
осуществляют запись на экран. Этот аргумент является законным только на
цветном/графическом адаптере (CGA) и улучшенном графическом адаптере (EGA)
и для экранных режимов 0,7,8,9,10. См. раздел о графике в главе 4.
-179 -
в-страница обеспечивает выбор того, какой из возможных экранов(0-7)
действительно отображается.Этот аргумент является законным только на цвет-
ных/графических адаптерах и улучшенных графических адаптерах для экранных
режимов 0,7,8,9 и 10.
Исполнением заявления SCREEN вызывается начало действия нового режи-
ма и экран подлежит очистке. Цвет фона устанавливается белым, а цвета зад-
него фона и бордюров-черным.
Если режим специфицируемый в заявлении SCRREN тот-же, что текущий,
не происходит ничего.
Если режим является текстовым и включаются только аргументы а-стра-
ницы и в-страницы, то отображение настраивается на страницу и регулируется
соответственно требуемому.
Пример "включить графику со средним разрешением при запрещенном цвете
------ SCREEN 1,0
CIRCLE (160,100)50,2
WHILE NOT INSTAT:WEND
A$=INKEY$
"включить текстовый режим с запрещенным цветом и активную и
видимую страницы установить на страницу 0
SCREEN0,0,0,0
PRINT "активной страницей является страница 0 "
WHILE NOT INSTAT :WEND
A$=INKEY$
" изменить активную страницу на страницу 2
SCREEN,,2
PRINT "активной страницей является страница 2
WHILE NOT INSTAT:WEND
A$=INKEY$
"теперь переключить на графический режим высокого разрешения
SCREEN 2
CIRCLE (320,100),100,1
END
Заявление SEEK
---------------
Функция SEEK устанавливает позицию в двоичном файле для заявлений
GET$ и PUT$ .
Синтаксис SEEK [#] файланом, позиция
--------------
Замечания SEEK заявляет, что следующее GET$ или PUT$, выполняемое на
файле файланом будет реализовываться на глубине файла равной позиция бай-
тов. Файл файланом должен быть открыт в режиме BINARY.
Для возврата текущей SEEK - позиции в двоичном файле используйте
функцию LOG.
См. также LOG
---------
Пример SUB создать файл
------ "SEEK открывает и в него записывается 256 литер
LOGAL I%
"открыть файл для двоичного ввода/вывода
OPEN"SEEK.DTA" FOR BINARY AS#1
"записать в него несколько данных
FOR I% = 1TO 256
PUT$1, CHR$(I%-1)
NEXT I%
END SUB "конец процедуры создать файл
DEF FN читать это $ (начало%,размер%)
"эта функция читает указанные данные из файла
LOGAL Врем Стр$,Лит$,I%
"искать правильную позицию в файле
SEEK 1, Начало %
-180 -
I%=1
ВремСтр $=" "
"читать указанные данные -- не читать после конца файла
WHILE (NOT EDF(1) AND (I%<=Размер %)
GET$1, I%, Лит$
Врем Стр $ = Врем Стр$ + Лит $
INCR I%
WEND
"назначить результат функции
FN читать это$ = Врем Стр $
END DEF " конец функции читать это $
"создать файл данных
CALL создать файл
"получить пользовательский ввод
PRINT " введите начальную точку [1....256] и сколько"
PRINT "байтов данных (256-начальная точка) вы желаете
INPUT "считать из файла:Нач%,РЕЗ%
Читать данные
PRINT FТ читать это $ (Нач%,Рез %)
END
Заявление SELECT
------------------
Функция SELECT возвращает заявление общецелевого тестирования.
---------------
Синтаксис SELECT CASE выражение
--------------
CASE заявление списков тестов
[CASE заявление списков тестов]
[CASE ELSE заявление]
END SELECT
Замечания список тестов - это один или более тестов, разделяемых за-
пятыми, которые подлежат выполнению над выражением. Выражение может быть
строчным или числовым, но все списки тестов в блоке SELECT должны быть од-
ного и того-же типа.
Тесты, которые могут быть выполнены посредством включения статьи
CASE охватывают тестирование равенства, неравенства, больше чем, меньше
чем и диапазона ("от до"). Примерами тестов, включенных в статью CASE яв-
ляются:
CASE <b "относительный
CASE 14 "равенство (предполагается "=")
CASE b TO 99 "диапазон
CASE 14,b " два теста равенства
CASE b TO 99,14 "комбинации (неявное ИЛИ)
В одной и той-же статье CASE имеет место неявная операция логическо-
го ИЛИ между множеством тестов.
Если обнаруживается, сто один или несколь-
ко тестов оказываются TRUE (истинными), исполняются все заявления, вплоть
до следующей CASE-статьи. После последнего заявления управление переходит
к тому заявлению, которое следует за END SELECT.
Заявление SELECT является мощным инструментом срвнения переменной с
рядом возможных значений и последующего продолжения в соответствии с его
результатом.
Используя это заявление можно создать более четкую исходящую прог-
рамму, чем вы получаете с применением множества IF.
См. также END SELECT
--------- EXIT CASE
Пример INPUT "Вводное число", x
------ SELECT CASE x
CASE < 10
PRINT "малое число"
CASE < 1000
-181 -
PRINT " среднее число"
CASE 1111,2222,3333,4444
PRINT "колибрующее число"
CASE ELSE
PRINT "только другое большое число"
END SELECT
Функция SGN
------------
Функция SGN возвращает знак числового выражения.
-----------
Синтаксис y=SGN (числовое выражение)
--------
Замечания Если числовое выражение положительно, SGN возвращает +1.
Если числовое выражение равно 0, SGN возвращает 0. Если числовое выражение
отрицательно, SGN возвращает -1.
В сочетании с заявлением ON/GOTO и ON/GOSUB функция SGN может давать
тринаправленное ветвление, подобное имеющемуся в ФОРТРАНЕ:
ON SGN (баланс) + 2 GOTO Вкрасном, РазрывЧетного, Вденьгах
См. также ON/GOSUB
--------- ON/GOTO
Пример " установить x и y в 0
------ x=0;y=0
"пользователь определяет x и y
INPUT "Пожалуйста, вводное значение для x";x
INPUT "Пожалуйста, вводное значение для y", y
" с помощью ON по значению знака x+y осуществить переход
GOSUB к подходящей подпрограмме
ON SGN (x+y) +2 GOSUB Минус, Ноль, Плюс
END
Минус:
PRINT "Вход по минусу" : RETURN
Ноль:
PRINT "Вход по нулю" :RETURN
Плюс
PRINT "Вход по плюсу" : RETURN
Заявление SHARED
-----------------
Функция SHARED заявляет разделяемые (глобальные) переменные в проце-
дуре или функции.
Синтаксис SHARED список переменных.
-----------------
Замечания SHARED определяет переменные своего разделяемого запятыми
списка переменных как глобальные для программы в целом, а не ограничиваю-
щиеся сферой определения процедуры или функции. Это обеспечивает процедуре
или функции доступ к переменным без необходимости подавать их как парамет-
ры.Заявление SHARED может появляться только в определениях процедур и фун-
кций и должно предшествовать любым исполнительным заявлениям соответствую-
щего определения. Чтобы заявить массив как разделяемую переменную, принад-
лежащую процедуре или функции, включайте его идентификатор и пустой набор
скобок в список переменных - вам нет необходимости образмеривать его вновь.
Незаявленные переменные в определениях функций по умолчанию являются
разделяемым аттрибутом , но вы не должны рассчитывать на переменность это-
го умолчания в будущих версиях компилятора. Вы должны явно заявлять все
переменные которые появляются в функции или процедуре, соответственно их
классу. (LOCAL,STATIC,SHARED)
См. также LOCAL
--------- STATIC
-182 -
Пример DIM массив $ (5)
------ DEF FN Пусто$
SHARED массив $
FN Пусто $ = массив (0)
END DEF 'конец функции FN Пусто $
Массив $ (0) = Это работает для меня
PRINT FN Пусто $
END
Заявление SHELL
----------------
Функция SHELL загружает и исполняет порождаемую обработку
--------------
Синтаксис SHELL [строка параметров ]
---------------
Замечания Строка параметров - это строчное выражение которое содержит
------------ имя программы. COM,.EXE или BAT (порождаемая обработка),
подлежащей прогону, и опционально параметры, которые вы можете пожелать
подать в порождаемую обработку. Если строка параметров опускается, никакая
программа не загружается. Вместо этого появляется DOS-подсказка и вы може-
те вводить стандартные DOS-команды; например DIR (справочник), COPY(копи-
ровать). Вы можете возвращаться в вашу программу набирая в DOS - подсказке
EXIT(уход).
Если строка параметров включается, то исполняется специфицируемая
программа. Когда она завершается, ваша программа продолжается со следующе-
го заявления.
См. также ENVIRON
--------- ENVIRON $
SHELL в DOS - руководстве.
Пример PRINT "Теперь мы будем использовать заявление SHELL ТУР-
БО-Бейсика"
PRINT "для выдачи DOS-команды DIR/W"
PRINT "с целью просмотреть какие файлы имеются на вашем при-
воде"
DELAY 3 'ждать 3 секунды
Использовать SHELL с целью покинуть Турбо-Бейсик и выдать
DIR с опцией /W
SHELL "DIR/W
Выводить в нижней части дисплея
LOGATE 21'1
PRINT "Теперь вернемся в Турбо-Бейсик"
END
Функция SIN
-------------
Функция SIN возвращает тригонометрический синус.
-----------
Синтаксис y=SIN (числовое выражение)
---------
Замечания Числовое выражение - это угол, специфицируемый в радианах.
Чтобы преобразовать радианы в углы, умножайте на 57.296. Чтобы преобразо-
вать углы в радианы, делите на 0,17453. (см. пояснения к радианам в описа-
нии заявления ATN).
SIN возвращает результат двойной точности.
См. также ATN
--------------
Пример Выбрать значение для в $ для вывода в образчике
------- в $ ="Турбо-Бейсик из Борленда"
-183 -
"найти центр
центр - (79 - LEN ($) /2
SIN (тэта) возвращает повторяющуюся равномерную последова-
тельность в диапазоне от -1 до 1 таким образом, что таб значение находится
всегда между - центр и + центр
таб значение = центр*SIN (тэта)
PRINT TAB (центр + таб значение +1) в $
тэта = тэта+ 1
WEND
END
Заявление SOUND
---------------
Функция SOUND генерирует тон специфицированой частоты и продолжи-
тельности.
Синтаксис SOUND частоты, продолжительности.
----------
Замечания Частота - это целое выражение, представляющее желаемую вы-
соту тона в диапазоне от 37 до 32767 герц. Продолжительность - это выраже-
ние с плавающей точкой, которое указывает длительность тона, измеряемой в
тиканьях часов. Тиканья часов происходят с интенсивностью 18,2 раза в се-
кунду так что значение продолжительности 36 соответствует примерно 2 се-
кундам. Продолжительность может находиться в диапазоне от 0,0015 до 65535
(один час).
Заявление SOUND не задерживает исполнение программы. Когда оно вст-
речается, начинается требуемый тон, а исполнение продолжается нормально.
Если встречается другое заявление SOUND и параметр продолжительносьи в но-
вом заявлении равен 0, то предыдущее SOUND выключается. Перед исполнением
нового заявления SOUND Турбо-Бейсик ожидает завершения исполнения первого.
SOUND при создании специальных эффектов лучше музыки.
Ограничения Следует заметить, что заявление SOUND , будет вновь воз-
буждать микротаймер MTEMER.
См. также PLAY
---------
Пример настроить музыкальный буфер на 800 байтов
------- $ SOUND 100 ' 8 байтов на ноту
использовать SOUND для создания звуковых эффектов имитирую-
щих изменеия в коробке передач мотоцикла
'первая передача
FOR i=150 TO 175
SOUND i,2
NEXTI
'вторая передача
FOR j=125 TO 152
SOUND j,1.5
NEXTj
'третья передача
FOR k=100 TO 127
SOUND k,1.25
NEXTk
Функция SPACE $
----------------
Функция SPACE $ возвращает строку, состоящую из одних пробелов.
--------------
Синтаксис а$=SPACE $ (счетчик)
--------------
Замечания Счетчик - это целое выражение в диапазоне от 0 до 32767
которым специфицируется сколько пробелов должна возвращать эта функция.
SPACE $ - это одно из многих средств форматообразования текстов,
имеющихся в Турбо-Бейсике.
-184 -
См. также LSET
--------- PRINT USING
RSET
SPC
STRING $
TAB
Пример резервировать 46 пробелов для aS
------ aS = SPACE (46)
сделать строку длиной 46 литер
в $ = 'это строка длиной 46 литер'
сделать то-же, что a$, используя с$="
'вывести длины a$,в$, c$
PRINT LEN (a$),LEN (в$),len (c$)
PRINT "как вы можете видеть ........
PRINT "я могу дать а$ то-же значение
END
Устройства
COM (n) Управляет прерываниями, связанные с событиями
последовательного порта
INP Читает из порта ввода/вывода.
IOCTL/IOCTL$ Работают с драйвером устройства.
OPEN COM Открывает и конфигурирует коммуникационный порт.
OUT Пишет в порт ввода/вывода.
DOS
CHDIR Изменяет текущий каталог (команда CD DOS).
KILL Удаляет файл (подобно команде DEL DOS).
MKDIR Создает каталог (подобно команде MKDIR DOS)
RMDIR Удаляет каталог (подобно команде RMDIR DOS)
SHELL Загружает и выполняет порожденный процесс (только
для версии 3.0 DOS).
SYSTEM Завершает программу.
Обработка_ошибок
ERADR Возвращает адрес самой последней ошибки.
ERRDEV/ERRDEV$ Возвращает информацию драйвера устройства.
ERL/ERR Возвращает номер строки и код последней ошибки.
ERROR Имитирует ошибку выполнения.
Файлы
BLOADS Загружает файл ВSAVED в память.
BSAVE Сохраняет на диске содержимое памяти в заданном
диапазоне адресов.
CLOSE Закрывает файл или устройство.
EOF Возвращает состояние конца файла.
FIELD Определяет переменные поля в буфере файла с
произвольным доступом.
FILES Выводит содержимое каталога (подобно команде DIR DOS)
GET(файлы) Читает запись из файла с произвольным доступом.
GET(графика) Считывает часть экрана или весь экран в массив.
LINE INPUT# Считывает строку из последовательного файла в
символьную переменную, игнорируя разделители.
LOC Возвращает текущую позицию в файле.
LOF Возвращает длину файла.
LSET Пересылает символьные данные в буфер файла.
NAME Переименовывает файл (подобно функции RЕN DOS).
OPEN Готовит файл или устройство к записи или чтению.
PRINT#, Записывает в файл сформатированную информацию.
PRINT# USING
PUT Записывает запись в файл с произвольным доступом.
PUT$ Записывает строку в файл в двоичном режиме.
RESET Закрывает и сбрасывает все дисковые файлы.
RSET Пересылает символьные данные в буфер файла с
произвольным доступом.
SEEK Устанавливает позицию в двоичном файле для GET$
и РUT$.
WRITE# Выводит данные в последовательный файл.
Управление_ходом_программы
CALL Вызывает процедуру, подпрограмму.
CALL ABSOLUTE Вызывает процедуру на языке ассемблер.
CALL INTERUPT Вызывает системное рперывание.
DEF FN/END DEF Определяет функцию.
DO/LOOP Строит цикл с проверкой вначале и/или в конце
END Завершает выполнение программы или определяет конец
структурного блока.
1
EXIT Преждевременный выход из структуры.
FOR/NEXT Задает цикл с автоматически возрастающим (или
уменьшающимся параметром цикла).
GOSUB Вызывает подпрограмму.
GOTO Направляет ход программы на оператор,
идентифицируемый меткой.
IF Проверяет условие и изменяет ход программы, если
условие выполнено.
IF BLOCK Создает последовательность операторов IF.
INLINE Объявляет встроенный машинный код.
RESUME Перезапускает выполнение программы после обработки
ошибки.
RETURN Возвращает управление из подпрограммы в вызывающую
программу.
SELECT Формирует оператор проверки общего назначения.
STOP Останавливает программу.
SUB/END SUB Определяет процедуру (подпрограмму).
WHILE/WEND Строит цикл с проверкой в начале.
Графика
CIRCLE Рисует круг или часть круга.
DRAW Изображает контур на графическом экране.
LINE Рисует прямую линию или прямоугольник.
PAINT Закрашивает замкнутую область на графическом экране
выбранным цветом.
PEEK Возвращает байт, записанный в заданную ячейку
памяти.
PEN (функция) Читает состояние светового пера.
PEN (оператор) Управляет проверкой событий, связанных со световым
пером.
PMAP Переводит физические координаты в пользовательские
и наоборот.
POINT Определяет цвет пиксела или информацию LPR.
POKE Записывает бай по заданному адресу.
PRESET Изображает точку на графическом экране.
PSET Изображает точку на графическом экране.
PUT Изображает на графическом экране содержимое
числового массива.
VIEW Определяет активную область (после изображения)
графического окна.
WINDOW Определяет графическую систему координат.
Аппаратные_события
ON COM (n) Создает подпрограмму обработки прерывания по
событиям последовательного порта.
ON ERROR Определяет процедуру обработки ошибки и включает
прерывания по ошибке.
ON /GOSUB Вызывает одну из нескольких возможных подпрограмм в
соответствии со значением числового выражения.
ON /GOTO Направляет ход программы по одному из нескольких
возможных адресов в зависимости от значения
числового выражения.
ON KEY(n) Объявляет подпрограмму обработки прерывания,
получающую управление при нажатии заданной клавиши.
ON PEN Объявляет подпрограмму обработки прерывания,
получающую управление, если начинается работа со
световым переом.
ON PLAY Объявляет подпрограмму обработки прерывания,
получающую управление, если буфер фоновой музыки
2
содержит меньше заданного количества нот.
ON STRIG Объявляет подпрограмму обработки прерывания,
связанных с кнопками джостика.
ON TIMER Объявляет подпрограмму обработки прерывания,
которая получает управление каждые n секунд.
STICK Возвращает информацию о позиции джостика.
STRIG (функция) Возвращает состояние кнопок джостика.
STRIG (оператор) Управляет проверкой событий, связанных с
кнопками джостика.
WAIT Ждет заданных условий состояния кнопок клавиатуры.
Ввод
INKEY$ Читает с клавиатуры.
INPUT Запрашивает у пользователя значения, которые будут
присвоены одной или нескольким переменным.
INPUT# Присваивает переменным данные из последовательного
файла.
INPUT$ Читает заданное число символов с клавиатуры или из
файла.
INSTAT Возвращает состояние клавиатуры.
LINE INPUT Считывает строку с клавиатуры в символьную
переменную, игнорируя разделители.
READ Загружает переменне константами из оператора DATA.
RESTORE Позволяет повторно читать константы оператора DATA.
Управление_клавиатурой
KEY Устанавливает и воспроизводит назначения
функциональных клавиш и определяет значения
прерываний по клавишам.
KEY (n) Включает и выключает прерывание по определенной
клавише.
Управление_памятью
CLEAR Очищает память переменных.
DEF SEG Определяет сегмент данных, который используется
операторами BLOAD, BSAVE, CALL ABSOLUTE, PEEK, POKE
END MEM Возвращает адрес конца физической памяти.
ERASE Удаляет динамические массивы и возвращает в
исходное состояние.
FRE Возвращает количество свободной памяти, которая
доступна вашей программе.
МEМSET Объявляет вурхнюю границу памяти.
POKE Записывает бай по заданному адресу.
VARPTR Возвращает адрес переменной.
VARPTR$ Возвращает указатель переменной в символьном
формате.
VARSEG Возвращает адрес сегмента переменной.
Меткаоператоры
$COM Размещает принимающий буфер последоватльного порта.
$DYNAMIC Объявляет динамическими массивы, размещение которых
выполняется по умолчанию.
$EVENT Управляет генерацией кода прерывания по событиям.
$IF/$ELSE/$ENDIF Определяет части исходной программы, которые
компилируются или пропускаются в зависимости от
условий.
$INCLUDE Включает текстовый файл.
$SEGMENT Объявляет новй сегмент кода.
$SOUND Объявляет емкость буфера фоновой музыки.
$STACK Задает размер стека для прогона программы.
3
$STATIC Объявляет статическими массивы, выполнение которых
выполняется по умолчанию.
Смешанные_команды
DATA Объявляет константы для оператора READ.
DELAY Устанавливает задержку.
REG Устанавливает или возвращает значение в регистровом
буфере.
SWAP Обменивает значение двух переменных.
Числовые_операции
ABS Возвращает абсолютное значение.
ASC Возвращает ASCII код первого символа строки.
ATN Возвращает значение тригонометрического арктангенса
CDBL Преобразует число в формат с двойной точностью.
CEIL Возвращает наименьшее целое, большее или равное
аргументу.
CINT Преобразует в целое.
CLNG Преобразует в длиное целое.
COS Возвращает значение тригонометрического косинуса.
CSGN Преобразует числовое выражение в эквивалентное ему
число.
CVI/CVL/CVS/CVD/ Преобразует символьные данные, прочитанные из
файла с произвольным доступом в числовую форму.
CVMD/CVMS Преобразует символьные переменные, прочитанные
из файла с произвольным доступом в формате Microsoft
числовую форму.
DECR Уменьшает значение переменной.
DEFINT/DELNG/ Объявляет тип идентификаторов переменных,
DEFSNG/DEFDBL/ установленный по умолчанию.
DEFSTR
EXP Возвращает e в степени Х.
EXP2 Возвращает 2 в степени Х.
EXP10 Возвращает 10 в степени Х.
FIX Округляет до целого.
INCR Увеличивает значение переменной.
INT Преобразует числовое выражение в целое.
LOG Возвращает значение натурального (по основанию e)
логарифма.
LOG2 Возвращает значение логарифма по основанию 2.
LOG10 Возвращает значение логарифма по основанию 10.
MKI$/MKL$/MKS$/ Преобразует числовые данные в (для
MKD$ файлов с произвольным доступом).
MKMD$/MKMS$ Преобразует числовые данные в формате Microsoft (для
файлов с произвольным доступом).
RANDOMIZE Устанавливает начальное значение для генератора
случайных чисел.
RND Возвращает случайное число.
SGN Возвращает знак числового выражения.
SIN Возвращает значение тригонометрического синуса.
SQRT Возвращает значение квадратного корня.
TAN Возвращает значение тригонометрического тангенса.
Вывод
PRINT Посылает данные на экран.
PRINT USING Посылает на экран сформатированную информацию.
SPC Пропускает n пробелов (используется в опреаторах
4
PRINT)
TAB Устанавливает табуляцию на заданную позицию вывода
n (используется в опреаторах PRINT).
WRITE Посылает на экран данные, разделенные запятыми.
Печатающее_устройство
LPOS Возвращает позицию курсора в буфере печатающего
устройства.
LPRINT/ Посылает данные на принтер.
LPRINT USING (LPT1:)
Экран
CLS Очищает экран
COLOR Задает цвет
COLOR Задает цвет для графических операций
CSR LIN Возвращает текущую вертикальную позицию курсора
(номер строки)
LOCATE Размещает курсор и/или определяет размер указателя
(курсора)
POS Возвращает текущую горизонтальную позицию курсора
(номер колонки )
SCREEN(файлы) Возвращает ASCII-код символа в заданной строке и
колонке
SCREEN(графика) Устанавливает режим изображения на экране
WIDTH Устанавливает логическую длину строки
Звук
PLAY(функция) Возвращает число нот в буфере фоновой музыки
PLAY(оператор) Возвращает число нот в буфере фоновой музыки
SOUND Генерирует тон заданной частоты и длительности
Символьные_операции
BIN$ Возвращает двоичный символьный эквивалент числа
CHR$ Преобразует ASCII код в односимвольную строку
GET$ Читает в символьном формате данные из файла,
открытого в режиме BINARY.
HEX$ Преобразует число в шестнадцатиричный символьный
эквивалент
INSTR Просматривает строки в поисках заданного шаблона
LCASE$ Возвращает строку, состоящую только из прописных
букв
LEFT$ Возвращает n самых левых символов в строке
LEN Возвращает длину строки
MID$ Возвращает символьную строку
MID$ Замещает символьную строку
OCT$ Возвращает строку, представляющую значение числа в
восьмеричном (по основанию 8) виде
RIGHT$ Возвращает n самых правых символов строки
SPACE$ Возвращает строку, состоящую из n пробелов
STR$ Возвращает символьный эквивалент числа
STRING$ Возвращает строку, состоящую из многократных копий
заданного символа
UCASE$ Возвращает строку, состоящую только из строчных
букв
VAL Возвращает числовой эквивалент строки
5
ПРИЛОЖЕНИЕ_I
Подготовка_к_работе_ТУРБО_БЕЙСИКА
Программа TBINST.COM позволяет
* задавать маршрут для файлов, выполняющих настройку, и файлов со
вспомогательной информацией (help)
* приспосабливать клавиатуру
* модифицировать режимы редактора, устанавливаемые по умолчанию
* настраивать режим работы с экраном по умолчанию.
Если вы хотите хранить файлы со вспомогательной информацией
(TBHELP.TBH) и/или файлы настройки (TBCONFIG.TB) не в том
каталоге, где хранится ТВ.ЕХЕ, а в другом, вам потребуется режим
работы с каталогами ТУРБО БЕЙСИКА для задания маршрута поиска этих
файлов.
Если вы не знакомы с редактором ТУРБО БЕЙСИКА или прикованы к
другому редактору, вы можете использовать режим "Команды
редактора" для того, чтобы переконфигурировать (приспособить) к
вашим привычкам клавиши редактора.
Для установки по умолчанию нескольких характеристик
редактора: режима вставки или перезаписи, табуляторов и
автоматического структурирования,- можно использовать вариант
"Default" (по умолчанию) в режиме редактирования.
И, наконец, можно устанавливать режим экрана, в котором будет
работать ТУРБО БЕЙСИК.
Запуск_TBINST
Для запуска программы введите на подсказку DOS TBINST. Первое
меню позволит выбрать: каталог ТУРБО БЕЙСИК, команды редактора,
режимы редактирования по умолчанию, режимы работы экрана или
выход. Вы можете либо нажать высвеченную заглавную букву
выбранного режима, либо использовать стрелки вверх или вниз для
перемещения указателя к выбранному пункту и нажать Enter. Нажмите,
например, D для того, чтобы изменить режимы редактирования по
умолчанию. Нажатие клавиши Esc вернет вас в основное меню
программы TBINST.
Режим_"Каталог_ТУРБО_БЕЙСИКА
Режим "Каталог ТУРБО БЕЙСИКА" полезен, в действительности,
только пользователям, работающим с жестким диском. Этот режим
используется для задания маршрута к конфигурационным файлам с тем,
чтобы они были доступны всякий раз при вызове ТУРБО БЕЙСИКА
(предполагается, что вы задали оператор маршрута для ТБ).
После выбора режима "Каталог ТБ", появляется подсказака на
ввод полного маршрута к каталогу ТУРБО (т.е. каталога, в котором
хранятся ваши конфигурационные файлы; см. в гл.3 описание режима
Directories в спускающемся меню SETUP). Например, если вы хотите
хранитьконфигурационные файлы в подкаталоге с продуктами Борланда,
вы должны в качестве маршрута указать:
C:\BORLAND\BASIC
После ввода маршрута нажмите Enter для приема ответа, и вам
будет вновь предложено меню. При выходе из программы вы получите
запрос о том, сохранить ли сделанные изменения. Если вы захотите
сохранить маршрут, о
9
ПРИЛОЖЕНИЕ А
---------------------------------------------------------
Обсуждение работы с числами
---------------------------
В процессе выполнения программы ТУРБО БЕЙСИКу
приходится иногда преобразовывать внутренние
представления числовых значений из одной формы в другую;
например, число с одинарной точностью в целое:
А=14.1
В%=А
В таких случаях ТУРБО БЕЙСИК решает, как быть с излишней
или недостающей точностью. Следующие правила управляют
преобразованием числовых типов:
В операторе присваивания число запоминается с
точностью, соответствующей точности переменной, которой
оно присваивается (т.е. переменной, стоящей слева от
знака равенства). Например:
В=1.1
А%=В
PRINT A%
Во всех случаях, когда значение с большей точностью
присваивается переменной с меньшей точностью, выполняется
округление. Например:
A%=1.5
B=123.456789
PRINT A%,B
Обратите, однако, внимание, что ТУРБО БЕЙСИК особым
образом рассматривает любые числа, содержащие 5 в дробной
части: такое число всегда округляется до ближайшего
четного числа. Например, 0.5 округлится в сторону
меньшего - до 0, 9.005 также округлится в сторону
меньшего - до 9.000.
Если число с меньшей точностью преобразуется в число
с большей точностью, результирующее значение не может
быть более точным, чем исходное. После присваивания,
приведенного в следующем примере, значимыми являются
только 6 цифр переменной B#:
A=123.456
B#=A
PRINT B#
При вычислении числового выражения ТУРБО БЕЙСИК
преобразует все операнды выражения в соответствии с
наиболее точным из них. Например:
A=1.1: B#=1.123456
C=A*B#
PRINT A*B#,C
Обратите внимание, что для выражений, содержащих операнды
и с одинарной, и сдвойной точностью, точность результата
будет одинарной.
Файлы произвольного доступа,
----------------------------
содержащие данные с плавающей запятой.
--------------------------------------
Поскольку Интерпретатор БЕЙСИК использует
нестандартный формат Microsoft для чисел с плавающей
запятой, в программах на ТУРБО БЕЙСИКе должны выполняться
специальные преобразования для чтения и записи данных в
файлы с произвольным доступом, созданные Интерпретатором
БЕЙСИКа. Функции MKMS$ и MKMD$ (make Microsoft) создают
числовые строки в формате Microsoft; CVMS и CVMD (convert
Microsoft) обрабатывают числовые строки в формате
Microsoft и возвращают числовые данные в формате ТУРБО
БЕЙСИКа.
Внутреннее представление четырех типов чисел.
---------------------------------------------
-----------------T-------------------¬
¦ байт 0 ¦ байт 1 ¦
------------------T+----------------+-------------------+
¦Шестнадцатеричное¦ 13h ¦ 02h ¦
+-----------------+-----------------+-------------------+
¦Двоичное ¦ 00010011 ¦ 00000010 ¦
L-----------------¦-----------------+--------------------
Дополнительный код в двоичной системе означеет, что все
биты меняют значения на противоположные и к результату
добавляется 1.
Длинные целые представляются в виде 32-битовых
(4-байтовых) чисел со знаками. Отрицательные числа хра-
нятся в дополнительном коде. Наименее значимое слово за-
писывается первым (по младшему адресу), а наименее значи-
мый байт каждого слова располагается до более значимого.
Например, десятичное число 79033 равно 000134B9H и
записывается в виде последовательности байтов B9H 34H 01H
и 00H:
-----------------T-------------------¬
¦байт 0 I байт 1 ¦ байт 2 I байт 3 ¦
------------------T+----------------+-------------------+
¦Шестнадцатеричное¦ B9 I 34 ¦ 01 I 00 ¦
+-----------------+-----------------+-------------------+
¦Двоичное ¦10111001 00110100I 00000001 00000000 ¦
L-----------------¦-----------------+--------------------
А десятичное число -79033 равно дополнению к 00013469H -
FFFECB47H и хранится в виде последовательности байтов 47
CB FE FF.
Компьютеры и множество вещественных чисел.
------------------------------------------
Множество вещественных чисел включает и бесконечно
большие и бесконечно малые числа. В дополнение к минус и
плюс бесконечности, между любыми двумя точками на число-
вой прямой имеется бесконечное число точек (чисел). Так,
например, между 17,1 и 17,11 находятся точки 17,101;
17,104; 17,1041 и т. д.
Будучи конечными автоматами, компьютеры не могут точ-
но представлять это трансцендентное множество чисел, од-
нако, они могут представлять их приближенные значения.
Компромисс между качеством аппроксимации (т. е. точности)
с одной стороны, и скоростью вычислений и потребностью в
памяти, с другой, привели к созданию двух наиболее попу-
лярных способов представления множества вещественных чи-
сел: числа с одинарной точностью и числа с двойной точ-
ностью.
Обе эти модели отображают конечное, но практически
очень большое множество дискретных значений на значитель-
ном отрезке вещественной числовой прямой. Между смежными
значениями на ней имеются промежутки. Если при вычислени-
ии результат попадает в промежуток, выполняется округле-
ние до ближайшей представимой точки.
Плотность представимых значений распределена неодина-
ково вдоль числовой прямой. Равное количество
представимых чисел находится между целыми степенями двой-
ки. Например, между 1 и 2 столько же представимых чисел,
сколько и между 131072 и 262144. Другими словами, проме-
жутки между представимыми значениями становятся больше
при движении в любом направлении от нуля на числовой пря-
мой. Наконец, вы заберетесь так далеко от нуля, что там
не останется представимых точек. Использование чисел вне
представимых значений в любом направлении числовой прямой
приводит к переполнению.
Переполнение и потеря значимости
--------------------------------
Переполнение числа с плавающей точкой возникает в тех
случаях, когда результат вычислений больше максимального
представимого положительного значения или меньше макси-
мального отрицательного числа. В силу обширности диапазо-
на значений, допустимых в ТУРБО БЕЙСИКЕ, переполнение
числа с плавающей точкой является нетипичной ситуацией. В
отличие от переполнения целого числа, переполнение числа
с плавающей точкой всегда регистрируется.
Потеря значимости числа с плавающей точкой возникает
в случаях, когда результат вычислений попадает в крошеч-
ный интервал между 0 и первым представимым отрицательным
или положительным числом на одном из лучей числовой пря-
мой. Математические подпрограммы ТУРБО БЕЙСИКА обрабаты-
вают подобные ситуации присвоением 0 величине, у которой
произошла потеря значимости, и продолжают выполнение
программы без вывода сообщения об ошибке.
Числа с плавающей запятой одинарной точности
--------------------------------------------
Числа с одинарной точностью в ТУРБО БЕЙСИКЕ соответс-
твуют коротким вещественным значениям, принятым в стан-
дарте IEEE. В этом формате число записывается в 4 байтах
памяти с точностью от 6 до 7 десятичных знаков и может
иметь значение в приближенном диапазоне:
8,43*10**(-37)<=IXI<=3,37*10**38
Числа с одинарной точностью состоят из 23-битовой
нормализованной мантиссы, 8-битового показателя степени
со смещением 7FH и знакового бита, размещенных так, как
показано на рисунке А-1. (Смещение относится к разности
между беззнаеовым целым, записываемым в поле показателя
степени числа с плавающей точкой, и непосредственно пока-
зателем степени, который это целое представляет.)
---------------------------------------------------------
I Растущая значимость I
I I
I Целое --------------------- I
I I I I I
I I S I величина I дополнение до двух I
I I I I I
I --------------------- I
I 15 0 I
I I
I I
I Длинное ------------------------------- I
I целое I I I I
I I S I величина I дополнение I
I I I I до двух I
I ------------------------------- I
I 31 0 I
I I
I I
IОдинарное------------------------------- I
I вещест- I Iсмещенный I I I
I венное I S IпоказательI мантисса I I
I I Iстепени I I I
I ------------------------------- I
I 31 23 I 0 I
I I
I I
I Двойное -------------------------------------------- I
I вещест- I I смещенный I I I
I венное I S I показатель I мантисса I I
I I I степени I I I
I -------------------------------------------- I
I 63 52 I 0 I
I I
I Замечания I
I I
I S - знаковый бит (0 - положительное число, 1 - отри-I
I цательное) I
I D - десятичная цифра (2 на байт) I
I X - биты, не имеющие значения: 80287 игнорирует их I
I при загрузке, заносит нули при записи I
I I - целый бит значимости, хранится во временных I
I вещественных числах, всегда равен 1 в коротких I
I и длинных целых I
I I
I Смещенный показатель степени I
I ( нормализованное значение ) I
I Короткое вещественное: 127 (7FH) I
I Длинное вещественное: 1023 (3FFH) I
I Временное вещественное: 16383 (3FFFH) I
I I
I-------------------------------------------------------I
Рисунок А-1. Форматы данных
Числа с плавающей запятой с двойной точностью
---------------------------------------------
Вещественные числа с двойной точностью, используемые в
ТУРБО БЕЙСИКЕ, соответствуют длинным вещественным числам
в стандарте IEEE. В этом формате число записывается в 8
байтах памяти с точностью от 15 до 16 десятичных цифр и
может иметь значение в приближенном диапазоне:
4,19*10**(-37)<=IXI<=1,67*10**308
Значения с двойной точностью состоят из 52-битовой
нормализованной мантиссы, 11-битового показателя степени
со смещением 3FFH и знакового бита, размещенных как пока-
зано на рисунке А-1.
Далее приводится программа,демонстрирующая внутренний
форматпредставления числа с одинарной точностью в ТУРБО
БЕЙСИКЕ:
а1=167.25
address=VARPTR(a)
FOR n=0 TO 3
byteval=PEEK(address+n)
PRINT HEX$(byteval)
NEXT n
Давайте расшифруем полученные четыре байтовых значения,
представляющие число 167,25 с одинарной точностью. Сначала
перезапишем так, что наиболее значимый байт будет следовать
первым:
43 27 40 00
Теперь представим в двоичном виде:
-----------------------------------------
шестнадцатеричное I 4 I 3 I 2 I 7 I 4 I 0 I 0 I 0 I
-----------------------------------------
двоичное I0100I0011I0010I0111I0100I0000I0000I0000I
-----------------------------------------
Выделим знаковый бит, показатель степени и мантиссу:
--------------------------------------------------
двоичное I 0 I 10000110 I 01001110100000000000000 I
--------------------------------------------------
Вычтем смещение 7FH из показателя степени:
86H-7FH=7 - получим истинное двоичное значение
показателя степени.
Нормализованная мантисса имеет подразумеваемые 1 и дво-
ичную точку с левого края, так что в действительности значение
мантиссы равно:
1 010 011 101 000 000 000 000 00
Перемещение двоичной точки на семь знаков с учетом пока-
зателя степени приводит к результату:
10 100 111. 010 000 000 000 000 0=167725
ПРИЛОЖЕНИЕ В
------------------------------------------------------------
Прерывания по событиям
----------------------
ТУРБО БЕЙСИК поддерживает возможность фоновой обработки, из-
вестной как прерывания при возникновении событий, которые могут
одновременно и упростить и ускорить отдельные операции. Прерыва-
ние по событию означает, что проверку различных событий, таких
как нажатие определенной клавиши, выполняет сам ТУРБО БЕЙСИК, и
нет необходимости писать операторы, чтобы делать это самостоя-
тельно. ТУРБО БЕЙСИК может выполнять такую проверку между каждыми
двумя операторами вашей программы и гарантирует при этом наиболее
быстрый возможный ответ. Когда событие наступает, автоматически
вызывается подпрограмма, которую вы задали для обработки прерыва-
ния.
Проверяться могут следующие типы событий:
- Клавишные: была ли нажата клавиша F10? Или пробел? Или клавиша
SHIFT- ALT-K? Можно определить прерывания для 20 различных клавиш
одновременно.
- Состояние таймера, работающего в режиме вычитания - управление
передаётся подпрограмме обработки прерывания по истечении n секунд,
например, для обновления экранного времени каждые 60 секунд.
- Нажатие кнопки джостика.
- Действия светового пера.
- Состояние буфера фоновой музыки (проверка необходимости загрузки
в буфер дополнительного количества нот).
Вы можете получить краткое описание событий, вызывающих и не
вызывающих прерывание, просмотрев в главе 5 "Справочное руководс-
тво по ТУРБО БЕЙСИКУ" данного пособия разделы на букву "О". Боль-
шинство операторов "ON что-либо GOSUB" управляют прерываниями,
связанными с событиями.
Нет нужды специальным образом сообщать ТУРБО БЕЙСИКУ о необ-
ходимости генерации кода обработки прерывания по событиям. Его
автоматически генерирует компилятор всякий раз, когда встречает
любые инструкции, связанные с прерываниями.
ПРИМЕР
------------------------------------------------------------
Представьте программу ведения учета с дюжиной меню для выбора
варианта работы с большим количеством выводимых экранов. Как ав-
тор столь сложной прикладной системы, вы можете пожелать включе-
ния вспомогательных экранов, содержащих основную информацию о её
использовании, такую, как например, описание комбинаций клавиш,
необходимых для редактирования полей данных или преждевременной
отмены выбранного пункта меню. Для простоты рассмотрим систему
вызова вспомогательной информации, не являющейся контексо-зависи-
мой, т.е. независимо от того, в каком месте программы в момент
запроса вспомогательной информации находится пользователь выво-
дится всегда один и тот же текст.
Пусть F1 - клавиша вызова вспомогательной информации. Другими
словами, когда бы ни была нажата клавиша F1, независимо от теку-
щего контекста на экран будет выведена вспомогательная информа-
ция.
Возможность прерывания при возникновении событий в ТУРБО БЕЙ-
СИКЕ позволяет кодировать "вывод вспомогательной информации" в
одном месте программы, а затем вызывать его без лишних усилий в
любом ее месте. Если бы возможности обработки событий не было,
приходилось бы проверять состояние клавиши F1 ( с помощью перехо-
да GOSUB на вспомогательную подпрограмму) в каждом месте програм-
мы, где пользователь может на некоторое время задержаться.
Во-первых, поскольку дело касается клавишного прерывания ( а
не прерывания по джостику или световому перу), следует с помощью
оператора ON KEY(n) определить подпрограмму, которая получит уп-
равление при нажатии клавиши F1:
ON KEY(1) GOSUB DispHelpText
В этой строке определяется, что когда прерывание по клавише
включено, между каждыми двумя операторами выполняется проверка:
была ли нажата клавиша F1. Если была, вызывается подпрограмма
DispHelpText; если не была, выполняется следующий оператор.
Подпрограмма DispHelpText есть ни что иное, как последова-
тельность операто ров PRINT. Поскольку выполнение прерванной прг-
раммы при этом не должно быть нарушено, подпрограмма сохраняет
текущую позицию курсора, а затем после завершения вывода на эк-
ран, восстанавливает её. Вспомогательная информация воспроизво-
дится в четырех нижних строках экрана, где по соглашению ничто
больше не выводится.
DispHelpText:
oldcsrx=pos(0): oldcsry=CSRLIN
LOCATE 22,1
PRINT "Эта программа была выпущена в эксплуатацию вместе с"
PRINT "замечательным дорогостоящим руководством, тщательно"
PRINT "подготовленным профессиональными писателями. Оно "
PRINT "содержит больше информации, чем вам когда-либо "
PRINT "понадобится. Используйте его. Нажмите пробел, чтобы"
PRINT "продолжить." dummy$
LOCATE 22,1: PRINT SPACE$(320)
LOCATE oldcsrx, oldcsry
RETURN
Теперь, когда подпрограмма обработки прерывания (код, на ко-
торый будет передано управление при нажатии клавиши F1) объявле-
на, включите обработку прерывания с помощью оператора KEY(n)
KEY(10) ON
После выполнения этого оператора, ТУРБО БЕЙСИК переходит в
режим проверки событий. Перед выполнением каждого следующего опе-
ратора, он производит быструю проверку того, была ли нажата клави-
ша F1. Если не была, выполняется следующий оператор. Если клавиша
F1 была нажата, вызывается подпрограмма DispHelpText. После возв-
рата из неё с помощью оператора RETURN, управление передается сле-
дующему оператору в прерванной последовательности.
Когда возникает прерывание, связанное с натуплением заданного
события выполняется неявный оператор "остановки прерываний" для
того, чтобы избежать повторных вызовов подпрограммы обработки пре-
рываний из нее самой (и переполнения таким образом стека). Завер-
шающий подпрограмму оператор RETURN автоматически выполняет неяв-
ный оператор "включения прерывания"Б если только в подпрограмме
явно не содержится оператор "отключить прерывание". Вы можете за-
менить слова PEN, PLAY, KEY, STRIG, TIMER и COM словом "прерыва-
ние".
Настройка прерываний при наступлении события.
---------------------------------------------
Прерывание при наступлении заданных событий - это мощное
средство, но оно имеет цену. Поскольку между выполнением каждых
двух операторов вашей программы производится проверка события
(или событий), ее работа замедляется, что, в зависимости от кон-
кретных приложений, может привести к недопустимо маленькой ско-
рости. Кроме того, компиллятор для программы, связанной с преры-
ваниями по событиям, генерирует более длинный код (1 дополни-
тельный байт на каждый оператор), чем для программы, не связан-
ной с ними.
Для управления генерацией кода проверки событий в ТУРБО
БЕЙСИКЕ служит метаоператор $EVENT. В программах, которые обра-
батывают прерывания по событиям в отдельных частях программы,
следует использовать метаоператор $EVENT. $EVENT OFF отменяет
генерацию кода проверки событий до тех пор, пока не будет выпол-
нен метаоператор
$EVENT ON.
Для иллюстрации, рассмотрим подпрограмму сортировки в прог-
рамме ведения учета, упомянутой ранее. Сортировки работают мед-
ленно, даже без остановки после выполнения каждого оператора,
чтобы проверить, была ли нажата клавиша F1. Более того, так как
сортировка не требует ввода от пользователя, какой смысл в выво-
де на экран вспомогательной информации?
Решение состоит в том, чтобы заключить подпрограмму между
метаоператорами $EVENT:
ON KEY(1) GOSUB DispHelpText
KEY(1) ON
.
. тело основной программы...
.
$EVENT OFF
Sortroutine:
.
. здесь код проверки событий не генериуется;
. это экономит время и память.
.
EndSortroutine:
$EVENT ON
.
. остальная часть программы
.
END
Существует значительная разница между $EVENT и отключением
прерывания с помощью оператора KEY(10) OFF, обычно используемым
в Интерпретаторе БЕЙСИКА. Дело в том, что KEY(10) OFF - это ди-
намический оператор (т.е. он выполняется во время прогона прог-
раммы), который отключает реакцию на нажатие клавишы F1, но не
отключает выполнения проверок, с соответствующими затратами вре-
мени. Они участвуют в ходе работы программы, так как код провер-
ки вставляется между каждыми двумя операторами. Тогда как $EVENT
- оператор, выполняющийся на этапе компиляции, который управляет
тем, будет ли компилятор генерировать код проверки события.
Для отмены генерации кода проверки событий в части програм-
мы используется метаоператор $EVENT OFF. В этом случае выполне-
ние оператора KEY(1) ON не вызывает никакого действия.
ПРИЛОЖЕНИЕ C
------------------------------------------------------------
Интерфейс с языком ассемблера
---------------------------------------
При разработке некоторых прикладных систем может возник-
нуть задача, которая либо слишком долго решается в ТУРБО БЕЙСИ-
КЕ, либо по каким-то причинам вообще не может быть реализована
на нем. Для того, чтобы обеспечить потребность в большей скорос-
ти и гибкости, ТУРБО БЕЙСИК позволяет программе вызывать подп-
рограммы, написанные на ассемблере и обращаться к функциям DOS и
BIOS.
В ТУРБО БЕЙСИКЕ имеются три формы оператора CALL:
1) Вызов процедуры (CALL). Процедурв может быть написана на
на ТУРБО БЕЙСИКЕ или является встроенной (ONLINE) процедурой,
написанной на языке ассемеблера. Встроенное ассмеблирование яв-
ляется наиболее мощной формой интерфейса с ассмеблером.
2) Вызов подпрограммы по абсолютному адресу (CALL
ABSOLUTE). Подпрограмма, написанная на ассмеблере, уже должна
быть загружена в память. Эта возможность реализована для обеспе-
чения максимальной совместимости с Интерпретатором БЕЙСИКА.
3) Вызов подпрограммы обработки программного прерывания
CALL INTERRUPT, в соответствии со значением вектора программных
прерываний. Вызывает подпрограмму и обычно применяется для ис-
пользования служебных операций DOS и DIOS.
В главе 5 "Справочное руководство по ТУРБО БЕЙСИКУ" описаны
в деталях операторы ТУРБО БЕЙСИКА CALL и SUB. В этом приложении,
мы рассмотрим аспекты CALL и SUB, касающиеся ассемблера.
Обратите внимание, что средства интерфейса с подпрограммами
на ассемблере трудны для понимания в силу сложности самого про-
цесса связи. Прежде, чем приступить к изучению тогоБ что изложе-
но в данном приложении, следует ознакомиться с основными положе-
ниями языка ассемблер.
Оператор CALL ABSOLUTE
------------------------------------------------
Выполнение оператора CALL ABSOLUTE в программе на ТУРБО
БЕЙСИКЕ вызывает подпрограмму на ассемблере, предварительно заг-
руженную оператором BLOAD или являющуюся частью пространства
данных программы.
В примере:
DEF SEG=$H5000
MyAsmSub%=&H4000
CALL ABSOLUTE MyAsmSub%
вызывается ассемблерная процедура, расположенная в сегменте 5000H
(20480 - десятичный адрес) со смещением 4000H (16384 десятичное).
Адрес обычни указывается в виде сегмент:смещение, т. е. 5000:4000.
Синтаксис оператора CALL ABSOLUTE:
CALL ABSOLUTE <числовой-идентификатор>[(список-параметров)]
где числовой-идентификатор - это числовая скалярная переменная,
которая находится в диапазоне от -32768 до 65535. Если числовой
идентификатор отрицателен, он преобразуется в положительное чис-
ло путем дополнения до 2. Он задает смещение и используется в
совокупности с адресом сегмента, установленным в последнем опе-
раторе DEF SEG, для задания вызываемого 32-битового абсолютного
адреса. Если вы хотите использовать выражение для задания адре-
са, вам следует присвоить его числовому идентификатору, а затем
указать идентификатор в операторе CALL.
В качестве необязательных параметров могут задаваться только
короткие целые скалярные переменные. Параметры передаются по адресу
с помощью 16-битовых указателей, размещенных в стеке слева направо.
Сами параметры располагаются в главном сегменте данных, на который
указывает DATA SEGMENT(DS).
Эта форма оператора CALL допускает минимальную совмести-
мость с интерпретатором БУЙСИКА. ТУРБО БЕЙСИК располагает более
мощной возможностью вызова встроенных процедур (SUB INLINE) для
обеспечения полного доступа к хранилищам данных.
После завершения требуемых действий, ассмеблерные процедуры
должны выполнить межсегментный (дальний) возврат (RETURN) в ТУР-
БО БЕЙСИК. Выполнение программы затем продолжается с оператора,
следующего за вызовом CALL.
Заботиться о сохранении регистров сегмента данных (DS),
указателя базы (BP), сегметна стека (SS) и указателя стека (SP)
должен сам программист.
Оператор CALL INTERRUPT
------------------------
Оператор CALL INTERRUPT использует значения вектора преры-
ваний для входа в подпрограмму на ассмеблере. Обычно эта форма
CALL используется для вызова подпрограмм обработки прерываний
DOS и BIOS, но может употребляться и для вызова определенных
пользователем программных обработчиков прерываний.
Синтаксис оператора CALL INTERRUPT:
CALL INTERRUPT <целое-выражение>
где целое выражение должно быть в пределах от 0 до 255.
Перед вызовом подпрограммы обработки прерывания следует,
пользуясь оператором REG, установить значения соответствующих
регистров. Доступ к результатам, записанным в регистрах и сохра-
няемых компилятором, может быть осуществлен с помощью функции
REG.
После выполнения нужной операции ассемблерная процедура
должна выполнить возврат (RETURN) из прерывания (IRET) в ТУРБО
БЕЙСИК. Затем продолжается выполнение следующего за вызовом CALL
оператора.
Заботиться о сохранении регистров сегмента данных (DS),
указателя базы (BP), сегметна стека (SS) и указателя стека (SP)
должен сам программист.
Регистровый буфер
_________________
Оператор CALL INTERRUPT использует для передачи из и в
программу на ассмеблере регистровый буфер. Он представляет собой
последовательность 16- битовых целых чисел, соответствующих зна-
чениям процессорных регистров непосредственно до и после выпол-
нения оператора CALL INTERRUPT.
Оператор REG сохраняет содержимое 16-битовой целой перемен-
ной в указанном регистре, в соответствии с заданным числовым ар-
гументом (от 0 до 9).
Функция REG возвращает 16-битовое содержимое заданного ре-
гистра, определяемого в соответствии со значением числового ар-
гумента (от 0 до 9). Связь между аргументами и действительными
процессорными регистрами приведена в следующей таблице:
-------------------------------------------
I Номер I Регистр I
-------------------------------------------
I 0 I Флаги I
I 1 I AX I
I 2 I BX I
I 3 I CX I
I 4 I DX I
I 5 I SI I
I 6 I DI I
I 7 I BP I
I 8 I DS I
I 9 I ES I
I------------------------------------------
Для того, чтобы установить значение в регистровом буфере,
пользуйтесь оператором REG, например:
REG 5,&H8000
загружает 16-ричное значение 8000H в регистр SI буфера.
Обратите внимание, что REG не производит непосредственной
записи или чтения процессорного регистра - REG читает или запи-
сывает в промежуточный буфер.
Для чтения элемента из регистрового буфера пользуйтесь фун-
кцией REG, например:
y%=REG(1)
загружает в целую переменную y% содержимое из дубликата регистра
AX.
И вновь, заметьте, что значение регистрового буфера загру-
жается в процессорные регистры с началом выполнения оператора
CALL INTERRUPT и копируется из процессора после возврата из выз-
ванной подпрограммы.
О вызовах функций DOS и BIOS
----------------------------
Прерывание 10H - 1FH являются обращениями к BIOS и выполня-
ют различные служебные функции. (Для более детальной информации
см. "Техническое справочное руководство по DOS IBM".)
Прерывание 21H (33 десятичное) представляет особый интерес
по сравнению с остальными номерами прерываний, так как оно явля-
ется главным способом обращения к DOS.
Запрос на прерывание по-
мещается в наиболее значимый байт регистра AX (AH), а дополни-
тельные, при необходимости, размещаются в других регистрах. DOS
предоставляет множество полезных функций, доступ к которым может
быть осуществлен с помощью описанного выше способа.
В качестве примера рассмотрим функцию FNFreeSpace, опреде-
ляющую количество пустого дискового пространства.
DEF FNFreeSPACE (drive%) 'Функция DOS 36H возвращает число
'свободных кластеров на выбранном
'устройстве: 0=устройство по умолчанию,
'1=А,2=В и т.д.
REG 4,drive%
REG 1,&H3600
CALL INTERRUPT &H21
'своб. пространство = доступные кластеры * байт/сектор *
'сектор/кластер = BC*CX*AX
FNFreeSpace = CSNG(REG(2))*REG(3)*REG(1)
END DEF
Определенная в одном месте программы, функция FNFreeSpace
может быть вызвана в любом другом, также как и все остальные
функции.
Использование CALL вместе с INLINE
----------------------------------
Встроенные процедуры на ассмеблере и обычные процедуры на
ТУРБО БЕЙСИКЕ используют одну и ту же вызывающую последователь-
ность. Изменяется определение процедуры SUB при задании программ
на языке ассмеблера. Встроенные процедуры - наиболее мощный ре-
жим использования ассмеблера в ТУРБО БЕЙСИКЕ.
Синтаксис:
CALL <имя процедуры> [(список параметров)]
Синтаксис:
SUB <имя процедуры> INLINE
$INLINE <список-байтов>
$INLINE <имя-файла-COM>
END SUB
Может быть задано произвольное количество операторов
$INLINE в любом порядке. Единственное ограничение - количество
файлов COM в одной процедуре не должно быть больше 16.
Список-байтов состоит из констант или выражений, значения
которых находятся в диапазоне от 0 до 255, разделенных запятыми.
Обычно для каждого байта задается 16-ричная константа
($H4C,$H90).
Команды возврата недопустимы ни в ассемблерном коде, ни в
конце процедуры SUB. За этим автоматически следит компилятор.
Если необходимо выйти из процедуры до ее завершения, следует вы-
полнить переход на ассемблерную метку в конце встроенного кода.
Обратите внимание, что в определении SUB список параметров
не задается.
Заботиться о сохранении регистров сегмента данных (DS),
указателя базы (BP), сегметна стека (SS) и указателя стека (SP)
должен сам программист.
Передача параметров встроенным процедурам
-----------------------------------------
Параметры в качестве 32-битовых указателей элементов данных
(за исключением массивов) помещаются в стек в порядке слева нап-
раво.
Передача числовых переменных
----------------------------
Для числовых переменных (целых и с плавающей запятой) пере-
дается 32-битовый указатель данных (см. Приложение А "Обсуждение
работы с числами" описание числовых форматов.)
Передача символьных данных
--------------------------
Для символьных параметров (за исключением массивов) переда-
ется 32-битовый указатель на 4-байтовый дескриптор строки. В
первых двух байтах дескриптора содержится длина строки. Следую-
щие два байта содержат смещение символьных данных в сегменте
символьных данных.
Замечание. Старший бит байтов, указывающих длину строки,
использовать не следует, он зарезервирован и может быть в даль-
нейшем задействован. Прежде, чем использовать значение длины,
нужно исключить старший бит с помощью логической операции "И".
Нельзя, однако, изменять значение в памяти. Можно изменять байты
в строке символов, но не следует менять длину строки. Для полу-
чения указателя символьного сегмента используйте первое слово
сегмента данных, определенного по умолчанию. Дескриптор строки
имеет следующий формат:
Байты 0,1: Длина строки (старший бит зарезервирован)
2,3: Смещение данных в символьном сегменте.
Передача массивов
-----------------
Когда параметрами являются массивы, дескриптор массива, длина
которого 60 байтов, помещается в стек. Дескриптор массива имеет
следующий формат:
Байты 0,1: Адрес сегмента данных массива. Первый элемент
массива начинается со смещения 0. Для динамических
массивов он содержит 0 до тех пор, пока не уста-
новлена размерность массива.
2: Описывает тип элементов массива
0 = целый
2 = длинный целый
4 = с плавающей запятой одинарной точности
6 = с плавающей запятой двойной точности
8 = зарезервирован
10 = символьный
3: Количество индексов
4,5: Число элементов массива
6,7: Длина элементов массива
2 байта = целый
4 байта = длинный целый
4 байта = с плавающей запятой одинарной точности
8 байтов = с плавающей запятой двойной точности
4 байта = символьный дескриптор
8,9: Нижняя граница правого индекса массива
10,11: Верхняя граница правого индекса массива
Следующие 6 байтов повторяются для 8 размерностей (индексов)
Байты 12,13 зарезервированы
14,15 нижняя граница следующего индекса массива
16,17 верхняя граница следующего индекса массива
Передача результатов выражений
------------------------------
Процедурам на ассмеблере можно передавать значения выраже-
ний, однако нельзя гарантировать числовой тип результата его вы-
числения. Мы советуем присваивать значение выражения переменной
и затем передавать переменную.
Передача констант
-----------------
Процедурам на ассмеблере можно передавать константы, но не-
обходимо явно указать их числовой тип. Используйте для этого
идентификаторы типов после значения константы.
Создание файла INLINE.COM
-------------------------
Для создания файла можно использовать отладчик или макроас-
семблер. Находясь в отладчике, можно выполнить команду А (ассем-
блировать) для ввода с клавиатуры операторов, написанных на язы-
ке ассемблер, команду N (имя) для задания имени файла и команду
W (запись) для записи файла на диск.
При использовании макроассмеблера необходимо четыре прог-
раммы: редактор, макроассемблер, компоновщик и программа, назы-
ваемая EXE2BIN. Сначала наберите в редакторе текст вашей прог-
раммы на ассемблере. Затем запустите макроассмеблер для того,
чтобы получить объектный файл вашей программы. Далее, с помощью
компоновщика создайте выполняемый файл. И, наконец, используйте
EXE2BIN для преобразования выполняемого файла в файл типа .COM.
На рисунке С-1 изображен простой пример распределения памяти
во время выполнения:
0000:0000 -------------------------------
I I
I DOS I
I I
-------------------------------
I Другие резидентные I (SideKick и т.д.
I программы I
I I
-------------------------------
I ТУРБО БЕЙСИК I
I Система выполнения I
I Область данных I
I Рабочий стек I FRE (-2)
-------------------------------
I Область пользовательских I От 16 до 64К
I программ I Сегменты
I I пользовательских
I I кодов
-------------------------------
I Скалярный сегмент I
I Набор констант I
I Скалярные переменные I
I Символьные дескрипторы I
I Дескрипторы массивов I
------------------------------- YYYY:FFFF
I Пространство для I переменный
I массивов I FRE (-1) размер
XXXX:0000 -------------------------------
I Символьный сегмент I FRE ($$)
I I
XXXX:FFFF -------------------------------
I Свободное пространство I MEMSET
I I
-------------------------------
A000:FFFF I I
-------------------------------
Рисунок С -1 Карта распределения памяти в
момент выполнения программы
ПРИЛОЖЕНИЕ D
-----------------------------------------------------------------
Сравнение ТУРБО БЕЙСИКА и ИНТЕРПРЕТАТОРА БЕЙСИКА
------------------------------------------------
Между ТУРБО БЕЙСИКОМ и ИНТЕРПРЕТАТОРОМ БЕЙСИКА имеются три
основные отличия:
1. Компилятор против интерпретатора
2. Расширение языка БЕЙСИК в ТУРБО БЕЙСИКЕ
3. Реализация компилятора
Каждое из этих основных отличий определяет связанные с ним
более мелкие различающиеся детали в двух реализациях БЕЙСИКА. Их
мы рассмотрим ниже.
Компилятор против интерпретатора
--------------------------------
Интерпретаторы имеют тенденцию затуманивать различия между
командами для создания программ и командами, используемыми в про-
грамма; другими словами, между системой сопровождения программ и
самим языком. Так, например, EDIT и AUTO не составляют часть язы-
ка в том смысле, в каком ими являются GOSUB и PRINT.
Интерпретаторы выполняют программный код в заданном порядке.
Компиляторы, напротив, сначала просматривают исходные операторы,
затем генерируют выполняемый код для исходного текста. Последнее
свойство позволяет ТУРБО БЕЙСИКУ, как компилятору выявлять ошибки
в ветвях программы, которые никогда не будут выполняться ИНТЕР-
ПРЕТАТОРОМ БЕЙСИКА. В следующем примере, выполняемом в Интерпре-
таторе, если X не будет равно 3 перед выполнением строки 20, опера-
торы, следующие за THEN никогда выполняться не будут:
10 X=5
20 IF X=3 THEN GOTO 30: X=10: Z="ААА"
При этом синтаксическая ошибка присвоения числовой переменной сим-
вольного значения обнаружена не будет. Кроме того, операторы Х=10
и Z="ААА" никогда не будут выполняться, так как при Х=3 будет осу-
ществлен переход GOTO на строку 30. Компилятор во время компиляции
пометит любой "тупиковый код" как ошибку.
Неподдерживаемые команды
------------------------
В ТУРБО БЕЙСИКЕ имеется настоящий полноэкранный редактор и ко-
манды работы с меню для выполнения вспомогательных функций. Поэтому
нет необходимости в наличии каких-либо операторов,связанных с за-
грузкой, сохранением и редактированием исходных программ. Таких
команд в ТУРБО БЕЙСИКЕ нет. Соответствующие команды ИНТЕРПРЕТАТОРА
Бейсика обычно используются в режиме непосредственной работы
(DIRECT) и включают:
AUTO LOAD
DELETE NEW
EDIT RENUM
LIST SAVE
ТУРБО БЕЙСИК позволяет создавать и модифицировать программы с
помощью текстового редактора, то есть, нет необходимости в измене-
нии или стирании строк программы (например, командами EDIT и
DELETE). Если вы захотите удалить строку, переместите курсор в
нужную строку и нажмите CTRL-Y. Аналогично, нет потребности в ко-
манде LIST - вместо этого достаточно нажать соответствующие клави-
ши и нужная часть программы будет выведена на экран.
Команды основного меню ТУРБО БЕЙСИКА выполняют те же (и дру-
гие) функции, что и команды SAVE, LOAD и NEW Интерпретатора БУЙ-
СИК. А, так как в ТУРБО БЕЙСИКЕ необязательны номера строк, то и
команды АUTO и RENUM не нужны.
В ТУРБО БУЙСИКЕ не поддерживаются также следующие команды:
CONT
В ТУРБО БЕЙСИКЕ не допускается повторный запуск прерванной
программы. Прерывание программы по STOP или Ctrl-Break означает то
же самое, что и выполнение оператора END.
MERGE
ТУРБО БЕЙСИК транслирует программу в выполняемый код, поэтому
он не предоставляет возможности сливать строки исходной программы
в момент выполнения.
MOTOR
Кассетный порт обычно не встречается на PC.
USR
Оператор CALL выполняет те же (и другие) задачиБ что и USR.
Операторы, требующие модификации
---------------------------------
CALL ABSOLUTE
В операторе CALL ABSOLUTE ТУРБО БЕЙСИКА допустимы только целые
параметры. Он включен в систему для обеспечения минимальной
совместимости с интерпретируемым БЕЙСИКОМ. Для программирова-
ния на ассемблере ТУРБО БЕЙСИК располагает более мощными сред-
ствами: CALL INTERRUPT и встроенными ассемблерными процедура-
ми. (Для более полной информации см. приложение С "Интерфейс с
языком ассемблер").
CHAIN
Программы типа СHAIN должны транслироваться в файлы .EXE или
.TBC с помощью выбора в меню "Варианты" компилятора режимов
Compile to exe (компиляция в EXE) или Compile to Chain (компи-
ляция в CHAIN). В операторах COMMON как в обычных, так и цепных
программах список переменных должен содержать общие переменные в
надлежащем порядке (хотя и необязательно с одними и теми же име-
нами). Нельзя выполнять в среде ТУРБО БЕЙСИКА оператор CHAIN. Он
может использоваться только при работе в DOS. Режимы MERGE и
"DELETE диапазон-номеров-строк" не поддерживаются.
DEFtype,TRON,TROFF,OPION BASE
Реализация этих операторов в ТУРБО БЕЙСИКЕ и ИНТЕРПРЕТАТОРЕ
БЕЙСИКА несколько отличается. ТУРБО БЕЙСИК рассматривает физичес-
кое местоположение каждого оператора в исходной программе, а не
его появление в выполняемой ветви обёектного кода программы. Дру-
гими словами, имеется в виду положение каждого оператора во время
компиляции, а не во время выполнения. Рассмотрим на примере следу-
ющей программы оператор DEFtype:
10 GOTO 30
20 DEFINT X
30 X=2.3
40 PRINT X
При выполнении этой программы в ИНТЕРПРЕТАТОРЕ БЕЙСИКА, опера-
тор в строке20 обнаружен не будет. Таким образом, при выполнении
строки 20 будет использован тип переменной Х по умолчанию (с оди-
нарной точность), а затем выведется значение 2.3.
В отличие от этогоБ ТУРБО БЕЙСИК устанавливает соглашения о
типах во время компиляции. Поскольку, оператор DEFINT физически
предшествует первому появлению перменной Х, оператор PRINT выведет
значение 2.
DRAW и PLAY
Оба эти оператора выполняют сложные командные строки, выводя-
щие графические изображения или воспроизводящие музыку, соответст-
венно. В ИНТЕРПРЕТАТОРЕ БЕЙСИКА символьная информация, управляющая
выполнением команд, может включать имена символьных переменных.
Например, в Интерпретаторе БЕЙСИКА операторы:
n=50
PLAY "T=n;C"
устанавливают темп в 50 четвертей в минуту и исполняет ноту до.
ТУРБО БЕЙСИК не понимает подобной конструкции, так как после ком-
пиляции вся ирформация, касающаяся переменной n,утрачивается. Од-
нако, того же эффекта можно добиться с помощью функции VARPTR$:
n=50
PLAY "T=",VARPTR$(n) + "C".
ПАРАМЕТРЫ ФУНКЦИИ
Для определения параметров функции Интерпретатор БЕЙСИК
позволяет использовать те же имена переменных параметров.
ТУРБО БЕЙСИК выдает сообщение об ошибке, связанной с наличием
дубликата локальной переменной.
RUN
Программа в ТУРБО БЕЙСИКЕ может использовать оператор RUN для
загрузки и выполнения другой программы или перезапуска себя самой,
но нет возможности запустить текущую программу из произвольной
точки кроме ее начала, задавать номер строки, с которой начнется
выполнение программы, в этом случае нельзя.
Преобразование программ Интерпретатора БЕЙСИК
в программы ТУРБО БЕЙСИК
Первый шаг преобразования программы Интерпритатора БЕЙСИК в
программу ТУРБО БЕЙСИК - сохранение ее на диске в формате ASCII.
Например, чтобы сохранить текущую программу, введите:
SAVE "<имя программы>.txt",A.
Режим ",А" заставляет Интерпретатор БЕЙСИКА записывать на
диск текстовый (ASCII) файл, не снабжая его "опознавательными
знаками". Такой файл может непосредственно читаться
ТУРБО БЕЙСИКом, однако, если он больше 64К, следует выделить
основной и подключаемые файлы прежде,чем редактировать или
компилировать его в ТУРБО БЕЙСИКе.
Дополнение языка БЕЙСИК
ТУРБО БЕЙСИК предоставляет новые командные возможности и
дополнения языка БЕЙСИК. Ниже приводятся некоторые из них (см.
для более детальной информации главу 5 "Справочное руководство по
ТУРБО БЕЙСИКу).
Структурные операторы
В дополнение к Интерпретатору БЕЙСИК, ТУРБО БЕЙСИК использует
для управления ходом программы и создания легко читаемых программ
конструкции операторов IF/ELSEIF/ELSE/ENDIF и SELECT CASE. Новыу
блочно-структурированные операторы DO/LOOP позволяют выполнять
общее управление программными циклами с проверкой в начале или
конце цикла.
Двоичный файл ввода/вывода
ТУРБО БЕЙСИК поддерживает новый режим BINARY для двоичного
ввода и вывода в файлы. Операторы GET$, PUT$ и SEEK позволяют
программисту управлять файлами на низком уровне. Программа может
читать или записывать информацию в файл по-байтно и устанавливать
указатель позиции в файле на любой байт.
Определение функций и процедур
В ТУРБО БЕЙСИКе определения функций могут содержать одну
строку, как в стандартном интерпретируемом БЕЙСИКе, или несколько
строк, предоставляя тем самым более структурный механизм
реализации подпрограмм. Операторы SUB и END SUB позволяют
создавать процедуры. ( Для более полной информации см. главу 4,
раздел "Подпрограммы,функции и процедуры").
ТУРБО БЕЙСИК поддерживает рекурсивные процедуры функции с
1
настоящими локальными переменными. Используйте оператор LOKAL для
задания переменных, которые заносятся в стек при рекурсивных
вызовах.
Интерфейс с языком ассемблер
В ТУРБО БЕЙСИКе оператор CALL используется в трех формах:
CALL имя процедуры, CALL INTERRUPT и CALL ABSOLUTE. Оператор CALL
INTERRUPT использует команду REG для передачи данных через
буферный регистр. Встроенные (INLINT) процедуры на ассемблере или
файл .COM могут быть заключены внутри процедур с помощью директив
$INLINE. (См. приложение С "Интерфейс с языком ассемблер" для
более детальной информации).
Встроенные функции
В отличие от Интерпретатора БЕЙСИКа в ТУРБО БЕЙСИКе
трансцендентные функции возвращают значения с двойной точностью.
Новые команды
В ТУРБО БЕЙСИКе имеется большое количество новых команд и
дополнительных режимов в старых командах. В таблице D-1 частично
приводятся дополнения к Интерпретатору БЕЙСИКа.
Если Вы случайно используете некоторые из этих ключевых слов
в качестве имен переменных, то произойдет ошибка компиляции. Для
безошибочной компиляции выполните операцию Find and replace (найти
и изменить), чтобы изменить неподходящее имя переменной.
2
Таблица D-1 Дополнения к БЕЙСИКу в ТУРБО БЕЙСИКе
------------------------------------------------------------------
BIN$ Возвращает целое число в двоичном виде
BINARY Новый вид файла для доступа на низком уровне
CETL,FIX Функции преобразования чисел с плавающей
точкой в целые
COMMAND$ Возвращает символ продолжения командной строки
CVM$,CVMD, Преобразуют из и в формат Microsoft
MKMD$,MKMS$
DECR/INCR Альтернативный способ увеличения/уменьшения
значений переменных
DEFLNG,MKL$, Поддерживает новый числовой тип - длинные
CVL целые
DELAY Ждет n секунд (для машинно-независимых
задержек)
DO/LOOP Гибкие конструкции циклов в стандарте ANSI
ERADR Адрес последней ошибки
EXIT Выход из циклов FOR/NEXT, WHTLE/WEND или
DO/LOOP, блоков IF, процедур, и функций
EXP2,EXP10 Возвращает степени 2 и 10
GET$ Читает данные из файлов с режимом BINARY
IF/ELSEIF/ELSE/ Выполняет множественные тесты IF
END IF
INLINE Встраевает байты непосредственно в обьектный
код
INSTAT Возвращает состояние клавиатуры
LCASE$ Преобразует символы в строчные
LOCAL/SHARED/STATIC Опрелеляют переменные в функциях и процедурах
LOG2,LOG10 Возвращает логарифмы по основанию 2 и 10
MEMSET Определяет свободное пространство старших
адресах памяти
MTIMER Таймер с высоким разрешением
PUT$ Записывает данные в двоичные файлы в режиме
BINARY
REG Читает/записывает в регистровый буфер
SEEK Определяет позицию в файлах в режиме BINARY
SELECT CASE Мощный оператор проверки условий
SUB/END SUB Определяют процедуру
VARSEG Возвращает адрес сегмента переменных или
элемента массива
------------------------------------------------------------------
Реализация компилятора
Использование компилятора в качестве транслятора БЕЙСИКа
влияет на уже существующие программы на БЕЙСИКе и, кроме того,
допускает более детальное управление ходом компиляции программ и
генерацией кода. Мы уже указывали на некоторые отличия и
дополнения, в этом разделе рассмотрим другие свойства,
проистикающие из мощной реализации ТУРБО БЕЙСИКа.
Редактор и большие программы
Включенный в ТУРБО БЕЙСИК редактор не может работать с
программами, длина которых превышает 64К. Если исходная программа
более 64К, следует разделить ее на несколько файлов. Директива
$INCLUDE допускает компиляцию программ длиной более 64К. Для
запуска программы в ТУРБО БЕЙСИКе на компиляцию следует в
спускающемся меню File задать режим Main (если программа
отличается от файла, находящегося в текущий момент в буфере
редактора).
Редактор ТУРБО БЕЙСИКа может работать со строками длиной до
3
248 символов. Интерпретатор БЕЙСИКа допускает строки по 255
символов. Строки, длина которых больше 248 знаков, автоматически
снабжаются в 248-ой позиции символом "возврат каретки". Однако,
Вам понадобится проверить правильно ли формируется строка прежде,
чем Вы загрузите стоку в редактор ТУРБО БЕЙСИКа.
ТУРБО БЕЙСИК допускает программы, выполняемый код которых
превышает 64К. Директива $SEGMENT задает генерацию нового сегмента
кода, при этом аргументы операторов CALL/GOTO меняются,так как
многие переходы становятся "длинными".
Файлы произвольного доступа с числами с плавающей запятой
ТУРБО БЕЙСИК использует для чисел с плавающей запятой
стандарт IEEE, а Интерпретатор БЕЙСИКа для чисел с одинарной и
двойной точностью нестандартный формат Microsoft, поэтому
ТУРБО БЕЙСИК должен выполнять преобразования полей с плавающей
запятой в уже существующих файлах с произвольным доступом,
созданных программами Интерпретатора БЕЙСИКа. Функции MKMS$ и
MKMD$ создают числовые строки в формате Microsoft, а функции CVMS
и CVMD преобразуют стоки в формате Microsoft в числовые данные в
формате ТУРБО БЕЙСИКа.
Обратите внимание, что это касается только полей с плавающей
запятой в файлах с произвольным доступом, а не полей с целыми или
символьными данными.
Числа с плавающей запятой
В отличие от Интерпретатора БЕЙСИКа, ТУРБО БЕЙСИК использует
стандартное представление IЕЕЕ для вещественных значений в виде
чисел с плавающей запятой. Числа одинарной точности в
ТУРБО БЕЙСИКе занимают 6 байтов памяти, двойной точности -
8 байтов.
Использование формата IЕЕЕ в ТУРБО БЕЙСИКе повышает уровень
точности представления чисел с плавающей запятой. (Заметьте, что
функции МКМD$, МКМS$, СVМD и СVМS преобразуют любые данные из
ТУРБО БЕЙСИКа в формат Интерпретатора БЕЙСИКа и наоборот.)
Кроме того, так как ТУРБО БЕЙСИК выполняет все математические
операции с использованием сопроцессора (или эмулятора 8087),
округление дробной части не производится. Так, что при округлении
в ТУРБО БЕЙСИКе любого числа, содержащего 5 в дробной части, оно
увеличивается или уменьшается до ближайшего четного числа.
Например, 0,5 округляется до 0; 9,005 округляется до 9,01.
При выполнении следующей программы в ТУРБО БЕЙСИКе будет
получен 0 0; а в Интерпретаторе БЕЙСИКа - 0 1.
10 DEFINT A
20 A=1/2 ` деление целых
30 B=1/2 ` деление чисел с плавающей запятой
40 PRINT A;B
Работа в окне
В среде ТУРБО БЕЙСИКа программы, выводящие текст, могут
выполнятся в окне RUN, представляющем виртуальный экран
25-строк-на-80-позиций. Используйте Аlt-F5 для того, чтобы
распахнуть окно RUN в момент выполнения программы.
Если в программе используются специальные операции РОКЕ для
установки позиции курсора или изменения атрибутов цвета при работе
в окне, вывод на экран может выполняться неправильно. Однако если
до выполнения распахнуть окно RUN вывод будет отлично
воспроизведен. Программы, воспроизводящие графические изображения,
4
работают с полным экраном.
Промежуточная точность чисел с плавающей запятой
ТУРБО БЕЙСИК использует стандарт IЕЕЕ для чисел с плавающей
запятой, поэтому промежуточные результаты вычисляются с точностью
до представления в 80 битах. Некоторые программы в Интерпретаторе
БЕЙСИКа обрабатывают усеченные значения с плавающей запятой
добавлением в отдельных вычислениях "жульнической добавки" в 1 для
получения правильного результата. ТУРБО БЕЙСИК допускает
повышенную точность, поэтому коды, используещие преимущества
арифметики с усеченной точностью могут быть изменены.
Строки
В ТУРБО БЕЙСИКе имеется расширенная обработка строк.
Максимальная длина строки расширена с 255 до 32767 символов. Кроме
того, покончено со "сборкой мусора", периодически проводимой в
Интерпретаторе БЕЙСИКа - поэтому нет смысла в лихорадочном
выполнении команды FRE для вмешательства в эту операцию.
Расширенное использование памяти
В ТУРБО БЕЙСИКе программе доступна вся системная память, без
строгих ограничений на использование не более 64К в
Интерпретаторе БЕЙСИКа. Программы могут состоять из кода
неограниченного объема, могут работать со скалярными переменными
объемом до 64К, символьными данными до 64К и неограниченным числом
массивов, длина каждого из которых не более 64К.
Ячейки РЕЕК и РОКЕ
В графическом режиме цвет текста сохраняется в ячейке
РЕЕК/РОКЕ со смещением 4ЕН в основном сегменте данных. РЕЕК и РОКЕ
для остальных ячеек могут привести к непредсказуемым результатам.
5
ПРИЛОЖЕНИЕ Е
Сообщения об ошибках
В ТУРБО БЕЙСИКе регистрируются два основных типа ошибок:
ошибки компиляции и ошибки выполнения. К ошибкам компиляции
относятся синтаксические ошибки, обнаруженные компилятором. К
ошибкам выполнения относятся отклонения, найденные механизмами
обнаружения ошибок, которые компилятор помещает в объектной
программе.
Большая часть ошибок компиляции это ошибки в синтаксисе,
вызванные пропуском символа, неправильным написанием команды,
непарным числом скобок и т д. Если компилятор встречает что-то
в исходной программе, чего он не может понять или допустить Вы
немедленно окзываетесь в редакторе, и курсор указывает на то
место, где произошла ошибка. Вам нужно ножать на любую клавишу,
чтобы убрать собщение об ошибке, затем исправить ошибочный
оператор и повторить компиляцию.
ТУРБО БЕЙСИК выводит номер ошибки и краткое ее описание в
нижней строке экрана. Ошибки компиляции имеют номера от 256 и
выше. Ошибки выполнения возникают при прогоне оттранслированной
программы. Пример таких ошибок: ошибки файловой системы (диск
полон или защищен для записи), неверные вызовы функций
(графические операторы без графического адаптера), попытка
извлечения корня из -14, ошибки использования памяти (обычно
связанные с ее недостатком) и множество других.
Ошибки выполнения могут вызывать прерывания, то есть, вы
можете установить с помощью оператора ON ERROR, что если
произойдет ошибка, управление должно быть передано заданной
подпрограмме обработки ошибок. Эта подпрограмма может "рассудить",
что делать дальше в зависимости от обнаруженной ошибки. Особенно
удобно использовать такие подпрограммы для обработки ошибок
файловой системы (например, диск полон) - это единственный класс
ошибок, с которыми должна иметь дело ещательно отлаженная
программа.
С помощью оператора ERROR можно симулировать ошибки
выполнения выполнения в качестве способа отладки подпрограмм
обработки ошибок.
Для более детальной информации об ошибках выполнения см. в
главе 5 "Справочное руководство по ТУРБО БЕЙСИКУ" описание
операторов ON ERROR и ERROR, функций ERR, ERL и ERADR.
Если ваша программа не обрабатывает ошибки, тогда при их
обнаружении ТУРБО БЕЙСИКОМ выполнение программы преждевременно
прекращается, выводится номер ошибки и краткое описание
создавшихся условий. Если программа выполнилась в ТУРБО БЕЙСИКЕ,
курсор редактора указывает на оператор, вызвавший ошибку. Ошибки
выполнения имеют номера между 0 и 255. Например:
Error 5 Illegal function call at pgm-ctr: 761
(Ошибка 5 неверный вызов функции по программному счетчику: 761)
Сообщения об ошибках не включаются в .ЕХЕ файлы; поэтому
ошибки выполнения, возникающие в программах, запущенных из DOS, не
содержат текст сообщения об ошибке, а только ее номер. Отладочный
режим поиска ошибок выполнения (FIND) может преобразовать значение
программного счетчика, определяющего адрес ошибки, в конкретный
оператор в исходном файле, который вызвал ошибку. Например:
nnn Error - distination <CR/LF>,
где nnn - номер ошибки из трех цифр. Для более полной информации
см. граву 3 "Команда DEBUG".
6
Ошибки_выполнения
2 Syntax error
Синтаксическая ошибка
Синтаксическая ошибка выполнения, которая возникла в
операторе READ при попытке загрузки символьных данных в числовую
переменную. Остальные синтаксические ошибки обнаруживаются
компилятором.
3 RETURN without GOSUB
RETURN без GOSUB
Задан оператор RETURN без соответствующего ему GOSUB; то
есть, собтветственно возврат (RETURN) осуществлять неоткуда.
4 Out of data
Конец данных
Оператор READ вышел за пределы значений в операторе DATA.
5 Illegal function call
Неверный вызов функции.
Всу ошибки, связанные с передачей несоответствующего
аргумента оператору или функции. Сразу несколько причин могут
вызыввать их:
* слишком большое значение цвета или режима экрана;
* наличие оператора, работающего с графикой без графического
адаптера или при несоответствующем режиме, заданном оператором
SCREEN;
* попытка выполнения неверной математической операции, такой как,
например, извлечение корня из отрицательного числа;
* слишком большой (или отрицательный) номер записи в операторах
GET и PUT;
* попытка использования оператора WIDTH в последовательном файле.
6 Overflow
Переполнение
Переполнение возникает при получении в результате вычислений
слишком больших значений, которые не могут быть представлены в
виде числовых данных заданного типа. Например, х%=32767+1 приведет
к переполнению, также как 32768 не может быть представлено целым
числом.Ошибки переполнения целочисленных не обнаруживаются, если в
меню "Вариант" не был установлен режим (Overflow); переполнение
значений с плавающей запятой всегда регистрируются.
7 Out of memory
Выход за пределы памяти
Многочисленные ситуации могут приводить к выводу этого
сообщения, в частности, определение слишком большого массива.
9 Subscript out of range
Индекс за пределами диапазона
Возникает при попытке использовать индекса, большего, чем
максимальное допустимое.
10 Dublicate definition
Двойное определение
Повторная попытка размещения динамического массива до
освобождения уже размещенного массива с тем же именем.
11 Division by zero
Деление на ноль
7
Попытка деления на ноль или возведения нуля в отрицательную
степень.
13 Type mismatch
Несоответствие типов данных
Вместо числового значения используется символьное или,
наоборот. Возникает в операторах PRINT USING,DRAW или PLAY.
14 Out of string space
Выход за пределы пространства символьных переменных
Исчерпана память для символьных переменных, она недолжна
превышать 64К.
15 String to long
Слишком длинная строка
Строка, полученная в результате символьного выражения
превышает 32767 байтов.
19 No RESUME
Нет оператора RESUME
Выполнение подпрограммы обработки ошибок дошло до физического
конца программы. Возможно, в программе пропущен оператор RESUME.
20 RESUME without error
RESUME без ошибки
Выполнение оператора RESUME, когда ошибки не было, т.е. нет
подпрограммы обработки ошибки, из которой должен быть выполнен
выход RESUME.
24 Devise time out
Тайм-аут устройства
Истекло заданное время (Тайм-аут) для коммуникационной линии
состояния. Значения тайм-аута ьогут быть заданы для CTS (Clear To
Send), CD (CarrierDetect) и DSR (DataSetReady) линий состояния.
Программа либо преждевременно завершается, либо повторно
выполняются коммуникационные операции. Для более детельной
информации см. описание операторов OPEN COM в главе 5.
25 Devise fault
Ошибка устройства
Возникла аппаратная ошибка; например, в интерфейсе принтера,
или коммуникационном адаптере.
27 Out of paper
Конец бумаги
Интерфейс принтера указывает, что концилась бумага. В
действительности, он может быть просто выключен или в нем имеются
какие-либо сложности.
50 Field overflow
Преполнение поля
При заданной длине записи файла определяется слишком большое
множество переменых полей в операторе FIELD.
51 Internal error
Внутренняя ошибка
Возник сбой в системе выполнения ТУРБО-БЕЙСИКА. Обратитесь с
информациуй о вашей программе в группу технического сопровождения.
52 Bad file number
8
Неверный номер файла
Номер файла, указанный в операторе работы с файлом, не
соответствует номеру в операторе OPEN или выходит за рамки
диапазона допустимых номеров файлов.
53 File not found
Файл не найден
Заданноу имя файла не обнаружено на указанном диске.
54 Bad file mode
Неверный режим работы с файлом
Попытка выполнить PUT или GET (или PUT$ и GET$) для
последовательного файла.
55 File already more
Файл уже открыт
Попытка открыть уже открытый файл, или удалить открытый файл.
57 Device I/O error
Ошибка вода/вывода устройства
Возникла серьезная аппаратная неисправность при выполнении
команды.
58 File already exists
Файл уже существует
Новое имя файла, указанное в опраторе NAME уже существует.
61 Disk full
Диск полон
На указанном диске или диске по умолчанию не хватает места
для выполнения операции с файлом. Убедитесь, что места достаточно
и запустите программу повторно.
62 Input past end
Попытка прочитать больше данных, чем имеется в файле. Для того,
чтобы избежать этой сложности, используйте функцию EOF (конец
файла). Ошибка также может возникнуть при чтении из
последовательного файла, открытого для записи или дозаписи в
конец.
63 Bad record number
Неверный номер записи
В качестве номера записи в операторах GET или PUT для файлов
с произвольным доступом указано отрицательное число или число
больше чем 16.777.215.
64 Bad file name
Неверное имя файла
Имя файла, указанное в щператорах FILES, KILL или NAME
содержит недопустимые символы.
67 To many files
Слишком много файлов
Эта ошибка может быть вызвана либо попыткой создания слишком
большого количества файлов в корневом каталоге, либо неверныь
именем файла при выполнении системного вызова DOS для создания
файла.
68 Device unavailable
9
Устройство недоступно
Попытка открытия (OPEN) файла устройства на машине, на
которой этого устройства нет; например, СОМ1: в системе без
серийного адаптера или модема.
69 Communication buffer overflow
Переполнение коммуникационного буфера
Выполнение оператора INPUT для ввода символов в уже
заполненный коммуникационный буфер. Программа либо должна
проверять и чаще очищать буфер, либо увеличить размер буфера.
70 Permission denied
Нарушение защиты
Попытка записи на защищенный для записи диск.
71 Disk not ready
Диск не готов
Открыта крышка накопителя на гибком устройстве, или диск не
установлен на заданном накопителе.
72 Disk media error
Ошибка дискового накопителя
Панель контроллера гибкого или жествкого диска регистрирует
постоянную ошибку в одном или нескольких секторах носителя.
74 Rename across disks
Переименование с переменой диска.
Переименовать файл с заданием другого диска или каталога
нельзя. Оператор NAME а лишь присваивает ему новое имя.
75 Path/File acces error
Ошибка доступа в маршруте/файле
В команде, требующей указания маршрута (OPEN,RENAME,MKDIR)
неправильно использован маршрут; например, открывается (OPEN)
подкоталог или удаляется используемый каталог.
76 Path not found
Маршрут не найден
Маршрут, заданный в операторах CHDIR, MKDIR, OPEN и т.д., не
найден.
202 Out of string temp space
Выход за пределы временного пространства для символьных данных
Символьное выражение требует использования слишком большого
количества временных буферов для символьных данных. Ошибка может
быть вызвана выражением типа MID$(LEFT$(MID$(RIGHT$(...).
Попробуйте упростить символьное выражение путем сохранения
промежуточных результатов во временных символьных переменных.
203 Mismatched common variables
Несоответствие общих переменных
Попытка выполнить CHAIN между двумя програмными сегментами,
которые содержат несоответствующие друг другу операторы COMMON.
ТУРБО БЕЙСИК сверяет тип и число переменных в операторах COMMON.
204 Mismatched program option
Несоответствие програмных опций
Попытка выполнить CHAIN между двумя програмными сегментами,
компиляция которых происходила с несоответствующими друг другу
10
програмными опциями (различными математическими библиотеками,
требованиями сопроцессора и т.д.).
205 Mismatched program vervisions
Несоответствие версий в программе
Попытка выполнить CHAIN между двумя програмными сегментами,
которые созданы различными версиями компилятора ТУРБО БЕЙСИК.
206 Invalid program file
Непригодный програмный файл
Попытка выполнить CHAIN или RUN для програмнгосегмента,
компиляция которого выполнилась не в ТУРБО БЕЙСИКЕ.
242 String/array memory corrupt
Разрушение памяти строки/массива
Область памяти символьных данных была неверно перезаписана.
Ошибка может быть вызвана неверными действиями ассемблерной
подпрограммы, доступом к символьному массиву за пределами его
размерности или нарушениями в системе выполнения ТУРБО БЕЙСИКА.
243 CHAIN/RUN from .EXE file only
CHAIN/RUN допустимы только из файла .EXE
Попытка выполнить CHAIN или RUN для програмного сегмента из
среды ТУРБО БЕЙСИКА. Следует выполнить компиляцию программы и
записать оттранслированный модуль на диск с помощью команд меню
"Варианты", а затем запустить из DOS программу, использующую
операторы CHAIN и RUN.
Ошибки_компилятора
401 Expression too complex
Слишком сложное выражение
Выражение содержит слишком много операторов/операндов;
следует разбить его на два или несколько более простых выражений.
402 Statement too complex
Оператор слишком сложен
Сложность оператора вызвала переполнение внутреннего буфера
компилятора. Следует разбить его на два или несколько более
простых оператора.
403 $IF nesting overflow
Переполнение вложеннных $IF
Число блоков условной компиляции ($IF/$ELSE/$ENDIF) не должно
составлять более 16 уровней.
404 $INCLUDE nesting overflow
Переполнение вложенгых $INCLUDE
Вложенность включаемых файлов не должна быть больше 5
уровней, включая саму основную программу. Это позволяет иметь в
программе 4 вложенных включаемых ($INCLUDE) файла.
405 Block nesting overflow
Переполнение вложенных блоков
В вашей программе слишком много операторов блочных структур,
вложенных один в другой. Блочные структуры в ТУРБО БЕЙСИКЕ могут
иметь не более 255 уровней вложенности.
406 Compiler out of memory
Компилятор вышел за пределы памяти
11
Исчерпана доступная память компилятора для символьного
пространства, буферов и т.д. Если память исчерпана, выделите из
вашей программы небольшую основную программу, которая использует
метаоператор $INCLUDE для включения остальной части программы.
Если вы компилируете программу в память и возникает эта ошибка,
попробуйте с помощью меню "Варианты" выполнить компиляцию на диск.
407 Program too large
Программа слишком велика
Ваша программа содержит более 65530 операторов.
408 Segment exceeds 64K
Сегмент превышает 64К
Ваша программа включает сегмент, превышающий ограничение 64К.
Добавьте метаоператор $SEGMENT в исходную программу, чтобы
разместить программный код в дополнительном сегменте.
409 Variables exceeds 64K
Переменные превышают 64К
Общее пространство скалярных переменных ограничено 64К. Вэто
пространство включаются указатели строк, целые, длинные целые,
вещественные числа с одинарной и двойной точностью. Избавьтесь от
неиспользуемых переменных или разбейте вашу программу на отдельные
основную и цепные (CHAIN) программы.
410 "," expected
Предполагается ","
Синтаксис оператора требует запятую (,).
411 ";" expected
Предполагается ";"
Синтаксис оператора требует запятую (;).
412 "(" expected
Предполагается "("
Синтаксис оператора требует запятую (().
413 ")" expected
Предполагается ")"
Синтаксис оператора требует запятую ()).
414 "=" expected
Предполагается "="
Синтаксис оператора требует запятую (=).
415 "-" expected
Предполагается "-"
Синтаксис оператора требует запятую (-).
416 Statement expected
Предполагается оператор
ТУРБО БЕЙСИК полагает, что в этом местедолжен быть оператор.
Некоторый символ не может быть идентифицирован ни как команда, ни
как метакоманда, ни как переменная.
417 Label/line number expected
Предполагается метка/номер строки
В операторах IF, GOTO, GOSUB или ON должна быть задана
допустимая метка или номер строки.
418 Numeric expression requires relational operator
Численное выражение требует соответствующего оператора
Компилятор обнаружил символьный операнд в том месте, где
должен быть числовой операнд.
419 String expression requires string operand
12
Для символьного выражения требуется символьный операнд
Компилятор ожидал символьное выражение, а нашел нечто другое,
например: Х$=А$+В .
420 Scalar variable expected
Предполагается скалярная переменная
Компилятор ожидал найти скалярную переменную в качестве
формального параметра функции, определенной пользователем.
Скалярные переменные включают строки, целые, длинные целые и
вещественные числа с одинарной и двойной точностью.
421 Array variable expected
Предполагается переменная массив
В опреаторах DIM или операторах работы с графикой GET или PUT
должна быть указана переменная массив.
422 Numeric variable expected
Предполагается числовая переменная
В опреаторах INCR, DECR или при задании смещения в операторе
CALL ABSOLUTE должна быть указана числовая переменная.
423 String variable expected
Предполагается символьная переменная
В опрераторах FIELD, GET$, PUT$ или LINE INPUT должна быть
указана символьная переменная.
424 Variable expected
Предполагается переменная
В функциях VARPTR, VARPTR или VARSEG должна быть задана
переменная.
425 Integer constant expected
Предполагается целая константа
В поименованом присваивании константы или в командах условной
компиляции $IF/$ELSEIF должна быть указана целая константа.
426 Positive integer constant expected
Предполагается положительная целафя константа
При указании границ массива DIM STATIC и в метаоператорах
$COM, $SOUND и $STACK должна быть указана положительная целая
константа.
427 String constant expected
Предполагается символьная константа
В качестве имени файла в метаоператоре $INCLUDE должна быть
указана символьная константа.
428 Numeric scalar variable expected
Предполагается числовая скалярная переменная
Должна быть указана целая, длинная целая, вещественная
переменная с одинарной или двойной точностью; например в цикле
FOR/NEXT.
429 Integer scalar variable expected
Предполагается целая скалярная переменная
В качестве параметра в операторе CALL ABSOLUTE должна быть
указана целая переменная.
430 Integer array variable expected
Предполагается целая переменная массив
13
Должна быть указана целая переменная массив; например в
операторе PALETTE.
431 End of line expected
Предполагается конец строки
В строке, содержащей метаоператор, недопустимы никакие
символы, кроме комментария.
432 AS expected
Предполагается AS
Служебное слово AS пропущено в операторах FIELD или OPEN.
Проверьте в главе 5 синтаксис операторов FIELD и OPEN.
433 DEF FN expected
Предполагается DEF FN
Компилятор обнаружил операторы END FN или EXIT FN без
определения функции DEF FN.
434 IF expected
Предполагается IF
Компилятор обнаружил операторы END IF или EXIT IF без
предшествующего им оператора IF.
435 DO LOOP expected
Предполагается DO LOOP
Компилятор обнаружил операторы LOOP или EXIT LOOP без
предшествующего им оператора DO LOOP.
436 SELECT expected
Предполагается SELECT
При определении оператора SELECT CASE вы либо забыли указать
служебное слово SELECT, либо компилятор обнаружил операторы END
SELECT или EXIT SELECT.
437 CASE expected
Предполагается CASE
При определении опреатора SELECT CASE НЕ УКАЗАНО СЛУжЕбНОЕ
СЛОВО СASE. Эта ошибка может также возникнуть при использовании
служебного слова SELECT в качестве имени переменной.
14
438 FOR LOOP expected
Предполагается FOR LOOP
Компилятор обнаружил оператор EXIT FOR без предшествующего
ему оператора FOR.
439 SUB expected
Предполагается SUB
Компилятор обнуружил оператор END SUB или EXIT SUB
,без предшествующего ему оператора SUB. Началом объявления
подпрограммы должен быть оператор SUB.
440 END DEF expected
Предполагается END DEF
Определение функции не завершается соответствующим ему
оператором END DEF.
441 END IF expected
Предполагается END IF
Блок IF не завершается соответствующим END IF.
442 LOOP/WEND expected
Предполагается LOOP/WEND
Циклы DO или WHILE не завершаются соответствующими
опреаторами LOOP/WEND.
443 END SELECT expected
Предполагается END SELECT
Оператор SELECT CASE не был правильно завершен оператором END
SELECT.
444 END SUB expected
Предполагается END SUB
Процедура не была правильно завершена оператором END SUB.
445 NEXT expected
Предполагается NEXT
Цикл FOR не был правильно завершен оператором NEXT.
446 THEN expected
Предполагается THEN
В операторе IF пропущено служебное слово THEN.
447 TO expected
Предполагается ТО
В операторе FOR пропущено служебное слово TO.
448 GOSUB expected
Предполагается GOSUB
В опреаторе ON пропущена входящая в него часть GOSUB.
449 GOTO expected
Предполагается GOTO
В опреаторе ON пропущена входящая в него часть GOТО.
450 $ENDIF expected
Предполагается $ENDIF
В операторе условной компиляции $IF пропущено служебное слово
$ENDIF. Посмотрите все метаоператоры $IF, чтобы найти место, где
следует указать соответствующей ему $ENDIF.
1
451 Unmatched $ELSE
Непарный метаоператор $ELSE
Компилятор обнаружил метаоператор $ELSE без предшествующего
ему метаоператора условной компиляции $IF. Посмотрите в исходном
тексте предшествующие $ELSE, чтобы найти место, где следует
указать соответствующей ему $IF.
452 Unmatched $ENDIF
Непарный метаоператор $ENDIF
Компилятор обнаружил метаоператор $ENDIF без предшествующего
ему метаоператора условной компиляции $IF. Посмотрите в исходном
тексте предшествующие $ENDIF, чтобы найти место, где следует
указать соответствующей ему $IF.
453 Undefined name constant
Неопределенная именная константа
В программе использована именная константа, которая не
определена. Определите именную константу или используйте в
операторе литеральную константу.
454 Undefined function reference
Обращение к неопределенной фуркции
В выражении указано имя функции, которая не определена.
Проверьте, нет ли ошибок в имени функции или определите
фуркцию.
455 Undefined subprogram reference
Обращение к неопределенной подпрограмме
Выполнен вызов подпрограммы (CALL), но в программе нет
определения подпрограммы. Проверьте, нет ли ошибок в имени
подпрограммы или задайте подпрограмму.
456 Undefined label/line reference
Обращение к неопределенной метке/номеру строки
В опреаторах IF, GOTO, GOSUB или ON указана метка или
оператор строки, неопределенные в программе. Проверьте, нет ли
ошибок в метке или номере строки, или задайте их в программе.
457 Undefined array reference
Обращение к неопределенному массиву
Выполнено обращение к массиву, не определенному в операторе
DIM. Проверьте, нет ли ошибок в имени массива, или укажите его в
операторе DIM.
458 Dublicate label/line number
Двойное определение метки/номера строки
Дважды указан один и тот же номер строки или метки. Найдите в
вашей программе и включаемых файлах двойные определения и измените
одно из них или оба.
459 Dublicate named constant
Двойное определение имени константы
Две именные константы были заданы с одинаковыми именами.
Найдите в вашей программе и включаемых файлах двойные определения
и измените одно из них или оба.
461 Dublicate subprogram definition
Двойное определение имени подпрограммы
Две процедуры SUB были определены с одинаковыми именами.
Найдите в вашей программе и включаемых файлах двойные определения
2
и измените одно из них или оба.
462 Dublicate common variable
Двойная общая переменная
В списке переменных оператора COMMON одна переменная указана
дважды. Найдите в вашей программе и включаемых файлах двойные
определения и измените одно из них или оба.
463 Dublicate variable declaration
Двойное определение переменной
В операторах LOCAL, STATIC или SHARED две переменные указаны
с одинаковыми именами. Найдите в вашей программе и включаемых
файлах двойные определения и измените одно из них или оба.
464 Dublicate $COM definition
Двойное определение $COM
Для каждого коммуникационного порта в вашей программе может
быть только один метаоператор $COM. Найдите в вашей программе и
включаемых файлах определения $COM и удалите одно из них .
465 Dublicate $SOUND definition
Двойное определение $SOUND
В программе может быть использован только один метаоператор
$SOUND. Найдите в вашей программе и включаемых файлах определения
$SOUND и удалите одно из них .
466 Dublicate $STACK definition
Двойное определение $STACK
В программе может быть использован только один метаоператор
$STACK Найдите в вашей программе и включаемых файлах определения
$STACK и удалите одно из них .
467 Invalid line number
Неверный номер строки
Номер строки должен быть в диапазоне от 0 до 65535.
469 Metastatements not allowed here
Использование метаоператоров здесь недопустимо
Метаоператоры должны быть первыми командами в строке
470 Block/scanned statements not allowed here
Блочные операторы здесь недопустимы
Блочные операторы типа WHILE/WEND, DO/LOOP и SELECT CASE не
могут быть использованы в однострочных операторах IF.
471 Unknown identifier/syntax error
Неизвестный оператор/синтаксическая ошибка
В строке что-то не так - компилятор не может подобрать
соответствующее сообщение об ошибке.
472 Array subscript error
Ошибка в индексе массива
Вы задали массив с одним числом индексов, а использовали его
с другим числом.
473 Array bounds error
Ошибка выхода за границы массива
Программа обращается к статическому массиву с помощью
литерального значения, выходящего за пределы диапазона.
3
474 Tipe mismatch
Несоответствие числовых типов
Типы переменных в операторе SWAP неодинаковы.
475 Parameter mismatch
Несоответствие параметров
Типы или число параметров не соответствуют определению
функции или процедуры.
476 CLEAR parameter error - use MEMSET/$STACK
Ошибка параметров CLEAR - используйте MEMSET/$STACK
Дополнительные параметры, допуступные оператору CLEAR, не
доступны в таком компиляторе БЕЙСИКА, как ТУРБО БЕЙСИК.
477 LOCAL requires DEF FN/SUB
LOCAL требует DEF FN/SUB
Локальные переменные могут быть объявлены только в процедуре
или функции.
478 SHARED requires DEF FN/SUB
SHARED требует DEF FN/SUB
Разделяемые переменные могут быть объявлены только в
процедуре или функции.
479 STATIC requires DEF FN/SUB
STATIC требует DEF FN/SUB
Статические переменные могут быть объявлены только в
процедуре или функции.
480 COMMON array must be dynamic
Массивы СOMMON должны быть динамическими
Общие массивы, указанные в операторе COMMON, должны быть
объявлены как DYNAMIC.
481 LOCAL array must be dynamic
Массивы LOCAL должны быть динамическими
Локальные массивы, указанные в операторе LOCAL, должны
быть объявлены как DYNAMIC.
482 Parameter arrays cannot be altered
Массивы - параметры не могут быть изменены
Нельзя стереть (ERASE) или разместить (DIM) массив,
используемый в качестве параметра функции или подпрограмы.
483 Array is not STATIC
Массив не является статическим
Нельзя определять размерность статического массива с помощью
переменных в качестве индекса. При задании индексов массива типа
STATIC следует использовать либо именные константы, либо
литеральные константы.
484 Array previously STATIC
Первоначально массив был определен как статический
Если в вашей программе для одного и того же массива два
оператора DIM, ьассив автоматически считается динамическим. Либо в
другом месте программы пытались объявить массив как STATIC, либо
ваша программа выполняет команду DIM DYNAMIC для массива,
объявленного ранее как STATIC.
4
485 Array name without "()" expected
Требуется имя массива без "()"
При использовании оператора ERASE не следует за именем
массива указывать скобки.
486 Array exceeds 64K
Массив превосходит 64К
Размеры массива не должны превышать 64К (одного сегмента
данных). Если вам нужны массивы большего размера, вы можете
разбить один массив на несколько меньших.
487 Arrays limited to eights dimensions
Размерность массива не должна превышать 8
Это внутренне ограничение для компилятора.
488 Invalid numeric format
Неверный числовой формат
В программе объявлено число, содержащее более 36 цифр или в
числе с плавающей запятой не указано значение показателя в
компаненте Е.
489 Invalid function/procedure name
Неверное имя процедуры/функции
В случае функции, за FN должна следовать буква, а затем
другие буквы, цифры и точки, завершать может идентификатор типа
(%, &, !, #, или $). В случае процедуры имя должно начинаться с
буквы, включать другие буквы, цифры и точки, но не должно включать
идентификатор типа.
490 No parameters with INLINE SUB
В INLINE SUB не заданы параметры
Не указан список формальных параметров в объявлении процедуры
INLINE SUB. За число и тип параметров, перем\даваемых ассемблерной
программе отвечает она сама. Никакая проверка типов не выполняется
компилятором.
491 Only $INLINE allowed here
Здесь допустимо только $INLINE INLINE
В процедуре SUB с режимом INLINE допустимы только операторы
$INLINE.
492 $INLINE requires SUB INLINE
Для $INLINE необходимы SUB INLINE
Операторы $INLINE допустимы только в процедурах SUB с режимом
INLINE.
493 $INCLUDE file not found
Файл $INCLUDE не найден
Включаемый файл не найден в заданном маршруте, текущем
каталоге или маршруте, указанном в режиме DIRECTORIES в меню
SETUP. Проверьте маршруты или убедитесь в том, что заданный
включаемый файл существует.
494 $INCLUDE disk error
Ошибка на диске при выполнении $INCLUDE
При попытке открытия ТУРБО БЕЙСИКОМ включаемого файла в
процессе компилляции возникла ошибка на диске.
495 $INCLUDE file too large
Файл $INCLUDE слишком велик
Включаемые файлы, так же как и все файлы, загружаемые в
5
редактор ТУРБО БЕЙСИКА, не должны превосходить 64К.
496 $INLINE file not found
Файл $INLINE не найден
Файл INLINE не найден ни в заданном маршруте, ни в текущем
каталоге. Убедитесь в том, что указанный включаемый файл
существует.
497 $INLINE disk read error
Ошибка чтении с диска файла $INLINE
При попытке открытия ТУРБО БЕЙСИКОМ файла INLINE в процессе
компиляции возникла ошибка на диске.
498 Temporary file acces error
Ошибка доступа к временному файлу
При компиляции на диск (в файлы .ЕХЕ или .ТВС) компилятор не
смог осуществить доступ к временному файлу. Проверьте каталог ТУРБО
в режиме DIRECTORIES в меню SETUP, чтобы убедиться в том, что
заданный каталог существует.
499 Destination file write error
Ошибка записи в файл назначения
При компиляции на диск (в файлы .ЕХЕ или .ТВС) компилятор
получил информацию об ошибке записи на диск.
600-610 Internal error
Внутренняя ошибка
Если возникла какая-либо из этих ошибок неьедленно сообщите
группе технического сопровождения.
6
ПРИЛОЖЕНИЕ_F
Справочные_материалы
Этот раздел посвящен справочным материалам и включает
скэн-коды клавиатуры и расширенные коды.
Расширенные_коды_клавиш
Расширенными кодами клавиатуры кодируются клавиши, или их
комбинации, которые не могут быть представленны в коде ASCII.
Расширенные коды возвращаются системной переменной $INKEY. В
двухсимвольной строке в качестве первого символа возвращается
ноль. Обычно вторым информационным символом является скэн-код
первой клавиши.
В таблице F- 1 представлены информационные кода и их значения.
Таблица_F-1. Расширенные_коды_клавиатуры
_________________________________________________________________
Информационный код Значение
__________________________________________________________________
3 NULL (пустой символ)
15 Shift Tab (-<++)
16-25 Alt-Q/W/E/R/T/Y/U/I/O/P
30-38 Alt-A/S/D/F/G/H/J/K/L
44-50 Alt-Z/X/C/V/B/N/M
59-68 Клавиши F1-F10 (Задействованы как
програмные ключи)
71 Home
72 Стрелка вверх
73 PgUp
75 Стрелка влево
77 Стрелка вправо
79 End
80 Стрелка вниз
81 PgDn
82 Ins
83 Del
84-93 F11-F20 (Shift F1 до Shift F10)
94-103 F21-F30 (Ctrl F1 до F10)
104-113 F31-F40 (Alt F1 до F10)
114 Ctrl-PrtSc
115 Ctrl стрелка влево
116 Ctrl стрелка вправо
117 Ctrl-End
118 Ctrl-PgDn
119 Ctrl-Home
120-131 Alt-1/2/3/4/5/6/7/8/9/0/-/=
132 Ctrl-PgUp
133 F11
134 F12
135 Shift-F11
136 Shift-F12
137 Ctrl-F11
138 Ctrl-F12
139 Alt-F11
140 Alt-F12
7
Скэн-коды_клавиатуры
В скэн-кодах кодируются клавиши на клавиатуру IBM PC в
соответствии с тем, как их понимает ТУРБО БЕЙСИК. Эти клавиши
особено полезны при работе на уровне языка ассемблер. Обратите
внимание, что скэн-коды клавиатуры приведены в таблице F2 в
шестнадцатиричном виде.
8
Таблица_F-2. Скэн-коды_клавиатуры
__________________________________________________________________
Клавиша Шестнадцатиричный Клавиша Шестнадцатиричный
скэн-код скэн-код
__________________________________________________________________
Esc 01 Стрелка
влево/вправо 0F
!1 02 Q 10
@2 03 W 11
#3 04 E 12
$4 05 R 13
%5 06 T 14
^6 07 Y 15
&7 08 U 16
*8 09 I 17
(9 0A O 18
)0 0B P 19
_- 0C [{ 1A
+= 0D ]} 1B
BckSp 0E Enter 1C
Ctrl 1D |\ 2B
A 1E Z 2C
S 1F X 2D
D 20 C 2E
F 21 V 2F
G 22 B 30
H 23 N 31
J 24 M 32
K 25 ,< 33
L 26 .> 34
;: 27 /? 35
"' 28 Левый.Shift 36
~ 29 PrtScr 37
Правый.Shift 2A Alt 38
Кл.пробел 39 7Home 47
Caps Lock 3A 8Стрелка вверх 48
F1 3B 9Pg Up 49
F2 3C - 4A
F3 3D 4Стрелка влево 4В
F4 3E 6Стрелка вправо 4D
F5 3F 5 4C
F6 40 + 4E
F7 41 1End 4F
F8 42 2Стрелка вниз 50
F9 43 3PgDn 51
F10 44 Olns 52
F11 D9 Del 53
F12 DA
Num Lock 45
Scrol Lock 46
_________________________________________________________________
9
ПРИЛОЖЕНИЕ_G
DOS_для_начинающих
Если вы не знакомы с компьютерами или DOS, у вас могут быть
затруднения с пониманием отдельных терминов, используемых в данном
руководстве. В этом приложении вашему внимания предлагается
краткий обзор следующих положений и функций DOS:
.Что такое DOS и для чего он нужен
.Надлежащий способ загрузки программ
.Каталоги, подкоталоги и команда PATH
.Использование файлов АUTOEXEC.BAT
Информация данного раздела ни в коей мере не претендует на
полное описание операционной системы DOS. Для более полной
информации обратитесь к руководству пользоввателя по MS-DOS или
РС-DOS, которым снабжена ваша вычислительная система.
ТУРБО БЕЙСИК работает под управлением операционных систем
MS-DOS и РС-DOS версий 2.0 и более поздних.
Что_такое_DOS?
DOS это сокращенное название дисковой операционной системы.
Под МS-DOS понимают версию DOS фирмы Microsoft, РС-DOS - это DOS в
исполнении IBM. DOS является координатором движения, менеджером и
опреатором транзакций, возникающих между отдельными частями
вычислительной системы, между компьютером и вами. DOS работает в
фоновом режиме, зоботясь о выполнении служебных компьютерных
функций, о которых вы нехотели бы и думать - например, о передаче
символов между клавиатурой и компьютером, между компьютером и
принтером, между вашими дисками и внутренней памятью (RAM).
Выполнение других транзакций вы инициируете вводом
команды в командной строке DOS; иначе говоря, непосредственно
после подсказки DOS.
Подсказки DOS выглядят следующим образом:
А>
В>
С>
Прописная буква относится к активному дисковому накопителю
(который DOS и вы используете в данный момент). К примеру,
подсказка А> означает, что вы работаете с файлами на накопителе А,
и команды, которые вы зададите DOS будут обращены к этому
накопителю. Если вы захотите переключиться на другой диск, сделав
его активным, все, что вам следует сделать,- это набрать букву
диска, за которым следует двоеточие, и нажать клавишу "Enter".
Например, чтобы перейти на накопитель В, ввудите:
В:Enter
Есть несколько команд, которые вам в DOS придется часто
использовать, если уже не пришлось, такие как:
DEL ERASE Удалить файл
DIR Посмотреть список файлов на диске, на который
вы настроились
COPY Скопировать файлы с одного диска на другой
TB Загрузить ТУРБО БЕЙСИК.
Для DOS не имеет значения, вводите вы строчные буквы,
прописные или и те и другие в перемешку, так что вы можете вводить
их как вам нравится.
Предположим, что вы уже знаете, как пользоваться первыми
тремя указанными командами; а если нет, - обратитесь к руководству
по DOS. Далее мы рассмотрим надлежащий способ загрузки программы,
такой как ТУРБО БЕЙСИК (см. последнюю команду в списке).
10
Как_загрузить_программу
На вашем диске с системой ТУРБО БЕЙСИК вы найдете файл с
именем ТВ.ЕХЕ. Этот програмный файл содержит все основные функции
БЕЙСИКА. Имя файла с расширением (или последним именем) .СОМ или
.ЕХЕ означает, что это програмный файл, который можно загружать и
запускать (использовать) вводом только его "первого имени" в
командной строке DOS. Следовательно, для вызова программы ТУРБО
БЕЙСИКА наберите на клавиатуре ТВ и наберите Enter, чтобы
загрузить ТУРБО БЕЙСИК в память вашего компьютера.
При загрузке ТУРБО БЕЙСИКА или другой подобной программы
следует помнить: для того, чтобы загрузить программу, нужно
настроиться на диск и каталог, в котором она находится. Если вы не
задали маршрут DOS, опреационная система не будет знать, где
искать программу.
Пусть системный диск с программой ТВ.ЕХЕ находится на
накопителе А, а вы видите на экране подсказку В>. Если вы введете
ТВ и нажмете Enter, DOS не будет знать, что имеется в виду и
вывудут сообщение "Неверная команда или имя файла".
Другими словами, вы на неправильном пути. Еаким образом, если
получено соответствующее сообщение об ошибке, настройтесь на
накопитель А с помощью ввода А: и нажмите Enter. Затем введите ТВ
и нажмите Enter, чтобы загрузить ТУРБО БЕЙСИК.
Вы можете задать "маршрут" для ваших файлов на БЕЙСИКЕ так,
что DOS сможет найти их с помощью команды Path. Более полную
информацию вы найдете в разделе "Файл AUTOEXEC.BAT".
Каталоги
Каталог (или указатель) - это удобный способ организации
файлов на гибком или жестком диске. Каталоги позволяют
подразделить диск на несколько частей подобно раскладыванию
различных групп архивных папок в отдельные ящики.
Если, например,
вы решили собрать все архивные папки, касающиеся финансов, скажем,
банковые ведомости или папку с пододными налогами, ил др. в
отдельный ящик с ярлыком "Финансы". На вашем компьютере удобно
иметь один каталог для хранения файлов ТУРБО БЕЙСИКА, другой для
писем и т.д. При этом, если вы наберете DIR в командной строке
DOS, вам не придется в посиках нужного файла просматривать сотни
других имен. Будет выведен список файлов лишь того каталога, на
который вы настроились.
Хотя каталоги можно создавать и на гибких и на жестких
дисках, чаще всего они используются на жестких дисках. Это связано
с тем, что последние содержат значительно больший объем данных,
однако, это же приводит к необходимости структурной организации и
группировке данных.
Работая на уровне DOS, а не в ТУРБО БЕЙСИКЕ или какой-либо
другой программе, вы можете создавать новые каталоги, перемещать
файлы из одного каталога в другой и выводить список файлов в
конкретном каталоге.
В приведенных ниже примерах предполагается, что вы
используете систему на жестком диске, и настроены на жесткий диск
так, что на экране вы видите подсказку С>. Если вы хотите создать
каталоги на гибких дисках, замените в примере С на А или В.
Для того, чтобы создать каталог для файлов ТУРБО БЕЙСИКА,
следует выполнить следующее:
1. На подсказку С> наберите MRDIR BASIC и нажмите Enter. Команда
MKDIR сообщает DOS о том, что нужно создать каталог с именем
BASIC.
2. Введите CHDIR BASIC и нажмите Enter. Команда CHDIR настраивает
DOS на ваш каталог.
11
3. Затем поместите диск с ТУРБО БЕЙСИКОМ, который вы хотите
скопировать на одно из устройств для гибких дисков, скажем, А, и
введите команду СОРY А: *.* Enter (звездочки используются в
качестве шаблонов, обозначающие в данном случае все файлы).
Команда COPY заставляет DOS скопировать все файлы на устройстве А
в каталог BASIC на устройстве С. По мере копирования каждого
файла, на экране появляется соответствующее сообщение.
Oб этом все. К каталогу следует относиться также как и к
накопителю; для того, чтобы загрузить ТУРБО БЕЙСИК, следует,
прежде чем вводить ТВ, настроиться на каталог BASIC, иначе DOS не
сможет найти нужную программу.
Подкаталоги
Если вам действительно очень нравится структурная
организация, вы можете разбить каталоги на подкаталоги. Можно
создать столько каталогов и подкаталогов, сколько вам захочется -
не забудьте только, куда какие файлы вы поместили.
Подкаталог создается тем же способом, что и каталог. Для
того, чтобы создать подкаталог в каталоге BASIC (например для
хранения графических файлов), сделайте следующее:
1. Убедитесь в том, что вы в каталоге BASIC
2. Введите MKDIR GRAF Enter
3. Введите CHDIR GRAF Enter
4. Введите MKDIR GRAF Enter. Теперь вы в подкаталоге GRAF.
Если вы хотите хранить в этом подкаталоге уже имеющиеся
графические файлы, скопируйте их. Если они находятся на гибком
диске с расширением .GRP, поставьте диск на накопитель А и нажмите
Enter. Если файлы находятся в корневом каталоге жесткого диска,
наберите COPY *.GRP и нажмите Enter.
Где_я_нахожусь?_Подсказки_$p$g
Возможно, что вы уже заметили, что при смене каталогов, вы
видите одну и ту же подсказку С>; т.е., не очевидно, в каком
каталоге или подкаталоге вы находитесь. Это может запутать,
особенно если вы на какое-то время ушли с машины. Легко забыть,
где вы до этого времени находились.
DOS предоставляет простой способ обнаружить это. Введите
prompt=$p$g
и с этого момента (до тех пор, пока вы не выключите компьютер или
не перезагрузитесь) подсказака точно покажет вам, где вы
находитесь. Попробуйте. Если вы еще в подкаталоге GRAF, подсказка
DOS будет выглядеть как:
С:\BASIC\GRAF>
Ффйл_AUTOEXEC.BAT
Можно избежать ввода команды посказки (которая обсуждалась
выше) для того, чтобы посмотреть "где вы находитесь" при каждом
включении компьютера, если внести ее в файл AUTOEXEC.BAT. Он будет
выполнять эту команду каждый раз когад вы включите машину.
Файл AUTOEXEC.BAT - это удобное средство и он может выполнять
множество других функций кроме этой. Но вместо того, чтобы
углубляться в детали здесь,мы предлагаем обратиться к руководству
по DOS. Однако, мы покажем вам, как создать файл AUTOEXEC.BAT,
который автоматически изменит посказку с тем, чтобы вы всегда
знали, где в структуре каталогов вы находитесь, установит маршрут
каталога BASIC и загрузит ТУРБО БЕЙСИК.
Команда задания маршрута (path) в DOS сообщает компьютеру,
где искать команды, которые операционная система не может узнать.
DOS узнает программы только в текущем (том, на который настроен)
12
каталоге, если не задан маршрут каталога, содержащий подходящие
программы или файлы.
В следующем примере устанавливается маршрут к каталогу BASIC
и подкаталогу FILES.
Если в корневом каталоге имеется файл AUTOEXEC.BAT, ваш
компьютер выполнит все, что в нем содержится в тот момент, когда
компьютер будет включен (корневой каталог - это тот, для которого
указывается С> или С:\ без всякого имени каталога).
Далее, изложено, как создать файл AUTOEXEC.BAT:
1. Наберите CHDIR\ для того, чтобы настроиться на корневой
каталог.
2. Наберите COPY CON AUTOEXEC. BAT Enter. Эта команда сообщает DOS,
что все введенное вами дальше должно быть скопировано в файл
AUTOEXEC.BAT.
3. Введите
ECHO OFF
PROMPT=$P$G
PATH=C:\BASIC;C:\BASIC\FILES
CHDIR\BASIC
\BASIC
Ctrl Z Enter
Команда Ctrl Z сохраняет введенные команды в файле
AUTOEXEC.BAT.
Для того, чтобы проверить ваш новый файл AUTOEXEC.BAT,
перезагрузите систему, нажав одновременно Ctrl+Alt+Del. Когда
загрузка завершится, вы увидите подсказку C:\BASIC>.
Система_каталогов
Как перейти из одного каталога в другой? Это зависит от того,
куда вы хотите перейти. Основная команда DOS для смены каталогов -
это CHDIR. Используйте ее следующим образом:
* Для перехода из одного каталога в другой:
например, для перехода из каталога BASIC в каталог WP, введите:
C:\BASIC>CHDIR\WP Enter
Обратите внимание на обратную косую черту (\) перед именем
каталога. При каждом переходе из одного каталога в другой, не
связанный с ним, перед именем каталога следует указывать обратную
косую черту.
* Для перехода из каталога в подкаталог:
например, из каталога BASIC в подкаталог GRAF, введите за
подсказкой с именем каталога BASIC
C:\BASIC>CHDIR GRAF Enter
В этом случае обратная косая черта вам не понадобится, так как
каталог GRAF является ответвлением каталога BASIC. На самом деле,
если вы используете обратную косую черту, DOS поймет вас
неправильно. При указании обратной косой черты DOS посчитает, что
ее каталог GRAF входит в основной (корневой) каталог.
* Для перехода из подкаталога в пораждающий его каталог:
например, для перехода из подкаталога GRAF в каталог BASIC,
введите вслед за подсказкой подкаталога GRAF:
C:\BASIC\GRAF>СHDIR ..Enter
и DOS вернет вас в каталог BASIC. Каждый раз, когда вам
понадобится вернуться в пораждающий каталог, укажите за командой
CHDIR пробел и две точки.
* Для возврата в корневой каталог:
корневой каталог - это исходный каталог, он является "родителем"
(и даже "прародителем") всех каталогов (и подкаталогов).
Находясь в корневом каталоге вы увидите посказку C:\>
Для перехода в корневой каталог введите CHDIR \Enter. Обратная
косая черта без имени каталога сообщает DOS, что вы хотите
13
вернуться в корневой каталог.
Конфигурирование_операционной_среды
Если у вас есть специальные требования к аппаратным средствам
или вы разработчик, нуждающийся в динамической среде, возможность
установки переменных среды предоставляет вам определенный выбор.
Переменные среды задаются с помощью команды SET в DOS и
переопределяют опции компилятора и/или программы.
Переменные среды воздействуют на всю среду, в кото рой
выполняется программа. Таким образом, установленный однажды
параметр действует до тех пор, пока он не будет переустановлен или
пока машина не будет выключена. Если значения параметров
устанавливаются всегда одним и тем же образом, вы можете ввести
команду SET в пакетный (bath) файл, или в файл AUTOEXEC.BAT
(описание этого файла см. выше).
Переменные среды в ТУРБО БЕЙСИКЕ позволяют переопределять
опции компилятора и режимы выполнения для сопроцессора 8087 и
проверки цветного графического адаптера (CGA). Предположим, что вы
хотите использовать сопроцессора 8087 в опреационной среде. На
подсказку DOS введите:
SET 87=yes
где "yes" означает, что у вас есть сопроцессор, "no" означает, что
если даже 8087 имеется, использовать его не следует. По умолчанию
- "yes".
В случае "снежной проверки" CGA, ввудите
SET CGA SNOWCHK=no
где "no" отменяет выполнение "снежной проверки", а "yes" ее
выполняет. По умолчанию - "yes".
Когда компилятор начинает работу, или запускается на
выполнение сгенерированные файлы .ЕХЕ, происходит просмотр
пространства переменной среды с целью определения их значений.
Хотя и нет необходимости в установке значений переменной среды,
они в вашем распоряжении в любой момент, когда вам это
понадобится. Если вы предпочтете не задавать их, текущий каталог
будет искать соответствующие файлы и создает временные файлы для
хранения переменных по умолчанию.
Это приложение предоставляет лишь краткий обзор DOS и
некоторых его функций. Если вы уже знакомы с тем, что изложено
здесь, вы можете изучить зуководство по DOS и обнаружить там
множество действий, которые выполняются с помощью операционной
системы. Там вы найдете множество других функций, здесь не
упомянутых, которые упростят и расширят вашу работу с компьютером.
ПРИЛОЖЕНИЕ_H
Краткое_описание_функций_и_процедур
Это приложение можно использовать как краткий справочник
процедур и функций, сгруппированных в соответствии с их действием.
Так, например, под заголовком "Символьные операции" приведена, в
частности, функция $BIN, которая возвращает двоичный символьный
эквивалент заданного числа, а также все остальные операции работы
со строками.
Связывание
CHAIN Вызывает цепной модуль ТУРБО БЕЙСИКА (с расширением
.ТВС).
COMMON Объявляет переменную (ые), передаваемые в цепную
программу.
RUN Перезапускает программу.
14
Определение_данных
DIM Объявляет массивы.
LET Присваивает переменной значение.
LOCAL Объявляет локальные переменные в процедуре или функции.
OPTION BASE Объявляет минимальное значение для индексов массива.
REM Отделяет програмные коментарии.
SHARED Определяет разделяемые (глобальные) переменные в
процедуре или функции.
STATIC Объявляет статические переменные в процедуре или
функции.
TRON/TROFF Включает и выключает трассировку выполнения.
15
ПРИЛОЖЕНИЕ D
Сравнение Турбо-Бейсика с Интерпретаторным Бейсиком
Существует три принципиальных различия между Т.Б. и И.Б.:
1.Компилятор против Интерпретатора
2.Расширение в Т.Б. языка Бейсик
3.Реализация компилятора
Каждая из этих статей определяет много других вторичных различий
между реализациями этих двух Бейсиков,которые будут рассмотрены здесь
детально.
Компилятор в сравнении с Интерпретатором
----------------------------------------
В Интерпретаторах существует тенденция затушевывать различие между
командами для создания программ и теми 6которые фактически используются
в программах;другими словами,системой создания программы и собственно
языком.Например,EDIT и AUTO не являются частью языка в том смысле,в ка-
ком его частями являются GOSUB и PRINT.Интерпретаторы исполняют програм-
мный код в порядке его следования.Тогда как компиляторы сначала сканиру-
ют все исходные операторы,а затем генерируют исполнительный код для ис-
ходных заявлений.Это последнее свойство позволяет Т.Б. как компилятору
предупредить попадание ошибок в программный код.
В следующем примере,где используется И.Б.:
10 x=5
20 if x=3 then goto 30:x=10:z="aaa"
во-первых,если Х никогда не равно 3,то операторы,следущие за then
никогда не будут исполнены и синтаксическая ошибка,связанная с попыткой
назначить строку числовой переменной,никогда не будет обнаружена.Во-вто-
рых,операторы x=10 и z="aaa" никогда не будут исполнены,если x=3,потому
что goto ориентировано на строку 30.Компилятор будет отмечать флагом лю-
бой "мертвый код",как ошибку компилирования.
Неподдерживаемые команды
------------------------
Т.Б. благодаря его поистине полноэкранному редактору и командам воз-
буждения из меню для вспомогательных функций ,не нуждается в любых опе-
раторах,относящихся к загрузке,хранению и редактированию исходных прог-
рамм;по этой причине они из Т.Б. выпали.Соответствущие команды И.Б.
обычно используются в режиме DIRECT и включают в свое число следущие:
AUTO (авто) LOAD (загрузить)
DELETE (стереть) NEW (новый)
EDIT (редактировать) RENUM (перенумеровать)
LIST (список) SAVE (хранить)
Т.Б. позволяет вам редактировать и создавать программы с использова-
нием текстового редактора,так что у вас нет необходимости в командах для
изменения или стирания программных строк(таких как EDIT и DELETE).Если
вы желаете нарушить строку сразу же перемещайте курсор к специфицирован-
ной строке и нажимайте Ctrl-Y.Точно так же ,нет необходимости в
LIST-вместо этого вы исполняете подходящие удары по клавишам для получе-
ния желаемой части программы на экране.
Функции главного меню Т.Б. обеспечивают выполнение некоторых за-
дач,которые в И.Б. реализуются с применением SAVE,LOAD,и NEW.А поскольку
в Т.Б. вы не нуждаетесь в нумерации строк,отпадает необходимость в AUTO
и RENUM.В Т.Б. не поддерживаются также и следущие команды:
CONT (продолжать)
Т.Б. не допускает повторный запуск прерванной программы.прерывание
программы с помощью STOP или Ctrl-Break есть то же самое,что использова-
ние оператора END (конец).
MERGE (Слить)
Т.Б. компилирует программы в исполнительный код,поэтому невозможно
сливать воедино строки исходной программы во время исполнения.
MOTOR (мотор)
Кассетное внешнее устройство,видимо ,не будет самой популярной осо-
-202 -
бенностью РС.
USR (пользователь)
Оператор CALL выполняет работу USR и даже более того.
Операторы ,требующие модификации
--------------------------------
CALL ABSOLUTE (вызвать абсолютно)
CALL ABSOLUTE принимает только целые параметры и было включено для
обеспечения минимальной совместимости с И.Б..Т.Б. дает более мощные про-
цедуры для полного программирования на языке ассемблера CALL INTERRUPT и
INLINE
CHAIN (цепочка)
сцепляемые программы должны компилироваться либо как .EXE-файлы,либо
как .TBC-файлы,в зависимости от выбора переключателя меню опций "Компи-
лировать в .EXE" или "Компилировать в цепочку".В операторе COMMON и пер-
воначальной,и сцепленной программ общие переменные должны перечисляться
в правильном порядке (хотя не обязательно с одинаковым именем).Вы не мо-
жете исполнять оператор CHAIN ,когда прогон выходит из среды Т.Б..Ис-
пользование CHAIN возможно только при прогоне из DOS.Опции диапазона но-
меров строк MERGE и DELETE не поддерживаются.DEFтип (определить
тип),TRON,TROFF(включить,выключить трассировку),OPTION BASE (опциональ-
ный базис).
Эти операторы качественно отличаются от аналогичных И.Б.Т.Б. расс-
матривает физическое положение каждого оператора в исходной программе,а
не в исполнительном проходе обьектной программы.Другими словами,имеется
ввиду,что положение этих операторов в период компилирования,а не прогона
,управляет их действием.Рассмотрим,в качестве примера приведенную ниже
простую программу,где используется DEFтип:
10 GOTO 30
20 DEFINT X
30 X=2.3
40 PRINT X
При исполнении этой программы в И.Б. ,невозможно увидеть оператор
определения типа в строке 20.Следовательно,используется тип переменной
по умолчанию(единичная точность),когда в строке 30 встречается перемен-
ная X,а затем на экран выводится 2.3.
Т.Б. рассматривает соображения касающиеся типа,попутно в период ком-
пиляции.Поскольку оператор DEFINT физически предшествует первому появле-
нию X,эта переменная становится целой и оператором PRINT выводится 2.
DRAW (чертить),PLAY (играть)
Оба эти оператора обеспечивают исполнение строк сложной инструкции,в
результате чего вычерчивается требуемая графика или играется заказанная
музыка,соответственно.В И.Б. строчная информация,которая обеспечивает
приведение этих команд в действие,может содержать имена строчных или
числовых переменных,заключенных в строке инструкций.Например,в И.Б. опе-
раторами
n=50
play "t=n;c"
устанавливается темп исполняемой музыки на 50 четвертых нот в минуту
и исполнение ноты с.Т.Б. не может понять такую конструкцию,поскольку
после компилирования вся информация об идентификаторе,ассоциируемой с
переменной n,теряется.Однако вы можете добиться того же эффекта,пользу-
ясь функцией VARPRT$:
n=50
play "t="+varprt$(n)+"c"
Функциональные параметры
------------------------
Что касается функциональных параметров,И.Б. дает вам возможность ис-
пользовать то же самое имя переменной параметра.Т.Б. дает сообщение об
ошибке по дублированию локальной переменной.
RUN (прогон)
Программа на Т.Б. может исползовать RUN для загрузки и исполнения
другой программы или повторного запуска себя самой ,но не существует
-203 -
способа повторно запустить текущую программу с какой-либо точки,кроме
начала;вы не можете специфицировать какую-либо опцию с номером строки.
Преобразование программ Интерпретаторного бейсика в Турбо-Бейсик.
-----------------------------------------------------------------
Первый шаг в преобразовании программ на И.Б. в Т.Б. состоит в сохра-
нении ее на диске в формате ASCII.Например,чтобы сохранить вашу програм-
му,набирайте:
SAVE "прогимя.txt",A
опция "А" вызывает выписку И.Б.
текстового (ASCII) файла без выпол-
нения символизации.Этот файл может непосредственно считываться в Т.Б.
,хотя если она больше 64К, вам придется разделять ее на отдельные главный
и включаемые файлы до того,как ее можно будет редактировать или компили-
ровать с помощью Т.Б.
Расширения языка Бейсик
------------------------
В Т.Б. добавлено много командных возможностей и расширений языка
Бейсик.Ниже обсуждаются некоторые расширения.
Структурированные операторы
---------------------------
Как усовершенствование И.Б.,Т.Б. используются операторы
IF/ELSEIF/ELSE/ENDIF и SELECT CASE для управления программным потоком и
поддержания легкого чтения программ.Новое блочно-структурированное заяв-
ление DO/LOOP дает возможность всеобьемлющего управления программными
циклами с тестированием в начале и в конце цикла.
Ввод/вывод двоичного файла
---------------------------
Т.Б. поддерживает новый режим BINARY (двоичный) ввода и вывода файла.Ко-
манды GET$(получить) ,PUT$ (ввести) и SEEK (найти) предоставляют прог-
раммисту очень низкий уровень управления файлом.Программам может считы-
вать или записывать байты в файл и позиционировать файловый указатель на
любом байте.
Определения функций и процедур
-------------------------------
Определение функций в Т.Б. может быть в виде единственной строки,по-
добной стандартным функциям И.Б.,и многострочным,допускающим механизм
более структурированной подпрограммы .Операторы SUB (подпрограмма) или
ENDSUB (конец подпрограммы) дают возможность создавать процедуры.
Т.Б. поддерживает процедуры и функции с истинной поддержкой локаль-
ных переменных.Для определения того,какие переменные будут проталкивать-
ся на стек во время реккурсивного исполнения,используется оператор LOCAL.
Интерфейс языка ассемблера
----------------------------
Оператор CALL имеет в Т.Б. три формы:
CALL процедурыимя,CALL INTERRUPT и CALL ABSOLUTE.CALL INTERRUPT ис-
пользует команду REG для подачи данных через буфер регистров.Вставляемые
в строку (INLINE) байты языка ассемблера или .COM-файлы могутзаключаться
в процедуры с использованием директивы $INLINE (в строку).
Встроенные функции
------------------
В отличии от И.Б.,трансцедентные функции Т.Б. возвращают результаты
двоичной точности.
Новые команды
---------------
В Т.Б. имеется много новых команд,а также опций для старых.В таблице
частично перечислены улучшения И.Б.
-------------------------------------------------------------------
BIN$ возвращает двоичную форму целого
-------------------------------------------------------------------
BINARY новый файловый режим для низкоуровнего доступа
-------------------------------------------------------------------
CEIL,FIX плавающая точка для целых функций
-204 -
-------------------------------------------------------------------
COMMAND$ возвращает трейлер командной строки
-------------------------------------------------------------------
CVMS,CVMD, транслирует существующие данные формата МИКРОСОФТ
MKMS$,MKMD$
-------------------------------------------------------------------
DECR/INCR альтернативный способ приращения и сбрасывания переменных
--------------------------------------------------------------------
DEFLNG,MKL$,CVL поддержка нового типа длинных целых
--------------------------------------------------------------------
DELAY ожидание n секунд (для независимых машинных задержек)
--------------------------------------------------------------------
DO/LOOP гибкая конструкция цикла в стандарте ANSI
--------------------------------------------------------------------
ERADR адрес самой последней ошибки
--------------------------------------------------------------------
EXIT покидается цикл FOR/NEXT,WHILE/WEND или DO/LOOP,IF-блоковый,про
цедура либо функция
--------------------------------------------------------------------
EXP2,EXP10 возвращается результат возведения в степень
--------------------------------------------------------------------
GET$ считываются данные из файлов в режиме BINARY
--------------------------------------------------------------------
IF/ELSEIF/ELSE/ END IF выполняется множественный тест если
--------------------------------------------------------------------
INLINE вставляются байты непосредственно в обьектный код
--------------------------------------------------------------------
INSTAT возвращается состояние клавиатуры
--------------------------------------------------------------------
LCASE$ преобразуется строка в нижний регистр
--------------------------------------------------------------------
LOCAL/SHARED/STATIC заявляются переменные процедур и функций
--------------------------------------------------------------------
LOG2,LOG10 возвращаются логарифмы по основанию 2 и 10
--------------------------------------------------------------------
MEMSET определяется пространство в высокой памяти
--------------------------------------------------------------------
MTIMER таймер тонкой разрешающей способности
--------------------------------------------------------------------
PUT$ записываются данные в файл в режиме BINARY
--------------------------------------------------------------------
REG считывание /запись буфера регистров
--------------------------------------------------------------------
SEEK определение позиции в файлах в режиме BINARY
--------------------------------------------------------------------
SELECT CASE мощные возможности тестирования по операторам CASE
--------------------------------------------------------------------
SUB/END SUB определяется процедура
--------------------------------------------------------------------
VARSEG возвращается адрес сегмента или переменной массива
--------------------------------------------------------------------
Если вы непреднамеренно используете некоторые из этих резервирован-
ных слов в качестве переменных6то получите сообщение о синтаксической
ошибке периода компилирования.Для правильного компилирования выполняйте
операцию найти и заменить с целью исправить конфликтный имена переменных.
Реализация компилятора
-----------------------
Реализация компилятора затрагивает некоторые существующие Б.-прог-
раммы,а также повышает возможности управления компилированием программ и
генерированием кода.Мы уже обсудили ряд различий и расширений;другие
важные моменты,которые проистекают из реализации Т.Б.,будут обсуждаться
в этом разделе.
Редактор и большие программы
-----------------------------
-205 -
Интегрированный в Т.Б. редактор допускает размер исходной программы
не более 64К.Директива $INCLUDE (включить) дает возможность компилиро-
вать программы более 64 К.Если у вас есть программа более 64К,потребует-
ся расщепить ее на несколько отдельных файлов.Для спецификациипрограм-
мы,которую вы желаете запустить на компилирование в Т.Б. (если она отли-
чается от файла,находящегося в данный момент в буфере редактора),исполь-
зуйте опцию главного файла из меню.
Редактор Т.Б. поддерживает строки шириной до 248 литер.И.Б. поддер-
живает строки шириной до 255 литер.Строки,которые длинее 248,будут авто-
матически разделяться возвратом каретки после колонки 248.Однако вы бу-
дете продолжать нуждаться в привязке правильности форматообразования
строк перед загрузкой вашей программы в редактор Т.Б.Т.Б. также поддер-
живает программы ,которые больше 64К исполнительного кода.Директивой
$SEGMENT специфицируется ,что будет генерироваться новый сегмент кодов,а
все CALL/GOTO будут изменены на далекие вызовы и переходы.
