%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:669

File Name:DAY CALC

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

\Do:"JAHR"?\->J:\LpWhile J\<>\Int J\ Or J<1548\ Or J>4000

\Do:"MONAT"?\->M:\LpWhile (M\<>\Int M\ Or M<1\ Or M>12)

4\->S:\Frac (J/100)=0\=>400\->S:\Int (1-(\Frac (J/S))\->S

\Do:"TAG"?\->D:\LpWhile D\<>\Int D\ Or D<1

M=2\=>D>28+S\=>28+S\->D

\If (M=4\ Or M=6\ Or M=9\ Or M=11)\ And (D>30)

\Then 30\->D:\IfEnd

D\->T

\Lbl 0

\Int ((J-1548)/4)-\Int ((J-1548)/100)+\Int ((J-1548)/400)\->Z

M>1\=>31+D\->D

M>2\=>28+S+D\->D

M>3\=>31+D\->D

M>4\=>30+D\->D

M>5\=>31+D\->D

M>6\=>30+D\->D

M>7\=>31+D\->D

M>8\=>31+D\->D

M>9\=>30+D\->D

M>10\=>31+D\->D

M>11\=>30+D\->D

\Int ((\Frac (J*365+Z+D)\ab/c7)*7+.01)\->Z

\If Z\<=4

\Then Z+3\->Z

\Else Z-4\->Z

\IfEnd

\ClrText

"DER 0 .0  DES JAHRES JAHRES 0000 IST EIN"

\Locate 6-\Int (\log T),1,T

\Locate 9-\Int (\log M),1,M

\Locate 8,2,J

Z=1\=>"MONTAG"

Z=2\=>"DIENSTAG"

Z=3\=>"MITTWOCH"

Z=4\=>"DONNERSTAG"

Z=5\=>"FREITAG"

Z=6\=>"SAMSTAG"

Z=7\=>"SONNTAG"

"DAS JAHR 0000 IST"

\Locate 10,4,J

"KEIN SCHALTJAHR"

S\=>\Locate 1,5," "



%End