1. ALTER <атрибуты> ТО атрибуты

Ключевое слово расположено на клавише "А". Команда ALTER позволяет выполнять значительные манипуляции с атрибутами экрана (INK, PAPER, BRIGHT и FLASH) для каждого знакоместа. В своей простейшей форме команда ALTER может изменять атрибуты по всему экрану, не очищая его.

Пример.

100 PRINT AT 10,10: "TEST": PAUSE 50: ALTER TO PAPER 1

Эта строка изменит цвет PAPER всех символов на экране и сделает его синим. Можно провести по всему экрану установку и какой либо комбинации атрибутов.

ALTER TO PAPER 2,INK 7, FLASH 1

Можно производить и выборочную смену атрибутов. Для этого надо перед ТО указать какие атрибуты Вы хотите поменять и на какие:

ALTER INK 7 ТО INK 0

В этом примере все, что написано на экране белым цветом INK изменится на черный. Перед вами открывается возможность создавать оригинальные видеоэффекты. Например, Вы можете изобразить что либо одинаковым цветом INK и PAPER и тогда изображение на экране будет не видно. Теперь командой ALTER Вы меняете INK или PAPER и изображение проявляется перед вами.

Попробуйте сделать вот такую головоломную комбинацию она тоже будет работать:

ALTER INK 3, BRIGHT 1, PAPER 7 TO INK 5, FLASH 1

но затронет только те знакоместа, в которых установлены INK=3,BRIGHT=1 и PAPER =7 одновременно.

Следующая программа продемонстрирует некоторые из эффектов техники применения ALTER. Попробуйте поэкспериментировать с этим оператором. Скорость мигания полей на экране Вы можете изменять в строках 170 и 220.

100 LET а=2,b=4

110 FOR I=1 ТО 5

120 FOR n=1 ТО 16

130 PRINT INK a; PAPER b; "ХХХХ"; PAPER a; INK b; "OOOO"; 140 NEXT n

150 LET c=a, a=b, b=c

160 NEXT I

170 LET t=30

180 ALTER INK a TO INK b: PAUSE t

190 ALTER PAPER a TO INK a: PAUSE t

200 ALTER INK a TO PAPER b: PAUSE t

210 ALTER INK b TO PAPER a: PAUSE t

220 LET t=t t/10+1

230 GO TO 180