open window 640, 512
resx = 80
resy = 64
size = 640/resx
dim buffer(resx,resy)
dim drop(resx), fall(resx)
for a = 0 to resx
drop(a) = rnd(resy)
fall(a) = rnd(0.5)+0.5
next
repeat
setdispbuf draw
draw = 1 - draw
setdrawbuf draw
a = 0
for x = 0 to resx a = a + size
drop(x) = drop(x) + fall(x)
if (drop(x) > resy) then
drop(x) = drop(x) - resy
fall(x) = rnd(0.5) + 0.5
fi
buffer(x,drop(x)) = 255
b = 0
for y = 0 to resy b = b + size
c = buffer(x,y)
setrgb 1, 0, c, 0
fill box a,b to a-size,b-size
buffer(x,y) = c - 4
next
next
until (0=1)
sub rnd(range) rnd$ = time$ : length = len(rnd$)
local rnd$(length) : static rnd, seed
for l = 1 to length
if (mid$(rnd$,l,1) = "-") then rnd$ = left$(rnd$,l-1) + " " + right$(rnd$,length-l)
else rnd$ = left$(rnd$,l-1) + str$(9-val(mid$(rnd$,l,1))) + right$(rnd$,length-l)
fi
next l
seed = ran(rnd) : if (seed < 1) seed = range + 1
random = token(rnd$, rnd$())
for r = 1 to random rnd = val(rnd$(r)) + rnd next
rnd = ran(rnd) / ran(seed) : return range*frac(rnd)
end sub
[/font]
