%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:752

File Name:MON CALC

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

\Lbl 0:\Do:"JAHR"?\->J:J<100\=>2000+J\->J:\LpWhile (J\<>\Int J\ Or J<1548\ Or J>4500):\Do:"MONAT"?\->M:\LpWhile (M\<>\Int M\ Or M<1\ Or M>12):\Lbl 1:\Int ((J-1548)/4)-\Int ((J-1548)/100)+\Int ((J-1548)/400)\->Z:1\->D:4\->S:\Frac (J/100)=0\=>400\->S:\Int (1-\Frac (J/S))\->S: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:31\->T:M=4\ Or M=6\ Or M=9\ Or M=11\=>30\->T:M=2\=>28+S\->T:15\->Q:\If Z\<=4:\Then Z+3\->Z:\Else Z-4\->Z:\IfEnd:Z*15\->R:\ClrGraph:\Text 1,5-4\Int (\log M),M:\Text 1,8,".MONAT DES JAHRES":\Text 1,83,J:S=1\=>\Text 8,20,"(SCHALTJAHR)":\Green \Text Q,15,"MO":\Green \Text Q,30,"DI":\Green \Text Q,45,"MI":\Green \Text Q,60,"DO":\Green \Text Q,75,"FR":\Green \Text Q,90,"SA":\Green \Text Q,105,"SO":Q+6\->Q:\For 1\->V \To T:5+R-4*\Int (\log (V))\->U:R\<>7*15\=>\Text Q,U,V:R=7*15\=>\Orange \Text Q,U,V:R+15\->R:R>7*15\=>Q+6\->Q:R>7*15\=>15\->R:\Next :\Do:\Getkey\->\r:\LpWhile \r\<>31\ And \r\<>48:\r=48\=>\Goto0:M+1\->M:M>12\=>J+1\->J:M>12\=>1\->M:\r=31\=>\Goto1

%End