20 SCREEN 5:CIRCLE(40,40),40,8:PAINT STEP(0,0),8
30 FOR T=32 TO 46:VDP(T+1)=0:NEXT :'Очистка
40 VDP(32+1)=0:VDP(33+1)=0        :'Источник (координата X)
50 VDP(34+1)=0:VDP(35+1)=0        :'Источник (координата Y)
60 VDP(36+1)=80:VDP(37+1)=0       :'Приемник (координата X)
70 VDP(38+1)=80:VDP(39+1)=0       :'Приемник (координата Y)
80 VDP(40+1)=80:VDP(41+1)=0       :'Длина по координате X
90 VDP(42+1)=80:VDP(43+1)=0       :'Длина по координате Y
100 VDP(45+1)=&B00000000          :'Байт аргументов:
110 '             
V
V
V
Z
W
W
W
W
W
W
W
W
W
W
W :'  пересылать направо;
120 '             
V
V
Z
W
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
W :'  пересылать из VRAM;
140 '             
Z
W
W
W
W
W
W
W
W
W
W
W
W
W
W :'  принимать  во VRAM;
150 VDP(46+1)=&B11010000          :'Выполнение команды HMMM
160 '           
Z▌
W
[              :'
180 '            
Z
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W :'Код команды HMMM
190 A$=INPUT$(1)                  :'К о н е ц