Draft

' Return the character codes for the first characters of three strings Dim code1 As Integer Dim code2 As Integer Dim code3 As Integer code1 = Asc( "a" ) ' code1 is now equal to 97 code2 = Asc( "alpha" ) ' code2 is now equal to 97 code3 = Asc( "Alpha" ) ' code3 is now equal to 65

' Test if two integers are equal Dim int1 As Integer Dim int2 As Integer Dim int3 As Integer Dim bool1 As Boolean Dim bool2 As Boolean int1 = 1 int2 = 5 int3 = 1 bool1 = CBool( int1 = int2 ) ' bool1 is now equal to False bool2 = CBool( int1 = int3 ) ' bool2 is now equal to True

Dim bool1 As Boolean Dim bool2 As Boolean Dim bool3 As Boolean Dim bool4 As Boolean bool1 = CBool( 0 ) ' bool1 is now equal to False bool2 = CBool( -10.5 ) ' bool2 is now equal to True