RosettaCodeData/Task/Increment-a-numerical-string/ALGOL-68/increment-a-numerical-strin...

6 lines
118 B
Plaintext

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))