Команда Read

Read присваивает локальным и глобальным переменным значения, которые считываются с устройства ввода. Символ звездочка * перед именем переменной означает, что читается ровно один символ, причем заданная переменная получает целочисленное значение, равное коду ASCII этого символа. Возможно задание ограничения длины ввода, оно отделяется от имени переменной символом номера. Точно так же может быть задано и время ожидания для ограничения времени ввода, оно начинается с двоеточия.

Позволяет выдавать подсказку пользователю и вводить ответ пользователя в переменную. Синтаксис:

Read < список аргументов через запятую>

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

! – начать новую строку;

# – начать новую страницу;

? n – ввод с позиции n экрана;

* (звездочка) перед переменной – это ввод одного символа;

: (двоеточие) после имени переменной – задает время ожидания ввода в секундах;

< имя переменной> #< число> – задает ввод нескольких символов, количество которых задается числом.

Пример:

SAMPLES> read x

Большой привет

Так как READ разрешает ввод подсказки, то она разделяет функциональность команды write. Можно ждать ответ пользователя неограниченное время или задать ограничение на ожидание: как долго (в сек.) ждать. Если пользователь ничего не ввел и нажал Enter, переменная будет содержать пустую строку.

Можно ограничить число вводимых символов.

SAMPLES> read!, " Введите 5 символов и не нажимайте < Enter>: ", z#5

Введите 5 символов и не нажимайте < Enter>: abcde

Можно ограничить время ожидания.

SAMPLES> read? 30, " Введите Ваше имя: ", n

Введите Ваше имя: Александр

SAMPLES> read!, " У Вас только 5 секунд на ответ: ", x: 5

У Вас только 5 секунд на ответ:

SAMPLES> Read x, ^G1(ind)

SAMPLES> Read " Введите имя пользователя: ", username

SAMPLES> Read * z

SAMPLES> Read: $Data (g)!, " Дата рождения? ", date # 10

SAMPLES> Read @a: 10

Open

Команда Open служит для открытия устройства или файла.

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

Open device

Open 3, prnt:: time

Open: 'closed @band

Open term: (Param): 20

Close

Освобождает все зарезервированные, заданные в виде аргумента устройства. За аргументом могут следовать специфичные для устройства параметры. Close " DEV", 3

Close: bed > 3 line

Close tty: (/DELETE)

Use

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

Use device

Use: status = " OPEN" ger

Use 3: (parameter)

Use @print

2. Команды для выполнения операций с переменными: