'===========================================================================
' Subject: SNOWY RAIN                        Date: 04-14-96 (14:43)       
' Author:  Andrew Jones                      Code: QB, QBasic, PDS        
' Origin:  FidoNet QUIK_BAS Echo           Packet: GRAPHICS.ABC
'===========================================================================
'Snowy Rain.  I think it's rad, tell me what you think:)

DEFINT A-Z
ON KEY(1) GOSUB fofo
KEY(1) ON
CONST snow = 10
DIM sx(snow)
DIM sy(snow)
SCREEN 13
FOR t = 0 TO snow
sx(t) = INT(RND * 320)
sy(t) = INT(RND * 20)
NEXT
DO
FOR t = 0 TO snow
IF sy(t) = 199 THEN sy(t) = 0: sx(t) = INT(RND * 320): sy(t) = INT(RND * 20)
v = INT(RND * 15) + 1
PSET (sx(t), sy(t)), v + 15
IF v < 6 THEN sx(t) = sx(t) + 1
IF v > 10 THEN sx(t) = sx(t) - 1
sy(t) = sy(t) + 1
IF sy(t) > 199 THEN sy(t) = 199
NEXT
LOOP
fofo:
END