Snowstorm

10 INK <3.0: BORDER 0 : I N K l .20:MODE ?,
20 FOR a - 1 TO 6 ^ 0 S I t P 15
30 c - 2 + I N T ( R N D » 1 4 >
40 FOR b - 4 0 0 TO 1 STEP 4 PLOT a.b.c
50 PLOT a,T> 7 c : c - 0 * R N D - 2
60 I F u>15 THEN C - 2
7 70 NEXT b:NFXT a : FOR b - 0 TO 400 S T r 3 2
8? FOP x - 1 TO 2:FOR a - 2 TO 1 5 : I N K a . 2 6
CAM &BD1 9 : INK a . 0 : N E X T a:NEXT x I
100 PLOT 0 . b . 1 . D R A W 6 4 0 . 0 . 1 NEXT b
11? WHILE l N K t Y S - " ':WEND