24 lines
483 B
Text
24 lines
483 B
Text
' 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
|