BETA BASIC

Начало см. стр. 3, 47, 91

34. LIST FORMAT число.

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

Команда имеет несколько режимов, которые задаются параметром. Начальное состояние после загрузки Бета Бейсика LIST FORMAT 0.

LIST FORMAT 0.

Эта команда дает распечатку, похожую на ту, которую мы получаем в стандартном БЕЙСИКе, но есть незначительное отличие, заключающееся в том, что если строка программы длиннее, чем строка экрана, то перенос ее на вторую экранную строку выполняется со сдвигом. Таким образом, левые пять столбцов экрана содержат только номера программных строк и текст становится более разборчивым и удобочитаемым.

LIST FORMAT 1.

Распечатка по этой команде делается таким образом, что каждый оператор печатается с новой строки. Более того, некоторые из операторов (см. ниже) печатаются со смещением вправо на одну позицию, что позволяет распечатывать программу "лесенкой", так как это принято в языках, поддерживающих структурное программирование, например "ПАСКАЛЬ", "СИ" и др.

LIST FORMAT 2.

Действие то же, что и для LIST FORMAT 1, но автоматическое смешение для некоторых операторов выполняется не на одну, а на две позиции вправо.

LIST FORMAT 3.

Действие то же, что и для LIST FORMAT 0, но печать программы выполняется без номеров строк.

LIST FORMAT 4.

Действие то же, что и для LIST FORMAT 1, но печать программы выполняется без номеров строк.

LIST FORMAT 5.

Действие то же, что и для LIST FORMAT 2, но без номеров строк.

Для глаза приятнее воспринимать смещение "лесенкой" на две позиции, но поскольку у нас невелика ширина экранной строки всего 32 символа, то ее может оказаться недостаточным и поэтому введены режимы 1 и 4.

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

DEF PROC, DO, FOR сдвигают все последующие операторы вправо на один или на два символа до тех пор, пока не встретятся соответствующие им END PROC, LOOP или NEXT.

Операторы IF, ON ERROR и ON сдвигают все прочие операторы своей программной строки вправо.

Операторы ELSE и EXIT IF отменяют сдвиг текущего оператора на одну или две позиции.

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

Пример действия команд LIST FORMAT 0 и LIST FORMAT 2 показан ниже.

100 DEF PROC primer

110 FOR n=1 TO 10: PRINT "primer": NEXT n

120 DO: PRINT a$: INPUT b$

130 PRINT "abc": LOOP

140 IF x=1 THEN: PRINT "yes": PAUSE 50: ELSE: PRINT "no" 150 END PROC

100 DEF PROC primer

110 FOR n=1 TO 10 PRINT "primer"

NEXT n 120 DO

PRINT a$ INPUT b$

130 PRINT "abc" LOOP

140 IF x=1 THEN PRINT "yes" PAUSE 50

ELSE

PRINT "no" 150 END PROC

Если Вы очень привыкли к стандартному БЕЙСИКУ, то первое впечатление будет, что второй листинг выглядит несколько странно, но немного практики и вы почувствуете, насколько он удобнее.

35. LIST PROC имя процедуры.

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

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

Может быть, Вам захочется хранить имя процедуры в строковой переменной. Команда LIST PROC не сможет тогда ее обработать напрямую и требуется обходной прием:

10 INPUT a$: KEYIN "LIST PROC"+a$

Две системные переменные содержат номера первой и последней строк процедуры, заданной в LIST PROC. Их адреса 23635 и 57358, соответственно. Работа с ними иногда может быть очень полезной и ее удобно выполнять, используя функцию DPEEK.

36. LIST REF.

REF ключевое слово на клавише "SHIFT"+"7". См. также REF.

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

Если в некоей программной строке метка существует не один раз, то при печати списка этот номер строки появится многократно

Например:

10 FOR n=1 TO 10: PRINT n

20 NEXT n

Для такой программы команда LIST REF n даст следующий список:

10

10

20

Чтобы направить список на принтер, Вы можете использовать команду LLIST REF или:

LIST #(номер потока) REF метка

37. LOCAL переменная <,переменная><,переменная>...

Клавиша: "SHIFT" + "3"

См. также главу 3 "Процедуры" и раздел "DEF PROC".

Команда LOCAL позволяет создавать специальные переменные, которые существуют только внутри заданных процедур. (Параметры процедур автоматически имеют статус локальных и потому не нуждаются в объявлении их оператором LOCAL.) Использование команды LOCAL для создания локальных переменных в процедурах имеет то преимущество, что исключает образование помех, вызванных тем, что процедура может изменить содержимое какой либо переменной, относящейся к главной программе. Благодаря этой команде процедура может иметь переменные x и a$ и изменять их как угодно, не изменяя переменные x и a$ в главной программе.

Команда LOCAL может быть использована только в теле объявленной процедуры, иначе система выдаст сообщение об ошибке "Missing DEF PROC". Самое удобное для нее место после объявления процедуры, сразу за DEF PROC. Тогда при чтении распечатки сразу становится ясно, какие переменные в процедуре используются. По желанию Вы можете иметь в процедуре несколько команд LOCAL.

