60  COLOR 15,0,0
70  SCREEN 8                             :'Возможны SCREEN 5╤SCREEN 8
80  FOR I=0 TO 63
100  DL=128-I*2+1                        :'Вычисление длины стороны
110  VDP(36+1)=I: VDP(37+1)=0            :'Координаты прямоугольника
115  VDP(38+1)=I: VDP(39+1)=0            :'
120  VDP(40+1)=DL:VDP(41+1)=0            :'Длины сторон по осям X и Y
125  VDP(42+1)=DL:VDP(43+1)=0
130  VDP(44+1)=I                         :'Цвет прямоугольника
140  VDP(45+1)=&B00000000                :'Ориентировка прямоугольника
141 :'            ▌ ▌▌                   :'относительно точки (X,Y):
142 :'            
V 
V
Z
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W:'  н а п р а в о (1:налево)
143 :'            
V 
Z
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W:'  в н и з       (1:вверх)
144 :'            
Z
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W:'Выбираем VRAM   (1:ERAM)
150  VDP(46+1)=&B10000000                :'
151 :'           
Z▌
W
[
Z
W▌
[                :'
152 :'            
V    
Z
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W:'Код логической операции
153 :'            
Z
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W:'Код команды LMMV
154 A$=INPUT$(1)                         :'Очень важная задержка!
160 NEXT I
170 A$=INPUT$(1)                         :'К о н е ц