#include once "windows.bi"
Const r="Rest", t="Test"
Var a=17, b=4, c=2, d=1.0
Print "a=" &a &!"\nb=" & b &!"\nc=" &c &!"\n((a+b)*c)=" &((a+b)*c) 'do some arithmetics just for fun..
Print "To find the smaller value of a and b, you could use IF :";
If a<b Then Print a Else Print b
Print "Experienced users perhaps like IIF :" &IIF(a<b, a, b)
Print "Undocumented is the use of Min(" &Str(a) &"," & b &")=" &Min(a, b)
Print "Also undocumented: Max(" &Str(a) &"," & b &")=" &Max(a, b)
If r<t Then Print r Else Print t
Print "d=" &d
Print "((1 shl 31)-1)=" &((1 shl 31)-1)
Print "2^31-1=" &(2^31-1)
If 2^31-1=1 shl 31-1 Then Print "Yes" Else Print "No"
Print "And-Test"
Print "3 And 1=" &(3 And 1)
Print "2 And 1=" &(2 And 1)
Print "1 And 1=" &(1 And 1)
Print "0 And 1=" &(0 And 1)
Print "-1 And 1=" &(-1 And 1)
GetKey