10 DIM N$(20),F(4,3)
20 PRINT "AUFZUBAUENDER DATENSATZ";\INPUT Y$
30 FILEV#2:"DTA1:"&Y$&".BA"
40 PRINT "NAME";\ INPUT N$
50 IF N$<> "ENDE" THEN 80
60 PRINT#2:N$\ CLOSE#2
70 STOP
80 FOR I=1 TO 4
90 PRINT "FACH";
100 INPUT F$(I)
110 PRINT "PKTE";\ INPUT F(I,1),F(I,2)
120 NEXT I
121 PRINT
125 PRINT "PKTE-PRFG";\ INPUT F(1,3),F(2,3),F(3,3),F(4,3)
130 PRINT#2:N$
140 FOR I=1 TO 4\ PRINT#2:F$(I)\ NEXT I
150 PRINT#2:F(1,1),F(1,2),F(1,3),F(2,1),F(2,2)
160 PRINT#2:F(2,3),F(3,1),F(3,2),F(3,3),F(4,1)
170 PRINT#2:F(4,2),F(4,3)
180 GOTO 40
190 END