Если переменные, объявленные как LOCAL, до этого объявления в программе уже существовали, то они "прячутся". На самом деле они, конечно существуют в области программных переменных и команда CLEAR их не уничтожит, но с точки зрения процедуры их как бы нет. В процедуре теперь эти имена могут использоваться снова. В конце работы процедуры все переменные, объявленные как LOCAL, будут уничтожены и исходные значения (если они были спрятаны) будут восстановлены. Вот простой пример.

10 LET n=1

20 test: REM чтобы выйти из курсора "К" воспользуйтесь ведущим пробелом. 30 PRINT n

40 STOP

100 DEF PROC test

110 LOCAL n

120 LET n=999

130 PRINT n

140 END PROC

Запустите этот пример и убедитесь, что n в процедуре равно 999, а вне ее n равно 1. Если вы опустите строку 120, то n не будет существовать внутри процедур, а если Вы опустите строку 10, то n не будет существовать в главной программе.

Если наша процедура test будет внутри себя вызывать некую субпроцедуру (например из строки 125), то для нее переменная n со значением 999 будет глобальной, для этой субпроцедуры процедура test является как бы главной программой.

Все переменные, доступные в процедуре являются глобальными по отношению к процедурам, вызываемым из нее. Чтобы "спрятать" эти переменные в нижележащих процедурах. Вы можете и в них использовать оператор LOCAL или использовать их в списке параметров.

В отличие от многих прочих диалектов БЕЙСИКа, БЕТА БЕЙСИК поддерживает локальные массивы. Если, к примеру, в главной программе Вы используете а$, то в процедуре командой LOCAL а$ все строковые массивы а$ или переменные а$ будут локальными и не повлияют на переменные главной программы. Если Вы хотите числовой массив сделать локальным, то после его имени надо использовать круглые скобки. Например, LOCAL b(). Это "спрячет" любой существующий массив b(). После этого Вы можете в процедуре создать свой новый локальный массив b() того размера, который Вам нужен.

38. LOOP

или LOOP WHILE условие

или LOOP UNTIL условие клавиша: L

См. также DO, EXIT IF.

LOOP это нижняя граница цикла DO LOOP (см. DO). Команда LOOP, заданная сама

по себе вызывает возвращение исполнения программы к соответствующему оператору DO. LOOP может употребляться вместе с кодификаторами WHILE и UNTIL, которые

обеспечивают возврат в начало цикла по условию.

LOOP WHILE условие обеспечивает возврат назад, к вершине цикла только в том случае, если <условие> справедливо, в противном случае выполняются операторы и строки, стоящие за LOOP.

LOOP UNTIL условие имеет противоположное действие. Если указанное <условие> справедливо, возврат к вершине цикла не выполняется, а выполняется, когда оно ложно.

Если Вы используете в программе оператор LOOP без соответствующего DO, то получите сообщение об ошибке: T,"LOOP without DO".

39. MERGE

См. также DEFAULT = устройство. Эта команда имеет дополнительную возможность, которую использовать смогут только немногие владельцы микродрайва. Она позволяет загружать без автозапуска те программы, которые выполнены автостартующими. С ленты это можно делать и так.

40. MOVE

Эта команда тоже развивает возможности владельцев микродрайва. Она теперь позволяет перемещать не только блоки данных, но и программы, машинный код и массивы.

Чтобы перенести файл "test" с драйва 1 на драйв 2, делайте так: MOVE "m"; 1; "test" TO "m"; 2; "test"

Команда сработает, независимо от физической природы файла. Хоть MOVE и выглядит удобной командой, на практике большие файлы быстрее перемещаются через SAVE/LOAD.

41. ON

Клавиша: О

БЕТА БЕЙСИК обеспечивает две различные формы оператора ON.

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

Это довольно традиционный оператор для различных диалектов БЕЙСИКа, хотя и довольно архаичный в эпоху широкого применения процедур.

Вторая форма позволяет не только избрать строку, но и оператор. Пример. Первая форма.

GO TO ON число, номер строки, номер строки, номер строки...

или

GO SUB ON число, номер строки, номер строки, номер строки...

(Более стандартной выглядела бы форма ON число GO TO строка…, но клавиатурная система "Спектрума" делает ее усложненной).

Обычно при программировании на "Спектруме" такой многопозиционный переключатель организуют так:

10 INPUT choice:

GO TO choice*100+100

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

10 INPUT choice:

GO TO ON choice: 90,135,60,40 20 PRINT "Enter 1 to 4": GO TO 10

В этом примере будет выполнен переход к строке 90, если choice равно 1, к строке 135, если choice равно 2, к строке 60, если choice равно 3 и т.д. Если choice не входит в диапазон от 1 до 4, то никакого перехода не делается, а выполняется следующей оператор или программная строка, а она предоставляет пользователю возможность повторить свой