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

100 DIM S$(5),T$(5),R$(5),K$(12,32),F$(20,1),A(6,20)
110 S$="*"\T$="X"\R$="Y"
120 FILE#1:"DTA1:KARTEN.BA"
130 FILEV#2:"DTA1:MSSHI.BA"
140 FOR I=1 TO 12
150 INPUT#1:K$(I)
160 NEXT I
170 FOR I=0 TO 3
180 IF SEG$(K$(3*I+1),1,I+1)=S$ THEN 200
190 GOSUB 790
200 IF SEG$(K$(3*I+2),1,I+1)=T$ THEN 220
210 GOSUB 790
220 IF SEG$(K$(3*(I+1)),1,I+1)=R$ THEN 240
230 GOSUB 790
240 S$=S$&"*"
250 T$=T$&"X"
260 R$=R$&"Y"
270 NEXT I
280 PRINT"JAHRGANGSENDZIFFER"\INPUTA1\PRINT\PRINT\PRINT
290 F=VAL(SEG$(K$(1),5,6))
300 A=VAL(SEG$(K$(2),5,5))
310 IF A1=A THEN 340
320 PRINT"FALSCHER JAHRGANG IM KARTENDECK"
330 PRINT"A B B R U C H ! ! !"\STOP
340 FOR I=1 TO F
350 F$(I)=SEG$(K$(4),4+I,4+I)
360 NEXT I
370 FOR J=0 TO 5
380 FOR I=1 TO F
390 A(J,I)=VAL(SEG$(K$(7+J),4+I,4+I))
400 NEXT I
410 NEXT J
420 PRINT#2:F,A
430 FOR I= 1 TO F
440 PRINT#2:F$(I)
450 NEXT I
460 FOR J=0 TO 5
470 FOR I=1 TO F-1
480 PRINT#2:A(J,I);
490 NEXT I
500 PRINT#2:A(J,F)
510 NEXT J
520 CLOSE#2\CLOSE#1
530 PRINTF;"FAECHER"
540 PRINT"F-NAMEN   ";
550 FOR I=1 TO F
560 PRINT" ";F$(I);" ";
570 NEXT I
580 PRINT
590 PRINT"ANZ-L-K   ";
600 GOSUB 730
610 PRINT"SOLLSTD   ";
620 GOSUB 730
630 PRINT"IST-STD   ";
640 GOSUB 730
650 PRINT"ANZ-G-K   ";
660 GOSUB 730
670 PRINT"SOLLSTD   ";
680 GOSUB 730
690 PRINT"IST-STD   ";
700 GOSUB 730
710 PRINT
720 CHAIN"SYS:MATRIX.BA"
730 FOR I=1 TO F
740 PRINT A(L,I);
750 NEXT I
760 L=L+1
770 PRINT
780 RETURN
790 PRINT"WARNUNG!!! VORLAUFKARTEN FEHLERHAFT!!!"
800 RETURN
810 END