FreeBASIC现代开源 BASIC

' 经典的 "Hello, World!" 程序
Print "Hello, World!"
Sleep

' 简单的文件读写
Dim f As Integer = FreeFile
Open "test.txt" For Output As #f
Print #f, "Hello FreeBASIC!"
Print #f, "第二行数据"
Close #f

' 读取文件内容
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

' 冒泡排序示例
Dim arr(1 To 10) As Integer
Dim i As Integer, j As Integer, temp As Integer

' 初始化数组
For i = 1 To 10
    arr(i) = Int(Rnd * 100) + 1
Next i

Print "排序前: ";
For i = 1 To 10: Print arr(i); " ";: Next i
Print

' 冒泡排序
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 "排序后: ";
For i = 1 To 10: Print arr(i); " ";: Next i
Print
Sleep

' 多线程示例
#include once "fbthread.bi"

sub mythread( byval p as any ptr )
	print "hey! 邓伟"
    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