18 lines
303 B
Text
18 lines
303 B
Text
include "NSLog.incl"
|
|
|
|
void local fn Example( value as long )
|
|
NSLog(@"Example %ld",value)
|
|
end fn
|
|
|
|
void local fn DoIt( fnAddress as ptr, count as long )
|
|
def fn Repeat( j as long ) using fnAddress
|
|
|
|
long i
|
|
for i = 1 to count
|
|
fn Repeat( i )
|
|
next
|
|
end fn
|
|
|
|
fn DoIt( @fn Example, 3 )
|
|
|
|
HandleEvents
|