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

define value = 0, text$ = "12345"

strint value,text$
+1 value
intstr text$,value

print text$
pause
end