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