Button 1 Text Asc Chr
Button 2 Text Bin FromBin
Button 3 Text Hex FromHex
Button 4 Text Empty string producing zero values
Stop

Label Asc Chr
	v1 = Asc("A")
	v2 = Asc("abcd")
	v3 = Asc(Chr(255))
	v4 = Asc(Chr(65535))
	Print v1 & " " & v2 & " " & v3 & " " & v4
Stop

Label Bin FromBin
	s1 = Bin(255)
	v2 = FromBin("10101010")
	v3 = FromBin(Bin(255))
	v4 = FromBin(Bin(65535))
	Print s1 & " " & v2 & " " & v3 & " " & v4
Stop

Label Hex FromHex
	s1 = Hex(255)
	v2 = FromHex("FF")
	v3 = FromHex(Hex(255))
	v4 = FromHex(Hex(65535))
	Print s1 & " " & v2 & " " & v3 & " " & v4
Stop

Label Empty string producing zero values
	s1 = ""
	v1 = Asc(s1)
	v2 = FromBin(s1)
	v3 = FromHex(s1)
	Print v1 & " " & v2 & " " & v3
Stop


'WATCH Asc(s1)
