1 ' Snowstorm
2 ' Shaun Garrad 3 ' Amstrad Action˙ ˙Jan 87 10 INK 0,0:BORDER 0:INK 1,26:MODE 0 20 FOR a=1 TO 640 STEP 15 30 c=2+INT(RND*14) 40 FOR b=400 TO 1 STEP -4:PLOT a,b,c 50 PLOT a,b-2,c:c=c+RND*2 60 IF c>15 THEN c=2 70 NEXT b:NEXT a:FOR b=0 TO 400 STEP 2 80 FOR x=1 TO 2:FOR a=2 TO 15:INK a,26 90 CALL &BD19:INK a,0:NEXT a:NEXT x 100 PLOT 0,b,1:DRAW 640,b,1:NEXT b 110 WHILE INKEY$="":WEND |