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