RosettaCodeData/Task/Boolean-values/FreeBASIC/boolean-values.basic

' FB 1.05.0 Win64

Dim i As Integer = 23
Dim s As String = "False"
Dim b As Boolean
b = i
Print b
b = CBool(s)
Print b
i = b
Print i
i = CInt(true)
Print i
Sleep