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

4 lines
114 B
Text

CHARACTER string = "123 -4567.89"
READ( Text=string) a, b
WRITE(Text=string) a+1, b+1 ! 124 -4566.89