Ultra-SiMPLE
Int list[100][2], a, b, c
xc=xpixels()/2
yc=ypixels()/2
hide mouse; num=33
oldc=0
Do k=0,num-1
   list[k][0]=k+1
   list[k][1]=100*(k+1)
Loop
open screen (1)
music="\\simple\\sounds\\2001.mid"
If (!file exist(music)) music="\\simple\\sounds\\jurass~1.mid"
id=open mci (music)
cycle mci (id)
Do
   select screen (1)
   cls; stars @
   read mouse (a, b, c)
   If (c And !oldc) move mouse (xc, yc); a=xc; b=yc
   oldc=c
   dx=0; If (c) dx=(xc-a)
   dy=0; If (c) dy=(yc-b)/25
   landscape (dx, dy) @
   Do k=num-1,0
      size=1000.0/list[k][1]
      dx=0; If (c) dx=size*(xc-a)/10
      dy=0; If (c) dy=size*(yc-b)/100
      If (size<500) image (list[k][0], xc+dx, yc+dy, size, 1) @
   Loop
   line size (1)
   select screen (0)
   bitblt screen (1)
   Do k=0,num-1
      list[k][1]=list[k][1]-2
   Loop
   If list[0][1]=0
      temp=list[0][0]
      Do k=1,num-1
         list[k-1][0]=list[k][0]
         list[k-1][1]=list[k][1]
      Loop
      list[num-1][0]=temp
      list[num-1][1]=100*num
      If temp=num And !c
         stop mci (id)
         close mci (id)
         crash @
         id=open mci ("\\simple\\sounds\\jurass~1.mid")
         cycle mci (id)
      Endif
   Endif
   If readkey(27) Break
   delay (1)
Loop
close screen (1)
Close mci (id)
quit

