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

include "ConsoleWindow"

dim as Str255 numStr
dim as long   numeric, i

numStr = "12345"
numeric = val(numStr)
numeric++
numStr = str$(numeric)
print numStr

print

for i = 0 to 10
   numeric++
   numStr = str$( numeric )
   print numStr
next