FreeBASICModern Open Source BASIC

' Classic "Hello, World!" program
Print "Hello, World!"
Sleep

' Simple file read/write
Dim f As Integer = FreeFile
Open "test.txt" For Output As #f
Print #f, "Hello FreeBASIC!"
Print #f, "Second line of data"
Close #f

' Read file contents
Open "test.txt" For Input As #f
Dim buf As String
While Not Eof(f)
    Line Input #f, buf
    Print buf
Wend
Close #f
Sleep

' Bubble sort example
Dim arr(1 To 10) As Integer
Dim i As Integer, j As Integer, temp As Integer

' Initialize array
For i = 1 To 10
    arr(i) = Int(Rnd * 100) + 1
Next i

Print "Before: ";
For i = 1 To 10: Print arr(i); " ";: Next i
Print

' Bubble sort
For i = 1 To 9
    For j = i + 1 To 10
        If arr(i) > arr(j) Then
            Swap arr(i), arr(j)
        End If
    Next j
Next i

Print "After:  ";
For i = 1 To 10: Print arr(i); " ";: Next i
Print
Sleep

' Multithreading example
#include once "fbthread.bi"

sub mythread( byval p as any ptr )
	print "hey! woeoio"
    print "------------------------------------------------"
end sub

threaddetach( threadcreate( @mythread ) )
sleep 1

dim as long i,a
dim s as string
for i = 1 to 200
    a += i
    s += " + " & i
next
print s & " = " & a