' Oster-Formel 
' Autor: Uwe H. Wulf
' Quick Basic 4.5
10   CLS : CLEAR
20   COLOR 15, 0
30   LOCATE 9, 27: PRINT "Berechnung des Oster-Sonntags"
40   LOCATE 11, 12: PRINT "nach der Oster-Formel von Carl Friedrich Gauá (1777-1855)"
50   LOCATE 15, 15: INPUT "Jahr: ", J
60   A1 = INT(J / 19) * 19
70   A = J - A1
80   B1 = INT(J / 4) * 4
90   B = J - B1
100  C1 = INT(J / 7) * 7
110  C = J - C1
120  J2 = INT(J / 100)
130  M = INT(((8 * J2) + 13) / 25) - 2
140  J4 = INT(J / 400)
150  S = INT(J2 - J4) - 2
160  M2 = INT((15 + S - M) / 30) * 30
170  M1 = (15 + S - M) - M2
180  N2 = INT((6 + S) / 7) * 7
190  N = (6 + S) - N2
200  D1 = INT((M1 + (19 * A)) / 30) * 30
210  D = (M1 + (19 * A)) - D1
220  IF D = 29 THEN D1 = 28: GOTO 250
230  IF D = 28 AND A >= 11 THEN D1 = 27: GOTO 250
240  D1 = D
250  E1 = INT(((2 * B) + (4 * C) + (6 * D) + N) / 7) * 7
260  E = ((2 * B) + (4 * C) + (6 * D) + N) - E1
270  T = D + E + 1 + 21
280  LOCATE 15, 15: PRINT USING "Ostern ####"; J
290  IF T <= 31 THEN T = T: LOCATE 17, 15: PRINT USING "Sonntag:   ##. M„rz ####"; T; J
300  IF T > 31 THEN T = T - 31: LOCATE 17, 15: PRINT USING "Sonntag:  ##. April ####"; T; J
310  LOCATE 18, 15: PRINT "========================"
320  IF INKEY$ = "" THEN 320 ELSE CLS
330  CLS : END