10 DIM P$(70,3),A$(72)
20 PRINT "ANZAHL DER AN PRUEFUNGEN BETEILIGTEN LEHRER";\INPUT Z1
30 IF Z1<=70 THEN 50
40 PRINT "ZU HOHE ANZAHL!  A B B R U C H  !"\STOP
50 FOR I=1 TO Z1\PRINT I;".  ";\INPUT P$(I)\NEXT I
60 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 P$(F)\GOTO 60
100 FILEV#1:"DTA1:PRLPER.BA"\PRINT#1:Z1
110 FOR I=1 TO Z1\PRINT#1:P$(I)\NEXT I\CLOSE#1
120 END