Task image (Int id, Int x, Int y, Float mag, Int flag)
bf=mag/8.0; If (bf>1.0) bf=1.0
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))
If id=7
line color (rgb(bf*128,bf*128,bf*128))
line (-12*mag+x, 0*mag+y, -7*mag+x, 0*mag+y)
line (7*mag+x, 0*mag+y, 12*mag+x, 0*mag+y)
line (0*mag+x, -7*mag+y, 0*mag+x, -12*mag+y)
line (0*mag+x, 12*mag+y, 0*mag+x, 7*mag+y)
line size (3*zz+0.5)
circle (0*mag+x, 0*mag+y, 7*mag)
line size (2*zz+0.5)
line color (rgb(bf*255,0,0))
circle (15*mag+x, 0*mag+y, 3*mag)
line color (rgb(0,0,bf*255))
circle (-15*mag+x, 0*mag+y, 3*mag)
line color (rgb(0,bf*255,0))
circle (0*mag+x, -15*mag+y, 3*mag)
line color (rgb(bf*255,bf*255,0))
circle (0*mag+x, 15*mag+y, 3*mag)
Endif
If id=10
line size (4*zz+0.5)
line color (rgb(bf*255,bf*3,bf*0))
line (-15*mag+x, 0*mag+y, -25*mag+x, 0*mag+y)
line (-25*mag+x, 0*mag+y, -30*mag+x, -5*mag+y)
line (-30*mag+x, -5*mag+y, -30*mag+x, -10*mag+y)
line (-30*mag+x, -10*mag+y, -25*mag+x, -15*mag+y)
line (-25*mag+x, -15*mag+y, -15*mag+x, -15*mag+y)
line (-15*mag+x, -15*mag+y, -10*mag+x, -10*mag+y)
line (-15*mag+x, 0*mag+y, -10*mag+x, 5*mag+y)
line (-10*mag+x, 5*mag+y, -10*mag+x, 10*mag+y)
line (-10*mag+x, 10*mag+y, -15*mag+x, 15*mag+y)
line (-15*mag+x, 15*mag+y, -25*mag+x, 15*mag+y)
line (-25*mag+x, 15*mag+y, -30*mag+x, 10*mag+y)
Endif
If id=11
line size (4*zz+0.5)
line color (rgb(bf*255,bf*128,bf*0))
line (-10*mag+x, 15*mag+y, -10*mag+x, 0*mag+y)
line (-10*mag+x, -5*mag+y, -10*mag+x, -5*mag+y)
line (-12*mag+x, 15*mag+y, -8*mag+x, 15*mag+y)
Endif
If id=12
line size (4*zz+0.5)
line color (rgb(bf*234,bf*255,bf*0))
line (-16*mag+x, 15*mag+y, -16*mag+x, -15*mag+y)
line (4*mag+x, -15*mag+y, 4*mag+x, 15*mag+y)
line (4*mag+x, -15*mag+y, -6*mag+x, 0*mag+y)
line (-16*mag+x, -15*mag+y, -6*mag+x, 0*mag+y)
Endif
If id=13
line size (4*zz+0.5)
line color (rgb(bf*0,bf*238,bf*45))
line (-4*mag+x, 15*mag+y, -4*mag+x, -15*mag+y)
line (-4*mag+x, -15*mag+y, -4*mag+x, -15*mag+y)
line (-4*mag+x, -15*mag+y, 11*mag+x, -15*mag+y)
line (11*mag+x, -15*mag+y, 15*mag+x, -11*mag+y)
line (-4*mag+x, -3*mag+y, 11*mag+x, -3*mag+y)
line (11*mag+x, -3*mag+y, 15*mag+x, -7*mag+y)
line (15*mag+x, -11*mag+y, 15*mag+x, -7*mag+y)
Endif
If id=14
line size (4*zz+0.5)
line color (rgb(bf*50,bf*50,bf*255))
line (8*mag+x, -15*mag+y, 8*mag+x, 15*mag+y)
line (28*mag+x, 15*mag+y, 8*mag+x, 15*mag+y)
Endif
If id=15
line size (4*zz+0.5)
line color (rgb(bf*200,bf*2,bf*200))
line (20*mag+x, 15*mag+y, 20*mag+x, -15*mag+y)
line (20*mag+x, 15*mag+y, 40*mag+x, 15*mag+y)
line (20*mag+x, -15*mag+y, 40*mag+x, -15*mag+y)
line (20*mag+x, 0*mag+y, 35*mag+x, 0*mag+y)
Endif
If id=17
line color (rgb(bf*255,0,0))
ellipse (0*mag+x, 0*mag+y, 25*mag, 10*mag)
line color (rgb(0,0,bf*255))
ellipse (0*mag+x, 0*mag+y, 10*mag, 25*mag)
line color (rgb(0,bf*255,0))
ellipse (0*mag+x, 0*mag+y, 20*mag, 5*mag)
line color (rgb(bf*255,bf*255,0))
ellipse (0*mag+x, 0*mag+y, 5*mag, 20*mag)
Endif
If id=19
line color (rgb(bf*128,bf*128,bf*255))
triangle (-16*mag+x, -10*mag+y, 16*mag+x, -10*mag+y, 0*mag+x, 16*mag+y)
triangle (-16*mag+x, 10*mag+y, 16*mag+x, 10*mag+y, 0*mag+x, -16*mag+y)
Endif
If id=21
line size (1)
line color (rgb(bf*128,bf*128,bf*128))
Do k=-9.5,9.5
   line (-27.5*mag+x, k*mag+y, 27.5*mag+x, k*mag+y)
Loop
Do k=-27.5,27.5
   line (k*mag+x, -9.5*mag+y, k*mag+x, 9.5*mag+y)
