Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
|
|
@ -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
|
||||
Loading…
Add table
Add a link
Reference in a new issue