14 lines
162 B
Text
14 lines
162 B
Text
' 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
|