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))
solid color (rgb(239,60,16))
solid ellipse (0*mag+x, 0*mag+y, 42*mag, 27*mag)
solid color (rgb(12,12,12))
solid rectangle (-24*mag+x, -33*mag+y, 27*mag+x, -28*mag+y)
solid rectangle (10*mag+x, -32*mag+y, -13*mag+x, -46*mag+y)
solid color (rgb(8,8,8))
line size (1*zz+0.5)
solid triangle (-13*mag+x, -12*mag+y, -25*mag+x, -12*mag+y, -19*mag+x, -23*mag+y)
solid triangle (13*mag+x, -12*mag+y, 25*mag+x, -12*mag+y, 18*mag+x, -23*mag+y)
solid color (rgb(251,251,251))
line size (3*zz+0.5)
solid triangle (-19*mag+x, -22*mag+y, -20*mag+x, -20*mag+y, -22*mag+x, -16*mag+y)
solid triangle (-23*mag+x, -15*mag+y, -23*mag+x, -15*mag+y, -24*mag+x, -13*mag+y)
solid triangle (18*mag+x, -22*mag+y, 16*mag+x, -16*mag+y, 14*mag+x, -12*mag+y)
solid color (rgb(7,7,7))
solid ellipse (0*mag+x, 8*mag+y, 21*mag, 11*mag)
solid color (rgb(31,31,31))
solid ellipse (0*mag+x, 7*mag+y, 19*mag, 8*mag)
solid color (rgb(49,49,49))
solid ellipse (0*mag+x, 6*mag+y, 14*mag, 4*mag)