5'  Пример составил Беленький Г. (IX класс).
10  COLOR 15,1,1:SCREEN 7  ' Возможны режимы SCREEN 5 ╤ SCREEN 8
20  VDP(36+1)=254          ' X-координата
30  VDP(38+1)=110          ' Y-координата
40  VDP(44+1)=15           ' Цвет
50  VDP(45+1)=0            ' Если Вы  хотите увидеть результат
60  '                      ' своих трудов, то ставьте 0   
V
70  VDP(46+1)=&B01010000   ' Код команды PSET             
V
80  VDP(32+1)=254          ' X'-координата                
V
90  VDP(34+1)=110          ' Y'-координата                
V
100 VDP(45+1)=&B00000000   ' ░
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
[
110 VDP(46+1)=&B01000000   ' Код команды POINT
120 DATA 3E,07,F7,87,31,01,32,00,E0,C9 ' Считываем регистр статуса 7
130 '       ▌▌                                               
V
140 '       
Z
Q
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
[
150 FOR I=0 TO 9: READ A$               '
160 POKE &HD000+I,VAL("&h"+A$): NEXT I  '
170 DEFUSR=&HD000:A=USR(0)              '
180 OPEN "GRP:" AS #1: PRESET(0,0),0    ' Печатаем
190 PRINT #1, PEEK(&HE000)              ' код цвета
200 A$=INPUT$(1)