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+220, 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))
solid color (rgb(243,127,12))
solid circle (-81*mag+x, -56*mag+y, 74*mag)
solid color (rgb(250,159,5))
line (-90*mag+x, -83*mag+y, -90*mag+x, -83*mag+y)
line color (rgb(249,49,6))
filled circle (-84*mag+x, -53*mag+y, 78*mag)
solid color (rgb(246,85,9))
filled circle (-50*mag+x, -51*mag+y, 72*mag)
solid color (rgb(246,101,9))
filled circle (75*mag+x, -51*mag+y, 73*mag)
solid color (rgb(246,71,9))
filled circle (5*mag+x, -49*mag+y, 78*mag)
line color (rgb(245,28,10))
solid color (rgb(121,16,134))
filled circle (-69*mag+x, -71*mag+y, 28*mag)
filled circle (19*mag+x, -77*mag+y, 28*mag)
solid color (rgb(85,38,170))
filled circle (-68*mag+x, -80*mag+y, 10*mag)
filled circle (16*mag+x, -84*mag+y, 10*mag)
line color (rgb(109,6,146))
line size (3*zz+0.5)
line (-54*mag+x, -25*mag+y, -42*mag+x, -16*mag+y)
line (-41*mag+x, -15*mag+y, -8*mag+x, -10*mag+y)
line (-6*mag+x, -10*mag+y, 8*mag+x, -17*mag+y)
line (7*mag+x, -20*mag+y, 22*mag+x, -22*mag+y)
line (22*mag+x, -24*mag+y, 37*mag+x, -32*mag+y)
line (38*mag+x, -33*mag+y, 48*mag+x, -43*mag+y)
line (49*mag+x, -42*mag+y, 38*mag+x, -19*mag+y)
line (42*mag+x, -21*mag+y, 25*mag+x, -5*mag+y)
line (26*mag+x, -5*mag+y, 18*mag+x, 1*mag+y)
line (17*mag+x, 0*mag+y, 0*mag+x, 6*mag+y)
line (1*mag+x, 5*mag+y, -10*mag+x, 4*mag+y)
line (-10*mag+x, 4*mag+y, -25*mag+x, 1*mag+y)
line (-25*mag+x, 1*mag+y, -35*mag+x, -3*mag+y)
line (-35*mag+x, -3*mag+y, -46*mag+x, -9*mag+y)
line (-49*mag+x, -13*mag+y, -49*mag+x, -12*mag+y)
line (-44*mag+x, -8*mag+y, -50*mag+x, -14*mag+y)
line (-53*mag+x, -17*mag+y, -54*mag+x, -23*mag+y)
solid color (rgb(7,63,0))
line color (rgb(0,79,11))
line (-38*mag+x, -122*mag+y, -35*mag+x, -140*mag+y)
line (-35*mag+x, -144*mag+y, -15*mag+x, -156*mag+y)
line (-11*mag+x, -156*mag+y, 0*mag+x, -156*mag+y)
line (1*mag+x, -155*mag+y, 2*mag+x, -147*mag+y)
line (3*mag+x, -148*mag+y, 8*mag+x, -141*mag+y)
line (2*mag+x, -147*mag+y, -5*mag+x, -147*mag+y)
line (-39*mag+x, -126*mag+y, -40*mag+x, -150*mag+y)
line (-40*mag+x, -150*mag+y, -48*mag+x, -167*mag+y)
line (-48*mag+x, -167*mag+y, -59*mag+x, -174*mag+y)
line (-56*mag+x, -176*mag+y, -75*mag+x, -179*mag+y)
line (-41*mag+x, -126*mag+y, -49*mag+x, -140*mag+y)
line (-49*mag+x, -142*mag+y, -59*mag+x, -144*mag+y)
line (-59*mag+x, -144*mag+y, -78*mag+x, -139*mag+y)
line (-78*mag+x, -139*mag+y, -85*mag+x, -135*mag+y)
line (-84*mag+x, -134*mag+y, -83*mag+x, -125*mag+y)
line (-83*mag+x, -125*mag+y, -85*mag+x, -119*mag+y)
line (-36*mag+x, -123*mag+y, -25*mag+x, -130*mag+y)
line (-24*mag+x, -131*mag+y, -9*mag+x, -131*mag+y)
line (-8*mag+x, -130*mag+y, -5*mag+x, -122*mag+y)
line (-5*mag+x, -122*mag+y, -2*mag+x, -112*mag+y)
line (-33*mag+x, -152*mag+y, -26*mag+x, -167*mag+y)
line (-25*mag+x, -166*mag+y, -28*mag+x, -177*mag+y)
solid color (rgb(81,14,174))
line color (rgb(196,11,59))
filled ellipse (-138*mag+x, -46*mag+y, 8*mag, 25*mag)
filled ellipse (118*mag+x, -67*mag+y, 6*mag, 35*mag)
filled ellipse (126*mag+x, -71*mag+y, 7*mag, 1*mag)
filled ellipse (-146*mag+x, -49*mag+y, 6*mag, 2*mag)