0))
            AND (SPALTE=1) THEN
              CASE REIHE OF
                 1:WRITE("SO   ");
                 2:WRITE("MO   ");
                 3:WRITE("DI   ");
                 4:WRITE("MI   ");
                 5:WRITE("DO   ");
                 6:WRITE("FR   ");
                 7:WRITE("SA   ") 
                 END;
           IF FELD [REIHE,SPALTE,MONAT]=0 THEN WRITE ("   ")
           ELSE WRITE (FELD [REIHE,SPALTE,MONAT]:3)
        END;
        WRITE("   ")
     END;
     WRITELN
  END;
  WRITELN;
  WRITELN
  END;
BEGIN      (*WIRKLICH*)
BERECHNUNG (FELD);
AUFRUF:=1;
FOR C:=1 TO 4 DO BEGIN
   BLOCKDRUCK(AUFRUF,FELD);
   AUFRUF:=AUFRUF+3
END;
WRITELN;
WRITELN;
WRITELN("FINIS CORONAT OPUS (DAS ENDE KROENT DAS WERK)")
END.
.Rp
GETSY @FG
TY0;GETSY FFFFFFFF+~	}(
P
V
	|F
H{	}(
^z	|Fy	}(
t
i
+F 	xxF
H	},
@x
9@y`@{`@}
@@~`@p
WRITE p
IOH   p
SUBS^ @zA	~F}\
|(

{#z	y(
{%	~Fx(`\
w\
)`C	
9`C	

.
	,	`	iF \
v(
7
<*u	y+t	yHs
D-r	y(
NH
Ns2	q4	q!p(oHo
]5
	qqFn`	r		y
An
ApAqrAr	`At Au
 Av+AwAxHAy
@Az A{tA|,A}`Ap
DIV   AoA
76	~F	}!|(
H

7{	}(zHz
:y	}H
1
';x	}(zHz
1/
	w\
vF vu\
uu!tH
Qt`\
.	s7
:Ft`\
r	7!q!`E\
poFnm
AmAn4Ao/Ap@Aq Ar
As At
Au.Av-AwrAx
 Ay`AzRA{	`A|`A}
@AB`D\
~\
/	R7\
}F|{`D\
z\
/	R7\
yF }x\
xx!yHwFv`\
.	
7!	u(
@tb z\
s\
ss!rHqFr`\
-	pv`D\
-\
.	
07\
o7!\
o
Bo6Bp
"Br
Bs-BurBvBx.By1BzB{B|4B}0B~
Bp
FEHL  BqBtBwAsB(

F~F\
}|	{F `
<zF
	{F `
dy	xHw
%iv	x(
/H
/wj	u\
tFsFr	{l
\
ss	qFy	xH
S
Inv	x(
;H
;
Ss	p!\
s(
eH
e
_x`F\
otn	x(ml
Bn`BoBpMBrBs3Bt2Bu
9Bv
 Bx
@By`Bz$B{
B|2B}.B~DBBmBl2Cy	~F}	|(

{ 	{{F
q|z	yx	|H
2
"w	|(
,H
,
2	~F
v	|(
:
qz	y	~Fu	|(
G
M	~F
Yt	|(
U
Y	~x	|H
q
aw	|(
kH
k
q	~F
Y* 
Ct Cu Cv Cw
 Cx`Cy
CzC{
9C|
@C}`CBwGC)~\
}F`\
|\
`C	
`C	

	,	`	iF	{F`\
|\
 zy\
yy!}H
>x`\
.	
B;`C	
)`C	F `
4w	v!`E\
utFst(
iH
Zr6q\
t(
bp<o	nFm8l
ClCn
CoCqCsCt5Cu@Cv
@Cw CxPCy.Cz2C{OC|C}4C~
9Cp
FATAL CpCrD)~F}>`G\
|F}:{\
z(yH
xC\
z(
H

"\\
zh
6zw`
6z009SZf	vFu	t(
D
Kgs	~F}hr	~F `
pq	~F}z	vFu	t(
e
l{p	~F}|o
Do`DpDqDrDsDt
@Du Dw{Dz5D{pD|D~
DD4D5Dy8Dx?D)~(

}}	|F{z	|F `

y	|F{
	xFw	~(
)
0
v	|F{
u	|F `

t	|F{
,s\
r(qH
Ip
1o\
r(
SHpn
6	xFm	~(
^
e
7l	|F{
8k	|F
DkDlDm`DooDpDr5DscDtDuDvDw DyDzD|