\ ********************************************************************* 
\ Test if it's a leap year 
\    Filename:      leapYear.txt 
\    Date:          21 jan 2022 
\    Updated:       21 jan 2022 
\    File Version:  1.0 
\    MCU:           gForth 
\    Copyright:     Marc PETREMANN 
\    Author:        Marc PETREMANN 
\    GNU General Public License 
\ ********************************************************************* 
 
\ leave true if year is leap 
: leap? { year -- fl } 
    year 400 mod 0= 
    year 100 mod 0= invert  year 4 mod 0=  and 
    or 
  ; 
 
 

Legal: site web personnel sans commerce / personal site without seling