16 lines
360 B
Plaintext
16 lines
360 B
Plaintext
PRINT "What year would you like?"
|
|
INPUT Y
|
|
LET X = Y
|
|
GOSUB 100
|
|
IF P = 4 THEN LET L = 1
|
|
LET X = Y - 1
|
|
GOSUB 100
|
|
IF P = 3 THEN LET L = 1
|
|
IF L = 1 THEN PRINT Y," is a long year."
|
|
IF L = 0 THEN PRINT Y," is not a long year."
|
|
END
|
|
100 LET P = X + X/4 - X/100 + X/400
|
|
110 IF P < 7 THEN RETURN
|
|
LET P = P - 7
|
|
GOTO 110
|