RosettaCodeData/Task/Leap-year/BASIC/leap-year-5.basic
2019-09-12 10:33:56 -07:00

6 lines
107 B
Text

10 INPUT Y
20 GOSUB 5000
30 PRINT Y;" IS ";
40 IF NOT L THEN PRINT "NOT ";
50 PRINT "A LEAP YEAR."
60 STOP