RosettaCodeData/Task/Increment-a-numerical-string/ALGOL-68/increment-a-numerical-string.alg
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

5 lines
118 B
Text

STRING s := "12345"; FILE f; INT i;
associate(f, s); get(f,i);
i+:=1;
s:=""; reset(f); put(f,i);
print((s, new line))