12 lines
262 B
Text
12 lines
262 B
Text
window 1
|
|
|
|
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 )
|
|
|
|
HandleEvents
|