10 cls: SCREEN1:KEYOFF:DEFINTA-Z: BA=6144
15 for RA=5 TO 0 step -1
20 FOR L=0TO12:for J=0 TO A:B=16-L:C=B-4:
30 VPOKE BA+(4+J)*32+L,42+RND(1)*RA
31 VPOKE BA+(C+J)*32+B,42+RND(1)*RA
32 VPOKE BA+(C+J)*32+L,42+RND(1)*RA
33 VPOKE BA+(4+J)*32+B,42+RND(1)*RA
40 :NEXT J:A=A+1:NEXT L:A=0:NEXT RA
