Category:FoxPro

From Rosetta Code

SET DATE ansi SET CENTURY on for i = 2008 to 2121

date = CTOD( STR(i,4) + '.12.25' )
if CDOW( date ) = 'Sunday'
 ? i
ENDIF 

endfor

This category currently contains no pages or media.