「C言語による最新アルゴリズム事典」より整数の積を移植しました。 ActiveBasic 4.24.00 動作確認済み

/*******************************************************
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