10DEFFNS="Fxmus" 20MODE7:VDU23;8202;0;0;0; 30D%=50:REM NUMBER OF FLAKES 40DIMC%(D%):FORL%=0TOD%:C%(L%)=RND(&4 00)+&7C00:NEXT 50Y%=RND(8) 60CLS 70FORX%=25 TO 0 STEP -1 80PROCfxmus:FORL%=0TOD%:C%(L%)=RND(&4 00)+&7C00:NEXT 90FORL%=0TO20:PROCx:NEXT 110NEXT 120GOTO50 130DEFPROCfxmus 140PRINTTAB(X%,Y%)"   150PRINTTAB(X%)"   160PRINTTAB(X%)"   170PRINTTAB(X%)"   180PRINTTAB(X%)"   190PRINTTAB(X%)"   200PRINTTAB(X%)"   210PRINTTAB(X%)"   220PRINTTAB(X%)"   230PRINTTAB(X%)"   240PRINTTAB(X%)"   250PRINTTAB(X%)"   260PRINTTAB(X%)"   270PRINTTAB(X%)"   280PRINTTAB(X%)" BBCS  290PRINTTAB(X%)"   300PRINTTAB(X%)"   310ENDPROC 320DEFPROCx:IF C%(0)=0 ENDPROC 330FORL%=0 TO RND(D%/2)+D%/2 340IF?C%(L%)=135:IF?(C%(L%)+1)=42:?(C% (L%)+1)=32:?C%(L%)=32 350C%(L%)=C%(L%)+38+RND(3):IF C%(L%)>& 7F88 C%(L%)=RND(40)+&7CF0 360IF?C%(L%)=32:IF?(C%(L%)+1)=32 ?C%(L %)=135:?(C%(L%)+1)=42 370NEXT 380ENDPROC