Loop
line size (1.5*zz+0.5)
rectangle (-27*mag+x, -9*mag+y, 27*mag+x, 9*mag+y)
line color (rgb(bf*255,bf*254,bf*0))
line (-1*mag+x, 5*mag+y, -1*mag+x, -5*mag+y)
line (-9*mag+x, 5*mag+y, -9*mag+x, -5*mag+y)
line (-1*mag+x, -5*mag+y, -5*mag+x, 0*mag+y)
line (-9*mag+x, -5*mag+y, -5*mag+x, 0*mag+y)
line color (rgb(bf*0,bf*240,bf*40))
line (1*mag+x, -5*mag+y, 1*mag+x, 5*mag+y)
line (1*mag+x, -5*mag+y, 6*mag+x, -5*mag+y)
line (1*mag+x, 0*mag+y, 6*mag+x, 0*mag+y)
line (6*mag+x, 0*mag+y, 8*mag+x, -2*mag+y)
line (6*mag+x, -5*mag+y, 8*mag+x, -3*mag+y)
line (8*mag+x, -3*mag+y, 8*mag+x, -2*mag+y)
line color (rgb(bf*5,bf*3,bf*250))
line (10*mag+x, -5*mag+y, 10*mag+x, 5*mag+y)
line (10*mag+x, 5*mag+y, 16*mag+x, 5*mag+y)
line color (rgb(bf*160,bf*1,bf*160))
line (18*mag+x, 5*mag+y, 18*mag+x, -5*mag+y)
line (18*mag+x, 5*mag+y, 23*mag+x, 5*mag+y)
line (18*mag+x, -5*mag+y, 23*mag+x, -5*mag+y)
line (18*mag+x, 0*mag+y, 22*mag+x, 0*mag+y)
line color (rgb(bf*252,bf*121,bf*3))
line (-12*mag+x, 5*mag+y, -14*mag+x, 5*mag+y)
line (-13*mag+x, 5*mag+y, -13*mag+x, 0*mag+y)
line (-13*mag+x, -3*mag+y, -13*mag+x, -3*mag+y)
line color (rgb(bf*255,bf*0,bf*0))
line (-22*mag+x, 0*mag+y, -18*mag+x, 0*mag+y)
line (-18*mag+x, 5*mag+y, -22*mag+x, 5*mag+y)
line (-18*mag+x, 5*mag+y, -17*mag+x, 4*mag+y)
line (-18*mag+x, 0*mag+y, -17*mag+x, 1*mag+y)
line (-17*mag+x, 1*mag+y, -17*mag+x, 4*mag+y)
line (-22*mag+x, 5*mag+y, -23*mag+x, 4*mag+y)
line (-22*mag+x, 0*mag+y, -23*mag+x, -1*mag+y)
line (-18*mag+x, -5*mag+y, -22*mag+x, -5*mag+y)
line (-22*mag+x, -5*mag+y, -23*mag+x, -4*mag+y)
line (-23*mag+x, -4*mag+y, -23*mag+x, -1*mag+y)
line (-18*mag+x, -5*mag+y, -17*mag+x, -4*mag+y)
Endif
If id=24
line color (rgb(bf*192,bf*192,bf*192))
circle (0*mag+x, 0*mag+y, 25*mag)
circle (25*mag+x, -25*mag+y, 10*mag)
circle (-25*mag+x, -25*mag+y, 10*mag)
ellipse (-7*mag+x, -5*mag+y, 4*mag, 7*mag)
ellipse (7*mag+x, -5*mag+y, 4*mag, 7*mag)
line (-5*mag+x, 15*mag+y, 5*mag+x, 15*mag+y)
line (5*mag+x, 15*mag+y, 10*mag+x, 10*mag+y)
line (-5*mag+x, 15*mag+y, -10*mag+x, 10*mag+y)
solid color (rgb(bf*192,bf*192,bf*192))
solid circle (7*mag+x, -1*mag+y, 2*mag)
solid circle (-7*mag+x, -1*mag+y, 2*mag)
solid ellipse (0*mag+x, 7*mag+y, 5*mag, 2*mag)
Endif
If id=27
ang=3.1416/6
line color (rgb(bf*255,bf*6,bf*0))
ellipse (0*mag+x, 0*mag+y, 23*mag, 8*mag, 0*ang)
line color (rgb(bf*255,bf*118,bf*0))
ellipse (0*mag+x, 0*mag+y, 23*mag, 8*mag, 1*ang)
line color (rgb(bf*240,bf*255,bf*0))
ellipse (0*mag+x, 0*mag+y, 23*mag, 8*mag, 2*ang)
line color (rgb(bf*24,bf*255,bf*0))
ellipse (0*mag+x, 0*mag+y, 23*mag, 8*mag, 3*ang)
line color (rgb(bf*40,bf*112,bf*255))
ellipse (0*mag+x, 0*mag+y, 23*mag, 8*mag, 4*ang)
line color (rgb(bf*234,bf*0,bf*172))
ellipse (0*mag+x, 0*mag+y, 23*mag, 8*mag, 5*ang)
Endif
If id=28
line color (rgb(bf*128,bf*128,bf*128))
circle (0*mag+x, 0*mag+y, 8*mag)
Endif
If id=33
line color (0)
solid color (rgb(bf*128,bf*128,bf*128))
solid ellipse (0*mag+x, -4*mag+y, 14*mag, 16*mag)
solid ellipse (0*mag+x, 4*mag+y, 10*mag, 12*mag)
solid color (rgb(bf*0,bf*0,bf*0))
solid circle (-6*mag+x, -2*mag+y, 3*mag)
solid circle (6*mag+x, -2*mag+y, 3*mag)
filled triangle (-2*mag+x, 6*mag+y, 2*mag+x, 6*mag+y, 0*mag+x, 2*mag+y)
filled ellipse (0*mag+x, 10*mag+y, 4*mag, 0*mag)
line color (rgb(bf*128,bf*128,bf*128))
line size (4*zz+0.5)
line (-12*mag+x, 16*mag+y, 12*mag+x, 26*mag+y)
line (12*mag+x, 16*mag+y, -12*mag+x, 26*mag+y)
solid color (rgb(bf*128,bf*128,bf*128))
solid circle (12*mag+x, 16*mag+y, 4*mag)
solid circle (12*mag+x, 26*mag+y, 4*mag)
solid circle (-12*mag+x, 26*mag+y, 4*mag)
solid circle (-12*mag+x, 16*mag+y, 4*mag)
Endif

