'===========================================================================
' Subject: SNOW FALLING AND PILING UP        Date: 12-03-96 (16:23)       
' Author:  Thomas A. Hirsch                  Code: QB, QBasic, PDS        
' Origin:  thomasalh@geocities.com         Packet: GRAPHICS.ABC
'===========================================================================
SCREEN 13
RANDOMIZE TIMER
anz = 30
DIM a(anz)
DIM b(anz)
DIM c(anz)
FOR j = 0 TO anz - 1
a(j) = CINT(RND * 300)
b(j) = 0
c(j) = CINT(RND * 5) + 25
NEXT
COLOR 2
LOCATE 5, 5: PRINT "SNOW . BAS by THOMAS A. HIRSCH"
LOCATE 10, 2: PRINT "Greetings from FROG COOPORATION too!"
COLOR 4
LOCATE 15, 8: PRINT "MERRY CHRISTMAS"
COLOR 2
LOCATE 20, 11: PRINT "Quaak"
LINE (250, 130)-(265, 150), 2
LINE -(255, 150), 2
LINE -(270, 170), 2
LINE -(260, 170), 2
LINE -(275, 190), 2
LINE (250, 130)-(235, 150), 2
LINE -(245, 150), 2
LINE -(230, 170), 2
LINE -(240, 170), 2
LINE -(225, 190), 2
LINE -(275, 190), 2
PAINT (250, 170), 2
LINE (245, 191)-(255, 200), 6, BF
DO
FOR j = 0 TO anz - 1
p = POINT(a(j), b(j) + 1)
p1 = POINT(a(j) - 1, b(j) + 1)
p2 = POINT(a(j) + 1, b(j) + 1)
IF p = 0 THEN LINE (a(j), b(j))-(a(j), b(j)), 0: GOTO zopp
IF p1 = 0 THEN LINE (a(j), b(j))-(a(j), b(j)), 0: a(j) = a(j) - 1: GOTO zopp
IF p2 = 0 THEN LINE (a(j), b(j))-(a(j), b(j)), 0: a(j) = a(j) + 1: GOTO zopp
GOSUB neu
zopp:
b(j) = b(j) + 1
IF c(j) < 30 THEN b(j) = b(j) - .2
IF c(j) < 28 THEN b(j) = b(j) - .1
LINE (a(j), b(j))-(a(j), b(j)), c(j)
NEXT
LOOP

neu:
a(j) = CINT(RND * 640)
b(j) = 0
RETURN