RosettaCodeData/Task/Increment-a-numerical-string/FutureBasic/increment-a-numerical-string.basic

include "NSLog.incl"

CFStringRef s = @"12345"
NSInteger   i

for i = 1 to 10
NSLog( @"%ld", fn StringIntegerValue( s ) + i )
next
HandleEvents