; Berechnung des Osterdatums nach Verfahren von Carl Friedrich Gau
m m
J Osterdatum
S l1;0,0,68,70,108
O R
H 100
; fortlaufend numeriertes Feld fr Jahreszahl
T:jahr;5,5,0,3,pt10;[SER:1994][I]
; Berechnung der Hilfsvariablen
T:a;    5,20,0,3,pt10;[%:jahr,19][I]
T:b;    5,25,0,3,pt10;[%:jahr,4][I]
T:c;    5,30,0,3,pt10;[%:jahr,7][I]
T:zwd1; 5,35,0,3,pt10;[*:a,19][I]
T:zwd2;35,20,0,3,pt10;[+:zwd1,24][I]
T:d;   35,25,0,3,pt10;[%:zwd2,30][I]
T:zwe1;35,30,0,3,pt10;[*:b,2][I]
T:zwe2;35,35,0,3,pt10;[*:c,4][I]
T:zwe3;65,20,0,3,pt10;[*:d,6][I]
T:zwe4;65,25,0,3,pt10;[+:zwe1,zwe2,zwe3,5][I]
T:e;   65,30,0,3,pt10;[%:zwe4,7][I]
; Berechnung des Tages, Tag 32ff. ist im April
T:tag1;65,35,0,3,pt10;[+:22,d,e][I]
; 26. April auf 19. April rckrechnen
T:v26;  5,40,0,3,pt10;[=:tag1,57][I]
T:v26b;35,40,0,3,pt10;[*:v26,7][I]
T:tag2;65,40,0,3,pt10;[-:tag1,v26b][I]
; 25. April ist 18. April, falls d=28 und e=6 und a grer 10
T:v25;  5,45,0,3,pt10;[=:tag1,56][I]
T:v25b;35,45,0,3,pt10;[=:d,28][I]
T:v25c;65,45,0,3,pt10;[=:e,6][I]
T:v25d; 5,50,0,3,pt10;[>:a,10][I]
T:v25e;35,50,0,3,pt10;[*:v25,v25b,v25c,v25d,7][I]
T:tag3;65,50,0,3,pt10;[-:tag2,v25e][I]
; nun Monatsname berechnen und Tagesnummer korrigieren
T:m1;   5,55,0,3,pt10;[>:tag3,31][I]
T:m2;  35,55,0,3,pt10;[*:m1,31][I]
T:tag; 65,55,0,3,pt10;[-:tag3,m2][D:2,0][I]
T:o1;   5,60,0,3,pt10;[*:m1,5][I]
T:off; 35,60,0,3,pt10;[+:o1,1][I]
T:mn;   5,65,0,3,pt10;Mrz April[I]
T:Mon; 35,65,0,3,pt10;[mn,off,5][I]
; Ausgabe
T 5,10,0,5,pt15;Ostern fllt [jahr] auf den [tag]. [Mon].
A 5
