10 OPEN "GRP:" AS #1: COLOR 10,1,1: SCREEN 2,0: PSET(128,6)
40  FOR I=1 TO 101
50   X=128+90*SIN(I*3.14*87/101):Y=96-90*COS(I*3.14*87/101):LINE-(X,Y)
80  NEXT I
90  DATA &H21,&H00,&H00,&H11,&H00,&H90,&H01,&H00,&H18,&HCD,&H59,&H00,&HC9
100 FOR I=0 TO 12: READ R: POKE &H8FF0+I,R: NEXT I
140 DEF USR=&H8FF0: Z=USR(Z)
160 POKE &H8FF2,&H20: POKE &H8FF5,&HA8: Z=USR(Z)
190 BSAVE "Картинка.рис",&H9000,&HC000
210 LINE(0,0)-(255,191),1,BF  ' Начало воспроизведения рисунка
220 DATA &H21,&H00,&H90,&H11,&H00,&H00,&H01,&H00,&H18,&HCD,&H5C,&H00,&HC9
230 FOR I=0 TO 12: READ R: POKE &H8F00+I,R: NEXT I
270 DEF USR=&H8F00: BLOAD "Картинка.рис": Z=USR(Z)
300 POKE &H8F02,&HA8: POKE &H8F05,&H20: Z=USR(Z)
330 GOTO 330