Ultra-SiMPLE
xc=xpixels()/2
yc=ypixels()/2
hide mouse
open screen (1)
size=1.0; grow=1
Do
   select screen (1); cls; delay (10)
   image (xc, yc, size, 1) @
   select screen (0); bitblt screen (1)
   If (grow) size=size*1.05
   Else      size=size/1.025
   If (size<1.0) grow=1
   If (size>20)  grow=0
   If readkey()  Break
Loop
close screen (1); quit

Task image (Int x, Int y, Float mag, Int flag)
If (flag) zz=mag
Else zz=1.0
line size (1*zz+0.5)
line color (rgb(128,128,128))
solid color (rgb(128,128,128))
point color (rgb(128,128,128))
line color (rgb(0,0,0))
solid color (rgb(253,119,2))
filled ellipse (0*mag+x, 0*mag+y, 50*mag, 46*mag)
solid color (rgb(60,5,1))
filled triangle (-25*mag+x, -15*mag+y, -9*mag+x, -15*mag+y, -17*mag+x, -5*mag+y)
filled triangle (25*mag+x, -15*mag+y, 9*mag+x, -15*mag+y, 17*mag+x, -5*mag+y)
filled triangle (-8*mag+x, 10*mag+y, 7*mag+x, 10*mag+y, 0*mag+x, -4*mag+y)
solid round rectangle (-25*mag+x, 17*mag+y, 25*mag+x, 35*mag+y, 16, 16)
solid color (rgb(253,119,2))
solid triangle (-5*mag+x, 16*mag+y, 5*mag+x, 16*mag+y, 0*mag+x, 24*mag+y)
solid triangle (-16*mag+x, 16*mag+y, -7*mag+x, 16*mag+y, -12*mag+x, 23*mag+y)
solid triangle (6*mag+x, 16*mag+y, 18*mag+x, 16*mag+y, 12*mag+x, 23*mag+y)
solid triangle (-10*mag+x, 36*mag+y, 0*mag+x, 36*mag+y, -5*mag+x, 27*mag+y)
solid triangle (1*mag+x, 36*mag+y, 11*mag+x, 36*mag+y, 6*mag+x, 26*mag+y)
solid triangle (-20*mag+x, 35*mag+y, -9*mag+x, 35*mag+y, -15*mag+x, 26*mag+y)
solid triangle (11*mag+x, 35*mag+y, 19*mag+x, 35*mag+y, 16*mag+x, 25*mag+y)
solid triangle (-16*mag+x, 32*mag+y, -36*mag+x, 10*mag+y, -22*mag+x, 40*mag+y)
solid triangle (16*mag+x, 29*mag+y, 37*mag+x, 15*mag+y, 19*mag+x, 41*mag+y)
solid circle (23*mag+x, 33*mag+y, 6*mag)
solid color (rgb(187,187,187))
solid circle (-17*mag+x, -12*mag+y, 2*mag)
solid circle (17*mag+x, -12*mag+y, 2*mag)
solid color (rgb(0,0,0))
solid circle (-17*mag+x, -12*mag+y, 1*mag)
solid circle (17*mag+x, -12*mag+y, 1*mag)
solid color (rgb(0,0,0))
solid triangle (-23*mag+x, -20*mag+y, -10*mag+x, -20*mag+y, -16*mag+x, -22*mag+y)
solid triangle (9*mag+x, -20*mag+y, 22*mag+x, -20*mag+y, 14*mag+x, -22*mag+y)
solid color (rgb(3,81,0))
solid rectangle (-9*mag+x, -45*mag+y, 8*mag+x, -50*mag+y)