Data commit

Task/Sierpinski-triangle-Graphical/FreeBASIC/sierpinski-triangle-graphical.basic

@@ -0,0 +1,24 @@
+' version 06-07-2015
+' compile with: fbc -s console or with: fbc -s gui
+
+#Define black  0
+#Define white RGB(255,255,255)
+
+Dim As Integer x, y
+Dim As Integer order = 9
+Dim As Integer size = 2 ^ order
+
+ScreenRes size, size, 32
+Line (0,0) - (size -1, size -1), black, bf
+
+For y = 0 To size -1
+    For x = 0 To size -1
+        If (x And y) = 0 Then PSet(x, y)    ' ,white
+    Next
+Next
+
+' empty keyboard buffer
+While Inkey <> "" : Wend
+WindowTitle "Hit any key to end program"
+Sleep
+End