10 SCREEN 5                  ' Возможны режимы SCREEN 5 ╤ SCREEN 8
30 VDP(36+1)=0: VDP(37+1)=0  ' X-координата прямоугольника
40 VDP(38+1)=0: VDP(39+1)=0  ' Y-координата прямоугольника
50 VDP(40+1)=25:VDP(41+1)=0  ' Длина по оси X
60 VDP(42+1)=19:VDP(43+1)=0  ' Длина по оси Y
70 VDP(44+1)=&B11011111  ' Чтобы прямоугольник был ровно окрашен, а не
71 '           
Z▌
W
[
Z
W▌
[  ' был "полосатым",значение младшего полубайта
80 '            
V    
V   ' регистра цвета должно  быть  равно значению
85 '            
V    
Z
W
W ' старшего полубайта
90 '            
Z
W
W
W
W
W
W
W ' (в SCREEN 8 это правило может не выполнять-
100 '                    ' ся, так как в этом режиме 256 цветов)
120 VDP(45+1)=&b00000000 ' Ориентация прямоугольника  и  выбор области
121 '                    ' видеопамяти
130 VDP(46+1)=&B11000000 ' Код команды HMMV
140 A$=INPUT$(1)         ' К о н е ц