Dim a As Single
Dim b As Single
Dim c As Single
a = 9.876543 'First number
b = 2.345678 'Second number
c = a * b
Print 1, "Number ", a, CrLf
Print 1, "multiplied by ", b, CrLf
Print 1, "equals ", c, "!", CrLf