CLS
2
parameter$ = COMMAND$
IF parameter$ <> "" THEN
  spielanzahl = VAL(parameter$)
  IF spielanzahl = 0 THEN PRINT "Bitte geben sie die Spielanzahl oder gar keinen Parameter an!": PRINT "z.B.:"; CHR$(34); "ausw.exe 100"; CHR$(34): SYSTEM
ELSE
  INPUT "Wie häufig soll gespielt werden?", spielanzahl
END IF

INPUT "Wie viele Würfel sollen geworfen werden?", wurfelanzahl

IF spielanzahl = 0 OR wurfelanzahl = 0 THEN GOTO 2

INPUT "Wie viele Ergebnisse wollen sie haben?", erg.anzahl

RANDOMIZE TIMER

DO
FOR s = 1 TO erg.anzahl
summe.mittelwert = 0: summe.aller.wurfel = 0
FOR t = 1 TO spielanzahl
kommt.1.vor = 0
FOR i = 1 TO wurfelanzahl
zufallszahl = INT(RND * 6) + 1
IF zufallszahl = 1 THEN kommt.1.vor = 1
summe.aller.wurfel = summe.aller.wurfel + zufallszahl
NEXT
IF kommt.1.vor = 1 THEN summe.aller.wurfel = 0
summe.mittelwert = summe.mittelwert + summe.aller.wurfel
summe.aller.wurfel = 0
NEXT
ass = summe.mittelwert / spielanzahl

PRINT ass;
NEXT
SLEEP: PRINT

eingabe$ = INKEY$

LOOP WHILE eingabe$ <> "e"