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.