Языки Бейсик

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

Пример:

'Для выполнения этого примера нужен цветной графический адаптер.

SCREEN 1

CIRCLE (106, 100), 75, 1

LINE (138, 35)-(288, 165), 1, B

PAINT (160, 100), 2, 1

См. также ASC, CHR$, CIRCLE, DRAW, LINE, SCREEN,

Атрибуты и Значения Цвета, Режимы Экрана

PALETTE-оператор

Изменяет установки атрибутов цвета в текущем режиме экрана. PALETTE и PALETTE USING работают только в системах с адаптерами EGA, VGA или MCGA.

Формат записи:

PALETTE [атрибут%,цвет&]

PALETTE USING имя_массива#[(индекс%)]

ãäå

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

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

172 Языки Бейсик

Пример:

'Для выполнения этого примера нужен цветной графический адаптер. PALETTE 0, 1

SCREEN 1

FOR i% = 0 TO 3: a%(i%) = i%: NEXT i%

LINE (138, 35)-(288, 165), 3, BF

LINE (20, 10)-(160, 100), 2, BF

DO

FOR i% = 0 TO 3

a%(i%) = (a%(i%) + 1) MOD 16 NEXT i%

PALETTE USING a%(0) LOOP WHILE INKEY$ = ““

См. также COLOR, SCREEN, Атрибуты и Значения Цвета, Режимы Экрана

PCOPY-оператор

Копирует одну страницу видеопамяти в другую.

Формат записи:

PCOPY исх_страница%,приним_страница%

ãäå

исх_страница% номер копируемой страницы видеопамяти. приним_страница% номер страницы видеопамяти, в которую копируют. Зна-

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

Пример:

PCOPY 1, 3

См. также SCREEN, Режимы Экрана

PEEK-функция

PEEK возвращает значение байта, хранящегося в указанном месте памяти.

POKE записывает значение байта в указанное место памяти.

Формат записи:

PEEK(адрес)

POKE адрес,байт%

P = PEN(3)

LOCATE 1, 1: PRINT “Перо находится “

IF P THEN PRINT “вверху” ELSE PRINT “внизу “

PRINT “X =“; PEN(4), “ Y =“; PEN(5); “ “

LOOP

См.также PEN, ON PEN Операторы, SCREEN, Режимы экрана

PEN-оператор

PEN включает, выключает или приостанавливает отслеживание события для светового пера. При включенном отслеживании события ON PEN обращается к подпрограмме при каждой активизации светового пера. См. ON PEN.

См. также PEN Функция

PLAY-функция

Возвращает число музыкальных нот в фоновой очереди.

Формат записи:

PLAY(n)

ãäå

nЛюбое числовое выражение.

Пример:

Music$ = “MBT180o2P2P8L8GGGL2E-P24P8L8FFFL2D”

PLAY Music$

WHILE PLAY(0) > 5: WEND

PRINT “Почти закончили!”

См. также PLAY (Музыка), PLAY, ON PLAY (Отслеживание события)

PLAY-оператор

Играет музыкальные ноты.

Формат записи:

PLAY строка_команд$

ãäå

строка_команд$ выражение, состоящее из одной или нескольких следующих команд PLAY:

Команды октавы и тона:

Oктава Задает текущую октаву (0 — 6).

< or > Переходит на одну октаву вверх или вниз. A — G Играет определенную ноту текущей октавы.

Nнота Играет определенную ноту (0 — 84) в диапазоне семи октав (0 — сброс).

Команды длительности и темпа:

LразмерЗадает длительность каждой ноты (1 — 64).

Команды изменения ноты:

# èëè + Äèåç.

-Бемоль.

.Длительность 3/2 от размера ноты.

Для выполнения подстроки команды PLAY из строки команды PLAY используйте команду “X”:

PLAY “X”+ VARPTR$(строка_команд$)

Пример:

'Последовательно проигрывает все ноты в 7 октавах scale$ = “CDEFGAB”

PLAY “L16”

FOR i% = 0 TO 6

PLAY “O” + STR$(i%)

PLAY “X” + VARPTR$(scale$) NEXT i%

См.также BEEP, PLAY Функция

PLAY, ON PLAY (Отслеживание событий) SOUND, VARPTR$

PLAY-отслеживание событий

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

См. также PLAY (Музыка), PLAY Функция

PMAP-функция

Возвращает координату окна эквивалентную координате области просмотра, определенную оператором WINDOW, или наоборот.

Формат записи:

PMAP (начальная_координата#, n%)

Пример:

'Для выполнения этого примера нужен графический 'адаптер, поддерживающий режим экрана 1.

SCREEN 1

WINDOW SCREEN (0, 0)-(100, 100)

PRINT “Логическая x=50, физическая x=“; PMAP(50, 0) PRINT “Логическая y=50, физическая y=“; PMAP(50, 1)

См.также POINT, VIEW, WINDOW

POINT-функция

Возвращает текущие графические координаты курсора и атрибут цвета заданной точки растра (элемента растра).

Формат записи:

POINT {(n%) | (x%,y%)}

(x%,y%) координаты точки растра, которую POINT проверяет на цвет. Если координаты находятся за пределами текущей области просмотра, POINT возвращает — 1.

Пример:

'Для выполнения этого примера нужен цветовой 'графический видеоадаптер.

SCREEN 1

LINE (0, 0)-(100, 100), 2

LOCATE 14, 1 FOR y% = 1 TO 10 FOR x% = 1 TO 10

PRINT POINT(x%, y%); NEXT x%

PRINT NEXT y%

См.также COLOR, PMAP, SCREEN, VIEW, WINDOW, Атрибуты и значения цвета

POKE-функция

PEEK возвращает значение байта, хранящегося в указанном месте памяти.

POKEзаписываетзначениебайтавуказанноеместопамяти.См.PEEK

См.такжеDEFSEG

POS-функция

LOCATE перемещает курсор на экране в указанную позицию.

CSRLIN возвращает текущую позицию строки курсора.

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

Ñì. CSRLIN

PRESET-оператор

Рисует заданную точку на экране.

Формат записи:

PRESET [STEP] (x!,y!) [,color%]

PSET [STEP] (x!,y!) [,color%]

Пример:

'Для выполнения этого примера нужен графический

'видеоадаптер. SCREEN 1

FOR i% = 0 TO 320 PSET (i%, 100)

FOR delay% = 1 TO 100: NEXT delay% PRESET (i%, 100)

NEXT i%

См.также SCREEN, VIEW, WINDOW, Атрибуты и значения цвета, Режимы экрана

PRINT-оператор

PRINT выводит данные на экран или записывает их в файл.

LPRINT печатает данные на принтере LPT1.

Ñì. LPRINT

См.также PRINT USING, LPRINT USING, WIDTH, WRITE

PRINT USING-оператор

PRINT USING записывает отформатированный вывод на экран или в файл. LPRINT USING печатает отформатированный вывод на принтере LPT1. См. LPRINT USING

См.также PRINT, LPRINT, WIDTH

PSET-оператор

Рисует заданную точку на экране. См. PRESET

См.также SCREEN, VIEW, WINDOW, Атрибуты и значения цвета, Режимы экрана

PUT(В/ВВ файлов)-оператор

GET считывает из файла прямого доступа в буфер или в переменную.

PUT записывает содержимое переменной или буфера в файл прямого доступа. См. GET

См. также FIELD, GET, PUT (Графика), LSET, RSET, MKn$, CVn функции, TYPE.

PUT(графика)-оператор

GET сохраняет графический образ экрана. PUT выводит на экран образ, сохраненный GET.

См. GET(графика)

См. также SCREEN, Режимы Экрана

RANDOM-ключевое слово

Ключевые слова APPEND, BINARY, INPUT, OUTPUT и RANDOM используются в операторе OPEN для указания режимов. Кроме того, INPUT, OUTPUT и RANDOM используются в операторе

OPEN COM.

Cì.Append.

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

См. также OPEN, OPEN COM, PRINT, LPRINT, WRITE

RANDOMIZE-оператор

Инициализирует генератор случайных чисел.

RND возвращает случайное число одинарной точности между 0 и 1. Формат записи:

RANDOMIZE [число%]

RND[(n#)]

ãäå

число% число, используемое для инициализации генератора случайных чи- сел. Если опущено, то RANDOMIZE запрашивает его.

n# значение, устанавливающее то, как RND генерирует следующее слу- чайное число:

Пример:

RANDOMIZE TIMER

x% = INT(RND * 6) + 1 y% = INT(RND * 6) + 1

PRINT “Координаты экрана: x =“; x%; “и y =“; y%

READ-оператор

Оператор DATA указывает значения для чтения последующими операторами READ.

READ считывает эти значения и присваивает их переменным.

RESTORE позволяет READ заново считать значения в указанном операторе DATA.

Cì. DATA

REDIM-оператор

DIM описывает массив или указывает тип данных для переменных не массива.

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

См. также COMMON, ERASE, OPTION BASE, SHARED, STATIC, $STATIC,

$DYNAMIC

REM-оператор

Позволяет вставлять комментарии в программы.

Формат записи:

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

ãäå

комментарий любой текст.

При работе программы комментарии игнорируются, если только они не содержат метакоманды. См. $DINAMIC, $STATIC.

Комментарий может быть вставлен в строке после выполняемого оператора, если перед комментарием стоит символ апострофа (') или перед REM стоит двоеточие (:).

Пример:

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

' Это тоже комментарий.

PRINT “Тест1” 'Это комментарий после оператора PRINT.

PRINT “Тест2”:REM Это тоже комментарий после оператора PRINT.

RESET-оператор

Закрывает все открытые файлы и устройства.

Формат записи:

RESET

См. также CLOSE, END, OPEN, STOP

RESTORE-оператор

DATA указывает значения для чтения последующими операторами READ.

READ считывает эти значения и присваивает их переменным.

RESTORE позволяет READ заново считать значения в указанном операторе DATA.

Ñì. DATA.

RESUME-оператор

Продолжает выполнение программы после подпрограммы обработки ошибок.

Формат записи:

RESUME [{строка | NEXT}]

ãäå

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

NEXT продолжает выполнение программы со следующего оператора за оператором, в котором была обнаружена ошибка.

См. также ERROR, ON ERROR

RETURN-оператор

Операторы GOSUB и RETURN обеспечивают переход в подпрограмму и возврат из нее.

Cì. GOSUB.

См. также CALL, ON Ключевое слово, ON...GOSUB, SUB