Task stars
Common Int x[200],y[200],flag=0
Common Int hue[5]={0,7,8,15,14}
xx=xpixels()
yy=ypixels()
If flag=0
   randomize
   Do k=0,199
      x[k]=random(xx)
      y[k]=random(yy)
   Loop 
   flag=1
Endif
Do k=0,99
   solid color (hue[random(5)])
   putpixel (x[k],y[k],hue[random(5)])
   solid circle (x[k+100], y[k+100], 1)
Loop

Task landscape (Int dx, Int dy)
Common Float p=1000
xp=xpixels(); yp=ypixels()
xc=xp/2; yc=yp/2
solid color (0)
solid rectangle (0, yc, xp, yc+25)
Do k=yc+25,yp
   a=(k-yc-25)/2; If (a>255) a=255
   b=a+30; If (b>255) b=255
   line color (rgb(a,b,b))
   line (0, k, xp, k)
Loop
line color (rgb(0,30,30)); line size (2)
Do k=0,5000,250-dy
   line (xc+k/25, yc+25, xc+k+125+dx, yp)
   line (xc-k/25, yc+25, xc-k-125+dx, yp)
Loop
line size (1)
Do k=-1000,1000,25
   If p+k<=0 Continue
   pp=11250/(p+k)
   line (0, yc+pp+25, xp, yc+pp+25)
Loop
p=p-1; If (p<1) p=1000

Task crash
id=open mci ("\\simple\\sounds\\explode.wav")
start mci (id, 500, 0)
Do k=255,0
   cls (rgb(k,k,k))
   delay (5); Kick io
Loop
wait mci done (id)
Close mci (id)
delay (1000)