とんだ間違いをしてしまった。 DTREAD OUT Y,M,D IF　(Y MOD 1000)!=0 AND (Y MOD 4)==0 THEN ?"閏年です" だった;-(