DIM a AS INTEGER
    DIM b AS INTEGER
    DIM c AS INTEGER
    DIM d AS INTEGER
    DIM e AS INTEGER
    DIM tag AS INTEGER
    DIM Monat AS INTEGER
 
    a = Jahr MOD 19
    b = Jahr MOD 4
    c = Jahr MOD 7
    d = (19 * a + 24) MOD 30
    e = (2 * b + 4 * c + 6 * d + 5) MOD 7
    tag = 22 + d + e
    monat = 3
    IF tag > 31 THEN
        tag = d + e - 9
        monat = 4
    ELSEIF tag = 26 AND monat = 4 THEN
        tag = 19
    ELSEIF tag = 25 AND monat = 4 AND d = 28 AND e = 6 AND a > 10 THEN
        tag = 18
    END IF
    t=Tag
    m = Monat