10 DIM B$(80,20),F$(15),H$(70)
20 PRINT"VON FILE"\INPUT F$
25 PRINT"SATZLAENGE"\INPUT S
30 FILE#1:"DTA1:"&F$
35 INPUT#1:H$,H$,H$
40 FOR I=1 TO 300
50 FOR J=1 TO3*S
60 INPUT#1:B$(J)\IF END #1 THEN 250
70 NEXT J
75 FOR K=0 TO 48 STEP 24
80 IF B$(16+K)<>"0" THEN 100
90 B$(16+K)=B$(4+K)\B$(17+K)=B$(5+K)
100 IF B$(10+K)<>"0" THEN 120
110 B$(10+K)=B$(1+K)
115 IF B$(11+K)<>"0" THEN120
116 B$(11+K)=B$(14+K)
120 IF SEG$(B$(10+K),1,1)="+" THEN 150
140 IF SEG$(B$(11+K),1,1)<>"+" THEN 160
150 B$(10+K)=B$(13+K)\B$(11+K)=B$(14+K)
160 NEXT K
165 FOR L=1 TO 65\PRINT"-";\NEXT L\PRINT
170 PRINT"FRAU/HERRN";TAB(22);"I";TAB(24);"FRAU/HERRN";
175 PRINT TAB(44);"I";TAB(46);"FRAU/HERRN"
180 PRINT TAB(22);"I";TAB(44);"I"
190 PRINTB$(11);TAB(22);"I";TAB(24);B$(35);TAB(44);"I";TAB(46);B$(59)
200 PRINTB$(10);TAB(22);"I";TAB(24);B$(34);TAB(44);"I";TAB(46);B$(58)
210 PRINT TAB(22);"I";TAB(44);"I"
220 PRINTB$(16);TAB(22);"I";TAB(24);B$(40);TAB(44);"I";TAB(46);B$(64)
230 PRINTB$(17);TAB(22);"I";TAB(24);B$(41);TAB(44);"I";TAB(46);B$(65)
235 IF W=1 THEN 270
240 NEXT I
250 IF I/3-INT(I/3)<>0 THEN 270
260 W=1\GOTO 75
270 CLOSE#1
280 END