10 DATA 3E,02,F7,87,31,01,32,00,E0,C9 :' Подпрограмма  в машинных кодах,
20 FOR I=0 TO 9:READ A$               :' позволяющая  прочесть  содержи-
30 POKE &HD000+I,VAL("&h"+A$):NEXT I  :' мое регистра статуса с номером
40 DEFUSR=&HD000                      :' 2 видеопроцессора
50 I=&HA000                           :' С этого адреса "берем" данные
60 SCREEN 8                           :' Возможны SCREEN 5 ╤ SCREEN 8
61  VDP(36+1)=10:VDP(37+1)=0          :' X,Y-координаты блока                                                     
70  VDP(38+1)=10:VDP(39+1)=0          :' Длины сторон блока по осям OX
80  VDP(40+1)=30:VDP(41+1)=0          :' и OY
81  VDP(42+1)=30:VDP(43+1)=0          :' 
90  VDP(44+1)=PEEK(I)                 :' Цвет берем из RAM
100 VDP(45+1)=0                       :' Ориентируем блок
110 VDP(46+1)=&B11110000              :' Выполняем команду HMMC
120 A=USR(0):A=PEEK(&HE000)           :' Читаем 2-й регистр статуса░
Y
Y
130 CE=(A AND &B00000001)             :' Выделяем бит CE            
V
V
140 IF CE=0 THEN 190                  :' Если он равен 0, то 
W
W
W
W
W
W
W
V
V
Y
150 TR=(A AND &B10000000)             :' иначе выделяем бит TR      
V
V
V
160 IF TR=0 THEN 120                  :' Если он равен 0, то 
W
W
W
W
W
W
W
[
V
V
170 I=I+1:VDP(44+1)=PEEK(I)           :' иначе задаем новый цвет     
V
V
180 GOTO 120                          :' 
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
[
V
190 A$=INPUT$(1)                      :' К о н е ц  ░
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
[