20 CLEAR:DEFINT A-Z
40 'Массив для графических данных
50 DIM A(50,50):BC=1:SC=15:COLOR 15,1,1:SCREEN 2
90 ON INTERVAL=100 GOSUB 490
100 OPEN"GRP:"AS #1
110 LINE (60,0)-STEP(150,10),15,BF:PSET(65,1):COLOR 1
130 PRINT #1,"Копирование экрана"
140 COLOR 15
150 'Изображение
160 LINE(80,80)-(130,130),15,BF:LINE(82,82)-(128,128),1,B
180 FOR I=2 TO 12 STEP 2
190    CIRCLE(105,105),20,1,,,12/I:CIRCLE(105,105),20,1,,,I/12
210 NEXT I
220 'Заполнение массива
230 INTERVAL ON
240 FOR I=1 TO 50:FOR J=1 TO 50
260    A(I,J)=POINT(80+I,80+J)
270 NEXT J:NEXT I
290 INTERVAL OFF
300 COLOR ,,1
310 'Получение копий
320 FOR I=1 TO 2
330    READ X,Y
340    FOR J=1 TO 50:FOR K=1 TO 50
360         PSET (X+J,Y+K),A(J,K)
370    NEXT K:NEXT J
390 NEXT I
400 'Перевернутое изображение
410 FOR I=1 TO 50:FOR J=1 TO 50
430    IF A(I,J)=1 THEN C=15 ELSE C=1
440    PSET(29+I,80+J),C
450 NEXT J:NEXT I
470 GOTO 470
480 'Подпрограмма интервалов
490 PLAY"T255L64SM1000O4CO5C"
500 SWAP BC,SC:COLOR ,,SC
510 RETURN
520 'Значения координат
530 DATA 30,28,80,28