20 SCREEN 5
30 FOR T=32 TO 46:VDP(T+1)=0:NEXT :'Очистка регистров команд
60 VDP(36+1)=128:VDP(37+1)=0      :'Координата базовой точки X
70 VDP(38+1)=106:VDP(39+1)=0      :'Координата базовой точки Y
75 'Длинный катет обязан быть  д л и н н е е  короткого!
80 VDP(40+1)=50 :VDP(41+1)=0      :'Длинный катет
90 VDP(42+1)=10 :VDP(43+1)=0      :'Короткий катет
95 VDP(44+1)=8                    :'Цвет линии
100 VDP(45+1)=&B00000000          :'Байт аргументов:
110 '             
V 
V
V 
Z
W
W
W
W
W
W
W
W
W :'   длинный катет - по оси X
120 '             
V 
V
Z
W
W
W
W
W
W
W
W
W
W
W :'   рисовать  н а п р а в о
130 '             
V 
Z
W
W
W
W
W
W
W
W
W
W
W
W :'   рисовать  в н и з
140 '             
Z
W
W
W
W
W
W
W
W
W
W
W
W
W
W :'   рисовать  в о  VRAM
150 VDP(46+1)=&B01110000          :'Выполнение команды LINE
160 '           
Z▌
W
[
Z▌
W
[          :'
170 '            
V   
Z
W
W
W
W
W
W
W
W
W
W
W :'Код логической операции
180 '            
Z
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W :'Код команды LINE
190 A$=INPUT$(1)                  :'К о н е ц