RosettaCodeData/Task/Leap-year/NS-HUBASIC/leap-year.basic

4 lines
177 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
10 INPUT "ENTER A NUMBER, AND I'LL DETECT IF IT'S A LEAP YEAR OR NOT. ",A
20 IF A-(A/100)*100=0 AND A-(A/400)*400<>0 THEN RESULT$="NOT "
30 PRINT "THAT'S "RESULT$"A LEAP YEAR."