10  REM   ERMITTLUNG VON DURCHSCHNITTSPUNKTZAHL UND VARIANZ IM L-
20  REMBEREICH - - - - KURSWEISE ABZUFRAGEN NACH ENDE DES
30  REM  HALBJAHRES 13(1).
40  REM
50 DIM N$(20)
60 FILE#1:"DTA1:ZA1DAL.BA"
70 PRINT "KURS";\INPUT F$
80 IF F$ = "O" THEN 240
90 S=0\S2=0\Z=0
100 INPUT#1:N$,X
110 INPUT#1: F$(1),X
120 INPUT#1: F$(2),X
130 INPUT#1:S(1),S(2),X,X
140 IF N$ = "ENDE" THEN 200
150 FOR I = 1 TO 2
160 IF F$(I)<>F$ THEN 180
170 S = S + S(I)/9\Z=Z+1\S2=S2+(S(I)/9)**2
180 NEXT I
190 GOTO 100
200 PRINT"MITTELWERT FUER ";F$;" BEI ";Z;" TEILNEHMERN:";S/Z
210 PRINT "VARIANZ:";SQR(S2/Z - (S/Z)**2)
220 FOR I = 1 TO 5\ PRINT\ NEXT I
225 RESTORE#1
230 GOTO 70
240  END