program-id.y.data division.working-storage section. 1 n pic 9999. 1 s pic x(17) value" not a leap year.".procedure division.a.accept n display n" is"s(5- 4*0^function integer-of-date(4000229+n*10^4):)if n<>2008 if n<>2500 if n<>1859 go a.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).