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

HALBJAHR (1. ODER 2.)";\INPUT H$\IF H$="1." THEN 200
190 IF J$="2." THEN 200\PRINT\PRINT"NEU EINGEBEN!"\PRINT\GOTO 180
200 FOR S=1 TO 6\READ T$(S)\NEXT S\PRINT\PRINT\PRINT
210 FOR S1 = 1 TO 6
215 PRINT T$(S1);":"
220 FOR S2=1 TO 8
225 PRINT"",S2;".  STD.";\INPUT V$
230 IF LEN(V$)=8 THEN 240\PRINT\PRINT"NEU EINGEBEN!"\PRINT\GOTO 225
240 Z=Z+1\S$(Z)=V$\NEXT S2\PRINT\PRINT\NEXT S1\PRINT\GOTO 270
250 FOR S= 1 TO 48\RESTORE\READ S$(S)\NEXT S
260 READ N$,K$,J$,H$
270 PRINT"BITTE DREHEN SIE DAS PAPIER NUN BIS ZUM NAECHSTEN ABRISSSTREIFEN!"
280 FOR S = 1 TO 5000\NEXT S\Z=-7\V$="          "
290 FOR S1=1 TO A
300 FOR S2=1 TO 5\PRINT\NEXT S2\PRINT"*";X$,"*"," "," "," ",
310 PRINT"              *","*"," STUNDENPLAN VON ";N$;"         *",
315 PRINT"*"," "," "," ","              *"
320 PRINT"*       KLASSE ";K$;"        SCHULJAHR ";J$;"       ";H$,
330 PRINT"HALBJAHR      *","*"," "," "," ","              *","*";X$
340 PRINT"*STD*    MO    *    DI    *    MI    *    DO    *";
350 PRINT"    FR    *    SA    *",X$;"*"
355 PRINT"*   *";V$;"*";V$;"*";V$;"*";V$;"*";V$;"*";V$;"*"
360 FOR S3= 1 TO 8\PRINT"*";S3;"*";
370 FOR S4= 1 TO 6\Z=Z+8\IF Z<49 THEN 380\Z=S3
380 PRINT" ";S$(Z);" *";\NEXT S4\PRINT "","*   *";V$;"*";V$;"*";
385 PRINT V$;"*";V$;"*";V$;"*";V$;"*"\NEXT S3\PRINT X$;"*"
390 FOR S5= 1 TO 4\PRINT\NEXT S5\NEXT S1
400 DATA "        ","                              ","   ","       ","  "
410 DATA "MONTAG","DIENSTAG","MITTWOCH","DONNERSTAG","FREITAG","SAMSTAG"
420 END
PROGRAM KALENDER (INPUT,OUTPUT);
  TYPE RALF= ARRAY [1..7,1..6,1..12] OF INTEGER;
  VAR FELD:RALF;C,AUFRUF:INTEGER;

     (*EIN PROGRAMM VON GEORG HEIKAUS UND RALF MEHLAN*)

  PROCEDURE BERECHNUNG (VAR  FELD :RALF);
     VAR MONAT,I1,I2,I3,B1,B2,ZAEHLER: INTEGER;
           JAHR,WOCHENTAG,SCHALTJAHR :INTEGER;
      PROCEDURE WOCHENBERECHNUNG ( MONAT,JAHR:INTEGER;VAR SCHALTJAHR,
                                     WOCHENTAG:INTEGER);
      VAR JTAGE,MTAGE,TAG,GESAMTTAGE:INTEGER;
      BEGIN
      SCHALTJAHR:=0;
      IF JAHR = 4 *TRUNC(JAHR/4) THEN
         SCHALTJAHR:=1;
      IF JAHR = 100 *TRUNC(JAHR/100) THEN BEGIN
         IF JAHR = 400 *TRUNC(JAHR/400)THEN
            SCHALTJAHR:=1
            ELSE SCHALTJAHR:=0
      END;
      JTAGE := SCHALTJAHR + (365*(JAHR-1)) + TRUNC ((JAHR-1)/4)
               - TRUNC ((JAHR-1)/100) + TRUNC ((JAHR-1)/400);
      IF MONAT <=2 THEN
         MTAGE := 31 *(MONAT-1)
         ELSE MTAGE := TRUNC(((306*MONAT)-324)/10);
      IF (SCHALTJAHR=1) AND (MONAT<3) THEN
      TAG:=0
      ELSE TAG:=1;
      GESAMTTAGE:= JTAGE+MTAGE+TAG;
      WOCHENTAG:= GESAMTTAGE -(7*( TRU