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