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

19 lines
160 B
Plaintext

program examples\incstr
data
int value[0]
str$ text['12345']
begin
strint [value],text$
+1 [value]
intstr text$,[value]
echo text$
pause
kill
end