10 COLOR 15,1,1:SCREEN2
20 LINE(0,0)-(7,7),,BF
25 FOR I=0 TO 7
30 VPOKE BASE(5*2+2)+(256*2+0)*8+I,VPEEK(BASE(5*2+2)+(256*0+0)*8+I):'Копирование изображения
35 VPOKE BASE(5*2+1)+(256*2+0)*8+I,VPEEK(BASE(5*2+1)+(256*0+0)*8+I):'Копирование цвета
40 NEXT
50 GOTO 50