a$=Input$("Enter a letter:")
Print "The ASCII value of the letter is:" + Asc(a$)