/*******************************************************
multiply.abp -- 整数の積
********************************************************/
#console
Function Multiply(a As Long, b As Long) As Long
While a >< 0
If a and 1 Then
Multiply += b
End If
b <<= 1
a >>= 1
Wend
End Function
Dim x As Long
Dim y As Long
Input "x = ", x
Input "y = ", y
Print "Multiply(x, y) = " ; Multiply(x, y)
End