10 DIM N$(20),F(4,5),X$(14),Y$(14)
20 PRINT "WIEVIELE DATEIEN SOLLEN ZUSAMMENGEFASST WERDEN";\INPUT A
90 PRINT"NAME DES AUFZUBAUENDEN DATENSATZES";\INPUTY$
95 Y$="DTA1:"&Y$&".BA"
96 FILEV#2:Y$
100 FOR Z=1 TO A
180 PRINT"NAME DES ABZURUFENDEN DATENSATZES";\INPUTX$
185 X$="DTA1:"&X$&".BA"
200 FILE#1:X$
220 INPUT#1:N$,X
230 FOR I = 1 TO 4\INPUT#1:F$(I),X\NEXT I
240 INPUT#1:F(1,1),F(1,2),F(2,1),F(2,2),F(3,1),X,X
250 INPUT#1:F(3,2),F(4,1),F(4,2),X,X
260 PRINT N$\ IF N$="ENDE" THEN 825
770 PRINT#2:N$
780 FOR I = 1 TO 4\PRINT#2:F$(I)\NEXT I
790 FOR I = 1 TO 4
800 PRINT#2:F(I,1),F(I,2),
810 NEXT I
820 PRINT#2:\GOTO 220
825 CLOSE#1 \ NEXT Z
830 PRINT#2:N$
840 FOR I = 1 TO 4\PRINT#2:"O"\NEXT I
850 FOR I = 1 TO 8\PRINT#2:"0",\NEXT I
860 PRINT#2:
870 CLOSE#2
880 END