DEF 閏年チェック(年) 　IF (年 MOD 400) == 0 THEN RETURN 閏年 　IF (年 MOD 100) == 0 THEN RETURN 平年 　IF (年 MOD 4) == 0 THEN RETURN 閏年 　RETURN 平年 END でも良いかと。