10REM > Snowing 20: 30quit$="":IF(V%DIV1000000)=985:quit$ ="$.!Boot" 40ONERROR:MODE&87:REPORT:IFINKEY-1:EN D ELSE PROCquit:END 50MODE2:VDU19,15,7,0,0,0,23;8202;0;0; 0; 60REPEATCLS:PROCsnow:UNTILFNsettle:PR OCquit:END 70: 80DEFPROCquit:IFASCquit$=42:OSCLIquit $ ELSE IFquit$<>"":CHAINquit$ 90ENDPROC 100: 110DEFPROCsnow:X%=-40:C%=1:REPEAT:X1%= X% 120FOR Y%=1023 TO 0 STEP -RND(30)-5 130GCOL 0,C%:C%=((C%+1)-2*(C%=14))AND1 5 140X1%=X1%+(RND(16)-8):PLOT 69,X1%,Y% 150NEXT:X%=X%+RND(10)+25:UNTILX%>1320: ENDPROC 160: 170DEFFNsettle:A%=TRUE:Sn=0:GCOL 0,15: REPEAT FOR I%=1 TO 14:*FX19 180VDU19,I%,0,0,0,0,19,((I%+1)-2*(I%=1 4))AND15,7,0,0,0 190MOVE0,Sn:DRAW 1279,Sn:Sn=Sn+.15 200A%=A% AND INKEY(5):NEXT:UNTILA%>=0 OR Sn>1020 210=A%>=0