uses gdip   

Screen 640,480,1
SetCaption "LET SNOW"
SetSmoothMode 4

% max =500
Dim x(max) as sys
Dim y(max) as sys
Dim z(max) as sys
sys i,color,bild

For i=0 to max
    x(i) = Rand(1,640)
    y(i) = Rand(1,480)
    z(i) = Rand(1,20)
Next

bild= LoadImage "png/bild.jpg",0
While Key(27)=0 
ZoomImage bild,0,0,640,480
For i=0 to max
  y(i) = y(i) + z(i)
  iF y(i) >480
     y(i) =0
     z(i) = Rand(1,20)
  End iF
  FillOval x(i),y(i),Rand(6,28),Rand(6,18), ARGB 55,255,255,255
Next
Flip
Wend
Ends