Код:
10 COLOR 8,1,1
20 SCREEN 2 ' *** ПЕРЕКЛЮЧЕНИЕ В ГР.РЕЖИМ
30 FOR I%=2 TO 8
40 LINE (100+I%*40,160)-(100+I%*40+39,100),I%,BF
50 NEXT
60 DIM D%(11) ' *** НАЧИНАЕМ МЕНЯТЬ ЦВЕТА
70 D%(3)=&O2470 ' АДРЕС В ОЗУ ПП
80 FOR I%=1 TO 7
90 READ D%(7) ' ЦВЕТА 8-5
100 READ D%(6) ' ЦВЕТА 4-1
110 GOSUB 160
120 FOR J%=1 TO 2000 ' ЗАДЕРЖКА?
130 NEXT J%,I%
140 RESTORE 340
150 GOTO 80
160 ' *** ПОДПРОГРАММА ЗАПИСИ В ОЗУ ПП
170 ' ВХОДНЫЕ ПАРАМЕТРЫ: D% (3) - АДРЕС В ОЗУ ПП
180 ' D%(6), D%(7) - ПЕРЕСЫЛАЕМЫЕ СЛОВА
190 D%(1)=&O10000 ' КОМАНДА "ЗАПИСЬ"
200 D%(2)=&O32 ' УСТРОЙСТВО - ПП
210 D%(4)=VARPTR(D%(6)) ' АДРЕС В ОЗУ ПП
220 D%(5)=2 ' ПРЕСЫЛАЕМ ДВА СЛОВА
230 AD%=VARPTR(D%(1)) ' АДРЕС МП
240 D%(8)=AD% AND &O377 ' МЛАДШИЙ БАЙТ АДРЕСА МП
250 D%(9)=INT(AD%/256) ' СТАРШИЙ БАЙТ АДРЕСА МП
260 D%(10)=1 ' СТОПОВЫЙ БАЙТ
270 D%(11)=1 ' СТОПОВЫЙ БАЙТ
280 FOR K%=8 TO 11
290 IF INP(&O176674,128)=0 THEN 290 ' ПП ГОТОВ?
300 POKE &O176676,D%(K%)
310 NEXT
320 RETURN
330 ' МАССИВ ДАННЫХ ДЛЯ УСТАНОВКИ ЦВЕТОВ
340 DATA &O177334,&O135230,&O117755,&O145650,&O124776,&O156270,&O135237,&O166710,&O145651,&O177330,&O156272,&O117750,&O166613,&O124770
- цвета смещаются справа на лево. правда нестандартных оттенков не замечено ) редактируем массив? )