RosettaCodeData/Task/Increment-a-numerical-string/TUSCRIPT/increment-a-numerical-strin...

7 lines
108 B
Turing

$$ MODE TUSCRIPT
teststring="0'1'-1'12345'10000000'-10000000"
LOOP/CLEAR n=teststring
n=n+1
PRINT n
ENDLOOP