6) SNOWFALL (117 B)
To use: LOAD 1, RUN 1100
Break with SPACE

1110 REM
1120 REM SNOWFALL
1130 REM
1140 RANDOMISE
1150 FOR I=0 TO 735
1160 POKE 767-I,PEEK(735-I)
1170 NEXT I
1180 FOR I=0 TO 31
1190 LET C=0
1200 IF RND(10)=1 THEN LET C=20
1210 POKE I,C
1220 NEXT I
1230 GOTO 1150