diff --git a/index.html b/index.html
index 596d246..1eff394 100644
--- a/index.html
+++ b/index.html
@@ -98,6 +98,7 @@ By Joshua Bell
+
diff --git a/samples/sample.snowflakes.txt b/samples/sample.snowflakes.txt
new file mode 100644
index 0000000..a76c1f5
--- /dev/null
+++ b/samples/sample.snowflakes.txt
@@ -0,0 +1,35 @@
+100 REM *****************************************************************
+110 REM * *
+120 REM * SNOWFLAKE *
+130 REM * A GRAPHICS NONSENSE FOR APPLE II *
+140 REM * KEVIN RIORDAN 1985 *
+150 REM * *
+160 REM *****************************************************************
+170 :
+
+180 REM THIS PROGRAM DRAWS SUCCESSIVE AND INCREASINGLY
+190 REM INTRICATE SYMMETRICAL DESIGNS ON THE HIRES
+200 REM SCREEN.
+210 REM SINCE IT RUNS IN AN ETERNAL LOOP, THE ONLY
+220 REM WAY TO STOP IT IS TO RESET OR POWER OFF -
+230 REM BUT IT'S VERY RESTFUL TO STARE AT!
+240 :
+
+250 X=3:S=140:T=95:HGR2:HCOLOR=2
+260 FORY=0TOINT((X-2)/2):GOSUB280:GOSUB410
+270 HGR2:NEXT:X=X+1:GOTO260
+280 A1=2*(22/7)/X:A2=A1*(Y+1)
+290 C=1/SIN((22/7)*(Y+1)/X)
+300 D=X:E=Y+1
+310 D=D-INT(D/E)*E:IFABS(D)>0.5THENF=E:E=D:D=F:GOTO310
+320 E=INT(E+0.5):D=X/E
+330 IFD-INT(D/2)*2>0.5THENC=C+COS((22/7)*E/(2*X))
+340 G=X+0.5:K=D-0.5
+350 FORL=1TOINT(G):M=0:N=0:R=(L-1)*A1
+
+360 FORQ=1TOINT(K):M=M+COS(R)/C:N=N+SIN(R)/C
+370 U=140+INT(95*M+0.5):V=95+INT(95*N+0.5)
+380 HPLOT S,T TO U,V:S=U:T=V:R=R+A2:NEXT
+390 U=140:V=95:HPLOT S,T TO U,V
+400 S=140:T=95:NEXT:RETURN
+410 FORJ=1TO1000:NEXT:RETURN