14 lines
361 B
Plaintext
14 lines
361 B
Plaintext
100 DEF Multiply(A, B) = A * B
|
|
110 DECLARE FUNCTION MultiplyI
|
|
120 DECLARE EXTERNAL FUNCTION MultiplyE
|
|
130 PRINT Multiply(3, 1.23456)
|
|
140 PRINT MultiplyI(3, 1.23456)
|
|
150 PRINT MultiplyE(3, 1.23456)
|
|
160 FUNCTION MultiplyI(X, Y)
|
|
170 LET MultiplyI = X * Y
|
|
180 END FUNCTION
|
|
190 END
|
|
200 EXTERNAL FUNCTION MultiplyE(A, B)
|
|
210 LET MultiplyE = A * B
|
|
220 END FUNCTION
|