10 COLOR 1,15,8:SCREEN 2:LINE(0,64)-(255,127),,BF 'Фон!
20 LINE(0,64)-(7,71),8,BF 'Перемещаемый объект! 
30 FOR T=1 TO 31
40 F=VPEEK(6400+T):VPOKE 6400+T,VPEEK(6400+T-1):VPOKE 6400+T-1,F'Обмен значений между ячейками видеопамяти!
50 IF T=31 THEN VPOKE 6400+T,T:VPOKE 6400,0
60 NEXT T:GOTO 30