10 PRINT"[147]        <<    MITTELWERT    >>    UND ":PRINTTAB(10)"STANDARDABWEICHUNG"
20 PRINT"DAS PROGRAMM BERECHNET MITTELWERT UND"
30 PRINT"STANDARDABWEICHUNG VON BIS ZU 255 ZAHLEN";:PRINT"(DATENWERTEN)."
40 PRINT"--ENDE DURCH EINGABE VON <0>--"
50 DIM X(255)
60 PRINT "WIEVIELE DATEN WERDEN EINGEGEBEN"
70 INPUT N
75 IFN=0THEN500
80 PRINT "EINGABE DER DATEN (DRUECKE NACH JEDER   EINGABE RETURN[146])."
90 FOR I = 1 TO N
100 REM DIE DATEN WERDEN ZUNAECHST IN DER MATRIX X GESPEICHERT.
110 INPUT X(I)
120 NEXT
130 REM UM DEN ANFANG DER AUFLISTUNG ZU SEHEN, TIPPEN SIE BITTE
140 REM LIST -73 EIN.
150 M = 0
160 REM ADDITION
170 FOR I = 1 TO N
180 M = M + X(I)
190 NEXT
200 REM DIVISION DER SUMME DURCH ANZAHL DER WERTE.
210 M = M/N
220 S = 0
230 REM SUMME DER QUADRATISCHEN ABWEICHUNGEN.
240 FOR I = 1 TO N
250 S = S + (X(I) - M)^2
260 NEXT
270 REM WURZEL AUS DER DIVISION DER SUMME S DURCH N-1
280 S = (S/(N - 1))^.5
290 PRINT"[147]"
300 PRINT"DER MITTELWERT IST    "M
310 PRINT"STANDARDABWEICHUNG IST"S
320 GOTO60
500 END
510 REM DAS GRAPHIK-ZEICHEN "Q" IM PRINT-BEFEHL BEDEUTET CRSR RUNTER
512 REM "[209]" BEDEUTET CRSR HOCH, "]" CSR RECHTS UND "[221]" CRSR LINKS.