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

string$="12345"
string$=Str(Val(string$)+1)
Debug string$