2 INK 9,13:MODE 0:CLG 4:PEN 2:PRINT STRING$(120,207):FOR h=0 TO 9:c=RND*565:b=0:d=0:FOR a=1 TO 65+h*3:d=d+RND*3:b=b+RND:MOVE c-d-RND*9,365-h*4-b*2:DRAWR d+d,-12*RND,5:DRAWR d,8,9:DRAWR 4+RND*4,6,4:PLOTR-RND*d*3,2:NEXT a,h:FOR h=1 TO 13:l=280-h*2:c=RND*639
8 m=0:FOR e=1 TO 4:FOR a=0 TO h*2:PLOT-RND*8+c-m,l,4:PLOTR 4,0,8:DRAWR m*2,0:DRAWR 4,2,4: PLOTR-RND*m*2,0,4:m=m+1:l=l-2:NEXT:PLOT c-m,l,4:DRAWR m,2:DRAWR m,-2:l=l-4:m=m/1.3:NEXT:FOR a=-3 TO h/3:PLOT c-h,-a*2+l,5:DRAWR h*2,0:NEXT a,h:CALL &BB06:RUN