08-08-2005, 10:13 AM
Code:
Screen 12,8,2,0
Size=20 'Size of the "flames"
S=1
ScreenSet S,1-S
For X=0 to 639
Pset (X,479),Int(Rnd*200)+1
Next
Do
ScreenSet S,1-S
For Y=479 to 0 step -1
For X=1 to 638
If Int(Rnd*Size)+1<>1 Then Pset(X,Y-1),Point(X+Int(Rnd*3)-1,Y)
Next
Next
ScreenCopy S,1-S
S=1-S
Loop while inkey$=""
Sleep
Slow but... interesting.