10 SCREEN 5:DIM A%(2900)
20 FOR K=0 TO 50:CIRCLE(127,106),K,15:NEXT K
30 COPY (77,56)-(177,156),0 TO A%
35 SCREEN 0:FOR I=1 TO 150:PRINT A%(I);:NEXT
40 PRINT"Изображение записано":L$=INPUT$(1)
50 SCREEN 5:COPY A% TO (77,56),0:L$=INPUT$(1)