10 DIM A(100,4)
20 PRINT "ANZAHL DER AUSSCHUESSE";\INPUT Z3\IF Z3>100  THEN 50
30 FOR I=1TO Z3\PRINT I;"  ";\INPUT A(I,1),A(I,2),A(I,3),A(I,4)
40 NEXT I\GOTO 60
50 PRINT "ZU HOHE ANZAHL ! A B B R U C H !"\STOP
60 PRINT\PRINT "SIND ALLE DATEN KORREKT EINGEGEBEN";\INPUT A$
70 IF A$="JA" THEN 100\IF A$<>"NEIN" THEN 60
80 PRINT "WELCHE NUMMER IST FALSCH";\INPUT F
90 PRINT F;"  ";\INPUT A(F,1),A(F,2),A(F,3),A(F,4)\GOTO 60
100 FILEV#1:"DTA1:PRAUS.BA"\PRINT#1:Z3
120 FOR I=1 TO Z3\FOR I1=1 TO 3\PRINT#1:A(I,I1);\NEXT I1
130 PRINT#1:A(I,4)\NEXT I\CLOSE#1
140 END