RosettaCodeData/Task/Leap-year/Sinclair-ZX81-BASIC/leap-year-1.basic
2023-07-01 13:44:08 -04:00

2 lines
83 B
Text

5000 LET L=Y/4=INT (Y/4) AND (Y/100<>INT (Y/100) OR Y/400=INT (Y/400))
5010 RETURN