RosettaCodeData/Task/Increment-a-numerical-string/Run-BASIC/increment-a-numerical-string.run
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

5 lines
101 B
Text

string$ = "12345"
numeric = val(string$)
numeric = numeric + 1
string$ = str$(numeric)
print string$