* Данный текст распознан в автоматическом режиме, поэтому может содержать ошибки

172 Языки Бейсик Пример: 'Для выполнения этого примера нужен цветной графический адаптер. PALETTE 0, 1 SCREEN 1 F O R i % = 0 T O 3 : a % ( i % ) = i % : NEXT i % LINE ( 1 3 8 , 3 5 ) - ( 2 8 8 , 1 6 5 ) , 3, BF LINE ( 2 0 , 1 0 ) - ( 1 6 0 , 1 0 0 ) , 2, BF DO FORi%=0TO3 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-функция P E E K возвращает значение байта, хранящегося в указанном месте памяти. POKE записывает значение байта в указанное место памяти. Формат записи: PEEK(адрес) POKE адрес,байт% де адрес байт% позиция байта относительно адреса текуще о се мента, установленно о D E F SEG; значения в пределах от 0 до 65 535. значение байта для записи в указанное место памяти; значение в пре¬ делах от 0 до 255.