SET COLOR MODE "NATIVE"
GLOAD "en222.gif"
ASK PIXEL SIZE (0,0; 1,1) a,b
DIM p(a,b)
ASK PIXEL ARRAY (0,1) p
SET BITMAP SIZE 200,200
CLEAR
SET WINDOW -100, 100, -100, 100
FOR i=0 TO 1800
   IF i=1 THEN
      WAIT DELAY 2
   END IF
   SET DRAW mode hidden
   CLEAR
   DRAW pict1 WITH SHIFT(-73,-73)*ROTATE(i*6.284/360)
   SET DRAW mode explicit
NEXT i
PICTURE pict1
   MAT PLOT CELLS, IN  1,b ; a,1 : p
END PICTURE
END