Directory of image this file is from
This file as a plain text file

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|