RosettaCodeData/Task/Higher-order-functions/FutureBasic/higher-order-functions.futurebasic

11 lines
263 B
Text
Raw Permalink Normal View History

2016-12-05 23:44:36 +01:00
include "ConsoleWindow"
dim as pointer functionOneAddress
def fn FunctionOne( x as long, y as long ) as long = (x + y) ^ 2
functionOneAddress = @fn FunctionOne
def fn FunctionTwo( x as long, y as long ) using functionOneAddress
print fn FunctionTwo( 12, 12 )