Program-id.F.Data division.Local-storage section. 1 f pic 9.9(1000). Procedure division.Perform+100times Display f End-perform.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page