'===========================================================================
' Subject: SNOW FALL                         Date: 06-07-96 (12:37)       
' Author:  John Wantland                     Code: QB, QBasic, PDS        
' Origin:  kwantlan@coffey.com             Packet: EGAVGA.ABC
'===========================================================================
' snow
' sorry it's so slow, but isn't real snow
j = 0
RANDOMIZE TIMER
n = 100         'heaviness of snow
DIM y(n)
DIM x(n)
DIM d(n)
DIM c(n)
DIM h(n)
DIM n(n)
DIM ox(n)
SCREEN 12: CLS
FOR i = 1 TO n
x(i) = INT(RND * 640 + 1)
y(i) = INT(RND * 480 + 1)
d(i) = INT(RND * 2 + 1)
n(i) = 1
NEXT i
DO
FOR i = 1 TO n
PSET (x(i), y(i)), 0
IF d(i) = 1 THEN y(i) = y(i) + n(i): IF y(i) >= 479 THEN y(i) = 479: GOSUB 4
IF d(i) = 2 THEN y(i) = y(i) + n(i): IF y(i) >= 479 THEN y(i) = 479: GOSUB 4
IF POINT(x(i), y(i) + 1) = 15 THEN GOSUB 4
a$ = INKEY$: IF a$ <> "" THEN END
PSET (x(i), y(i)), 7
NEXT i
LOOP
4 PSET (x(i), y(i)), 15
x(i) = INT(RND * 640 + 1)
y(i) = 1
d(i) = INT(RND * 2 + 1)
n(i) = 1
h(i) = INT(RND * 300 + 100)
j = j + 1: IF j >= 306560 THEN CLS
RETURN