aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions
RosettaCodeData/Task/Leap-year/BASIC/leap-year-4.basic

3 lines
83 B
Text
Raw Permalink Normal View History

September Morn Update
2019-09-12 10:33:56 -07:00
5000 LET L=Y/4=INT (Y/4) AND (Y/100<>INT (Y/100) OR Y/400=INT (Y/400))
5010 RETURN
Reference in a new issue Copy permalink