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